【 tulaoshi.com - 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+1guestrs.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