Code/Resource
Windows Develop
Linux-Unix program
Internet-Socket-Network
Web Server
Browser Client
Ftp Server
Ftp Client
Browser Plugins
Proxy Server
Email Server
Email Client
WEB Mail
Firewall-Security
Telnet Server
Telnet Client
ICQ-IM-Chat
Search Engine
Sniffer Package capture
Remote Control
xml-soap-webservice
P2P
WEB(ASP,PHP,...)
TCP/IP Stack
SNMP
Grid Computing
SilverLight
DNS
Cluster Service
Network Security
Communication-Mobile
Game Program
Editor
Multimedia program
Graph program
Compiler program
Compress-Decompress algrithms
Crypt_Decrypt algrithms
Mathimatics-Numerical algorithms
MultiLanguage
Disk/Storage
Java Develop
assembly language
Applications
Other systems
Database system
Embeded-SCM Develop
FlashMX/Flex
source in ebook
Delphi VCL
OS Develop
MiddleWare
MPI
MacOS develop
LabView
ELanguage
Software/Tools
E-Books
Artical/Document
Tie_re.asp
Package: pinke2010.rar [view]
Upload User: pengwei803
Upload Date: 2021-02-10
Package Size: 3311k
Code Size: 4k
Category:
WEB(ASP,PHP,...)
Development Platform:
HTML/CSS
- <div align="center">
- <table border="0" width="500" height="10" cellpadding="0" cellspacing="0">
- <tr>
- <td height="10" width="500"></td>
- </tr>
- </table>
- </div>
- <%
- set rshf=server.createobject("adodb.recordset")
- sqlhf="select * from Quan_hf where htid="&id&" order by addtime desc"
- rshf.open sqlhf,conn,1,1
- %>
- <%
- set rsmuu=server.createobject("adodb.recordset")
- sqlmuu="select * from [ku_user] where username='"&rshf("username")&"'"
- rsmuu.open sqlmuu,conn,1,1
- dim a,x
- x=1
- Set a=New PageList
- listLimit=5
- '模拟分页一页显示分页数
- pageLists=5
- '设置分页参数
- If rshf.BOF or rshf.EOF Then
- %>
- <table align=center width="700">
- <tr bgcolor="#C6E3F4">
- <td height="24" colspan="5" align="center" bgcolor="#FFFFFF">
- <font color="#FF0000">暂无回帖!</font></td>
- </tr></table>
- <%
- else
- '分页循环开始
- totalList= rshf.recordcount
- a.InitPara=array(totalList,listLimit,pageLists)
- a.PageList()
- rshf.pagesize=listLimit
- page = request("page")
- If page="" Then
- page=1
- End If
- rshf.absolutepage = page
- for i=1 to rshf.pagesize
- %><div align="center">
- <table border="0" width="730" height="245" cellpadding="0" cellspacing="1" bgcolor="#F2F2F2">
- <tr>
- <td height="243" width="147" bgcolor="#FFFFFF" valign="top">
- <table border="0" width="100%" id="table1" height="242" cellpadding="0" cellspacing="0">
- <tr>
- <td height="123">
- <p align="center"><a href="userinfo.asp?user=<%=rshf("username")%>">
- <%if len(rsmuu("UserPhoto"))>10 then%>
- <img border="0" src="<%=rsmuu("UserPhoto")%>" width="100" height="110" alt="点击查看【<%=rshf("username")%>】详细资料">
- <%else%>
- <img border="0" src="img/face/szj.gif" width="100" height="110" alt="点击查看【<%=rshf("username")%>】详细资料">
- <%end if%>
- </a></td>
- </tr>
- <tr>
- <td height="20">
- <p align="center"><b>会员</b>:<a href="userinfo.asp?user=<%=rshf("username")%>" title="点击查看【<%=rshf("username")%>】详细资料"><font color="#FF0000"><%=rshf("username")%></font></a></td>
- </tr>
- <tr>
- <td height="20">
- <p align="center"><% if len(rsmuu("qq"))>4 then%>
- <a href="tencent://message/?uin=<%=rsmuu("QQ")%>&Site=<%=rsmuu("Homepage")%>&Menu=yes" ><img border="0" SRC="http://wpa.qq.com/pa?p=1:<%=rsmuu("QQ")%>:10" alt="点击这里给我发消息"></a>
- <% end if%>
- </td>
- </tr>
- <tr>
- <td height="20">
- <p align="center"><b>时间</b>:<%=DateTimeFormat(rshf("addtime"),8)%></td>
- </tr>
- <tr>
- <td height="20">
- <p align="center"><b>IP</b>:<%=rsmuu("loginip")%></td>
- </tr>
- </table>
- </td>
- <td height="243" width="580" bgcolor="#FFFFFF" valign="top">
- <div align="center">
- <table border="0" width="568" id="table2" cellpadding="0" cellspacing="0" height="216">
- <tr>
- <td height="3" width="568" colspan="2"></td>
- </tr>
- <tr>
- <td height="25" bgcolor="#F2F2F2" width="510"> <b><font color="#FF0000"><%=rshf("title")%></font></b></td>
- <td height="25" bgcolor="#F2F2F2" width="58"><b><font color="#FF0000" size="5"><%=rshf.pagesize*(page-1)+i%></font></b>楼</td>
- </tr>
- <tr>
- <td height="5" width="568" colspan="2"></td>
- </tr>
- <tr>
- <td height="168" valign="top" width="568" colspan="2"><%=rshf("content")%> </td>
- </tr>
- <tr>
- <td height="20" width="568" colspan="2">
- <p align="right">编辑此贴 删除此贴</td>
- </tr>
- </table>
- </div>
- </td>
- </tr>
- </table>
- </div>
- <div align="center">
- <table border="0" width="500" height="6" cellpadding="0" cellspacing="0">
- <tr>
- <td height="6" width="500"></td>
- </tr>
- </table>
- </div>
- <%
- rshf.movenext
- if rshf.eof then exit for
- next
- end if
- %>
- <table align=center width="700">
- <tr bgcolor="#C6E3F4">
- <td height="24" colspan="5" align="center" bgcolor="#FFFFFF">
- <font color="#FF0000">. <%=a.PageInfo%> .</font></td>
- </tr></table>