www.gusucode.com > 栽豆迷你博客 MiniBlog 3.0 正式版源码程序 > Admin_System.asp

    <!--#include file="include/conn.asp" -->
<!--#include file="include/const.asp" -->
<!--#include file="include/const_admin.asp" -->
<!--#include file="include/Function.asp" -->
<%Admin.Header%><div class="wtable"><div class="wtable_name">系统设置管理</div><div class="wtable_cont">
<%
Dim Cmd,myrs
Cmd=Request("cmd")
Sub CmdOK()
Response.Write "<br><p align=center>操作成功。<a href=""javascript:history.back(-1)"">返回上一页。</a></p><br>"
End Sub
Select Case Cmd
	Case "delnotloginuser"'删除一个月未登陆帐户
		Caluoob.Execute("delete from [cb_user] where lastlogin < now()-30"):CmdOK
	Case "locknotloginuser"'锁定一个月未登陆帐户
		Caluoob.Execute("update [cb_user] Set locks=1 where lastlogin < now()-30"):CmdOK
	Case "opennotloginuser"'解锁一个月未登陆帐户
		Caluoob.Execute("update [cb_user] Set locks=0 where lastlogin < now()-30"):CmdOK
	Case "resetcache"'重建系统缓存
		Application(CachesName&"loadSystem")=False:CmdOK
	Case "delnotusemsg"'删除二个月未登陆帐户
		Caluoob.Execute("delete from [cb_message] where addtime < now()-20"):CmdOK
	Case "resetfavcount"'修复印迹统计
		Set myrs=Caluoob.Execute("Select Count(id) From cb_ing")
		Caluoob.Execute("update [cb_system] Set allfav="&myrs(0)&"")
		myrs.Close
		Set myrs=Nothing:CmdOK
	Case "resetusercount"'修复用户统计
		Set myrs=Caluoob.Execute("Select Count(id) From [cb_user]")
		Caluoob.Execute("update [cb_system] Set alluser="&myrs(0)&"")
		myrs.Close:Set myrs=Nothing:CmdOK
	Case "save"
	Dim sysname,domainame,logfiles,webfiles,servmail,rootmail,opensite,newsreg,forgets,forgetsmail,logs,dftskins,Integral,Isinstall
	Dim lockips,BadWords,BadNames,SQLString
	sysname=CheckStr(Request.Form("sysnames"))
	If IsValidUserName(sysname)=False then Caluoob.ShowErr("错误网站名称。")
	domainame=CheckStr(Request.Form("domainames"))
	logfiles=CheckStr(Request.Form("logfiles"))
	webfiles=CheckStr(Request.Form("webfiles"))
	servmail=CheckStr(Request.Form("servmail"))
	rootmail=CheckStr(Request.Form("rootmail"))
	If IsValidEmail(rootmail)=False then Caluoob.ShowErr("错误邮件地址")
	opensite=ValidInteger(Request.Form("opensite"))
	newsreg=ValidInteger(Request.Form("newsreg"))
	forgets=ValidInteger(Request.Form("forgets"))
	forgetsmail=ValidInteger(Request.Form("forgetsmail"))
	logs=ValidInteger(Request.Form("logs"))
	Isinstall=opensite&","&newsreg&","&forgets&","&forgetsmail&","&logs
	dftskins=CheckStr(Request.Form("dftskins"))
	Integral=ValidInteger(Request.Form("Integral"))
	lockips=CheckStr(Request.Form("lockips"))
	BadWords=CheckStr(Request.Form("BadWords"))
	BadNames=CheckStr(Request.Form("BadNames"))
	SQLString="update cb_system Set " 
	SQLString=SQLString&"sysnames='"&sysname&"',domainames='"&domainame&"',logfiles='"&logfiles&"'"
	SQLString=SQLString&",webfiles='"&webfiles&"',servmail='"&servmail&"',rootmail='"&rootmail&"'"
	SQLString=SQLString&",isinstall='"&Isinstall&"',dftskins='"&dftskins&"',Integral="&Integral&""
	SQLString=SQLString&",lockips='"&lockips&"',BadWords='"&BadWords&"',BadNames='"&BadNames&"'"
	Caluoob.Execute(SQLString)
	Application(CachesName&"loadSystem")=False:CmdOK
	Case Else
Set myrs = Caluoob.Execute("SELECT top 1 * from cb_system")%>
<form method="post" action="?cmd=save"><fieldset>
<legend> 系统显示设置</legend>
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
          <td width="15%" align="right">系统名称：</td>
          <td><input name="sysnames" type="text" id="sysnames" value="<%=myrs("sysnames")%>" style="width:400px;" title="本系统名称"></td>
      </tr>
        <tr>
          <td align="right">网站地址：</td>
          <td><input name="domainames" type="text" id="domainames" value="<%=myrs("domainames")%>" style="width:400px;" title="本系统域名"></td>
        </tr>
        <tr>
          <td align="right">导入目录：</td>
          <td><input name="logfiles" type="text" id="logfiles" value="<%=myrs("logfiles")%>" style="width:400px;" title="网友导入收藏临时存放目录"> 必须先建立。末尾必须留“/”</td>
        </tr>
        
        <tr>
          <td align="right">邮件服务器：</td>
          <td><input name="servmail" type="text" id="servmail" value="<%=myrs("servmail")%>" style="width:400px;" title="用于密码找回，需要服务器支持Jmail组件。"></td>
        </tr>
        <tr>
          <td align="right">管理员邮件：</td>
          <td><input name="rootmail" type="text" id="rootmail" value="<%=myrs("rootmail")%>" style="width:400px;"></td>
        </tr>
        <tr>
          <td align="right">系统对外开放：</td>
          <td><%=Admin.InstallSelect(Caluoob.Isinstall(0),"opensite")%> 如需关闭系统，您是否在登陆时选择“记住我的登陆”选项？</td>
        </tr>
        <tr>
          <td align="right">新用户注册：</td>
          <td><%=Admin.InstallSelect(Caluoob.Isinstall(1),"newsreg")%></td>
        </tr>
        <tr>
          <td align="right">密码找回：</td>
          <td><%=Admin.InstallSelect(Caluoob.Isinstall(2),"forgets")%> 将开启密码找回功能。</td>
        </tr>
        <tr>
          <td align="right">密码找回邮件：</td>
          <td><%=Admin.InstallSelect(Caluoob.Isinstall(3),"forgetsmail")%> 启用后将把新设置好的密码发送到用户邮箱,需Jmail组件。</td>
        </tr>
        <tr>
          <td align="right">运行日志：</td>
          <td><%=Admin.InstallSelect(Caluoob.Isinstall(4),"logs")%></td>
        </tr>
        <tr>
          <td align="right">皮肤文件目录：</td>
          <td><input name="dftskins" type="text" id="dftskins" value="<%=myrs("dftskins")%>" style="width:400px;" title="只需输入文件夹名称即可"></td>
        </tr>
        
        <tr>
          <td align="right">网址点击积分：</td>
          <td><input name="Integral" type="text" id="Integral" value="<%=myrs("Integral")%>" style="width:400px;" /></td>
        </tr>
</table>
</fieldset>
<fieldset>
<legend>用户注册与过滤</legend>
<table width="100%" border="0" cellspacing="0" cellpadding="3">
  <tr>
    <td width="15%" align="right" valign="top">禁止访问IP：</td>
    <td><textarea name="lockips" rows="5" id="lockips" style="width:400px;" title="用|号区分"><%=myrs("lockips")%></textarea> 以“|”号区分</td>
  </tr>
  <tr>
    <td align="right" valign="top">禁止使用文字：</td>
    <td><textarea name="BadWords" rows="5" id="BadWords" style="width:400px;" title="用|号区分"><%=myrs("BadWords")%></textarea> 以“|”号区分</td>
  </tr>
  <tr>
    <td align="right" valign="top">禁止注册用户名：</td>
    <td><textarea name="BadNames" rows="5" id="BadNames" style="width:400px;" title="用|号区分"><%=myrs("BadNames")%></textarea> 以“|”号区分</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td><input type="submit" name="Submit" value="保存配置" /></td>
  </tr>
</table>
</fieldset></form>
<fieldset>
<legend> 其他设置</legend>
<table width="100%" border="0" cellspacing="0" cellpadding="5">
  <tr>
    <td style="color:red;line-height:180%;">注意：以下操作可能比较消耗服务器资源。</td>
    </tr>
  <tr>
    <td style="line-height:180%;"><a href="?cmd=delnotloginuser">删除一个月未登陆帐户</a> | <a href="?cmd=locknotloginuser">锁定一个月未登陆帐户</a> | <a href="?cmd=opennotloginuser">解锁一个月未登陆帐户</a> | <a href="?cmd=delnotusemsg">删除二个月以前的私信</a><br>
	<a href="?cmd=resetcache">重建系统缓存</a> | <a href="?cmd=resetfavcount">修复印迹统计</a> | <a href="?cmd=resetusercount">修复用户统计</a></td>
    </tr>
</table>
</fieldset>
<%myrs.close:set myrs=nothing:End Select%>
</div></div><%Admin.Footer%>