www.gusucode.com > 运动用品商城网站系统源代码程序 > feyok/ad_addpt.asp
<!--#include file="conn.asp"--> <!--#include file="ad_chk.asp"--> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <link href=inc/css.css rel=STYLESHEET type=text/css> <body topmargin="5" leftmargin="5" rightmargin="5" bottommargin="5"> <% if Request.Cookies("venshop")("admin_class")<>0 and Request.Cookies("venshop")("admin_class")<>1 then response.write "你没有这个权限!" response.end end if %> <% errmes1="请选择分类:" errmes2="没有任何分类!" host=lcase(request.servervariables("HTTP_HOST")) response.write "<table border=""0"" cellpadding=""5"" cellspacing=""0"" class=""st""><tr><td class=sa><b>" response.write errmes1 response.write "</b></td></tr><tr><td valign=top>" set rs=server.createobject("adodb.recordset") sql="select * from venshop_sort order by sort_xu DESC,sort_id DESC" rs.open sql,conn,1,1 xx=0 do while not rs.eof xx=xx+1 id=rs("sort_id") sort_name=replace(replace(replace(rs("sort_name"),"'","")," ",""),"""","") response.write "<table cellspacing=0 cellpadding=0 width=100% border=0 class=""s"&int(xx mod 2)&""">" response.write "<tr height=22><td valign=top><p style='line-height: 150%; margin-top: 5; margin-bottom: 5'><b>" response.write "<a href=ad_addhwt.asp?sort_id="&rs("sort_id")&"&nsort_id=0&nsort_name=NO&sort_name="&sort_name&">"&rs("sort_name")&"</a> " response.write " >></b><br>" set rs8=server.CreateObject("adodb.recordset") rs8.open "select * from venshop_nsort where sort_id="&id&" order by nsort_xu DESC,nsort_id DESC" ,conn,1,1 do while not rs8.eof and not rs8.bof nsort_name=replace(replace(replace(rs8("nsort_name"),"'","")," ",""),"""","") response.write "<a href=ad_addhwt.asp?sort_id="&rs8("sort_id")&"&nsort_id="&rs8("Nsort_id")&"&sort_name="&sort_name&"&nsort_name="&nsort_name&">"&rs8("Nsort_name")&"</a> " rs8.movenext loop rs8.close set rs8=nothing response.write "</td></tr></table>" rs.movenext loop rs.close set rs=nothing response.write "</td></tr></table>" %><!--#include file="ad_bottom.asp"-->