📄 admin_setup.asp

📁 动感系统XP Access版,服务器需要安装Jmail 组件配置SendMessages.asp 最后部分的参数
💻 ASP
字号:
<!-- #include file="conn.asp" -->
<!-- #include file="inc/const.asp" -->
<!-- #include file="inc/function.asp" -->
<HTML><HEAD><TITLE>后台管理 </TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="admin.css" type=text/css rel=stylesheet>
</HEAD>
<BODY leftMargin=0 topMargin=0>
<!-- #include file="admin_header.asp" -->
<table width="100%" border="0" cellspacing="2">
  <tr>
    <td width="20%" align="center" valign="top" class="tdbgleft"><!-- #include file="Admin_Left.asp" --></td> 
    <td  class="b1" valign="top">
<% 'dim sql,rs,System_Info,System_Setting,UserClass,LicenceType,Language,SoftType,System
System_Setting=""

if not isnull(cUserName) and cUserName<>"" then 
	if chkMaster(cUserName) then   
		call main()
	else
		msgtitle="系统设置"
		msginfo="<li>操作错误，你不是系统管理员，没有权限进行此项操作！</li>" 
		call Sysmsg(msgtitle,msginfo) 
	end if
else
	msgtitle="系统设置"
	msginfo="<li>操作错误，你没有登录系统！<li><a href=""User.Asp"">点此登录系统</a><li><a href=""./"">返回频道首页</a></li>" 
	call Sysmsg(msgtitle,msginfo) 
end if

sub main()

set Rs=server.createobject("adodb.recordset")
if Trim(Request.Form("System_info(0)"))<>"" and Trim(Request.Form("System_info(1)"))<>"" and Trim(Request.Form("System_info(2)"))<>"" and Trim(Request.Form("System_info(3)"))<>"" and Trim(Request.Form("UserClass"))<>"" and Trim(Request.Form("LicenceType"))<>"" and Trim(Request.Form("Language"))<>"" and Trim(Request.Form("SoftType"))<>"" and Trim(Request.Form("System"))<>"" then
	if Request.Form("System_Setting(0)") then
    	System_Setting = System_Setting &"1"
	else
		System_Setting = System_Setting &"0"
	end if
	if Request.Form("System_Setting(1)") then
    	System_Setting = System_Setting &",1"
	else
		System_Setting = System_Setting &",0"
	end if
	if Request.Form("System_Setting(2)") then
    	System_Setting = System_Setting &",1"
	else
		System_Setting = System_Setting &",0"
	end if
	if Trim(Request.Form("System_Setting(3)"))="" then
		System_Setting = System_Setting &",3"
	else
		System_Setting = System_Setting &","&Trim(Request.Form("System_Setting(3)"))
	end if
	if Trim(Request.Form("System_Setting(4)"))="" then
    	System_Setting = System_Setting &",0"
	else
		System_Setting = System_Setting &","&Trim(Request.Form("System_Setting(4)"))
	end if
	if Request.Form("System_Setting(5)") then
    	System_Setting = System_Setting &",1"
	else
		System_Setting = System_Setting &",0"
	end if
	if Trim(Request.Form("System_Setting(6)"))="" then
    	System_Setting = System_Setting &",40"
	else
		System_Setting = System_Setting &","&Trim(Request.Form("System_Setting(6)"))
	end if
	if Request.Form("System_Setting(7)") then
    	System_Setting = System_Setting &",1"
	else
		System_Setting = System_Setting &",0"
	end if
	if Trim(Request.Form("System_Setting(8)"))="" then
    	System_Setting = System_Setting &",5"
	else
		System_Setting = System_Setting &","&Trim(Request.Form("System_Setting(8)"))
	end if
	'Response.Write(System_Setting)
	sql="select * from SoftDown_Config where id=1"
	rs.open sql,conn,1,3
	rs("System_info")=Trim(Request.Form("System_info(0)"))&","&Trim(Request.Form("System_info(1)"))&","&Trim(Request.Form("System_info(2)"))&","&Trim(Request.Form("System_info(3)"))&","&Trim(Request.Form("System_info(4)"))&","&Trim(Request.Form("System_info(5)"))
    rs("System_Setting")=System_Setting
	rs("UserClass")=Trim(Request.Form("UserClass"))
	rs("LicenceType")=Trim(Request.Form("LicenceType"))
	rs("Language")=Trim(Request.Form("Language"))
	rs("SoftType")=Trim(Request.Form("SoftType"))
	rs("System")=Trim(Request.Form("System"))
	rs("default_system")=Trim(Request.Form("default_system"))
	rs.update
	rs.close
end if

sql="select * from SoftDown_Config where id=1"
rs.open sql,conn,1,1
if rs.eof and rs.bof then 
	sql="INSERT [SoftDown_Config] ( [id] , [System_Info] , [System_Setting] , [UserClass] , [LicenceType] , [Language] , [SoftType] , [System], [default_system] ) VALUES ( 1 , '软件下载,http://www.mesky.net/softdown/,动感网络,http://www.mesky.net,sqlHtml/,www.mesky.net|www.mesky.cn' , '1,1,1,3,test.asp,1,40,1,5' , '匿名用户,一级会员,二级会员,三级会员,四级会员,五级会员' , '共享软件,免费软件,自由软件,试用软件,演示软件,商业软件' , '简体中文,繁体中文,英文,多国语言' , '国产软件,国外软件,汉化补丁,破解补丁' , 'Win2003,WinXP,Win2000,NT,WinME,Win9X,Dos,Linux,Unix,Mac,ASP环境,PHP环境,CGI环境', 'Win2003,WinXP,Win2000,NT,WinME,Win9X'  )"
	conn.execute sql
end if
rs.close

sql="select * from SoftDown_Config where id=1"
rs.open sql,conn,1,1
    System_Info=split(rs("System_Info"),",")
	System_Setting=split(rs("System_Setting"),",")
	UserClass=split(rs("UserClass"),",")
	LicenceType=split(rs("LicenceType"),",")
	Language=split(rs("Language"),",")
	SoftType=split(rs("SoftType"),",")
	System=split(rs("System"),",")
 %>
	  <table width="100%" border="0" align="center" cellpadding="3" cellspacing="1">
        <form action="Admin_Setup.asp" method="post" name="myform">
          <tr align="left"> 
            <th colspan="2" class="tdbg1">基本信息</th>
          </tr>
          <tr class="tdbg2"> 
            <td><u>系统名称 </u></td>
            <td> <input name="System_info(0)" type="text" id="System_info(0)" value="<%=System_info(0)%>" size="30" maxlength="30"> 
            </td>
          </tr>
          <tr class="tdbg2"> 
            <td><u>系统的url</u></td>
            <td> <input name="System_info(1)" type="text" id="System_info(1)" value="<%=System_info(1)%>" size="30" maxlength="100"> 
            </td>
          </tr>
          <tr class="tdbg2"> 
            <td><u>主页名称</u></td>
            <td> <input name="System_info(2)" type="text" id="System_info(2)" value="<%=System_info(2)%>" size="30" maxlength="30"> 
            </td>
          </tr>
          <tr class="tdbg2"> 
            <td><u>主页的url</u></td>
            <td><input name="System_info(3)" type="text" id="System_info(3)"  value="<%=System_info(3)%>" size="30" maxlength="100"></td>
          </tr>
          <tr class="tdbg2"> 
            <td><u>下载系统目录</u></td>
            <td><input name="System_info(4)" type="text" id="System_info(4)" value="<%=System_info(4)%>" size="30" maxlength="100"></td>
          </tr>
          <tr class="tdbg2"> 
            <td><u>站点主机名或者IP</u><BR>多个主机名或者IP请用“|”隔开</td>
            <td><input name="System_info(5)" type="text" id="System_info(5)" value="<%=System_info(5)%>" size="30"></td>
          </tr>
          <tr align="left"> 
            <th colspan="2" class="tdbg1" >系统设置</th>
          </tr>
          <tr class="tdbg2"> 
            <td><u>防盗链机制</u></td>
            <td> <input name="System_Setting(0)" type="checkbox" value="1" <%if System_Setting(0) then Response.Write "checked"%>>
              是否打开？ </td>
          </tr>
          <tr class="tdbg2"> 
            <td><u>IP访问限制</u></td>
            <td> <input name="System_Setting(1)" type="checkbox" value="1" <%if System_Setting(1) then Response.Write "checked"%>>
              是否打开？</td>
          </tr>
          <tr class="tdbg2"> 
            <td><u>防刷新机制</u></td>
            <td> <input name="System_Setting(2)" type="checkbox"  value="1" <%if System_Setting(2) then Response.Write "checked"%>>
              是否打开？</td>
          </tr>
          <tr class="tdbg2"> 
            <td><u>浏览刷新时间间隔</u><br>
              填写该项目请确认您打开了防刷新机制<br>
              仅对帖子列表和显示帖子页面起作用</td>
            <td> <input name="System_Setting(3)" type="text" size="3" value="<%=System_Setting(3)%>" maxlength="2">
              秒</td>
          </tr>
          <tr class="tdbg2"> 
            <td><u>防刷新功能有效的页面</u><br>
              请确认您打开了防刷新功能<br>
              您指定的页面将有防刷新作用，用户在限定的时间内不能重复打开该页面，具有一定减少资源消耗的作用 每个页面名请用“|”符号隔开</td>
            <td> <input name="System_Setting(4)" type="text" size="50" maxlength="150" value="<%=System_Setting(4)%>"></td>
          </tr>
          <tr class="tdbg2"> 
            <td><u>在线用户统计</u><br>
              为节省资源建议关闭</td>
            <td> <input name="System_Setting(5)" type="checkbox" value="1"  <%if System_Setting(5) then Response.Write "checked"%>>
              是否打开？</td>
          </tr>
          <tr class="tdbg2"> 
            <td><u>删除不活动用户时间</u><br>
              可设置删除多少分钟内不活动用户<br>
              单位：分钟，请输入数字</td>
            <td> <input name="System_Setting(6)" type="text" value="<%=System_Setting(6)%>" size="3" maxlength="2">
              分钟 </td>
          </tr>
          <tr class="tdbg2"> 
            <td><u>显示页面执行时间</u></td>
            <td> <input name="System_Setting(7)" type="checkbox" value="1"  <%if System_Setting(7) then Response.Write "checked"%>>
              是否打开？</td>
          </tr>
          <tr align="left"> 
            <th colspan="2" class="tdbg1" >其他设置</th>
          </tr>
          <tr class="tdbg2"> 
            <td><u>软件级别数</u><br>
              用几个等级来衡量软件级别，前台图片显示，images目录要有“*star.gif”文件。</td>
            <td> <input name="System_Setting(8)" type="text" value="<%=System_Setting(8)%>" size="3" maxlength="2">
              个级别 </td>
          </tr>
          <tr class="tdbg2"> 
            <td><u>会员级别类型</u><br>
              每个名称请用“,”符号隔开 </td>
            <td> <input name="UserClass" type="text" id="UserClass" value="<%=rs("UserClass")%>" size="50" maxlength="150"></td>
          </tr>
          <tr class="tdbg2"> 
            <td><u>软件授权类型</u><br>
              每个名称请用“,”符号隔开 </td>
            <td> <input name="LicenceType" type="text" id="LicenceType" value="<%=rs("LicenceType")%>" size="50" maxlength="150"></td>
          </tr>
          <tr class="tdbg2"> 
            <td><u>软件语言类型</u><br>
              每个名称请用“,”符号隔开 </td>
            <td> <input name="Language" type="text" id="Language" value="<%=rs("Language")%>" size="50" maxlength="150"></td>
          </tr>
          <tr class="tdbg2"> 
            <td><u>软件性质类型</u><br>
              每个名称请用“,”符号隔开 </td>
            <td> <input name="SoftType" type="text" id="SoftType" value="<%=rs("SoftType")%>" size="50" maxlength="150"></td>
          </tr>
          <tr class="tdbg2">
            <td><u>运行系统类型</u><br>
              每个名称请用“,”符号隔开</td>
            <td><input name="System" type="text" id="System" value="<%=rs("System")%>" size="50" maxlength="200"></td>
          </tr>
          <tr class="tdbg2"> 
            <td><u>默认运行系统</u><br>
              每个名称请用“,”符号隔开 </td>
            <td> <input name="default_system" type="text" id="default_system" value="<%=rs("default_system")%>" size="50" maxlength="200"></td>
          </tr>
          <tr align="center" class="tdbg2"> 
            <td colspan="2"> <input type="submit" name="Submit" value=" 提 交 "> 
              <input type="reset" name="Submit2" value=" 重 置 "> </td>
          </tr>
        </form>
      </table>
<% rs.close:set rs=nothing 
end sub
%>
	  </td>
  </tr>
</table>
<!-- #include file="admin_footer.asp" -->
</BODY></HTML>
<% CloseDatabase %>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -