<!--#include file="inc/conn.asp"-->
<!--#include file="inc/inc.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
username=trim(request("username"))
chkcnmai(username)
set rs = Server.CreateObject("ADODB.RecordSet")
sql="select * from [jle_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">
<title><%=rs("name")%>(<%=rs("username")%>)－详细信息－<%=title%></title>
</head>
<body topmargin="0">
<%call t()%>
<DIV class=h></DIV>
<div align="center">
<table border="0" width="760" id="table1" style="padding: 1px; " cellspacing="0" cellpadding="0">
<tr>
<td width="72%" class=td>
<p align="center">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td colspan="6" class="td1" align="center"><%=rs("name")%>(<%=rs("username")%>)会员详细信息－个人用户</td>
</tr>
<tr>
<td height="25" align="right">真实姓名：</td>
<td><font color="#666666"><%=rs("name")%>(<%=rs("username")%>)</font></td>
<td align="right">用户积分：</td>
<td align="right">
<font color="#999999"><%=rs("jf")%> 分</font></td>
<td align="right">
登陆次数：</td>
<td>
<font color="#999999"><%=rs("dlcs")%> 次</font></td>
</tr>
<tr>
<td height="25" align="right">虚拟货币：</td>
<td><font color="#999999"><%=rs("hb")%> 个</font></td>
<td align="right">
通过验证道具：</td>
<td align="right">
<font color="#999999"><%=rs("d")%> 个</font></td>
<td align="right">
标题变色道具：</td>
<td>
<font color="#999999"><%=rs("a")%> 个</font></td>
</tr>
<tr>
<td height="25" align="right">注册时间：</td>
<td><font color="#666666"><%=rs("zcdata")%></font></td>
<td align="right">信息置顶道具：</td>
<td align="right">
<font color="#999999"><%=rs("b")%> 个</font></td>
<td align="right">内容贴图道具：</td>
<td>
<font color="#999999"><%=rs("c")%> 个</font></td>
</tr>
<tr>
<td height="25" align="right" colspan="6"></td>
</tr>
<tr>
<td height="25" align="right">联系电话：</td>
<td><font color="#666666"><%=rs("dianhua")%></font></td>
<td align="right">QQ或MSN：　</td>
<td align="right" colspan="2"><%=rs("QQ")%></td>
<td>
　</td>
</tr>
<tr>
<td height="25" align="right">邮件地址：</td>
<td><font color="#666666">
<INPUT TYPE=button VALUE="发邮件交流" ONCLICK="window.open('x_m.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"></font></td>
<td align="right">最后登陆：</td>
<td colspan="3"><font color="#999999"> <%=rs("lasttime")%> </font></td>
</tr>
<tr>
<td height="25" align="right">通信地址：</td>
<td colspan="5"><font color="#999999"><%=rs("dizhi")%>  </font>  </td>
</tr>
<tr>
<td height="25" align="right" style="border-bottom-style: solid; border-bottom-width: 1" bordercolor="#F4F4F2" colspan="6">　</td>
</tr>
<%rs.close%>
<tr>
<td width="84%" height="24" colspan="6">
<table border="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111" width="101%" height="100%">
<%
dim ThisPage,Pagesize,Allrecord,Allpage
k=0
if request("page")="" then
  ThisPage=1		
else
  ThisPage=request("page")
end if
sql = "select * from jle_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">&nbsp; 信&nbsp;&nbsp; 
息&nbsp;&nbsp; 标&nbsp;&nbsp; 题</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/pic.gif"><%end if%><a target="_blank" href="x.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/tj.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">
共有&nbsp;<font color="#CC5200"><%=Allrecord%></font>&nbsp;条记录</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>&nbsp;"
response.write "<font color=""#808080"">上一页</font>&nbsp;"     
else     
response.write "<a href=?page=1&username="&username&"#1>首页</a>&nbsp;"
response.write "<a href=?page="&ThisPage-1&"&username="&username&"#1>上一页</a>&nbsp;"     
end if
if Allpage-ThisPage<1 then     
response.write "<font color=""#808080"">下一页</font>&nbsp;"
response.write "<font color=""#808080"">尾页</font>&nbsp;"  
else     
response.write "<a href=?page="&(ThisPage+1)&"&username="&username&"#1>下一页</a>&nbsp;"   
response.write "<a href=?page="&Allpage&"&username="&username&"#1>尾页</a>&nbsp;"     
end if
%></td>
</tr>
</table>
<%end sub%>
</td>
</tr>
<%end if%>
</table>
</td>
</tr>
</table></td>
<td width="2%">
　</td>
<td width="25%" class="td">
　</td>
</tr>
</table>
</div>
<!--#include file="foot.asp"-->
</body>
</html>
<%
rs.close
set rs=nothing
closedb
%>