sys_set.asp

新闻管理系统,管理员登陆后能够实现对新闻的添加,删除以及更新等功能,操作比较简单,但是很方便

<!--#include file="conn.asp"-->
<!--#include file="data.asp"-->
<!--#include file="char.asp"-->
<!--#include file="header.inc"-->

<%
'#####################################################
'## Copyright (C) 2003, Patron Saint Studio
'## For support, please visit http://3gu.tea8.com
'## Script Edit:y3gu
'#####################################################

if session("status")="login" then



If request.form("submit") <> "" Then
Dim HomeNameX1,HomePageX1,SysPathX1,SysX1,SysX2,SysX3,SysX4

	HomeNameX1=replace(trim(request("HomeNameX1")),"'","")
	HomePageX1=replace(trim(Request("HomePageX1")),"'","")
	SysPathX1=replace(trim(request("SysPathX1")),"'","")
	SysX1=replace(trim(Request("SysX1")),"'","")
	SysX2=replace(trim(request("SysX2")),"'","")
	SysX3=replace(trim(request("SysX3")),"'","")
     HomeNameX1=checkStr(HomeNameX1)

	 if HomeNameX1="" OR HomePageX1="" OR SysPathX1="" OR SysX1="" OR SysX2="" OR SysX3="" Then
     errorstr="系统设置中各项必须详细填写"
     errorbox(errorstr)
     End If

     if strLength(HomeNameX1) > 120 Then
	 errorstr="主页名称字节超出系统限定范围"
     errorbox(errorstr)
	 End If
     
	 If Not IsNumeric(SysX1) OR Not IsNumeric(SysX2) OR Not IsNumeric(SysX3) Then
	 errorstr="数据类型不符合系统限定"
	 errorbox(errorstr)
	 End If

SysX4=SysX1 & "|" & SysX2 & "|" & SysX3
conn.execute("update config set HomeNameX='"&HomeNameX1&"',HomePageX='"&HomePageX1&"',SysPathX='"&SysPathX1&"',SysX='"&SysX4&"' where id=1")
Successstr="您所做的修改已经成功存储入ACCESS"
Successbox(Successstr)
Else
%>


<BR><BR><BR><BR>
  <CENTER><form name="form" method="post" action="Sys_Set.asp">
  <table width="470" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr> 
      <th colspan="2" align="left" height=25>系统设定</th>
    </tr>
    <tr> 
      <td>主页名称</td>
      <td><input name="HomeNameX1" type="text" size="50" maxlength="125" value="<%=HomeNameX%>"></td>
    </tr>
    <tr> 
      <td width="102">主页URL</td>
      <td width="468"><input name="HomePageX1" type="text" size="50" maxlength="125" value="<%=HomePageX%>"></td>
    </tr>
    <tr> 
      <td>系统安装目录</td>
      <td>
	  <input name="SysPathX1" type="text" size="50" maxlength="125" value="<%=SysPathX%>"></td>
    </tr>
	<tr> 
      <td>每页显示数据</td>
      <td><input name="SysX1" type="text" size="2" maxlength="2" value="<%=SysX(0)%>"></td>
    </tr>
    <tr> 
      <td>调用数据条树</td>
      <td><input name="SysX2" type="text" size="2" maxlength="2" value="<%=SysX(1)%>"></td>
    </tr>
    <tr> 
      <td>每条显示多少字符</td>
      <td><input name="SysX3" type="text" size="2" maxlength="2" value="<%=SysX(2)%>"></td>
    </tr>
    <tr> 
      <td colspan="2" Class="TableTitle2" height=25><div align="center">
          <input type="submit" name="Submit" value="提交">
          <input type="reset" name="Submit2" value="重置">
        </div></td>
    </tr>
  </table>
</form></CENTER>

<BR><BR><BR><BR>


<%
End If





Else
Response.Redirect "INDEX.asp"
End If
%>

<!--#include file="footer.inc"-->