📄 bbs.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/session.asp"-->
<%
set rs=server.CreateObject("ADODB.Recordset")
strsql="select * from tbmessage order by sendtime desc"
rs.open strsql,conn,1,1
dim m,readed,cur_page
m=rs.recordcount
readed=1
rs.pagesize=3
%>
<%
if not IsEmpty(Request.QueryString("page")) then
cur_page=Cint(Request.QueryString("page"))
if cur_page<1 then cur_page=1
if cur_page>rs.pagecount then cur_page=rs.pagecount
else
cur_page=1
end if
if not rs.eof then
rs.AbsolutePage=cur_page
else
cur_page=1
end if
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>用户留言建议</title>
<script language="javascript">
function showCount()
{
if(document.backf.title.value==""){
alert('主题不能为空!');
return false;
}
if(document.backf.content.value==""){
alert('内容不能为空!');
return false;
}
var strChar = document.getElementById('content').value;
var charCount = strChar.length;
if (charCount>120) {
alert('字符个数不能高于120!')
return false
}
}
</script>
<link href="inc/body.css" rel="stylesheet" type="text/css" />
<link href="inc/nav.css" rel="stylesheet" type="text/css" />
</head>
<!--#include file="inc/header.asp"-->
<body>
<div id="abody">
<div id="btop">
<p align="center"><a href="bbs.asp?page=<%=cstr(1)%>">首页</a>---<a href="bbs.asp?page=<%=cstr(cur_page+1)%>">下一页</a>--<a href="bbs.asp?page=<%=cstr(cur_page-1)%>">上一页</a>---<a href="bbs.asp?page=<%=cstr(rs.pagecount)%>">末页</a>---总共<strong><%=rs.pagecount%></strong> 页---页次<%= cstr(cur_page) %>/<%= cstr(rs.pagecount) %></p>
</div>
<% do while (readed<=rs.pagesize) and (not rs.eof) %>
<div id="cont"> <!--留内容-->
<div class="c1-1">主题是：<%= rs(2) %></div>
<div class="c1-1"><img src="image/posttime.gif" width="11" height="11" /> <%= rs(4) %></div>
<div id="c2">
<div id="c2-1"><img src="image/bbs<%= rs(6) %>.gif" width="80" height="80" /></div>
<div id="c2-2">用户：<%= rs(1) %></div>
</div>
<div id="c3"><%= rs(3) %></div>
<div id='c4'>
<%
dim lid,lcont,ldate,luser
lid=rs(0)
set rs1=server.CreateObject("ADODB.Recordset")
set cmd=Server.CreateObject("ADODB.Command")
cmd.ActiveConnection=conn
cmd.CommandText="select * from backm where id="&lid
set rs1=cmd.execute
if rs1.eof then
Response.Write"对不起，您的留言尚未回复"
else
luser=rs1(1)
ldate=rs1(2)
lcont=rs1(3)
Response.Write "<ul>"
Response.Write "<li class='col'> 管理员"& luser &" 回复：("& ldate &")</li>"
Response.Write "<li>"& lcont &"</li>"
Response.Write "</ul>"
end if
rs1.close
set rs1=nothing
%>
</div>
</div> <!--cont完-->
<%
rs.movenext
readed=readed+1
loop
%>
<div id="bbs">
<form id="backf" name="backf" method="post" action="bbs_do.asp" onsubmit="return showCount();">
<div id="bbs_0">
<div id="bbs_1">留言主题：
<input class="input" type="text" name="title" maxlength="18" />
</div>
<div id="bbs_2">留言内容：
<textarea name="content" rows="5" ></textarea>
</div>
<div id="bbs_3">
<input class="fsub" type="submit" name="Submit" value="提交" />
<input name="reset" type="reset" id="reset" value="重置" />
</div>
</div>
<div id="bbs_4">
<% for i=1 to 9 %>
<div class="img">
<img src="image/bb<%= i %>.gif" width="40" height="40" />
<input class="intp" type="radio" name="RadioGroup" value="<%= i %>" />
</div>
<% next %>
</div>
</form>
</div>
</div>
</body>
<!--#include file="inc/bottom.asp"-->
</html>
<%
rs.close
set rs=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -