sca.asp

购物网站源码有需要的赶快下载机不可失

<%dbdns="../"%>
<!--#include file="../inc/conn.asp"-->
<%
'sca.asp?aid=分类&bid=条数&cid=每条字数&did=要不要前两字&eid=时间&fid=推荐
'aid  0其它 1合作 2采购 3供应 4代理 5招商
'did  0不要 1要
'cid  一个中文字算两个字符
'eid  0不要 1要
'fid  0为不推荐 1为推荐

aid=int(request.querystring("aid"))
bid=int(request.querystring("bid"))
cid=int(request.querystring("cid"))
did=int(request.querystring("did"))
eid=int(request.querystring("eid"))
fid=int(request.querystring("fid"))
if aid=0 then a="<font color=#BE381F>【<a href=sca_tlist.asp?scasort="&aid&" target=_blank>其它</a>】</font>"
if aid=1 then a="<font color=#BE381F>【<a href=sca_tlist.asp?scasort="&aid&" target=_blank>合作</a>】</font>"
if aid=2 then a="<font color=#BE381F>【<a href=sca_tlist.asp?scasort="&aid&" target=_blank>求</a>】</font>"
if aid=3 then a="<font color=#BE381F>【<a href=sca_tlist.asp?scasort="&aid&" target=_blank>供</a>】</font>"
if aid=4 then a="<font color=#BE381F>【<a href=sca_tlist.asp?scasort="&aid&" target=_blank>代理</a>】</font>"
if aid=5 then a="<font color=#BE381F>【<a href=sca_tlist.asp?scasort="&aid&" target=_blank>招商</a>】</font>"
if did=1 then d=a else d="·"
if fid=1 then f=" and SMT_key3=1"

scaview="<p style=""line-height:150%"">"
set rs=server.createobject("adodb.recordset")
sql="select top "&bid&" * from SMT_sca where SMT_key=1 and SMT_key1=1 and SMT_key2=1"&f&" and SMT_scasort="&aid&" order by SMT_begindate desc"
rs.open sql,conn,1,1
do while not rs.eof
scatitle=trim(rs("SMT_scatitle"))
if eid=1 then newdate=" <font color=cc3300>("&month(rs("SMT_begindate"))&"-"&day(rs("SMT_begindate"))&")</font>" else newdate=""

scaview=scaview&d&" <a href="&application("cityurl")&"sca_view.asp?id="&rs("SMT_id")&" target=_blank>"&LeftT(scatitle,cid)&"</a>"&newdate&"<br>"

rs.movenext
loop
rs.close%>
document.write('<%=scaview%>')