user_zl.asp

一套现成的分类信息网站发布系统

                用户积分：</td>
            <td width="5%" height="30" style="border-right-style: none; border-right-width: medium" bordercolor="#F4F4F2">
            <font color="#999999"><%=rs("jf")%></font></td>
            <td width="12%" 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="1%" height="30" style="border-left-style: solid; border-left-width: 1" bordercolor="#F4F4F2">　</td>
            <td width="19%" height="30" align="right" bordercolor="#F4F4F2">性别：</td>
            <td width="40%" height="30" bordercolor="#F4F4F2"><font color="#666666"><%if rs("sex")=1 then%>男<%else%>女<%end if%></font></td>
            <td width="23%" height="30" align="center" 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="12%" 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="1%" height="30" style="border-left-style: solid; border-left-width: 1" bordercolor="#F4F4F2">　</td>
            <td width="19%" height="30" align="right" bordercolor="#F4F4F2">联系电话：</td>
            <td width="40%" height="30" bordercolor="#F4F4F2"><font color="#666666"><%=rs("dianhua")%></font></td>
            <td width="40%" height="30" colspan="3" style="border-right-style: solid; border-right-width: 1" bordercolor="#F4F4F2">
            <p align="center">　</td>
          </tr>
          <tr>
            <td width="1%" height="30" style="border-left-style: solid; border-left-width: 1" bordercolor="#F4F4F2">　</td>
            <td width="19%" height="30" align="right" bordercolor="#F4F4F2">QQ或MSN：</td>
            <td width="40%" height="30" bordercolor="#F4F4F2"><font color="#666666"><%=rs("QQ")%></font></td>
            <td width="23%" height="30" align="center" 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="12%" 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="1%" height="30" style="border-left-style: solid; border-left-width: 1" bordercolor="#F4F4F2">　</td>
            <td width="19%" height="30" align="right" bordercolor="#F4F4F2">通信地址：</td>
            <td width="40%" height="30" bordercolor="#F4F4F2"><font color="#666666"><%=rs("dizhi")%></font></td>
            <td width="23%" height="30" align="center" 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="12%" 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="1%" height="30" style="border-left-style: solid; border-left-width: 1" bordercolor="#F4F4F2">　</td>
            <td width="19%" height="30" align="right" bordercolor="#F4F4F2">邮件地址：</td>
            <td width="40%" 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="23%" height="30" align="center" 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="12%" 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="1%" height="30" style="border-left-style: solid; border-left-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#F4F4F2">　</td>
            <td width="19%" height="30" align="right" style="border-bottom-style: solid; border-bottom-width: 1" bordercolor="#F4F4F2">最后登陆：</td>
            <td width="40%" height="30" style="border-bottom-style: solid; border-bottom-width: 1" bordercolor="#F4F4F2">
            <font color="#999999"><%=rs("zcdata")%></font></td>
            <td width="23%" height="30" align="center" 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="12%" 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="12" colspan="6"></td>
          </tr>
          <tr>
            <td width="100%" height="24" background="images/usertj.gif" colspan="6"><a name="1"></a></td>
          </tr>
          <tr>
            <td width="100%" height="24" colspan="6">
            <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="99%" 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 id,biaoti,a,b,c,fbsj,llcs,hfcs 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">编号</td>
                <td width="66%" align="center" height="25" style="border-top-style: solid; border-top-width: 1" bordercolor="#F4F4F2">&nbsp; 信&nbsp;&nbsp; 
                息&nbsp;&nbsp; 标&nbsp;&nbsp; 题</td>
                <td width="14%" align="center" height="25" style="border-top-style: solid; border-top-width: 1" bordercolor="#F4F4F2">
                查/回</td>
                <td width="13%" align="center" height="25" style="border-right-style: solid; border-right-width: 1; border-top-style: solid; border-top-width: 1" bordercolor="#F4F4F2">发布时间</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="66%" align="center" height="25" style="border-bottom-style: none; border-bottom-width: medium" bordercolor="#F4F4F2"><p align="left"><%if rs("c")=1 then%><img src="images/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="images/num/jsq.gif"><%for i=1 to bb%><img src="images/num/<%=Mid(b,i,1)%>.gif"><%next%><%end if%></td>
                <td width="14%" align="center" height="25" style="border-bottom-style: none; border-bottom-width: medium" bordercolor="#F4F4F2"><%=rs("llcs")%>/<%=rs("hfcs")%></td>
                <td width="13%" 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" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111" width="569">
<tr> 
<td height="24" width="151" align="center">
共有&nbsp;<font color="#CC5200"><%=Allrecord%></font>&nbsp;条记录</td>
<td height="24" width="126" align="center">
共 <font color="#CC5200"><%=Allpage%></font> 页</td>
<td height="24" width="118" align="center">
现在是第 
                <font color="#CC5200"><%=ThisPage%></font> 页</td>
<td height="24" width="174" align="center">
<%
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>
              <tr>
                <td width="100%" align="center" height="12" colspan="4" style="border-left-style: none; border-left-width: medium; border-right-style: none; border-right-width: medium; border-top-style: solid; border-top-width: 1; border-bottom-style: none; border-bottom-width: medium" bordercolor="#F4F4F2">
                </td>
              </tr>
<%end if%>
            </table>
            </td>
          </tr>
        </table>
          </center>
        </div>
        </td>
      </tr>
    </table>
    </td>
  </tr>
</table>
<!--#include file=end.htm-->
</div>
</body>
</html>
<%
rs.close
set rs=nothing
closedb
%>