📄 admin_run.asp
字号:
<!--#include file="../conn.asp"-->
<!--#include file="Admin_ChkPurview.asp"-->
<!--#include file="../inc/function.asp"-->
<%
dim ObjInstalled
ObjInstalled=IsObjInstalled(objName_FSO)
dim strDir
strDir=trim(request.ServerVariables("SCRIPT_NAME"))
strDir=left(strDir,instr(lcase(strDir),"/admin/"))
%>
<html>
<head>
<title>网站配置</title>
<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>
<link href='Admin_Style.css' rel='stylesheet' type='text/css'>
</head>
<body leftmargin='2' topmargin='0' marginwidth='0' marginheight='0'>
<%
if Action="SaveConfig" then
call SaveConfig()
else
call ShowConfig()
end if
if FoundErr=True then
call WriteErrMsg()
end if
call CloseConn()
sub ShowConfig()
%>
<form method='POST' action='Admin_SiteConfig.asp' id='form1' name='form1'>
<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>
<tr class='topbg'>
<td height='22' colspan='2'> <div align="center"><strong>默认网站信息配置</strong></div></td>
</tr>
<tr class='tdbg'>
<td width='343' height='25'><div align="right"><strong>最大并发线程：</strong></div></td>
<td width="409"> <input name='Maxconnect' type='text' id='Maxconnect' value='<%=Maxconnect%>' size='40' maxlength='50'>
</td>
</tr>
<tr class='tdbg'>
<td width='343' height='25'><div align="right"><strong>自动给登陆用：</strong></div></td>
<td> <input name='SiteTitle' type='text' id='SiteTitle' value='<%=SiteTitle%>' size='40' maxlength='50'>
</td>
</tr>
<tr class='tdbg'>
<td width='343' height='25'><div align="right"><strong>网站地址：</strong><br>
请添写完整URL地址</div></td>
<td> <input name='SiteUrl' type='text' id='SiteUrl' value='<%=SiteUrl%>' size='40' maxlength='255'>
</td>
</tr>
<tr class='tdbg'>
<td width='343' height='25'><div align="right"><strong>网站搜索关键字:</strong><br>
</div></td>
<td> <input name='sitekey' type='text' id='sitekey' value='<%=sitekey%>' size='40' maxlength='255'>
</td>
</tr>
<tr class='tdbg'>
<td height='25'><div align="right"><strong>网站运行状态</strong></div></td>
<td> <input type=radio name="run_State" value=0 <%if run_State=false then response.write "checked"%>>
关闭 <input type=radio name="run_State" value=1 <%if run_State=true then response.write "checked"%>>
打开 </td>
</tr>
<tr class='tdbg'>
<td height='25'><div align="right"><strong>给web登陆用户的好友发送消息</strong></div></td>
<td> <input type=radio name="run_State" value=0 <%if run_State=false then response.write "checked"%>>
发送
<input type=radio name="run_State" value=1 <%if run_State=true then response.write "checked"%>>
不发送 </td>
</tr>
<tr class='tdbg'>
<td height='25'><div align="right"><strong>是否允许用户设置自定义回复消息</strong></div></td>
<td> <input type=radio name="run_State" value=0 <%if run_State=false then response.write "checked"%>>
允许
<input type=radio name="run_State" value=1 <%if run_State=true then response.write "checked"%>>
不允许</td>
</tr>
<tr class='tdbg'>
<td width='343' height='25'><div align="right"><strong>WEB登陆用户发送的消息信息：</strong><br>
</div></td>
<td> <textarea name='CloseMsg' cols='40' rows='4' id='ClostMsg'><%=closemsg%></textarea>
</td>
</tr>
<tr class='tdbg'>
<td height='40' colspan='2' align='center'> <input name='Action' type='hidden' id='Action' value='SaveConfig'>
<input name='cmdSave' type='submit' id='cmdSave' value=' 保存设置 '> </td>
</tr>
</table>
</form>
<%
end sub
%>
</body>
</html>
<%
sub SaveConfig()
dim sqlConfig,rsConfig
sqlConfig="select * from web_Setting"
set rsConfig=Server.CreateObject("ADODB.Recordset")
rsConfig.open sqlConfig,conn,1,3
if rsConfig.bof and rsConfig.eof then
rsConfig.addnew
end if
rsConfig("SiteName")=trim(request("SiteName"))
rsConfig("SiteTitle")=trim(request("SiteTitle"))
rsConfig("SiteUrl")=trim(request("SiteUrl"))
rsConfig("SiteKey")=trim(request("SiteKey"))
rsConfig("closemsg")=trim(request("closemsg"))
rsconfig("Run_State")=trim(request("run_State"))
rsConfig.update
rsConfig.close
set rsConfig=nothing
call WriteSuccessMsg("网站配置保存成功！")
end sub
%><% call CloseConn() %>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -