📄 question_admin.asp
字号:
<!--#include file="admin.asp"-->
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language=javascript src="inc/select.js"></script>
<link href="../css/admin.css" rel="stylesheet" type="text/css">
</head>
<body>
<%
menu=request("menu")
select case menu
case "del"
chk_admin_login(3)
id=request("id")
del
case "view"
chk_admin_login(1)
view
case "re"
chk_admin_login(2)
re
case else
main
end select
sub main%>
<table width="99%" border=0 align="center" cellpadding=4 cellspacing=1 class="a2">
<tr class="a1">
<td width="9%" height="25" align="center"> </td>
<td width="16%" height="25" align="center">用户名</td>
<td width="36%" align="center">标题</td>
<td width="20%" align="center">递交时间</td>
<td width="19%" align="center">IP</td>
</tr>
<form action="" method="post" onSubmit="return Confirm()">
<tbody>
<%
sql="select * from [feedback] order by id desc"
rs.open sql,conn,1,1
pagesetup=20 '设定每页的显示数量
rs.pagesize=pagesetup
TotalPage=rs.pagecount '总页数
PageCount = cint(Request.QueryString("ToPage"))
if PageCount <1 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
if TotalPage>0 then rs.absolutepage=PageCount '跳转到指定页数
i=0
j=0
Do While Not RS.EOF and i<pagesetup
if j mod 2 = 0 then
a="a3"
else
a="a4"
end if
i=i+1
%>
<tr class="<%=a%>">
<td align="center"><INPUT name=id type=checkbox id="id" value=<%=rs("id")%>></td>
<td align="center"><a onMouseOver="showmenu(event,'<div class=menuitems><a href=user_admin.asp?menu=user2&username=<%=rs("username")%>>查看资料</a></div><div class=menuitems><a href=../view.asp?username=<%=rs("username")%> target=_blank>浏览网站</a></div><div class=menuitems><a href=message_admin.asp?menu=addmsg&touser=<%=rs("username")%>>发送短信</a></div><div class=menuitems><a href=../gbook/index.asp?username=<%=rs("username")%> target=_blank>查看留言</a></div><div class=menuitems><a href=user_filemanage.asp?username=<%=rs("username")%> target=_blank>管理文件</a></div>')" style=cursor:hand>
<%=rs("username")%></td>
<td><a href="?menu=view&id=<%=rs("id")%>"><%=rs("title")%></a></td>
<td align="center" valign="top"><%=rs("time")%></td>
<td align="center" valign="top"><%=rs("ip")%></td>
</tr>
<%
j=j+1
rs.movenext
loop
rs.close
set rs=nothing
%>
<tr class="a4">
<td colspan="5" align="center"><input name=chkall type=checkbox id="chkall" onclick=CheckAll(this.form) value="ON">
全选
<input name="menu" type="hidden" value="del">
<input name="EditSubmit" type="Submit" id="EditSubmit" value=" 删 除 "></td>
</tr>
</tbody>
</form>
</table>
[<b>共有
<font color="990000"><%=TotalPage%></font> 页
<script>
ShowPage(<%=TotalPage%>,<%=PageCount%>,"")
</script>
</b>]
<%
end sub
sub Del
if ID="" then
Response.Write "<br><li>请指定要删除的用户</li>"
end if
if instr(ID,",")>0 then
ID=replace(ID," ","")
sql="delete from [feedback] where id in (" & ID & ")"
else
sql="delete from [feedback] where id=" & Clng(ID)
end if
Conn.Execute sql
response.redirect "question_admin.asp"
end sub
sub view
sql="select * from feedback where id="&request("id")
rs.open sql,conn,1,3
%>
<table width="70%" border="0" align="center" cellpadding="4" cellspacing="1" class="a2">
<form name="form1" method="post" action="?menu=re">
<input type="hidden" name=id value="<%=rs("id")%>">
<tr align="center" class="a1">
<td height="25" colspan="2">查看并回复</td>
</tr>
<tr class="a3">
<td width="28%">用户</td>
<td width="72%"><%=rs("username")%></td>
</tr>
<tr class="a4">
<td>标题</td>
<td><%=rs("title")%></td>
</tr>
<tr class="a3">
<td>时间</td>
<td><%=rs("time")%></td>
</tr>
<tr class="a4">
<td>内容</td>
<td><%=rs("comment")%></td>
</tr>
<tr class="a3">
<td>回复</td>
<td>
<textarea name="relay" cols="40" rows="4"><%=rs("relay")%></textarea>
</td>
</tr>
<tr align="center" class="a4">
<td colspan="2">
<input name="Submit" type="submit" id="Submit" value=" 确 定 ">
<span class="a3">
<input name="reset" type="reset" value=" 取 消 " onClick="javascript:history.back()">
</span></td>
</tr></form>
</table>
<%
end sub
sub re
conn.execute("update [feedback] set relay='"&Request.Form("relay")&"' where id="&request("id")&"")
Response.redirect "?mew=view&id="&request("id")&""
end sub
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -