📄 sca_tlist.asp
字号:
<!--#include file="main.asp"-->
<%scasort=request("scasort")%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>商贸机会 - <%=citytitle%></title>
<body topmargin="0">
<%SMT_TOP%>
<table width="760" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="570" valign="top">
<!--=========left=========-->
<table width="570" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height=30>当前位置：<a href=index.asp>首页</a> >> <a href=sca.asp>商贸机会</a> >> <a href=sca_tlist.asp?scasort=<%=scasort%>>分类列表</a></td>
</tr>
<tr>
<td>
<table width="570" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="95" background="img/pagounew_20.jpg" height="30" style="color:#ffffff"> <strong class=f14>查看类别</strong></td>
<td background="img/pagounew_22.jpg"> <a href=sca_tlist.asp>全部</a>
<%set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from SMT_scasort order by SMT_date desc"
rs.open sql,conn,1,1
do while not rs.eof
%>
<a href=sca_tlist.asp?scasort=<%=rs("SMT_id")%>><%=rs("SMT_scasort")%></a>
<%rs.movenext
loop
rs.close
set rs=nothing%>
<a href=sca_tlist.asp?scasort=0>其它</a>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td>
<!---->
<table width="100%" border="0" cellspacing="0" cellpadding="0" style="border:1px #cccccc solid">
<tr bgcolor="#FFE2DA"><th height=30>图片</th><th>主题</th><th colspan=3>发布日期</th></tr>
<%if scasort<>"" then
sql="select * from SMT_sca where SMT_scasort="&scasort&" and SMT_key=1 and SMT_key1=1 and SMT_key2=1 order by SMT_id desc"
else
sql="select * from SMT_sca where SMT_key=1 and SMT_key1=1 and SMT_key2=1 order by SMT_id desc"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<tr><td height=194 colspan=5 align=center>暂无内容</td></tr>"
else
'分页的实现
listnum=8
Rs.pagesize=listnum
page=Request("page")
if (page-Rs.pagecount) > 0 then
page=Rs.pagecount
elseif page = "" or page < 1 then
page = 1
end if
Rs.absolutepage=page
'编号的实现
j=rs.recordcount
j=j-(page-1)*listnum%>
<%i=0
nn=request("page")
if nn="" then
n=0
else
nn=nn-1
n=listnum*nn
end if
do while not rs.eof and i<listnum
if n mod 2=1 then
nowcolor="#efefef"
else
nowcolor="#ffffff"
end if
n=n+1
sca=rs("SMT_sca")
pic1=rs("SMT_pic1")
pic2=rs("SMT_pic2")
pic3=rs("SMT_pic3")
mainpic=pic1
if mainpic="img/null.bmp" then mainpic=pic2
if mainpic="img/null.bmp" then mainpic=pic3
if len(sca)>61 then
sca=left(sca,60)&"..."
end if
set rs1=server.createobject("adodb.recordset")
sql1="select * from SMT_scasort where SMT_id="&rs("SMT_scasort")
rs1.open sql1,conn,1,1
if not rs1.eof then
scasort="<font color=cc3300>【"&rs1("SMT_scasort")&"】</font>"
else
scasort="<font color=cc3300>【其它】</font>"
end if
rs1.close%>
<tr><td colspan=5 height="10" bgcolor=<%=nowcolor%>></td></tr>
<tr bgcolor=<%=nowcolor%>>
<td width="100" rowspan="3" align="center"><img src=<%=mainpic%> width=80 height=80 border="1"></td>
<td height=25> <%=scasort%> <img src="img/index_aro4.gif"> <a href=sca_view.asp?id=<%=rs("SMT_id")%> target="_blank"><strong><font class=f14><%=rs("SMT_scatitle")%></font></strong></a></td>
<td width="80" align=center colspan="3"><font color=#ff6c00><%=year(rs("SMT_begindate"))&"-"&month(rs("SMT_begindate"))&"-"&day(rs("SMT_begindate"))%></font></td>
</tr>
<%if rs("SMT_yp_id")<>0 then
set rs1=server.createobject("adodb.recordset")
sql1="select * from SMT_yp where SMT_id="&rs("SMT_yp_id")
rs1.open sql1,conn,1,1
if not rs1.eof then
goname=rs1("SMT_user")
goid=rs1("SMT_id")
coname=rs1("SMT_coname")
addtwo_id=rs1("SMT_addtwo_id")
svip=rs1("SMT_vip")
set rs2=server.createobject("adodb.recordset")
sql2="select * from SMT_ypaddtwo where SMT_addtwo_id="&addtwo_id
rs2.open sql2,conn,1,1
coadd=" <font color=0000ff>["&rs2("SMT_addtwo")&"/"&rs2("SMT_addone")&"]</font>"
rs2.close
end if
rs1.close%>
<!--#include file="dns/dns.asp"-->
<tr bgcolor=<%=nowcolor%>>
<td height=20 colspan=4> <a href=<%=usertwourl%> target=_blank><%=coname%></a> <%if svip=2 then%><img src="img/vip.gif" title="VIP会员"><%end if%> <%=coadd%></td>
</tr>
<%else%>
<tr bgcolor=<%=nowcolor%>>
<td height=20 colspan=4> </td>
</tr>
<%end if%>
<tr bgcolor=<%=nowcolor%>>
<td height=20 colspan=4><p style="line-height:150%"> <%=trim(sca)%></td>
</tr>
<tr><td colspan=5 height="10" bgcolor=<%=nowcolor%>></td></tr>
<tr><td colspan=5 background="img/list_line_1.gif"></td></tr>
<%rs.movenext
i=i+1
j=j-1
loop%>
<tr>
<%filename="sca_tlist.asp?id="&id&"&scasort="&request("scasort")%>
<td colspan=6 align=right bgcolor=#FFE2DA height=30><strong><font color=FF6C00><%=rs.recordcount%></font></strong>条信息 共<strong><font color=FF6C00><%=Rs.pagecount%></font></strong>页
<% if page=1 then %>
<%else%>
<a href=<%=filename%>><strong>|<<</strong></a>
<a href=<%=filename%>&page=<%=page-1%>><strong><<</strong></a>
<a href=<%=filename%>&page=<%=page-1%>><strong>[<%=page-1%>]</strong></a>
<%end if%><% if Rs.pagecount=1 then %>
<%else%><strong>[<%=page%>]</strong>
<%end if%>
<% if Rs.pagecount-page <> 0 then %>
<a href=<%=filename%>&page=<%=page+1%>><strong>[<%=page+1%>]</strong></a>
<a href=<%=filename%>&page=<%=page+1%>><strong>>></strong></a>
<a href=<%=filename%>&page=<%=Rs.pagecount%>><strong>>>|</strong></a>
<%end if%> </td>
<%end if%></tr>
</table>
<%rs.close%>
<!---->
</td>
</tr>
</table>
<!--=========left end=========-->
</td>
<td width="10"></td>
<td width="180" valign="top" background="img/pa_bg9.jpg" style="background-repeat:repeat-y;border:1px #cccccc solid">
<!--========= right=========-->
<table width="180" border="0" cellspacing="0" cellpadding="0" align=right>
<tr>
<td height=30 background="img/bgtitle1.gif" width="180"> <font color=#ffffff><strong>行业分类</strong></font></td>
</tr>
<tr>
<td width=180>
<!---->
<table width="180" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width=177 height=80>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%set rs1=server.createobject("adodb.recordset")
sql1="select * from SMT_ypxxone order by SMT_date desc"
rs1.open sql1,conn,1,1
do while not rs1.eof
sql="select * from SMT_sca where SMT_ypxxone_id="&rs1("SMT_ypxxone_id")&" and SMT_key=1 and SMT_key1=1 and SMT_key2=1"
rs.open sql,conn,1,1
scacount=rs.recordcount
rs.close%>
<tr>
<td height=25> <a href=sca_list.asp?id=<%=rs1("SMT_ypxxone_id")%> class=black><%=rs1("SMT_ypxxone")%></a> <font color=red>(<%=scacount%>)</font></td>
</tr>
<tr><td background="img/list_line_1.gif"></td></tr>
<%rs1.movenext
loop
rs1.close
set rs1=nothing%>
</table>
</td>
</tr>
</table>
<!---->
</td>
</tr>
</table>
<!--=========right end=========-->
</td>
</tr>
</table>
<!--====== bottom ========-->
<table width="760" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor=#ffffff>
<tr><td height=10></td></tr>
<tr><td height=2 bgcolor=#cc3300></td></tr>
<tr>
<td align="center" height=80><%=citybottom%></td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -