sysset.asp

21世纪人才www.51zy.net 网站源码

<!--#include file = "../Include/DBClass.inc.asp"-->
<!--#include file = "../Include/SysLoginCheck.inc.asp" -->

<%
' =============================================================
' Made By Xiasp & 21世纪人才周刊 http://www.sxzx.net/ QQ群：8617001
' =============================================================
%>

<%
Dim action, voteincdir, fs, ts, H_Level 
action = GetSafeStr(Trim(Request("action")))
H_Level = Session("Sys_Level")
'添加超级用户
If action="ok" then
	If H_Level <> 3 Then
		Errmsg = "您的权限不够进行此操作！"
	Else
		Homepage_Title = GetSafeStr(Trim(Trim(Request.form("homepage_title"))))
		Homepage_Link = GetSafeStr(Trim(Trim(Request.form("homepage_link"))))
		Your_Email = GetSafeStr(Trim(Trim(Request.form("your_email"))))
		CreatTime = GetSafeStr(Trim(Trim(Request.form("creattime"))))
		News_Back_Count = GetSafeInt(Trim(Request.form("news_back_count")),8)
		News_Front_Count = GetSafeInt(Trim(Request.form("news_front_count")),8)
		News_Check = GetSafeInt(Trim(Request.form("newscheck")),0)
  
		voteincdir = server.mappath("../Include/SetUp.asp")
		Const ForReading =1, ForWriting = 2
		set fs = CreateObject("Scripting.FileSystemObject")
		set ts = fs.OpenTextFile(voteincdir,ForWriting, True)
		ts.Write ""
		ts.Write "<"
		ts.Write "%"& vbCrLf
		ts.Write "Dim Homepage_Title, Homepage_Link, Your_Email, CreatTime, News_Back_Count, News_Front_Count, News_Check"& vbCrLf
		ts.Write "Homepage_Title = "&""""&Homepage_Title&""""& vbCrLf 
		ts.Write "Homepage_Link = "&""""&Homepage_Link&""""& vbCrLf
		ts.Write "Your_Email = "&""""&Your_Email&""""& vbCrLf
		ts.Write "CreatTime = "&""""&CreatTime&""""& vbCrLf
		ts.Write "News_Back_Count = "&News_Back_Count& vbCrLf
		ts.Write "News_Front_Count = "&News_Front_Count& vbCrLf
		ts.Write "News_Check = "&News_Check& vbCrLf
		ts.Write "%"
		ts.Write ">"
		ts.close
		Response.Write "<script language=javascript>"
		Response.Write "alert('系统设置成功！');"
		Response.Write "</script>"
	End If
End if

Call Header("系统设置")
Call Content()
Call Footer()

' 开始写入内容
Sub Content()
%>

<!--#include file="../Include/Top.asp" -->
<br>

<table width="95%" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td><b><%=Homepage_Title%> - <font color="#FF0000">系统设置</font></b></td>
  </tr>
</table>
<table width="95%" border="0" cellspacing="1" cellpadding="3"  align=center>
  <form name="form1" method="post" action="sysset.asp?action=ok">
    <tr bgcolor="#AABFEC"> 
      <td colspan=2> 
        <div align="left"><font color="#FFFFFF"><b><font color="#000000">○ 基本设置 
          </font></b><font color="#000000">（ 系统中的一些基本信息 ）</font><b><font color="#000000"> 
          </font></b></font></div>
      </td>
    </tr>
    <tr> 
      <td width="27%"  bgcolor="#F3F3F3" height="25"> 
        <div align="right">主页名称： </div>
      </td>
      <td width="73%"  bgcolor="#F3F3F3"> 
        <input type="text" name="homepage_title" class="button1" size="40" value="<%=Homepage_Title%>">
      </td>
    </tr>
    <tr>
      <td height="25" align=left bgcolor="#F3F3F3" width="27%"> 
        <div align="right">主页地址： </div>
      </td>
      <td align=left bgcolor="#F3F3F3" width="73%"> 
        <input type="text" name="homepage_link" class="button1" size="40" value="<%=Homepage_Link%>">
      </td>
    </tr>
    <tr>
      <td height="25" align=left bgcolor="#F3F3F3" width="27%"> 
        <div align="right">系统邮件地址： </div>
      </td>
      <td align=left bgcolor="#F3F3F3" width="73%"> 
        <input type="text" name="your_email" class="button1" size="40" value="<%=Your_Email%>">
      </td>
    </tr>
    <tr>
      <td height="25" align=left bgcolor="#F3F3F3" width="27%"> 
        <div align="right">本站创建时间： </div>
      </td>
      <td align=left bgcolor="#F3F3F3" width="73%"> 
        <input type="text" name="creattime" class="button1" size="40" value="<%=CreatTime%>">
      </td>
    </tr>
    <tr bgcolor="#AABFEC"> 
      <td height="23" align=left colspan="2"><font color="#FFFFFF"><b> <font color="#000000">○ 
        新闻设置 </font></b><font color="#000000">（新闻栏目的基本设置 ）</font></font></td>
    </tr>
    <tr> 
      <td height="25" align=left bgcolor="#F3F3F3" width="27%"> 
        <div align="right">后台每页显示新闻数目：</div>
      </td>
      <td align=left bgcolor="#F3F3F3" width="73%"> 
        <input type="text" name="news_back_count" class="button1" size="10" value="<%=News_Back_Count%>">
        最小为8条
      </td>
    </tr>
    <tr> 
      <td height="25" align=left bgcolor="#F3F3F3" width="27%"> 
        <div align="right">前台每页显示新闻数目：</div>
      </td>
      <td align=left bgcolor="#F3F3F3" width="73%"> 
        <input type="text" name="news_front_count" class="button1" size="10" value="<%=News_Front_Count%>">
      最小为8条      </td>
    </tr>
    <tr> 
      <td height="25" align=left bgcolor="#F3F3F3" width="27%"> 
        <div align="right">是否启动审核模式：</div>
      </td>
      <td align=left bgcolor="#F3F3F3" width="73%"> 
        <input name="newscheck" type="radio" value="1" <%If News_Check = 1 Then Response.Write "checked"%>>
        是
        <input name="newscheck" type="radio" value="0" <%If News_Check = 0 Then Response.Write "checked"%>>
      否</td>
    </tr>
    <tr bgcolor="#F3F3F3"> 
      <td height="30" align=left>&nbsp;</td>
      <td height="30" align=left><input type="submit" name="Submit" value="  设 置  " class="button2"></td>
    </tr>
  </form>
</table>
<%
End Sub
%>