📄 admin_system.asp
字号:
<!--#include file="config.asp"-->
<!--#include file="check.asp"-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>■管理中心</title>
<link rel="stylesheet" type="text/css" href="Admin_STYLE.CSS">
</head>
<%
if request("act")="save" then
dim Msg
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open "Select * from XH_Config",conn,1,3
rs("webname")=Trim(Request.Form("WebName"))
rs("WebUrl")=Trim(Request.Form("WebUrl"))
rs("SystemUrl")=Trim(Request.Form("SystemUrl"))
rs("RestrictIP")=Request.Form("RestrictIP")
rs("refuseTime")=Request.Form("refuseTime")
rs("AllowView")=Request.Form("AllowView")
rs.update
rs.close
Set rs=nothing
Call EndConnection()
Msg = "<tr><td colspan=2><font color=red>修改系统配置成功！ " & now() &"</font></td></tr>"
'Response.Redirect "admin_system.asp"
end if
%>
<body topmargin="1" leftmargin="1">
<div align="center">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" id="table1" bgcolor="#E1F4EE" bordercolor="#009286">
<tr>
<td bgcolor="#009286"><font color="#FFFFFF"><b>修改系统配置-></b></font></td>
</tr>
<tr>
<td>
<div align="center">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="70%" id="table2" bordercolor="#FFFFFF">
<form action="?act=save" method="post" name="form1">
<%=Msg%>
<tr>
<td width="35%" align="right">站点名称：</td>
<td>
<input type="text" name="WebName" size="40" value="<%=WebName%>"><br><font color="#808080">主站的站名
（如：雪晖在线）</font></td>
</tr>
<tr>
<td width="35%" align="right">站点地址：</td>
<td>
<input type="text" name="WebUrl" size="40" value="<%=WebUrl%>"><br><font color="#808080">请输入完整地址（如：http://www.xhonline.cn/)</font></td>
</tr>
<tr>
<td width="35%" align="right">投票系统地址：</td>
<td>
<input type="text" name="SystemUrl" size="40" value="<%=SystemUrl%>"><br><font color="#808080">请输入完整地址（如：http://www.xhonline.cn/vote/)</font></td>
</tr>
<tr>
<td width="35%" align="right">IP限制：</td>
<td><select name="RestrictIP" size="1">
<option value="true" <%if restrictip=true then response.write "selected"%>>
是</option>
<option value="false" <%if restrictip=false then response.write "selected"%>>
否</option>
</select><font color="#808080">选择“是”则不允许同一IP多次投票</font></td>
</tr>
<tr>
<td width="35%" align="right">同一IP限制投票时间：</td>
<td>
<select name="refuseTime" size="1">
<option value="1" <%if refuseTime=1 then response.write "selected"%>>1小时</option>
<option value="6" <%if refuseTime=6 then response.write "selected"%>>6小时</option>
<option value="12" <%if refuseTime=12 then response.write "selected"%>>12小时</option>
<option value="24" <%if refuseTime=24 then response.write "selected"%>>24小时</option>
</select><br><font color="#808080">在所选的时间段内，同一IP不允许多次投票，该选项需要“IP限制”为“是”才有效</font>
</td>
</tr>
<tr>
<td width="35%" align="right">投票结果查看限制：</td>
<td>
<select name="AllowView" size="1">
<option value="false" <%if AllowView=false then response.write "selected"%>>允许</option>
<option value="true" <%if AllowView=true then response.write "selected"%>>拒绝</option>
</select><font color="#808080">选择拒绝则只有管理员才可以查看投票结果</font>
</td>
</tr>
<tr>
<td colspan="2" align="center">
<input type="submit" name="submit" value=" 修 改 "></td>
</tr>
</form>
</table>
</div>
</td>
</tr>
</table>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -