用排序串字段实现树状结构（例程——显示树）_自动测试脚本语言

用排序串字段实现树状结构（例程——显示树）

发表于：2007-06-30来源：作者：点击数：标签：

程序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=se

程序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=‘’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>

软件使用主页http://swuse.yeah.net创作

原文转自：http://www.ltesting.net

软件测试 > 测试开发技术 > 软件测试开发语言 > 自动测试脚本语言 >