sca_list.asp
来自「一个完全仿照阿里巴巴的网站管理系统 本软件没有版权问题」· ASP 代码 · 共 158 行
ASP
158 行
<!--#include file="main.asp"-->
<%id=request("id")
if id="" then
response.write"<script>alert('操作出错，下面是产生错误的可能原因：\n\n·请选择相关参数');history.go(-1);</script>"
response.end
end if
scasort=request("scasort")
set rs=server.createobject("adodb.recordset")
sql="select * from SMT_ypxxone where SMT_ypxxone_id="&id&" order by SMT_date desc"
rs.open sql,conn,1,1
ypxxone=rs("SMT_ypxxone")
rs.close%>
<!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="590" valign="top">
<!--=========left=========-->
<table width="590" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height=30>当前位置：<a href=index.asp>首页</a> >> <a href=sca.asp>商贸机会</a> >> <a href=sca_list.asp?id=<%=id%>><%=ypxxone%></a></td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellspacing="5" cellpadding="0" style="border:1px #999999 solid" bgcolor=#f8f8f8>
<tr><%set rs=server.createobject("adodb.recordset")
sql="select * from SMT_ypxxone order by SMT_date desc"
rs.open sql,conn,1,1
n=0
nn=rs.recordcount
do while not rs.eof
n=n+1%>
<td height=15 width=140><a href=sca_list.asp?id=<%=rs("SMT_ypxxone_id")%> class="black"><%=rs("SMT_ypxxone")%></a></td>
<%if n mod 4<>0 then response.write("<td width=10></td>")
if n mod 4=0 and nn<>n then response.write("</tr><tr>")
rs.movenext
loop
rs.close%>
</tr>
</table>
</td>
</tr>
<tr>
<td height=25 style="border:1px #cccccc solid" bgcolor=#efefef> <strong>查看：</strong><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>
<tr>
<td>
<!---->
<%Call SMT_Sca_View(0,10,1,0,id,0,999,0,5,0,150,1,2,2,1,1,"sca_list.asp")%>
<!---->
</td>
</tr>
</table>
<!--=========left end=========-->
</td>
<td width="170" valign="top">
<!--========= right=========-->
<table width="160" border="0" cellspacing="0" cellpadding="0" align=right>
<tr>
<td width=160 height=25 background="img/list_top.gif" align=center><strong><font color=#000000><%=ypxxone%></font></strong></td>
</tr>
<tr>
<td width=160>
<!---->
<table width="160" border="0" cellspacing="0" cellpadding="0" style="border-right:1px #999999 solid">
<tr>
<td width=3 rowspan=200 background="img/list_top_left.gif"></td>
<td width=157 height=80 style="border-top:1px #999999 solid"><table width="100%" border="0" cellspacing="3" cellpadding="0">
<tr>
<%set rs=server.createobject("adodb.recordset")
sql="select * from SMT_sca where SMT_ypxxone_id="&id&" and SMT_scasort=0 and SMT_key=1 and SMT_key1=1 and SMT_key2=1"
rs.open sql,conn,1,1
sca0=rs.recordcount
rs.close
set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from SMT_scasort order by SMT_date desc"
rs.open sql,conn,1,1
n=0
do while not rs.eof
n=n+1
set rs2=server.createobject("adodb.recordset")
sql2="select * from SMT_sca where SMT_ypxxone_id="&id&" and SMT_scasort="&rs("SMT_id")&" and SMT_key=1 and SMT_key1=1 and SMT_key2=1"
rs2.open sql2,conn,1,1
sca=rs2.recordcount
rs2.close
set rs2=nothing%>
<td width="18%" height=20 align="right"><a href=sca_list.asp?id=<%=id%>&scasort=<%=rs("SMT_id")%> class=black><%=rs("SMT_scasort")%></a>
<td width="32%"><font color=red>(<%=sca%>)</font></td>
<%if n mod 2=0 then response.write "</tr><tr>"
rs.movenext
loop
rs.close%>
<td align="right"><a href=sca_list.asp?id=<%=id%>&scasort=0 class=black>其它</a></td>
<td><font color=red>(<%=sca0%>)</font></td>
</tr>
</table>
</td>
</tr>
<tr><td height=11 background="img/list_line.gif"></td></tr>
<%set rs1=server.createobject("adodb.recordset")
sql1="select * from SMT_ypxxtwo where SMT_ypxxone_id="&id&" order by SMT_date desc"
rs1.open sql1,conn,1,1
do while not rs1.eof
sql="select * from SMT_sca where SMT_ypxxtwo_id="&rs1("SMT_ypxxtwo_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 background="img/list_line_1.gif"></td></tr>
<tr>
<td height=25> <a href=sca_vlist.asp?id=<%=rs1("SMT_ypxxtwo_id")%> class=black><%=rs1("SMT_ypxxtwo")%></a> <font color=red>(<%=scacount%>)</font></td>
</tr>
<%rs1.movenext
loop
rs1.close
set rs1=nothing%>
</table>
<!---->
</td>
</tr>
<tr><td height=3 background="img/list_top_bottom.gif"></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=#4795EC></td></tr>
<tr>
<td align="center" height=80><%=citybottom%></td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?