用排序串字段实现树状结构(例程??显示树)
类别: ASP教程 
程序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>
功能：显示目录树
<!-- #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>
