| 程序index.asp 功能：显示目录树 <!-- #include file="lybcon.inc" --><% pageno=request("pageno") searchtype=request("searchtype") searchnr=rtrim(request("searchnr")) set guestconn=Server.CreateObject("ADODB.connection") guestconn.Open lybstr set guestrs=server.createobject("ADODB.recordset") sqlstr="SELECT * FROM guestbook" if searchnr<>"" then sqlstr=sqlstr&" where "&searchtype&" like '%%"&replace(searchnr,"'","''")&"%%'" sqlstr=sqlstr&" order by rootid+(1-sign(rootid))*lybid desc,orderstr,lybid desc" guestrs.open sqlstr,guestconn,1,1 rowcount=25 if pageno="" then pageno=1 if not guestrs.eof then if IsNumeric(pageno) then guestrs.pagesize=rowcount if pageno+1>guestrs.pagecount+1 then pageno=guestrs.pagecount else pageno=1 end if guestrs.AbsolutePage=pageno else pageno=1 end if %><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} .submit {line-height:9pt;font-size:9pt;font-family:宋体} .submit1 {line-height:8pt;font-size:8pt;font-family:宋体} .selectform {font-family: 宋体; font-size: 9pt;background-color:ffE4E4} 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> <script language="javaScript1.2"> function d(sp,t,a,d,ti,l,id,rid,pn) { document.write("<tr><td>"+sp+"<a href='disPRec.asp? keyid="+id+"&rootid="+rid+"&pageno="+pn+"'>"+t+"</a></td>"); document.write("<td align=right>"+a+" </td>"); document.write("<td nowrap align=center>"+d+" "+ti+"</td>"); document.write("<td align=right>"+l+" </td>"); document.write("<td align=right>"+id+" </td>"); document.write("</tr>"); } </script> </head> <body topmargin=16> <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=3 style='font-size:13px;background-color:ffffff' valign='bottom'>共<font style='font-size:16px;color:red'><% =guestrs.recordcount %></font>条留言<font style='font- size:16px;color:red'><% =guestrs.pagecount %></font>页目前第<font style='font-size:16px;color:red'><% =pageno %></font>页</td> <td style='background-color:ffffff' valign=bottom><a href="/wen/swuselyb/index.asp">旧留言薄 </a></td></tr> <tr> <td class='td2' align='center'>搜索贴子 <select name='searchtype' class='small1'> <option value='guestname' <% if searchtype="guestname" then response.write("selected") %>>贴子作者 </opion> <option value='guestcomm' <% if searchtype="guestcomm" then response.write("selected") %>>贴子内容 </opion> </select> <input type='text' name='searchnr' size=14 class='small1' value='<% =searchnr %>'> <a href='Javascript:document.index.submit();'>开始搜索</a> </td> <td colspan=3 class='td2' align='center'><% if pageno+1>2 then %><a href='javascript:document.index.pageno.value--;document.index.submit();'>上一页</a><% else %>上一页<% end if %> <% if pageno+1<guestrs.pagecount+1 then %><a href='javascript:document.index.pageno.value++;document.index.submit();'>下一页</a><% else %>下一页<% end if %> 到<input type='text' name='pageno' size=6 class='small1' value=<% =pageno %>>页</td> <td class='td2' align=center><a href='revert.asp?type=post'>发贴子</a></td> </tr> <tr style="color:red"> <td align=center class='td1'>留言标题</td> <td align=center width=70 class='td1'><img src='edit.gif'>作 者</td> <td align=center width=100 class='td1'>发表时间</td> <td align=center width=60 class='td1' nowrap>贴子字数</td> <td align=center width=60 class='td1' nowrap>贴子序号</td> </tr> <% do while true if guestrs.eof then exit do if guestrs("rootid")=0 then exit do guestrs.movenext loop do while not guestrs.eof and rowcount>0 %><script>d('<% =replace(space(2*len(guestrs ("orderstr")))," "," ") %>','<% =guestrs("guestitle") %>','<% =guestrs("guestname") %>','<% =guestrs ("putdate") %>','<% =guestrs("puttime") %>',<% =len(guestrs("guestcomm")) %>,<% =guestrs("lybid") %>,<% =guestrs("rootid") %>,<% =pageno %>)</script> <% rowcount=rowcount-1 guestrs.movenext if not guestrs.eof then if guestrs("rootid")<>0 and rowcount=0 then rowcount=1 end if loop guestrs.close set guestrs=nothing guestconn.close set guestconn=nothing %> </table> </form> <br><br><br> </body> </html> 注意：联系我时，请一定说明是从【S】看到的信息，谢谢。 |
 联系电话： 联系 QQ： 打电话给我、或者加QQ好友时，请一定说明来自（三亚上门维修电脑）谢谢您！ 三亚上门维修电脑 |