📄 admin_xx.asp
字号:
<!--#include file="conn.asp" -->
<!--#include file="sub.asp" -->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href="css.css" rel="stylesheet" type="text/css" />
<title><%=webname%></title>
</head>
<body>
<%
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
if session("user")="" and session("zdqx")<>"alladmin" then
response.write"<script language=javascript>alert('你不能执行该操作,可能原因\n\n1、不是管理员\n\n2、你还没有登陆\n\n3、或者登陆超时\n\n4、没有该操作权限');location.href='index.asp' </script>"
response.End()
end if%>
<% if request.QueryString("act")="edit" then
set rs=server.createobject("adodb.recordset")
exec="select * from zdw"
rs.open exec,conn,1,3
if request.Form("w_num")<0 or request.Form("w_num")>50 then
mgbox"每页显示主题数,必须为1-50之间的整数"
response.End()
end if
if request.Form("w_renum")<0 or request.Form("w_renum")>50 then
mgbox"每页显示回复数,必须为1-50之间的整数"
response.End()
end if
rs("w_name")=request.Form("w_name")
rs("w_num")=request.Form("w_num")
rs("w_renum")=request.Form("w_renum")
rs("w_sh")=request.Form("w_sh")
rs("w_resh")=request.Form("w_resh")
rs("w_ad")=request.Form("w_ad")
rs.update
rs.close
response.write"<script language=javascript>alert('资料修改成功！');location.href='admin_xx.asp';</script>"
end if
set rsw=server.createobject("adodb.recordset")
exec="select * from zdw"
rsw.open exec,conn,1,3%>
<form action="admin_xx.asp?act=edit" method="post">
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="0" >
<tr bordercolor="#0099CC" bgcolor="#0099CC">
<td colspan="3" align="center" class="dhzi" >留言本信息修改</td>
</tr>
<tr bordercolor="#0099CC" onMouseOver="this.bgColor='#E1F8FF';" onMouseOut="this.bgColor='#ffffff';">
<td width="29%" align="right" class="biaogebiankuang" >留言本名：</td>
<td width="25%" align="left" class="biaogebiankuang" ><input name="w_name" type="text" id="w_name" value="<%=server.HTMLEncode(rsw("w_name"))%>" size="30"></td>
<td width="46%" align="left" class="biaogebiankuang" >*留言本的名字,支持HTML</td>
</tr>
<tr bordercolor="#0099CC" onMouseOver="this.bgColor='#E1F8FF';" onMouseOut="this.bgColor='#ffffff';">
<td align="right" class="biaogebiankuang" >每页显示主题数：</td>
<td align="left" class="biaogebiankuang" ><input name="w_num" type="text" id="w_num" value="<%=rsw("w_num")%>" size="5"></td>
<td align="left" class="biaogebiankuang" >*每页显示主题数（只能为1-50之间的整数）</td>
</tr>
<tr bordercolor="#0099CC" onMouseOver="this.bgColor='#E1F8FF';" onMouseOut="this.bgColor='#ffffff';">
<td align="right" class="biaogebiankuang" >每页显示回复数：</td>
<td align="left" bordercolor="#FFFFFF" class="biaogebiankuang" ><input name="w_renum" type="text" id="w_renum" value="<%=rsw("w_renum")%>" size="5"></td>
<td align="left" class="biaogebiankuang" >*每页显示回复数（只能为1-50之间的整数）</td>
</tr>
<tr bordercolor="#0099CC" onMouseOver="this.bgColor='#E1F8FF';" onMouseOut="this.bgColor='#ffffff';">
<td align="right" class="biaogebiankuang" >主题审核：</td>
<td align="left" class="biaogebiankuang" ><select name="w_sh" id="w_sh">
<option value="<%=rsw("w_sh")%>" selected><% if rsw("w_sh")="ture" then response.Write("开启")
if rsw("w_sh")="false" then response.Write("关闭")%></option>
<option value="ture" >开启</option>
<option value="false">关闭</option>
</select> </td>
<td align="left" class="biaogebiankuang" >*开启审核后，留言内容需要管理员审核后才能显示</td>
</tr>
<tr bordercolor="#0099CC" onMouseOver="this.bgColor='#E1F8FF';" onMouseOut="this.bgColor='#ffffff';">
<td align="right" class="biaogebiankuang" >回复审核：</td>
<td align="left" class="biaogebiankuang" ><select name="w_resh" id="w_resh">
<option value="<%=rsw("w_resh")%>" selected><% if rsw("w_resh")="ture" then response.Write("开启")
if rsw("w_resh")="false" then response.Write("关闭")%></option>
<option value="ture" >开启</option>
<option value="false">关闭</option>
</select></td>
<td align="left" class="biaogebiankuang" ><p>*开启审核后，回复内容需要管理员审核后才能显示</p></td>
</tr>
<tr bordercolor="#0099CC" onMouseOver="this.bgColor='#E1F8FF';" onMouseOut="this.bgColor='#ffffff';">
<td align="right" class="biaogebiankuang" >贴间广告：</td>
<td align="left" class="biaogebiankuang" ><textarea name="w_ad" cols="40" rows="8" id="w_ad"><%=rsw("w_ad")%></textarea></td>
<td align="left" valign="top" class="biaogebiankuang" >*贴间广告。显示在每个主题贴内容下方。支持HTML不支持UBB</td>
</tr>
<tr bordercolor="#0099CC" onMouseOver="this.bgColor='#E1F8FF';" onMouseOut="this.bgColor='#ffffff';">
<td align="right" class="biaogebiankuang" > </td>
<td align="left" class="biaogebiankuang" ><input type="submit" name="Submit2" value="确定提交" style="BACKGROUND-COLOR: #2071a0; BORDER-BOTTOM: 1px double; BORDER-LEFT: 1px double; BORDER-RIGHT: 1px double; BORDER-TOP: 1px double; COLOR: #eeeeee; TEXT-ALIGN: center" onMouseOver="this.style.color='#ffff00'"onmouseout="this.style.color='#eeeeee'" /></td>
<td align="left" class="biaogebiankuang" ><input type="submit" name="Submit22" value="重新填写" style="BACKGROUND-COLOR: #2071a0; BORDER-BOTTOM: 1px double; BORDER-LEFT: 1px double; BORDER-RIGHT: 1px double; BORDER-TOP: 1px double; COLOR: #eeeeee; TEXT-ALIGN: center" onMouseOver="this.style.color='#ffff00'"onmouseout="this.style.color='#eeeeee'" /></td>
</tr>
</table>
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -