| 程序：disPRec.asp 功能：显示贴子具体内容 <!-- #include file="lybcon.inc" --> <% keyid=request("keyid") rootid=request("rootid") pageno=request("pageno") if rootid=0 then rootid=keyid set guestconn=Server.CreateObject("ADODB.connection") guestconn.Open lybstr set guestrs=server.createobject("ADODB.recordset") sqlstr="SELECT * FROM guestbook where lybid="&rootid&" or rootid="&rootid sqlstr=sqlstr&" order by orderstr,lybid desc" guestrs.open sqlstr,guestconn,1,1 %> <html> <head><title>软件使用留言薄</title> <style TYPE="text/CSS"> <!-- a { text-decoration: none} body {line-height:18px;font-size:9pt;font-family:宋体} a:hover {color:#FF0000;text-decoration:none} td {font-family: 宋体; font-size: 9pt;background-color:ECF7FF} .td1 {font-family: 宋体; font-size: 9pt;background-color:A2C8F2} .td2 {font-family: 宋体; font-size: 9pt;background-color:E9EDE0} .small1 {font-family: 宋体; font-size: 9pt;background-color:ffffff;line-height:9pt} --> </style> </head> <body topmargin=16 background='topbg.gif'> <form name='index' method='POST' action='index.asp'> <table width=100% align=center> <tr> <td align=center style='font-size:16px;background-color:ffffff;color:red' height=35 valign=top>软件使用 留言薄</td> <td align=center colspan=2 style='background-color:ffffff' valign='bottom'>相关留言共<font style='font- size:16px;color:red'><% =guestrs.recordcount %></font>条</td> <td style='background-color:ffffff' valign=bottom align=center><a href='index.asp?pageno=<% =pageno %>'> 留言列表</a></td> <td style='background-color:ffffff' valign=bottom align=center><a href='revert.asp?type=post'>发贴子 </a></td> </tr> <tr style="color:red"> <td align=center class='td1' width=70%>留言标题</td> <td align=center width=70 class='td1' nowrap><img src='edit.gif'>作 者</td> <td align=center width=100 class='td1' nowrap>发表时间</td> <td align=center width=60 class='td1' nowrap>贴子字数</td> <td align=center width=60 class='td1' nowrap>贴子序号</td> </tr> <% do while not guestrs.eof %> <tr> <td><% if guestrs("rootid")<>0 then response.write(replace(space(len(guestrs("orderstr")))," "," ")) % ><% if guestrs("lybid")+1=keyid+1 then if guestrs("rootid")=0 then rootid=guestrs("lybid") else rootid=guestrs("rootid") end if lybid=guestrs("lybid") guestitle=guestrs("guestitle") guestname=guestrs("guestname") guestemail=guestrs("guestemail") guestcomm=guestrs("guestcomm") putdate=guestrs("putdate") puttime=guestrs("puttime") emailflag=guestrs("emailflag") %><% =guestrs("guestitle") %><% else %><a href='disprec.asp?keyid=<% =guestrs("lybid") %>&rootid=<% =guestrs("rootid") %>&pageno=<% =pageno %>'><% =guestrs("guestitle") %></a><% end if %></td> <td align=right nowrap><% =guestrs("guestname") %> </td> <td nowrap align=center nowrap><% =guestrs("putdate")&" "&guestrs("puttime") %></td> <td align=right nowrap><% =len(guestrs("guestcomm")) %> </td> <td align=right nowrap><% =guestrs("lybid") %> </td> </tr> <% guestrs.movenext loop guestrs.close set guestrs=nothing guestconn.close set guestconn=nothing %> <tr><td height=20 colspan=5 style="background-color:ffffff"></td></tr> <tr> <td style="color:red" align=center><% =guestitle %></td> <td align=right width=70><% =guestname %> </td> <td width=100><% =putdate&" "&puttime %></td> <td align=right width=60><% =len(guestcomm) %> </td> <td align=right width=60><% =lybid %> </td> </tr> <tr><td colspan=5 style="background-color:f3F7FF" height=50 valign=top><% =guestcomm %><p align=right><a href='delrec.asp?type=revert&keyid=<% =keyid %>&pageno=<% =pageno %>'>删除留言</a> <a href='revert.asp? type=revert&keyid=<% =lybid %>&pageno=<% =pageno %>'>回复作者</a> </td></tr> </table> </form> </body> </html> 注意：联系我时，请一定说明是从【S】看到的信息，谢谢。 |
 联系电话： 联系 QQ： 打电话给我、或者加QQ好友时，请一定说明来自（三亚上门维修电脑）谢谢您！ 三亚上门维修电脑 |