📄 index.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="ubbcode.asp" -->
<!--#include file="sql.asp" -->
<!--#include file="webbar.asp" -->
<%=head%>
<body>
<div id="bodywidth">
<%=top%>
<div id="write">
</div>
<div id="write2">
<form name="form1" method="post" action="ok.asp">
昵称：<input id="inputtext" type="text" name="name" size="24" maxlength="8"> * 请不要超过8个字符<br>
留言：<textarea id="inputtext" name="body" cols="52" onKeyUp="this.value=this.value.substr(0,200)" onpaste="return false" rows="3"></textarea> <input type="submit" name="Submit" value=" 提交 " id="input"> <input type="reset" name="Submit2" value=" 取消 " id="input"><br>
* 本留言本支持 <a href="ubb.asp">UBB</a> 功能，留言内容不要超过200个字符。
</form>
</div>
<!-- 留言显示部分 -->
<div id="showout">
<%
sql="select * from book order by id desc"
set rs=server.createobject("adodb.recordset")
On error resume next
rs.open sql,conn,1
rs.PageSize=yowkey '每页显示留言条数
pagecount=rs.PageCount
page=int(request.QueryString ("page"))
if page<=0 then page=1
if request.QueryString("page")="" then
page=1
end if
i=1
rs.AbsolutePage=page
if rs.eof then
response.write"<br><span id=""red"">对不起，暂时没有留言！</span><br><br>"
else
do while not rs.eof
%>
<div id="show">
昵称：『 <%=UBBCode(dvHTMLEncode(left(rs("name"),6)))%> 』 时间：<%=rs("time")%><br>
留言：<%=UBBCode(dvHTMLEncode(left(rs("body"),1000)))%><br>
<% if rs("reply")<>"" then%>
回复：<span id="reply"><%=UBBCode(dvHTMLEncode(left(rs("reply"),200)))%></span>
<%end if%>
</div>
<% i=i+1
if i>rs.PageSize then exit do
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%></div>
<!-- 分页显示 -->
<div id="fpage">
<%Fenye page,pagecount%>
<% end if %>
</div>
<%=bottom%>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -