cp.asp

一个诚信信息港门户网 功能: 系统设置 企业会员 个人会员 商贸机会 产品管理 企业新闻 行业新闻 招聘信息 展会管理 模版管理

<%dbdns="../"%>
<!--#include file="../inc/conn.asp"-->
<%
'cp.asp?aid=竖排几排&bid=产品个数&cid=标题字数&did=要不要标题&eid=推荐&fid=图片尺寸
'cid  一个中文字算两个字符
'did  0不要 1要
'eid  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 eid=1 then e=" and SMT_key3=1"

cpviews="<table width=""100%"" border=0 cellspacing=0 cellpadding=5 align=center><tr align=center>"
set rs=server.createobject("adodb.recordset")
sql="select top "&bid&" * from SMT_cp where SMT_key=1 and SMT_key1=1 and SMT_key2=1"&e&" order by SMT_id desc"
rs.open sql,conn,1,1
n=0
do while not rs.eof
n=n+1

cpviews=cpviews&"<td align=center><p style=""line-height:180%""><a href="&application("cityurl")&"cp_view.asp?id="&rs("SMT_id")&" target=_blank><img src="&application("cityurl")&rs("SMT_pic")&" border=0 width="&fid&" height="&fid&"></a>"
if did=1 then
cpviews=cpviews&"<br><strong><a href="&application("cityurl")&"cp_view.asp?id="&rs("SMT_id")&" target=_blank class=black>"&LeftT(rs("SMT_cpname"),cid)&"</a></strong>"
end if
cpviews=cpviews&"</td>"

if n mod aid=0 then
cpviews=cpviews&"</tr><tr align=center>"
end if

rs.movenext
loop
rs.close
set rs=nothing
cpviews=cpviews&"</tr></table>"
%>
document.write('<%=cpviews%>')