system.asp
来自「很好的企业网站管理系统!可以适应各种不同的小型企业!」· ASP 代码 · 共 319 行 · 第 1/2 页
ASP
319 行
<%@ LANGUAGE = VBScript.Encode %>
<%Admin="System"%>
<!--#include file="check.asp"-->
<!--#include file="RegNum.asp"-->
<html>
<head>
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<meta copy="程序制作：xoyu（QQ：5964887）www.xoyu.com">
<title>系统设置 - 晓宇听幽 网站内容管理系统</title>
<link rel="stylesheet" href="admin.css" type="text/css">
</head>
<body topmargin="1">
<div align="center">
<center>
<%
if request("type")="save" then
if request("webtime")<>"" then
webtime=request("webtime")
else
webtime=0
end if
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set TS1 = fs.CreateTextFile(Server.MapPath("config.asp"), True)
TS1.writeline "<"&chr(37)
TS1.writeline "webname="&chr(34)&""&request("webname")&""&chr(34)&""
TS1.writeline "weburl="&chr(34)&""&request("weburl")&""&chr(34)&""
TS1.writeline "webemail="&chr(34)&""&request("webemail")&""&chr(34)&""
TS1.writeline "webtime="&chr(34)&""&webtime&""&chr(34)&""
TS1.writeline "websmtp="&chr(34)&""&request("websmtp")&""&chr(34)&""
TS1.writeline "imageshu="&request("imageshu")&""
TS1.writeline "imagelen="&request("imagelen")&""
TS1.writeline "imagewid="&request("imagewid")&""
TS1.writeline "Imagevshu="&request("Imagevshu")&""
TS1.writeline "imagevlen="&request("imagevlen")&""
TS1.writeline "imagevwid="&request("imagevwid")&""
TS1.writeline "newshuset="&request("newshuset")&""
TS1.writeline "jsshu="&request("jsshu")&""
TS1.writeline "topshu="&request("topshu")&""
TS1.writeline "MaxPerPageset="&chr(34)&""&request("MaxPerPageset")&""&chr(34)&""
TS1.writeline "lelationshu="&request("lelationshu")&""
TS1.writeline "chalen="&request("chalen")&""
TS1.writeline "topchalen="&request("topchalen")&""
TS1.writeline "jschalen="&request("jschalen")&""
TS1.writeline "TypePicmore="&chr(34)&""&request("TypePicmore")&""&chr(34)&""
TS1.writeline "S_imageshu="&request("S_imageshu")&""
TS1.writeline "S_imagelen="&request("S_imagelen")&""
TS1.writeline "S_imagewid="&request("S_imagewid")&""
TS1.writeline "S_Imagevshu="&request("S_Imagevshu")&""
TS1.writeline "S_imagevlen="&request("S_imagevlen")&""
TS1.writeline "S_imagevwid="&request("S_imagevwid")&""
TS1.writeline "S_newshuset="&request("S_newshuset")&""
TS1.writeline "S_jsshu="&request("S_jsshu")&""
TS1.writeline "S_topshu="&request("S_topshu")&""
TS1.writeline "S_MaxPerPageset="&chr(34)&""&request("S_MaxPerPageset")&""&chr(34)&""
TS1.writeline "S_lelationshu="&request("S_lelationshu")&""
TS1.writeline "S_chalen="&request("S_chalen")&""
TS1.writeline "S_topchalen="&request("S_topchalen")&""
TS1.writeline "S_jschalen="&request("S_jschalen")&""
TS1.writeline "S_TypePicmore="&chr(34)&""&request("S_TypePicmore")&""&chr(34)&""
TS1.writeline "link="&chr(34)&""&request("link")&""&chr(34)&""
TS1.writeline "check="&chr(34)&""&request("check")&""&chr(34)&""
TS1.writeline "flash="&chr(34)&""&request("flash")&""&chr(34)&""
TS1.writeline "flashjs="&chr(34)&""&request("flashjs")&""&chr(34)&""
TS1.writeline "webreg="&chr(34)&""&request("webreg")&""&chr(34)&""
TS1.writeline "webreglock="&chr(34)&""&request("webreglock")&""&chr(34)&""
TS1.writeline "webuseredit="&chr(34)&""&request("webuseredit")&""&chr(34)&""
TS1.writeline "version="&chr(34)&""&request("version")&""&chr(34)&""
TS1.writeline "edition="&chr(34)&""&request("edition")&""&chr(34)&""
TS1.writeline "newskey="&chr(34)&""&request("newskey")&""&chr(34)&""
TS1.writeline "form_user="&chr(34)&""&request("form_user")&""&chr(34)&""
TS1.writeline "form_url="&chr(34)&""&request("form_url")&""&chr(34)&""
TS1.writeline chr(37)&">"
Set TS1 = Nothing
Set fs=nothing
response.redirect "system.asp?ok=成功:修改系统设置完成!"
response.end
end if
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function%>
<!--#include file="config.asp"-->
<form action="system.asp?type=save" method="post">
<input type="hidden" name="edition" value="<%=edition%>" size="20">
<input type="hidden" name="version" value="<%=version%>" size="20">
<%if request("ok")<>"" then%>
<table width="95%" border="0" cellspacing="1" cellpadding="3" align=center class="tableBorder">
<tr>
<td width="100%" class=forumrow>
<font color="#FF0000"><%=request("ok")%></font>时间:<%=Now()%></td>
</tr>
</table>
<%end if%>
<table width="95%" border="0" cellspacing="1" cellpadding="3" align=center class="tableBorder" height="876">
<tr>
<th width="100%" height="12"><b>系统设置</b></th>
</tr>
<tr>
<td width="100%" class=forumHeaderBackgroundAlternate height="15">
<b>网站基本信息</b></td>
</tr>
<tr>
<td width="100%" class=forumrow height="18">
本站站名：<input name="webname" value="<%=webname%>" size="25" style="border-style: solid; border-width: 1"></td>
</tr>
<tr>
<td width="100%" class=forumrow height="18">
本站网址：<input name="weburl" value="<%=weburl%>" size="25" style="border-style: solid; border-width: 1">
<font color="#808080">不用加 http://,例(www.xoYu.com)</font></td>
</tr>
<tr>
<td width="100%" class=forumrow height="18">
站长信箱：<input name="webemail" value="<%=webemail%>" size="25" style="border-style: solid; border-width: 1"><font color="#808080">
用于发送邮件</font></td>
</tr>
<tr>
<td width="100%" class=forumHeaderBackgroundAlternate height="15">
<b>本机环境设置</b></td>
</tr>
<tr>
<td width="100%" class=forumrow height="18">
系统时差：<input name="webtime" value="<%=webtime%>" size="15" style="border-style: solid; border-width: 1"><font color="#808080">
设置服务器时间与本地的时差(单位:小时),填写如 +3 或 -2</font></td>
</tr>
<tr>
<td width="100%" class=forumrow height="20">
发信组件：<select name="websmtp" size="1">
<option value="">不使用发信功能</option>
<option<%if websmtp="CDONTS" then%> selected<%end if%> value="CDONTS">
CDONTS</option><option<%if websmtp="JMAIL" then%> selected<%end if%> value="JMAIL">JMAIL</option>
</select> <font color="#808080">CDONTS<%
If Not IsObjInstalled("CDONTS.NewMail") Then%><b>×</b><%else%><b>√</b>
<%end if%> JMail<%
If Not IsObjInstalled("JMail.SMTPMail") Then%><b>×</b><%else%><b>√</b><%end if%></font></td>
</tr>
<tr>
<td width="100%" class=forumHeaderBackgroundAlternate height="15">
<b><font color="#FF0000">栏目</font>初始默认设定</b>
（下面将对栏目生成的html页作一些定义）</td>
</tr>
<tr>
<td width="100%" class=forumrow height="18">
横向图片显示数：<input name="imageshu" value="<%=Imageshu%>" size="10" style="border-style: solid; border-width: 1">
横向图片长度：<input name="imagelen" value="<%=Imagelen%>" size="10" style="border-style: solid; border-width: 1">
横向图片宽度：<input name="imagewid" value="<%=Imagewid%>" size="10" style="border-style: solid; border-width: 1"></td>
</tr>
<tr>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?