📄 yp_vlist.asp
字号:
<!--#include file="main.asp"-->
<%id=request("id")
if id="" then
response.write"<script>alert('操作出错，下面是产生错误的可能原因：\n\n·请选择相关参数');history.go(-1);</script>"
response.end
end if
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>
</head>
<body topmargin="0">
<%SMT_TOP%>
<table width="760" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height=30 colspan="2">当前位置：<a href=index.asp>首页</a> >> <a href=yp.asp>企业会员</a> >> <a href=yp_vlist.asp?id=<%=id%>><%=ypxxone%></a></td>
</tr>
<tr>
<td width="180" bgcolor="#efefef" style="border-right:1px #999999 solid" valign="top">
<!--==================-->
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr><td height=25 background="img/bgtitle.gif" class=f14> <strong><font color=#ffffff><%=ypxxone%></font></strong></td></tr>
<%set rs=server.createobject("adodb.recordset")
sql="select * from SMT_ypxxtwo where SMT_ypxxone_id="&id&" order by SMT_date desc"
rs.open sql,conn,1,1%>
<tr>
<%n=0
do while not rs.eof
n=n+1
set rs1=server.createobject("adodb.recordset")
sql1="select * from SMT_yp where SMT_ypxxtwo_id="&rs("SMT_ypxxtwo_id")&" and SMT_key<>0 and SMT_key<>2 and SMT_key1=1"
rs1.open sql1,conn,1,1
twocount=rs1.recordcount
rs1.close%>
<tr><td height=25> <a href=yp_list.asp?id=<%=rs("SMT_ypxxtwo_id")%>><%=rs("SMT_ypxxtwo")%></a> <font color=red>(<%=twocount%>)</font></td></tr>
<tr><td background="img/list_line_1.gif"></td></tr>
<%rs.movenext
loop
rs.close%>
</table>
<!--==================-->
</td>
<td width="580" valign="top">
<!--==================-->
<table width="99%" border="0" cellspacing="0" cellpadding="0" align="right">
<%sql="select * from SMT_yp where SMT_ypxxone_id="&id&" and SMT_key<>0 and SMT_key<>2 and SMT_key1=1 order by SMT_id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<tr><td height=50>没有内容</td></tr>"
else
'分页的实现
listnum=20
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
do while not rs.eof and i<listnum
a=year(rs("SMT_date"))
b=month(rs("SMT_date"))
c=day(rs("SMT_date"))
goname=rs("SMT_user")
goid=rs("SMT_id")
sql1="select * from SMT_ypaddtwo where SMT_addtwo_id="&rs("SMT_addtwo_id")
set rs1=server.createobject("ADODB.Recordset")
rs1.open sql1,conn,1,1
addone=rs1("SMT_addone")
addtwo=rs1("SMT_addtwo")
rs1.close%>
<!--#include file="dns/dns.asp"-->
<tr><td background="img/search_line.gif" colspan=2></td></tr>
<tr align=center height=20 bgcolor="#efefef">
<td width="5%"><strong><font color=#ff6600>>></font></strong></td>
<td width="95%" height=30 align=left><a href="<%=usertwourl%>" target="_blank"><strong class=f14><%=rs("SMT_coname")%></strong></a> <%if rs("SMT_vip")=2 then%><img src="img/vip.gif" title="VIP会员"><%end if%>
[<%=addone%>/<%=addtwo%> date：<%=a&"-"&b&"-"&c%> htc：<%=rs("SMT_htc")%>]
</td>
</tr>
<tr>
<td height=50 colspan="2"><p style="line-height:180%"> <%=Trim(left(rs("SMT_coms"),55))%>...</td></tr>
<%rs.movenext
i=i+1
j=j-1
loop%>
<tr>
<%filename="yp_vlist.asp?id="&id%>
<td colspan=2 align=right height=20 bgcolor=#95CDFF><strong><%=page%>/<%=Rs.pagecount%>
<% if page=1 then %><%else%>
<a href=<%=filename%>>|<<</a>
<a href=<%=filename%>&page=<%=page-1%>><<</a>
<a href=<%=filename%>&page=<%=page-1%>>[<%=page-1%>]</a>
<%end if%><% if Rs.pagecount=1 then %><%else%>[<%=page%>]<%end if%>
<% if Rs.pagecount-page <> 0 then %>
<a href=<%=filename%>&page=<%=page+1%>>[<%=page+1%>]</a>
<a href=<%=filename%>&page=<%=page+1%>>>></a>
<a href=<%=filename%>&page=<%=Rs.pagecount%>>>>|</a>
<%end if%></strong> </td>
<%end if%></tr>
</table>
<!--==================-->
</td>
</tr>
</table>
<!--====== bottom ========-->
<table width="760" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor=#ffffff>
<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 + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -