📄 admin_setup.asp
字号:
<!-- #include file="function.asp" -->
<!-- #include file="admin_cookie.asp" -->
<%
myfilename="admin_setup.asp"
thisttime=Now()
if action="editsetup" and Request.ServerVariables("request_method") = "POST" then
filtrate=split(Request("badip"),"|")
for i = 0 to ubound(filtrate)
if instr("|"&remoteaddr&"","|"&filtrate(i)&"") > 0 then error("请检查您输入的IP地址是否正确")
next
set rs=server.createobject("ADODB.Recordset")
rs.Open "forumconfig",Conn,1,3
rs("forumname")=Request("eforumname")
rs("forumurl")=Request("eforumurl")
rs("homepage")=Request("ehomepage")
rs("homeurl")=Request("ehomeurl")
rs("adduseryn")=Request("eadduseryn")
rs("RegTime")=Request("eRegTime")
rs("PostTime")=Request("ePostTime")
rs("contentlen")=Request("econtentlen")
rs("perpage")=Request("eperpage")
rs("wmhtmlkzn")=Request("ewmhtmlkzn")
rs("badwords")=Request("ebadwords")
rs("badip")=Request("ebadip")
rs("ifmodifytime")=Request("eifmodifytime")
rs.update
rs.close
set rs=nothing
message="<li>系统参数修改成功<li><a href=admin_main.asp>返回管理首页</a>"
succeed(""&message&"<meta http-equiv=refresh content=2;url="&myfilename&">")
Response.End
end if''//##
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>DATALL 知识库asp版 v2.0</title>
<style type="text/css">
<!--
body {
background: #FFFFFF;
font-size: 12px;
scrollbar-base-color: #0066CC;
scrollbar-arrow-color: #FFFFFF;
margin: 0px;
padding: 0px;
border: 0px;
}
td { font-size: 12px;}
.input1 {
background: #EEEEEE;
}
-->
</style>
</head>
<body>
<form name="form" action="<%=myfilename%>" method="post">
<input type="hidden" name="action" value="editsetup">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#0099FF">
<tr>
<td height="20" colspan="2"> </td>
</tr>
<tr bgcolor="#EEEEEE">
<td height="20" colspan="2" bgcolor="#EEEEEE"> <strong>系统参数</strong></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="31%"> <a name="系统参数"></a> </td>
<td width="69%"> </td>
</tr>
<tr bgcolor="#EEEEEE">
<td height="20" align="right">论坛名称： </td>
<td> <input name="eforumname" type="text" class="input1" value="<%=forumname%>"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td> </td>
<td> </td>
</tr>
<tr bgcolor="#EEEEEE">
<td height="20" align="right">论坛网址： </td>
<td> <input name="eforumurl" type="text" class="input1" value="<%=forumurl%>" size="30"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right"> </td>
<td>
<%
dim duanke
duanke=""
if Request.ServerVariables("SERVER_PORT")<>80 then duanke=":"&Request.ServerVariables("SERVER_PORT")
%>
<script>
autourl="http://<%=Request.ServerVariables("server_name")%><%=duanke%><%=replace(Request.ServerVariables("script_name"),"admin_setup.asp","")%>"
if (autourl != '<%=forumurl%>'){
document.write("系统自动检测到的URL：<font color=FF0000>"+autourl+"</font>");
}
</script>
</td>
</tr>
<tr bgcolor="#EEEEEE">
<td align="right">网站名称： </td>
<td> <input name="ehomepage" type="text" class="input1" value="<%=homepage%>"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right"> </td>
<td> </td>
</tr>
<tr bgcolor="#EEEEEE">
<td height="20" align="right">网站网址： </td>
<td> <input name="ehomeurl" type="text" class="input1" value="<%=homeurl%>" size="30"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right"> </td>
<td> </td>
</tr>
<tr bgcolor="#EEEEEE">
<td height="20" align="right">是否允许注册用户： </td>
<td> <select name="eadduseryn" class="input1">
<%
dim adduserynselect
adduserynselect="<option value=0 >允许</option><option value=1 >不允许</option>"
adduserynselect=replace(adduserynselect,"value="&adduseryn,"value="&adduseryn&" selected")
%>
<%=adduserynselect%>
</select></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right"> </td>
<td> </td>
</tr>
<tr bgcolor="#EEEEEE">
<td height="20" align="right">用户注册间隔时间(秒)： </td>
<td> <input name="eRegTime" type="text" class="input1" value="<%=RegTime%>" size="8">
如果设不间隔就填0</td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right"> </td>
<td> </td>
</tr>
<tr bgcolor="#EEEEEE">
<td height="20" align="right">发帖间隔时间(秒)： </td>
<td> <input name="ePostTime" type="text" class="input1" value="<%=PostTime%>" size="8">
如果不防水就设为0</td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right"> </td>
<td> </td>
</tr>
<tr bgcolor="#EEEEEE">
<td height="20" align="right">限定内容的长度： </td>
<td> <input name="econtentlen" type="text" class="input1" value="<%=contentlen%>" size="8">
字节</td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right"> </td>
<td> </td>
</tr>
<tr bgcolor="#EEEEEE">
<td height="20" align="right">每页显示多少条主题： </td>
<td> <input name="eperpage" type="text" class="input1" value="<%=perpage%>" size="8"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right"> </td>
<td> </td>
</tr>
<tr bgcolor="#EEEEEE">
<td height="20" align="right">文件扩展名： </td>
<td> <select name="ewmhtmlkzn" class="input1">
<%
dim wmhtmlkznselect
wmhtmlkznselect="<option value=.html selected>.html</option><option value=.shtml>.shtml</option><option value=.xhtml>.xhtml</option>"
wmhtmlkznselect=replace(wmhtmlkznselect,"value="&wmhtmlkzn,"value="&wmhtmlkzn&" selected")
%>
<%=wmhtmlkznselect%>
</select>
安装时设定后请不要改再动，否则之前的帖子因扩展名不同而无法查看</td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right"> </td>
<td> </td>
</tr>
<tr bgcolor="#EEEEEE">
<td height="20" align="right">修改后时否显示修改者及时间： </td>
<td> <select name="eifmodifytime" class="input1">
<%
dim ifmodifytimeselect
ifmodifytimeselect="<option value=0>不显示</option><option value=1>显示</option>"
ifmodifytimeselect=replace(ifmodifytimeselect,"value="&ifmodifytime,"value="&ifmodifytime&" selected")
%>
<%=ifmodifytimeselect%>
</select>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right"> </td>
<td> </td>
</tr>
<tr bgcolor="#EEEEEE">
<td height="20" align="right">不良词汇： </td>
<td> <input name="ebadwords" type="text" class="input1" value="<%=badwords%>" size="40">
用单竖线"|"隔开</td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right"> </td>
<td> </td>
</tr>
<tr bgcolor="#EEEEEE">
<td height="20" align="right">禁止IP： </td>
<td> <input name="ebadip" type="text" class="input1" value="<%=badip%>" size="40">
用单竖线"|"隔开</td>
</tr>
<tr bgcolor="#FFFFFF">
<td> </td>
<td> </td>
</tr>
<tr bgcolor="#EEEEEE">
<td height="20"> </td>
<td>
<input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit" value="重置"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td> </td>
<td> </td>
</tr>
<tr>
<td height="20"> </td>
<td> </td>
</tr>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -