用排序串字段实现树状结构(例程??显示树)-会员卡,广州印刷,深圳印刷,印刷公司,名片,彩页,名片设计,设计教程,名片制作,彩色名片,名片模板,贵宾卡,pvc卡,设计欣赏,深圳名片,广州名片,business card design

首页	名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash

» 彩色名片
» PVC卡
» 彩色磁性卡
» 彩页/画册
» 个性印务
» 彩色不干胶
» 明信片
   » 明信片
   » 彩色书签
   » 门挂
» 其他产品与服务
   » 创业锦囊
   » 办公用品
   » 信封、信纸
   » 便签纸、斜面纸砖
   » 无碳复印纸
   » 海报
   » 大篇幅印刷
   » KT板
   » 海报
   » 横幅

用排序串字段实现树状结构(例程??显示树)
程序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>

返回类别: 教程
上一教程: 检测表单输入EMAIL的合法性
下一教程: RS.GETROWS使用详解

您可以阅读与"用排序串字段实现树状结构(例程??显示树)"相关的教程:
· 用排序串字段实现树状结构(例程??显示贴子内容)
· 用排序串字段实现树状结构(例程??连接字串)
· 用排序串字段实现树状结构（例程??连接字串）
· 用排序串字段实现树状结构（例程??回复表单）
· 用排序串字段实现树状结构(例程??回复表单)


	快精灵印艺坊版权所有	首页会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店网站地图关于我们友情链接