📄 per.asp
字号:
<!--#include file="inc/conn.asp"-->
<!--#include file="config.asp"-->
<%
function chkcnmai(char)
if instr(char,"'") then
call errcnmai(2)
response.end
end if
if instr(char,"|") then
call errcnmai(2)
response.end
end if
if instr(char,"<") then
call errcnmai(2)
response.end
end if
if instr(char,">") then
call errcnmai(2)
response.end
end if
if instr(char,"&") then
call errcnmai(2)
response.end
end if
if instr(char,chr(32)) then
call errcnmai(2)
response.end
end if
if instr(char,chr(34)) then
call errcnmai(2)
response.end
end if
if instr(char,"%") then
call errcnmai(2)
response.end
end if
if instr(char,";") then
call errcnmai(2)
response.end
end if
if instr(char," ") then
call errcnmai(2)
response.end
end if
if instr(char,"$") then
call errcnmai(2)
response.end
end if
if instr(char,"!") then
call errcnmai(2)
response.end
end if
if instr(char,"@") then
call errcnmai(2)
response.end
end if
if instr(char,"^") then
call errcnmai(2)
response.end
end if
if instr(char,"*") then
call errcnmai(2)
response.end
end if
if instr(char,"(") then
call errcnmai(2)
response.end
end if
if instr(char,")") then
call errcnmai(2)
response.end
end if
if instr(char,"=") then
call errcnmai(2)
response.end
end if
if instr(char,"\") then
call errcnmai(2)
response.end
end if
if instr(char,"/") then
call errcnmai(2)
response.end
end if
end function
dim username,rs,sql,k
username=trim(request("username"))
chkcnmai(username)
set rs = Server.CreateObject("ADODB.RecordSet")
sql="select * from [user] where username='"&username&"'"
rs.open sql,conn,1,1
if rs.eof then
response.write "<script language=JavaScript>" & chr(13) & "alert('该信息是快速发布信息！没有相关用户资料！');" & "history.back()" & "</script>"
response.end
end if
%><html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content="供求信息,二手网,二手商品,电子商务,供求网站,免费发布供求信息,商业信息,贸易网,求购,求购信息,出售，供应,供求信息网，招商投资 生活服务 家电家居 旅游出行 招聘求职 房产信息
建材装饰 烟酒副食 电脑网络 餐饮酒店 医药保健 农林牧渔 安全防护 包装纸张 办公文教 电子通讯
纺织皮革 服装服饰 工业机械 仪器仪表 交通运输 车及配件 工艺礼品 文化艺术 冶金矿产 出版印刷 能源动力 环境保护
化工行业 玩具体育 园林绿化 广告服务 商务服务 分类广告 搜索引擎 企业行业黄页 分类信息网 集市">
<title>详细信息－<%=rs("name")%>(<%=rs("username")%>)<%=title%></title>
</head>
<body topmargin="0">
<!--#include file="topcnmai.asp"-->
<div align="center">
<table border="0" width="760" id="table1" bgcolor="#FFFFFF" style="border-left: 1px solid #CCCCCC; border-right: 1px solid #CCCCCC; padding: 1px; border-top-width:1px; border-bottom-width:1px" cellspacing="0" cellpadding="0">
<tr>
<td width="200" height="25" class=td2_muen>
<p align="center">最新商家</td>
<td width="594" height="25" class=td_muen>
<p align="center"><%=rs("name")%>(<%=rs("username")%>)会员详细信息－个人用户</td>
</tr>
<tr>
<td width="200" bgcolor="#F6F6F6" valign="top"></td>
<td valign="top">
<table border="0" bordercolor="#111111" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" height="24" colspan="5" bgcolor="#FFEEDD">
</td>
</tr>
<tr>
<td width="19%" height="32" align="right" style="border-top-style: solid; border-top-width: 1" bordercolor="#F4F4F2">真实姓名：</td>
<td width="38%" height="32" style="border-top-style: solid; border-top-width: 1" bordercolor="#F4F4F2"><font color="#666666"><%=rs("name")%>(<%=rs("username")%>)</font></td>
<td width="18%" height="32" align="right" style="border-top-style: solid; border-top-width: 1" bordercolor="#F4F4F2">登陆次数：</td>
<td width="5%" height="32" style="border-right-style: none; border-right-width: medium; border-top-style: solid; border-top-width: 1" bordercolor="#F4F4F2">
<font color="#999999"><%=rs("dlcs")%></font></td>
<td width="17%" height="32" style="border-right-style: solid; border-right-width: 1; border-top-style: solid; border-top-width: 1; border-left-style:none; border-left-width:medium" bordercolor="#F4F4F2">
<font color="#999999">次</font></td>
</tr>
<tr>
<td width="19%" height="28" align="right" bordercolor="#F4F4F2">身份证：</td>
<td width="38%" height="28" bordercolor="#F4F4F2">
<font color="#666666">保密中</font></td>
<td width="18%" height="28" align="right" bordercolor="#F4F4F2">
用户积分：</td>
<td width="5%" height="28" style="border-right-style: none; border-right-width: medium" bordercolor="#F4F4F2">
<font color="#999999"><%=rs("jf")%></font></td>
<td width="17%" height="28" style="border-right-style: solid; border-right-width: 1; border-left-style:none; border-left-width:medium" bordercolor="#F4F4F2">
<font color="#999999">分</font></td>
</tr>
<tr>
<td width="19%" height="30" align="right" bordercolor="#F4F4F2">注册时间：</td>
<td width="38%" height="30" bordercolor="#F4F4F2"><font color="#666666"><%=rs("zcdata")%></font></td>
<td width="18%" height="30" align="right" bordercolor="#F4F4F2">虚拟货币：</td>
<td width="5%" height="30" style="border-right-style: none; border-right-width: medium" bordercolor="#F4F4F2">
<font color="#999999"><%=rs("hb")%></font></td>
<td width="17%" height="30" style="border-right-style: solid; border-right-width: 1; border-left-style:none; border-left-width:medium" bordercolor="#F4F4F2">
<font color="#999999">KB</font></td>
</tr>
<tr>
<td width="19%" height="30" align="right" bordercolor="#F4F4F2">联系电话：</td>
<td width="38%" height="30" bordercolor="#F4F4F2"><font color="#666666"><%=rs("dianhua")%></font></td>
<td width="41%" height="30" colspan="3" style="border-right-style: solid; border-right-width: 1" bordercolor="#F4F4F2">
<p align="center"> </td>
</tr>
<tr>
<td width="19%" height="30" align="right" bordercolor="#F4F4F2">QQ或MSN：</td>
<td width="38%" height="30" bordercolor="#F4F4F2"><font color="#666666"><%=rs("QQ")%></font></td>
<td width="18%" height="30" align="right" bordercolor="#F4F4F2">标题变色道具：</td>
<td width="5%" height="30" style="border-right-style: none; border-right-width: medium" bordercolor="#F4F4F2">
<font color="#999999"><%=rs("a")%></font></td>
<td width="17%" height="30" style="border-right-style: solid; border-right-width: 1; border-left-style:none; border-left-width:medium" bordercolor="#F4F4F2">
<font color="#999999">个</font></td>
</tr>
<tr>
<td width="19%" height="30" align="right" bordercolor="#F4F4F2">通信地址：</td>
<td width="38%" height="30" bordercolor="#F4F4F2"><font color="#666666"><%=rs("dizhi")%></font></td>
<td width="18%" height="30" align="right" bordercolor="#F4F4F2">信息置顶道具：</td>
<td width="5%" height="30" style="border-right-style: none; border-right-width: medium" bordercolor="#F4F4F2">
<font color="#999999"><%=rs("b")%></font></td>
<td width="17%" height="30" style="border-right-style: solid; border-right-width: 1; border-left-style:none; border-left-width:medium" bordercolor="#F4F4F2">
<font color="#999999">个</font></td>
</tr>
<tr>
<td width="19%" height="30" align="right" bordercolor="#F4F4F2">邮件地址：</td>
<td width="38%" height="30" bordercolor="#F4F4F2">
<INPUT TYPE=button VALUE="发邮件交流" ONCLICK="window.open('xinxi_mail.asp?id=<%=rs("id")%>','Sample','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,copyhistory=no,width=355,height=328,left=300,top=100')" style="color: #666666; background-color: #E1E2DC"></td>
<td width="18%" height="30" align="right" bordercolor="#F4F4F2">内容贴图道具：</td>
<td width="5%" height="30" style="border-right-style: none; border-right-width: medium" bordercolor="#F4F4F2">
<font color="#999999"><%=rs("c")%></font></td>
<td width="17%" height="30" style="border-right-style: solid; border-right-width: 1; border-left-style:none; border-left-width:medium" bordercolor="#F4F4F2">
<font color="#999999">个</font></td>
</tr>
<tr>
<td width="19%" height="30" align="right" style="border-bottom-style: solid; border-bottom-width: 1" bordercolor="#F4F4F2">最后登陆：</td>
<td width="38%" height="30" style="border-bottom-style: solid; border-bottom-width: 1" bordercolor="#F4F4F2">
<font color="#999999"><%=rs("lasttime")%></font></td>
<td width="18%" height="30" align="right" style="border-bottom-style: solid; border-bottom-width: 1" bordercolor="#F4F4F2">通过验证道具：</td>
<td width="5%" height="30" style="border-right-style: none; border-right-width: medium; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#F4F4F2">
<font color="#999999"><%=rs("d")%></font></td>
<td width="17%" height="30" style="border-right-style: solid; border-right-width: 1; border-bottom-style: solid; border-bottom-width: 1; border-left-style:none; border-left-width:medium" bordercolor="#F4F4F2">
<font color="#999999">个</font></td>
</tr>
<%rs.close%>
<tr>
<td width="100%" height="24" colspan="5">
<table border="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111" width="101%" height="100%">
<%
dim ThisPage,Pagesize,Allrecord,Allpage,b,bb,i
k=0
if request("page")="" then
ThisPage=1
else
ThisPage=request("page")
end if
sql = "select * from xinxi where yz=1 and username='"&username&"' order by b desc ,id desc"
rs.open sql,conn,1,1
if rs.eof then
response.write "该用户还没有发布信息！"
else
rs.Pagesize=10
Pagesize=rs.Pagesize
Allrecord=rs.Recordcount
Allpage=rs.Pagecount
if ThisPage<1 then
ThisPage=1
end if
'On Error Resume Next
rs.move (ThisPage-1)*Pagesize
%>
<tr>
<td width="7%" align="center" height="25" style="border-left-style: solid; border-left-width: 1; border-top-style: solid; border-top-width: 1" bordercolor="#F4F4F2" bgcolor="#FFEEDD">编号</td>
<td width="65%" align="center" height="25" style="border-top-style: solid; border-top-width: 1" bordercolor="#F4F4F2" bgcolor="#FFEEDD"> 信
息 标 题</td>
<td width="10%" align="center" height="25" style="border-top-style: solid; border-top-width: 1" bordercolor="#F4F4F2" bgcolor="#FFEEDD">
查/回</td>
<td width="18%" align="center" height="25" style="border-right-style: solid; border-right-width: 1; border-top-style: solid; border-top-width: 1" bordercolor="#F4F4F2" bgcolor="#FFEEDD">发布时间</td>
</tr>
<%
do while not rs.eof
b=trim(rs("b"))
bb=len(b)
%>
<tr>
<td width="7%" align="center" height="25" style="border-left-style: solid; border-left-width: 1" bordercolor="#F4F4F2"><%=k+1%></td>
<td width="65%" align="center" height="25" style="border-bottom-style: none; border-bottom-width: medium" bordercolor="#F4F4F2"><p align="left"><%if rs("tupian")<>"" or rs("tupian")<>"0" then%><img src="image/num/pic.gif"><%end if%><a target="_blank" href="xinximemo.asp?cnmai=<%=rs("id")%>"><%if rs("a")="0" then%><%=rs("biaoti")%><%else%><font color="#<%=rs("a")%>"><%=rs("biaoti")%></font><%end if%></a><%if b<>0 then%><img src="image/num/jsq.gif"><%for i=1 to bb%><img src="image/num/<%=Mid(b,i,1)%>.gif"><%next%><%end if%></td>
<td width="10%" align="center" height="25" style="border-bottom-style: none; border-bottom-width: medium" bordercolor="#F4F4F2"><%=rs("llcs")%>/<%=rs("hfcs")%></td>
<td width="18%" align="center" height="25" style="border-right-style: solid; border-right-width: 1; border-bottom-style: none; border-bottom-width: medium" bordercolor="#F4F4F2"><%=datevalue(rs("fbsj"))%></td>
</tr>
<%
k=k+1
rs.movenext
if k>=Pagesize then exit do
loop
%>
<tr>
<td width="100%" align="center" height="13" colspan="4" style="border-left-style: solid; border-left-width: 1; border-right-style: solid; border-right-width: 1" bordercolor="#F4F4F2">
<%
if Allrecord>rs.Pagesize then
call pages()
end if
sub pages()
%>
<table border="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
<tr>
<td height="24" width="151" align="center" bgcolor="#FFEEDD">
共有 <font color="#CC5200"><%=Allrecord%></font> 条记录</td>
<td height="24" width="126" align="center" bgcolor="#FFEEDD">
共 <font color="#CC5200"><%=Allpage%></font> 页</td>
<td height="24" width="118" align="center" bgcolor="#FFEEDD">
现在是第
<font color="#CC5200"><%=ThisPage%></font> 页</td>
<td height="24" width="174" align="center" bgcolor="#FFEEDD">
<%
if ThisPage<2 then
response.write "<font color=""#808080"">首页</font> "
response.write "<font color=""#808080"">上一页</font> "
else
response.write "<a href=?page=1&username="&username&"#1>首页</a> "
response.write "<a href=?page="&ThisPage-1&"&username="&username&"#1>上一页</a> "
end if
if Allpage-ThisPage<1 then
response.write "<font color=""#808080"">下一页</font> "
response.write "<font color=""#808080"">尾页</font> "
else
response.write "<a href=?page="&(ThisPage+1)&"&username="&username&"#1>下一页</a> "
response.write "<a href=?page="&Allpage&"&username="&username&"#1>尾页</a> "
end if
%></td>
</tr>
</table>
<%end sub%>
</td>
</tr>
<%end if%>
</table>
</td>
</tr>
</table></td>
</tr>
</table>
</div>
<!--#include file="endcnmai.asp"-->
</body>
</html>
<%
rs.close
set rs=nothing
closedb
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -