📄 gbindex.asp
字号:
<!--#include file="odbc.asp"-->
<SCRIPT language=JavaScript>
<!--
function admin(url, width, height){var Win = window.open(url,"openScript",'width=' + width + ',height=' + height + ',resizable=1,scrollbars=1,menubar=0,status=yes');}
-->
</script>
<link href="img/index.CSS" rel="stylesheet" type="text/css">
<body bgcolor="f2f2f2" leftmargin="7" topmargin="5">
<%
dim strsql,rs
strsql="select * from mainbook order by utime desc"
set rs = server.createobject("adodb.recordset")
rs.open strsql,db,1,1
if rs.eof and rs.bof then
response.write "<br><br><br><p align=center>暂无留言，欢迎<a href=add.asp target=_blank><font color=red>发表留言</font></a></p>"
rs.close
set rs = nothing
response.end()
end if
dim page,i
rs.pagesize = 6
'---------------------------以下判断页数是否为正确的数字节
if request("page")="" then
page=1
elseif not isnumeric(request("page")) then
page=1
else
page=cint(request("page"))
end if
'---------------------------
rs.absolutepage = page
for i= 1 to rs.pagesize
%>
<table width="100%" border="0" cellpadding="1" cellspacing="0" bgcolor="#F2f2f2" >
<tr>
<td height="20" align="center" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="57%"><li>
<div align="left"><a href=index.asp target=_blank> <%= rs("title")%></a> </div>
</li></td>
<td width="43%">
<div align="right"><font color="#2F5879"><%= rs("uid")%></font></div></td>
</tr>
</table></td>
</tr>
</table>
<table width="100%" height="1" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="1" background="../img/LINE1.gif" Class="tdbg_left2"></td>
</tr>
</table>
<%
rs.movenext
if rs.eof then exit for
next
call linkpage()
'--------------关闭数据源，释放资源
call closedate()
'--------------
sub linkpage()
%>
<%end sub%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -