📄 manage.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="sub/conn.asp"-->
<!--#include file="sub/rightnav.asp"-->
<!--#include file="sub/fenye.asp"-->
<!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" src="sub/tip.js"></script>
<script language="javascript">
function checkForm()
{
if(document.fback.backcont.value==""){
alert('请填写回复内容!');
return false;
}
var strChar = document.getElementById('backcont').value;
var charCount = strChar.length;
if (charCount>120) {
alert('字符个数不能高于120!')
return false
}
alert ('回复成功')
}
function del() {
var isok=true;
isok=confirm("确定要删除吗？")
return isok;
}
</script>
<link href="cbody.css" rel="stylesheet" type="text/css" />
<link href="nav.css" rel="stylesheet" type="text/css" />
</head>
<body>
<!--#include file="sub/mheader.asp"-->
<div id="abody">
<div id="lbody">
<%
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from tbmessage where readflag=0"
rs.open sql,conn,1,3
dim m,readed,cur_page,url
url="manage.asp?"
m=rs.recordcount
readed=1
rs.pagesize=10
%>
<% call page() %>
<div class="zh1">
<h5>未回复的留言:</h5>
<table class="browser">
<tr>
<th width="56" class="b1">留言编号</th>
<th width="54">用户</th>
<th width="213">主题</th>
<th width="70">日期</th>
<th width="50">删除</th>
<th width="50" class="b2">回复</th>
</tr>
<%
do while (readed<=rs.pagesize) and (not rs.eof)
dim strdate,strmonth
strdate=rs(4)
strmonth=split(strdate," ")
%>
<tr>
<td class="b1"><%= rs(0) %></td>
<td><%= rs(1) %></td>
<td class="tileft"><a href="#" onmousemove='showalt("<%= rs(3) %>")' onmouseout='hidealt()'><%= rs(2) %></a></td>
<td><%= strmonth(0) %></td>
<td><a href="del.asp?id=<%= rs(0) %>&tname=tbmessage" onClick="return del()">删除</a></td>
<td class="b2"><a href="manage.asp?id=<%= rs(0) %>&page=<%= cur_page %>">回复</a></td>
</tr>
<%
rs.movenext
readed=readed+1
loop
%>
</table>
<% call fenye() %>
<%
rs.close
set rs=nothing
%>
<div id="back">
<%
dim bid,bcont
bid=Request.QueryString("id")
if bid="" then
Response.Write("")
else
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from tbmessage where id="&bid
rs.open sql,conn,1,3
%>
<form id="fback" name="fback" method="post" action="back_do.asp" onSubmit="return checkForm();">
<div class="f1"><span class="fcolor">留言ID：</span><%= bid %>
<input name="bid" type="hidden" value="<%= bid %>" size="4" />
</div>
<div class="f2"><span class="fcolor">留言主题：</span><%= rs(2) %></div>
<div class="f2"><span class="fcolor">留言内容：</span><%= rs(3) %></div>
<div class="f3">
<textarea name="backcont" rows="5" id="backcont" ></textarea>
<span class="fzhusi"> ***字数不得多于120个！***</span>
</div>
<div class="f4">
<input class="submit" type="submit" name="Submit" value="回复" />
<input name="reset" type="reset" id="reset" value="重置" />
</div>
</form>
<%
rs.close
set rs=nothing
end if
%>
</div>
</div>
</div>
<!-- 右边-->
<div id="rbody">
<% call rightnav() %>
</div>
</div>
<!--#include file="sub/cbottom.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -