showsort.asp

电子商城代码

<!--#include file="top.asp"-->
<%
session.codepage=65001
response.charset="utf-8"
Dim brand,listprice,listtime,listtype,sort_id,csort_id,cxsort_id,sort_name,csort_name,cxsort_name,page,sle_type,gongxiao,person
Dim rss,sqls
brand=safereplace(request("brand"))
sort_id=safereplace(request("sort_id"))
If request("sort_id")="" Or IsNumeric(request("sort_id"))=false Then sort_id="0"
csort_id=safereplace(request("csort_id"))
cxsort_id=safereplace(request("cxsort_id"))
page=safereplace(request("page"))
If page="" Then page=1
sle_type=safereplace(request("sle_type"))
if sort_id="" then
        response.redirect "default.asp"
response.end
end If
If sort_id<>"" And sort_id<>0 then
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from [56770_sort] where sort_id="&sort_id&""
rs.open sql, conn, 1, 1
If Not rs.eof Then 
        sort_name=rs("sort_name")
End If 
rs.close:set rs=Nothing
End If 
If csort_id<>"" And sort_id<>0 then
Set rss=Server.CreateObject("ADODB.RecordSet")
sqls="select * from [56770_csort] where csort_id="&csort_id&""
rss.open sqls, conn, 1, 1
        csort_name=rss("csort_name")
rss.close
set rss=Nothing
End If
If cxsort_id<>"" And sort_id<>0 then
Set rss=Server.CreateObject("ADODB.RecordSet")
sqls="select * from [56770_cxsort] where cxsort_id="&cxsort_id&""
rss.open sqls, conn, 1, 1
        cxsort_name=rss("cxsort_name")
rss.close
set rss=Nothing
End If
session("oldUrl")="./"
thisUrl="showsort.asp?sort_id="&sort_id&"&csort_id="&csort_id&"&cxsort_id="&cxsort_id&"&brand="&brand&"&page="&page&""
session("oldUrl")=thisUrl
if sort_id=0 then 
strwebtitle=brand
else
strwebtitle=sort_name
end if 
if csort_id<>"" then strwebtitle=strwebtitle& " - "&csort_name
if cxsort_id<>"" then strwebtitle=strwebtitle& " - "&cxsort_name
response.write c_skin_56770(c_skin_word(skin_head))
topmenu()
www56770com_menu_sort()
www56770com_menu_cxsort()
www56770com_showsort_tj()
www56770com_showsort_buys()
www56770com_showsort_new()
www56770com_showsort_brand()
www56770com_showsort_cxtj()
www56770com_showsort_gg()
www56770com_showsort_list()
%>
<table width=<%=webwidth%> border=0 cellpadding=0 cellspacing=0 align=center>
<tr>
<td>
<%=c_skin_56770(c_skin_word(skin_showsort))%>
</td>
</tr>
</table>
<!--#include file="footer.asp"-->
<%
If qq_zt=1 And qq_ys=1 Then 
       qq_fd()
End If
connclose()
%>