用排序串字段實現樹狀結構（例程——顯示樹）

2019-11-18 22:29:49

字體：大中小

來源：轉載

供稿：網友

程序index.asp
功能：顯示目錄樹

<%
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">

</style>
<script language="javaScript1.2">
function d(sp,t,a,d,ti,l,id,rid,pn)
{
document.write("<tr><td>"+sp+"<a href='disdocument.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>

上一篇：用排序串字段實現樹狀結構（存儲過程）

下一篇：用排序串字段實現樹狀結構（例程——顯示貼子內容）

學習交流

索泰發布一款GTX 1070 Mini迷你版本:小機

索泰發布一款GTX 1070 Mini迷你版本:小機箱大愛...

熱門圖片

猜你喜歡的新聞

猜你喜歡的關注