sysset.asp

简单明晰的asp后台代码 新闻 产品

<!--#include file = "../inc/dbclass.inc.asp"-->
<!--#include file = "../inc/syslogincheck.inc.asp" -->
<%
' =============================================================
' made by xiasp & 智多网络 http://www.cq18.com/ qq群：12403617
' =============================================================
%>
<%
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
		call alertmsg("您的权限不够进行此操作！")
	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"))))
		rooturl = getsafestr(trim(trim(request.form("rooturl"))))
		mailaddress = getsafestr(trim(trim(request.form("mailaddress"))))
		emailusername = getsafestr(trim(trim(request.form("emailusername"))))
		emailpassword = getsafestr(trim(trim(request.form("emailpassword"))))
		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)
		
		if left(rooturl,1) <> "/" or right(rooturl,1)  <> "/" then
			call alertmsg("路径输入错误，请参照说明后重新操作！")
		else
			rooturl = mid(rooturl,1,len(rooturl)-1)
			voteincdir = server.mappath("../inc/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, rooturl, mailaddress, emailusername, emailpassword, 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 "rooturl = "&""""&rooturl&""""& vbcrlf
			ts.write "mailaddress = "&""""&mailaddress&""""& vbcrlf
			ts.write "emailusername = "&""""&emailusername&""""& vbcrlf
			ts.write "emailpassword = "&""""&emailpassword&""""& 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
			call alertmsg("系统设置成功！")
		end if
	end if
end if

call header("系统设置")
call content()
call footer()

' 开始写入内容
sub content()
%>
<!--#include file="admin_index_top.asp" -->
<br>

<table width="98%" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td height="25"><b><%=homepage_title%> - <font color="#ff0000">系统设置</font></b></td>
  </tr>
</table>
<table width="98%" border="0" cellspacing="1" cellpadding="3"  align=center>
  <form name="form1" method="post" action="sysset.asp?action=ok">
    <tr bgcolor="#aabfec"> 
      <td colspan=2><b>○ 基本设置 </b>（ 系统中的一些基本信息 ）</td>
    </tr>
    <tr> 
      <td width="171"  bgcolor="#f3f3f3" height="25"> 
        <div align="right">主页名称：</div></td>
      <td  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"> 
        <div align="right">主页地址：</div></td>
      <td align=left bgcolor="#f3f3f3"> 
        <input type="text" name="homepage_link" class="button1" size="40" value="<%=homepage_link%>"></td>
    </tr>
    <tr>
      <td height="25" align=left bgcolor="#f3f3f3"> 
        <div align="right">系统邮件地址： </div>      </td>
      <td width="783" align=left bgcolor="#f3f3f3"> 
      <input type="text" name="your_email" class="button1" size="40" value="<%=your_email%>"></td>
    </tr>
    <tr>
      <td height="25" align=left bgcolor="#f3f3f3"> 
        <div align="right">本站创建时间： </div>      </td>
      <td align=left bgcolor="#f3f3f3"> 
      <input type="text" name="creattime" class="button1" size="40" value="<%=creattime%>"></td>
    </tr>
    <tr>
      <td height="12" align=left bgcolor="#f3f3f3"> 
        <div align="right">系统路径配置： </div>      </td>
      <td align=left bgcolor="#f3f3f3"> 
      <input type="text" name="rooturl" class="button1" size="40" value="<%=rooturl&"/"%>">      </td>
    </tr>
    <tr>
      <td height="12" align=left bgcolor="#f3f3f3">&nbsp;</td>
      <td align=left bgcolor="#f3f3f3"><font color="#666666">如果是放在根目录的“abc”文件夹，就填写“/abc/”</font></td>
    </tr>
    <tr>
      <td height="12" align=left bgcolor="#f3f3f3"> 
        <div align="right">邮件服务器smtp地址： </div>      </td>
      <td align=left bgcolor="#f3f3f3"> 
      <input name="mailaddress" type="text" class="button1" id="mailaddress" value="<%=mailaddress%>" size="40"></td>
    </tr>
    <tr>
      <td height="12" align=left bgcolor="#f3f3f3">&nbsp;</td>
      <td align=left bgcolor="#f3f3f3"><font color="#666666">邮件服务器地址，可以带端口。例如：yourdomain.com:25</font></td>
    </tr>
    <tr>
      <td height="25" align=left bgcolor="#f3f3f3"> 
        <div align="right">邮件用户名称： </div>      </td>
      <td align=left bgcolor="#f3f3f3"> 
      <input name="emailusername" type="text" class="button1" id="emailusername" value="<%=emailusername%>" size="40"></td>
    </tr>
    <tr>
      <td height="25" align=left bgcolor="#f3f3f3"> 
        <div align="right">邮件用户密码： </div>      </td>
      <td align=left bgcolor="#f3f3f3"> 
      <input name="emailpassword" type="text" class="button1" id="emailpassword" value="<%=emailpassword%>" size="40"></td>
    </tr>
    <tr bgcolor="#aabfec"> 
      <td height="23" align=left colspan="2"><b>○ 
        新闻设置 </b>（新闻栏目的基本设置 ）</td>
    </tr>
    <tr> 
      <td height="25" align=left bgcolor="#f3f3f3"> 
      <div align="right">后台每页显示新闻数目：</div>      </td>
      <td align=left bgcolor="#f3f3f3"> 
        <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"> 
        <div align="right">前台每页显示新闻数目：</div>      </td>
      <td align=left bgcolor="#f3f3f3"> 
        <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"> 
        <div align="right">是否启动审核模式：</div>      </td>
      <td align=left bgcolor="#f3f3f3"> 
        <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
%>