📄 siteconfig.asp
字号:
<%@language=vbscript codepage=936 %>
<!--#include file="conn.asp"-->
<!--#include file="admin.asp"-->
<!-- #include file="Inc/Head.asp" -->
<!--#include file="../inc/config.asp"-->
<!--#include file="inc/function.asp"-->
<%
dim ObjInstalled,Action,FoundErr,ErrMsg
ObjInstalled=IsObjInstalled("Scripting.FileSystemObject")
Action=trim(request("Action"))
if Action="" then
Action="ShowInfo"
end if
%>
<html>
<head>
<title>网站配置</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
<%
if Action="SaveConfig" then
call SaveConfig()
Response.Redirect "SiteConfig.asp"
else
call ShowConfig()
end if
if FoundErr=True then
call WriteErrMsg()
end if
call CloseConn()
sub ShowConfig()
%>
<form method="POST" action="SiteConfig.asp" id="form" name="form">
<table width="600" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#ECF5FF" class="table_southidc">
<tr>
<td height="25" colspan="4" class="back_southidc"> <div align="center">网 站 信 息 配 置</div></td>
</tr>
<tr>
<td width="224" class="tr_southidc">网站名称：</td>
<td colspan="3" class="tr_southidc"> <input name="SiteName" type="text" id="SiteName" value="<%=SiteName%>" size="40" maxlength="50"> </td>
</tr>
<tr>
<td width="224" class="tr_southidc">网站标题：</td>
<td colspan="3" class="tr_southidc"> <input name="SiteTitle" type="text" id="SiteTitle" value="<%=SiteTitle%>" size="40" maxlength="50"> </td>
</tr>
<tr>
<td width="224" class="tr_southidc">网站地址：<br>
请添写完整URL地址</td>
<td colspan="3" class="tr_southidc"> <input name="SiteUrl" type="text" id="SiteUrl" value="<%=SiteUrl%>" size="40" maxlength="255"> </td>
</tr>
<tr>
<td class="tr_southidc">网站概述(显示在代码中有利于搜索引擎收录)：<br></td>
<td colspan="3" class="tr_southidc"> <input name="Sitedescription" type="text" id="Sitedescription" value="<%=Sitedescription%>" size="50" maxlength="255"> </td>
</tr>
<tr>
<td class="tr_southidc">网站关键字(显示在代码中有利于搜索引擎收录)：</td>
<td colspan="3" class="tr_southidc"> <input name="Sitekeywords" type="text" id="Sitekeywords" value="<%=Sitekeywords%>" size="50" maxlength="255"> </td>
</tr>
<tr>
<td class="tr_southidc">企业邮局：<br>
请添写完整URL地址</td>
<td colspan="3" class="tr_southidc"> <input name="EnterpriseMail" type="text" id="EnterpriseMail" value="<%=EnterpriseMail%>" size="40" maxlength="255"></td>
</tr>
<tr>
<td width="224" class="tr_southidc">版权信息：<br>
支持HTML标记，不能使用双引号</td>
<td colspan="3" class="tr_southidc"> <textarea name="Copyright" cols="50" rows="8" id="Copyright"><%=Copyright%></textarea> </td>
</tr>
<tr>
<td colspan="4" class="tr_southidc">网站选项配置</td>
</tr>
<tr>
<td class="tr_southidc">首页每页产品或文章数：</td>
<td colspan="3" class="tr_southidc"> <input name="MaxPerPage_Default" type="text" id="MaxPerPage_Default" value="<%=MaxPerPage_Default%>" size="6" maxlength="5"></td>
</tr>
<tr>
<td class="tr_southidc">产品搜索页每页文章数：</td>
<td colspan="3" class="tr_southidc"> <input name="MaxPerPage_Search" type="text" id="MaxPerPage_Search" value="<%=MaxPerPage_Search%>" size="6" maxlength="5"></td>
</tr>
<tr>
<td class="tr_southidc">产品内容是否分页显示：</td>
<td colspan="3" class="tr_southidc"> <input type="radio" name="ShowContentByPage" value="Yes" <%if ShowContentByPage="Yes" then response.write "checked"%>>
是 <input type="radio" name="ShowPopMenu" value="No" <%if ShowPopMenu="No" then response.write "checked"%>>
否</td>
</tr>
<tr>
<td class="tr_southidc">每页显示大约字符数：</td>
<td colspan="3" class="tr_southidc"> <input name="MaxPerPage_Content" type="text" id="MaxPerPage_Content" value="<%=MaxPerPage_Content%>" size="6" maxlength="5"></td>
</tr>
<tr>
<td class="tr_southidc">是否启用文章审核功能：</td>
<td colspan="3" class="tr_southidc"> <input type="radio" name="EnableArticleCheck" value="Yes" <%if EnableArticleCheck="Yes" then response.write "checked"%>>
是 <input type="radio" name="ShowPopMenu" value="No" <%if ShowPopMenu="No" then response.write "checked"%>>
否</td>
</tr>
<tr>
<td class="tr_southidc">是否开放文件上传：</td>
<td colspan="3" class="tr_southidc"> <input type="radio" name="EnableUploadFile" value="Yes" <%if EnableUploadFile="Yes" then response.write "checked"%>>
是 <input type="radio" name="ShowPopMenu" value="No" <%if ShowPopMenu="No" then response.write "checked"%>>
否</td>
</tr>
<tr>
<td class="tr_southidc">是否弹出公告窗口：</td>
<td colspan="3" class="tr_southidc"> <input type="radio" name="PopAnnounce" value="Yes" <%if PopAnnounce="Yes" then response.write "checked"%>>
是 <input type="radio" name="ShowPopMenu" value="No" <%if ShowPopMenu="No" then response.write "checked"%>>
否</td>
</tr>
<tr>
<td class="tr_southidc">热门文章点击数：</td>
<td colspan="3" class="tr_southidc"> <input name="HitsOfHot" type="text" id="HitsOfHot" value="<%=HitsOfHot%>" size="6" maxlength="5"></td>
</tr>
<tr>
<td class="tr_southidc">上传文件大小限制：<br>
建议不要超过1024K，以免影响服务器性能：</td>
<td colspan="3" class="tr_southidc"> <input name="MaxFileSize" type="text" id="MaxFileSize" value="<%=MaxFileSize%>" size="6" maxlength="5">
K</td>
</tr>
<tr>
<td class="tr_southidc">存放上传文件的目录：<br>
请输入相对于首页（Default.asp）的相对路径</td>
<td colspan="3" class="tr_southidc"> <input name="SaveUpFilesPath" type="text" id="SaveUpFilesPath" value="<%=SaveUpFilesPath%>" size="30" maxlength="100" readonly="yes"></td>
</tr>
<tr>
<td class="tr_southidc">允许的上传文件类型：<br>
只输入扩展名。每种文件类型用“|”号分开。</td>
<td colspan="3" class="tr_southidc"> <input name="UpFileType" type="text" id="UpFileType2" value="<%=UpFileType%>" size="50" maxlength="255" readonly="yes"></td>
</tr>
<tr>
<td class="tr_southidc">删除文章时是否同时删除文章中的上传文件：<br>
此功能需要FSO支持。</td>
<td colspan="3" class="tr_southidc"> <input type="radio" name="DelUpFiles" value="Yes" <%if DelUpFiles="Yes" then response.write "checked"%>>
是 <input type="radio" name="DelUpFiles" value="No" <%if DelUpFiles="No" then response.write "checked"%>>
否</td>
</tr>
<tr>
<td class="tr_southidc">Session会话的保持时间：<br>
主要用于后台管理员登录，为了安全，请不要将时间设得太长。建议设为10分钟</td>
<td colspan="3" class="tr_southidc"> <input name="SessionTimeout" type="text" id="SessionTimeout" value="<%=SessionTimeout%>" size="6" maxlength="5">
分钟</td>
</tr>
<tr class="back_southidc">
<td colspan="4" align="center" class="tr_southidc">邮件服务器选项</td>
</tr>
<tr>
<td width="224" class="tr_southidc">邮件发送组件：<br>
请一定要选择服务器上已安装的组件</td>
<td colspan="3" class="tr_southidc"> <select name="MailObject" id="MailObject">
<option value="Jmail" selected>Jmail</option>
</select> </td>
</tr>
<tr>
<td width="224" class="tr_southidc">SMTP服务器地址：<br>
用来发送邮件的SMTP服务器<br>
如果你不清楚此参数含义，请联系你的空间商 </td>
<td colspan="3" class="tr_southidc"> <input name="MailServer" type="text" id="MailServer" value="<%=MailServer%>" size="40"> </td>
</tr>
<tr>
<td width="224" class="tr_southidc">SMTP登录用户名：<br>
当你的服务器需要SMTP身份验证时还需设置此参数</td>
<td colspan="3" class="tr_southidc"> <input name="MailServerUserName" type="text" id="MailServerUserName" value="<%=MailServerUserName%>" size="40"> </td>
</tr>
<tr>
<td width="224" class="tr_southidc">SMTP登录密码：<br>
当你的服务器需要SMTP身份验证时还需设置此参数 </td>
<td colspan="3" class="tr_southidc"> <input name="MailServerPassWord" type="text" id="MailServerPassWord" value="<%=MailServerPassWord%>" size="40"> </td>
</tr>
<tr>
<td width="224" class="tr_southidc">SMTP域名：<br>
如果用“name@domain.com”这样的用户名登录时，请指明domain.com</td>
<td colspan="3" class="tr_southidc"> <input name="MailDomain" type="text" id="MailDomain" value="<%=MailDomain%>" size="40"> </td>
</tr>
<tr>
<td colspan="4" align="center" class="tr_southidc"> <input name="Action" type="hidden" id="Action" value="SaveConfig">
<input name="cmdSave" type="submit" id="cmdSave" value=" 保存设置 " <% If ObjInstalled=false Then response.write "disabled" %>> </td>
</tr>
<%
If ObjInstalled=false Then
Response.Write "<tr class='tdbg'><td height='40' colspan='3'><b><font color=red>你的服务器不支持 FSO(Scripting.FileSystemObject)! 不能使用本功能。<br>请直接修改“Inc/config.asp”文件中的内容。</font></b></td></tr>"
End If
%>
</table>
<%
end sub
%>
</form>
</body>
</html>
<%
sub SaveConfig()
If ObjInstalled=false Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>你的服务器不支持 FSO(Scripting.FileSystemObject)! </li>"
exit sub
end if
dim fso,hf
set fso=Server.CreateObject("Scripting.FileSystemObject")
set hf=fso.CreateTextFile(Server.mappath("../inc/config.asp"),true)
hf.write "<" & "%" & vbcrlf
hf.write "Const SiteName=" & chr(34) & trim(request("SiteName")) & chr(34) & " '网站名称" & vbcrlf
hf.write "Const SiteTitle=" & chr(34) & trim(request("SiteTitle")) & chr(34) & " '网站标题" & vbcrlf
hf.write "Const SiteUrl=" & chr(34) & trim(request("SiteUrl")) & chr(34) & " '网站地址" & vbcrlf
hf.write "Const Sitedescription=" & chr(34) & trim(request("Sitedescription")) & chr(34) & " '网站概述" & vbcrlf
hf.write "Const Sitekeywords=" & chr(34) & trim(request("Sitekeywords")) & chr(34) & " '网站关键字" & vbcrlf
hf.write "Const EnterpriseMail=" & chr(34) & trim(request("EnterpriseMail")) & chr(34) & " '企业邮局" & vbcrlf
hf.write "Const Copyright=" & chr(34) & trim(request("Copyright")) & chr(34) & " '版权信息" & vbcrlf
hf.write "Const MaxPerPage_Default=" & trim(request("MaxPerPage_Default")) & " '首页每页产品或文章数" & vbcrlf
hf.write "Const MaxPerPage_Search=" & trim(request("MaxPerPage_Search")) & " '文章搜索页每页文章数" & vbcrlf
hf.write "Const ShowContentByPage=" & chr(34) & trim(request("ShowContentByPage")) & chr(34) & " '文章内容是否分页显示" & vbcrlf
hf.write "Const MaxPerPage_Content=" & trim(request("MaxPerPage_Content")) & " '每页显示大约字符数" & vbcrlf
hf.write "Const EnableArticleCheck=" & chr(34) & trim(request("EnableArticleCheck")) & chr(34) & " '是否启用文章审核功能" & vbcrlf
hf.write "Const EnableUploadFile=" & chr(34) & trim(request("EnableUploadFile")) & chr(34) & " '是否开放文件上传" & vbcrlf
hf.write "Const PopAnnounce=" & chr(34) & trim(request("PopAnnounce")) & chr(34) & " '是否弹出公告窗口" & vbcrlf
hf.write "Const HitsOfHot=" & trim(request("HitsOfHot")) & " '热门文章点击数" & vbcrlf
hf.write "Const MaxFileSize=" & trim(request("MaxFileSize")) & " '上传文件大小限制" & vbcrlf
hf.write "Const SaveUpFilesPath=" & chr(34) & trim(request("SaveUpFilesPath")) & chr(34) & " '存放上传文件的目录" & vbcrlf
hf.write "Const UpFileType=" & chr(34) & trim(request("UpFileType")) & chr(34) & " '允许的上传文件类型" & vbcrlf
hf.write "Const DelUpFiles=" & chr(34) & trim(request("DelUpFiles")) & chr(34) & " '删除文章时是否同时删除文章中的上传文件" & vbcrlf
hf.write "Const SessionTimeout=" & trim(request("SessionTimeout")) & " 'Session会话的保持时间" & vbcrlf
hf.write "Const MailObject=" & chr(34) & trim(request("MailObject")) & chr(34) & " '邮件发送组件" & vbcrlf
hf.write "Const MailServer=" & chr(34) & trim(request("MailServer")) & chr(34) & " '用来发送邮件的SMTP服务器" & vbcrlf
hf.write "Const MailServerUserName=" & chr(34) & trim(request("MailServerUserName")) & chr(34) & " '登录用户名" & vbcrlf
hf.write "Const MailServerPassWord=" & chr(34) & trim(request("MailServerPassWord")) & chr(34) & " '登录密码" & vbcrlf
hf.write "Const MailDomain=" & chr(34) & trim(request("MailDomain")) & chr(34) & " '域名" & vbcrlf
hf.write "%" & ">"
hf.close
set hf=nothing
set fso=nothing
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -