📄 siteconfig.asp
字号:
<td class="tdbg"><input name="SaveUpVideoPath" type="text" id="SaveUpVideoPath" value="<%=SaveUpVideoPath%>" size="30" maxlength="100"></td>
</tr>
<tr>
<td class="tdbgl">允许的上传文件类型：<br>
只输入扩展名。每种文件类型用“|”号分开。</td>
<td class="tdbg"> <input name="UpFileType" type="text" id="UpFileType2" value="<%=UpFileType%>" size="50" maxlength="255"></td>
</tr>
<tr>
<td class="tdbgl">删除文章时是否同时删除文章中的上传文件：<br>
此功能需要FSO支持。</td>
<td class="tdbg"> <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="tdbgl">Session会话的保持时间：<br>
主要用于后台管理员登录，为了安全，请不要将时间设得太长。建议设为10分钟</td>
<td class="tdbg"> <input name="SessionTimeout" type="text" id="SessionTimeout" value="<%=SessionTimeout%>" size="6" maxlength="5">
分钟</td>
</tr>
<tr>
<td class="tdbgl"> </td>
<td class="tdbg"> </td>
</tr>
<tr>
<td colspan="2" class="Title">邮件服务器选项</td>
</tr>
<tr>
<td class="tdbgl">邮件发送组件：<br>
请一定要选择服务器上已安装的组件</td>
<td class="tdbg"> <select name="MailObject" id="MailObject">
<option value="Jmail" selected>Jmail</option>
</select> </td>
</tr>
<tr>
<td class="tdbgl">SMTP服务器地址：<br>
用来发送邮件的SMTP服务器<br>
如果你不清楚此参数含义，请联系你的空间商 </td>
<td class="tdbg"> <input name="MailServer" type="text" id="MailServer" value="<%=MailServer%>" size="40"> </td>
</tr>
<tr>
<td class="tdbgl">SMTP登录用户名：<br>
当你的服务器需要SMTP身份验证时还需设置此参数</td>
<td class="tdbg"> <input name="MailServerUserName" type="text" id="MailServerUserName" value="<%=MailServerUserName%>" size="40"> </td>
</tr>
<tr>
<td class="tdbgl">SMTP登录密码：<br>
当你的服务器需要SMTP身份验证时还需设置此参数 </td>
<td class="tdbg"> <input name="MailServerPassWord" type="password" id="MailServerPassWord" value="<%=MailServerPassWord%>" size="40"> </td>
</tr>
<tr>
<td class="tdbgl">SMTP域名：<br>
如果用“name@domain.com”这样的用户名登录时，请指明domain.com</td>
<td class="tdbg"> <input name="MailDomain" type="text" id="MailDomain" value="<%=MailDomain%>" size="40"> </td>
</tr>
<tr>
<td class="tdbgl"> </td>
<td class="tdbg"><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='a4'><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 enSiteName=" & chr(34) & trim(request("enSiteName")) & chr(34) & " '英文网站名称" & vbcrlf
hf.write "Const enSiteTitle=" & chr(34) & trim(request("enSiteTitle")) & chr(34) & " '英文网站标题" & vbcrlf
hf.write "Const SiteUrl=" & chr(34) & trim(request("SiteUrl")) & chr(34) & " '网站地址" & vbcrlf
hf.write "Const EnterpriseMail=" & chr(34) & trim(request("EnterpriseMail")) & chr(34) & " '公司邮局" & vbcrlf
hf.write "Const LogoUrl=" & chr(34) & trim(request("LogoUrl")) & chr(34) & " 'Logo地址" & vbcrlf
hf.write "Const BannerUrl=" & chr(34) & trim(request("BannerUrl")) & chr(34) & " 'Banner地址" & vbcrlf
hf.write "Const enBannerUrl=" & chr(34) & trim(request("enBannerUrl")) & chr(34) & " 'enBanner地址" & vbcrlf
hf.write "Const IsFlash=" & chr(34) & trim(request("IsFlash")) & chr(34) & " '是否为FLASH" & vbcrlf
hf.write "Const BannerUrl1=" & chr(34) & trim(request("BannerUrl1")) & chr(34) & " '公司简介Banner地址" & vbcrlf
hf.write "Const EnBannerUrl1=" & chr(34) & trim(request("EnBannerUrl1")) & chr(34) & " '公司简介EnBanner地址" & vbcrlf
hf.write "Const IsFlash1=" & chr(34) & trim(request("IsFlash1")) & chr(34) & " '是否为FLASH" & vbcrlf
hf.write "Const width1=" & chr(34) & trim(request("width1")) & chr(34) & " '宽度" & vbcrlf
hf.write "Const High1=" & chr(34) & trim(request("High1")) & chr(34) & " '高度" & vbcrlf
hf.write "Const BannerUrl2=" & chr(34) & trim(request("BannerUrl2")) & chr(34) & " '新闻咨询Banner地址" & vbcrlf
hf.write "Const EnBannerUrl2=" & chr(34) & trim(request("EnBannerUrl2")) & chr(34) & " '公司简介EnBanner地址" & vbcrlf
hf.write "Const IsFlash2=" & chr(34) & trim(request("IsFlash2")) & chr(34) & " '是否为FLASH" & vbcrlf
hf.write "Const width2=" & chr(34) & trim(request("width2")) & chr(34) & " '宽度" & vbcrlf
hf.write "Const High2=" & chr(34) & trim(request("High2")) & chr(34) & " '高度" & vbcrlf
hf.write "Const BannerUrl3=" & chr(34) & trim(request("BannerUrl3")) & chr(34) & " '产品展示心Banner地址" & vbcrlf
hf.write "Const EnBannerUrl3=" & chr(34) & trim(request("EnBannerUrl3")) & chr(34) & " '产品展示心EnBanner地址" & vbcrlf
hf.write "Const IsFlash3=" & chr(34) & trim(request("IsFlash3")) & chr(34) & " '是否为FLASH" & vbcrlf
hf.write "Const width3=" & chr(34) & trim(request("width3")) & chr(34) & " '宽度" & vbcrlf
hf.write "Const High3=" & chr(34) & trim(request("High3")) & chr(34) & " '高度" & vbcrlf
hf.write "Const BannerUrl4=" & chr(34) & trim(request("BannerUrl4")) & chr(34) & " '下载中心Banner地址" & vbcrlf
hf.write "Const EnBannerUrl4=" & chr(34) & trim(request("EnBannerUrl4")) & chr(34) & " '下载中心EnBanner地址" & vbcrlf
hf.write "Const IsFlash4=" & chr(34) & trim(request("IsFlash4")) & chr(34) & " '是否为FLASH" & vbcrlf
hf.write "Const width4=" & chr(34) & trim(request("width4")) & chr(34) & " '宽度" & vbcrlf
hf.write "Const High4=" & chr(34) & trim(request("High4")) & chr(34) & " '高度" & vbcrlf
hf.write "Const BannerUrl5=" & chr(34) & trim(request("BannerUrl5")) & chr(34) & " '在线视听Banner地址" & vbcrlf
hf.write "Const EnBannerUrl5=" & chr(34) & trim(request("EnBannerUrl5")) & chr(34) & " '在线视听EnBanner地址" & vbcrlf
hf.write "Const IsFlash5=" & chr(34) & trim(request("IsFlash5")) & chr(34) & " '是否为FLASH" & vbcrlf
hf.write "Const width5=" & chr(34) & trim(request("width5")) & chr(34) & " '宽度" & vbcrlf
hf.write "Const High5=" & chr(34) & trim(request("High5")) & chr(34) & " '高度" & vbcrlf
hf.write "Const BannerUrl6=" & chr(34) & trim(request("BannerUrl6")) & chr(34) & " '公司荣誉Banner地址" & vbcrlf
hf.write "Const EnBannerUrl6=" & chr(34) & trim(request("EnBannerUrl6")) & chr(34) & " '公司荣誉EnBanner地址" & vbcrlf
hf.write "Const IsFlash6=" & chr(34) & trim(request("IsFlash6")) & chr(34) & " '是否为FLASH" & vbcrlf
hf.write "Const width6=" & chr(34) & trim(request("width6")) & chr(34) & " '宽度" & vbcrlf
hf.write "Const High6=" & chr(34) & trim(request("High6")) & chr(34) & " '高度" & vbcrlf
hf.write "Const BannerUrl7=" & chr(34) & trim(request("BannerUrl7")) & chr(34) & " '营销网络Banner地址" & vbcrlf
hf.write "Const EnBannerUrl7=" & chr(34) & trim(request("EnBannerUrl7")) & chr(34) & " '营销网络EnBanner地址" & vbcrlf
hf.write "Const IsFlash7=" & chr(34) & trim(request("IsFlash7")) & chr(34) & " '是否为FLASH" & vbcrlf
hf.write "Const width7=" & chr(34) & trim(request("width7")) & chr(34) & " '宽度" & vbcrlf
hf.write "Const High7=" & chr(34) & trim(request("High7")) & chr(34) & " '高度" & vbcrlf
hf.write "Const BannerUrl8=" & chr(34) & trim(request("BannerUrl8")) & chr(34) & " '人才招聘Banner地址" & vbcrlf
hf.write "Const EnBannerUrl8=" & chr(34) & trim(request("EnBannerUrl8")) & chr(34) & " '人才招聘EnBanner地址" & vbcrlf
hf.write "Const IsFlash8=" & chr(34) & trim(request("IsFlash8")) & chr(34) & " '是否为FLASH" & vbcrlf
hf.write "Const width8=" & chr(34) & trim(request("width8")) & chr(34) & " '宽度" & vbcrlf
hf.write "Const High8=" & chr(34) & trim(request("High8")) & chr(34) & " '高度" & vbcrlf
hf.write "Const BannerUrl9=" & chr(34) & trim(request("BannerUrl9")) & chr(34) & " '客户留言Banner地址" & vbcrlf
hf.write "Const EnBannerUrl9=" & chr(34) & trim(request("EnBannerUrl9")) & chr(34) & " '客户留言EnBanner地址" & vbcrlf
hf.write "Const IsFlash9=" & chr(34) & trim(request("IsFlash9")) & chr(34) & " '是否为FLASH" & vbcrlf
hf.write "Const width9=" & chr(34) & trim(request("width9")) & chr(34) & " '宽度" & vbcrlf
hf.write "Const High9=" & chr(34) & trim(request("High9")) & chr(34) & " '高度" & vbcrlf
hf.write "Const BannerUrl10=" & chr(34) & trim(request("BannerUrl10")) & chr(34) & " '会员中心Banner地址" & vbcrlf
hf.write "Const EnBannerUrl10=" & chr(34) & trim(request("EnBannerUrl10")) & chr(34) & " '会员中心EnBanner地址" & vbcrlf
hf.write "Const IsFlash10=" & chr(34) & trim(request("IsFlash10")) & chr(34) & " '是否为FLASH" & vbcrlf
hf.write "Const width10=" & chr(34) & trim(request("width10")) & chr(34) & " '宽度" & vbcrlf
hf.write "Const High10=" & chr(34) & trim(request("High10")) & chr(34) & " '高度" & vbcrlf
hf.write "Const width=" & chr(34) & trim(request("width")) & chr(34) & " '宽度" & vbcrlf
hf.write "Const High=" & chr(34) & trim(request("High")) & chr(34) & " '高度" & vbcrlf
hf.write "Const WebmasterName=" & chr(34) & trim(request("WebmasterName")) & chr(34) & " '站长姓名" & vbcrlf
hf.write "Const WebmasterEmail=" & chr(34) & trim(request("WebmasterEmail")) & chr(34) & " '站长信箱" & vbcrlf
hf.write "Const Copyright=" & chr(34) & trim(request("Copyright")) & chr(34) & " '版权信息" & vbcrlf
hf.write "Const EnCopyright=" & chr(34) & trim(request("EnCopyright")) & chr(34) & " '版权信息" & vbcrlf
hf.write "Const MaxPerPage_Default=" & trim(request("MaxPerPage_Default")) & " '首页每页产品或文章数" & vbcrlf
hf.write "Const New_count=" & trim(request("New_count")) & " '首面新闻资讯条数" & vbcrlf
hf.write "Const Product_count=" & trim(request("Product_count")) & " '首面产品列表数" & vbcrlf
hf.write "Const MaxPerPage_Search=" & trim(request("MaxPerPage_Search")) & " '文章搜索页每页文章数" & vbcrlf
hf.write "Const MaxPerPage_Content=" & trim(request("MaxPerPage_Content")) & " '每页显示大约字符数" & vbcrlf
hf.write "Const NewsComment=" & chr(34) & trim(request("NewsComment")) & chr(34) & " '是否启用新闻评论功能" & vbcrlf
hf.write "Const EnableProductCheck=" & chr(34) & trim(request("EnableProductCheck")) & chr(34) & " '是否启用文章审核功能" & vbcrlf
hf.write "Const EnableUploadFile=" & chr(34) & trim(request("EnableUploadFile")) & chr(34) & " '是否开放文件上传" & vbcrlf
hf.write "Const DelUploadProductPic=" & chr(34) & trim(request("DelUploadProductPic")) & chr(34) & " '自动删除无用的产品图片上传文件" & vbcrlf
hf.write "Const DelUploadSoftPic=" & chr(34) & trim(request("DelUploadSoftPic")) & chr(34) & " '自动删除无用的下载图片上传文件" & vbcrlf
hf.write "Const PopAnnounce=" & chr(34) & trim(request("PopAnnounce")) & chr(34) & " '是否弹出公告窗口" & vbcrlf
hf.write "Const EnableSoftKey="& trim(request("EnableSoftKey")) &" '是否使用软键盘输入密码" & vbcrlf
hf.write "Const Isqq=" & chr(34) & trim(request("Isqq")) & chr(34) & " '是否显示QQ在线咨询" & 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 SaveUpSoftPath=" & chr(34) & trim(request("SaveUpSoftPath")) & chr(34) & " '下载上传文件的目录" & vbcrlf
hf.write "Const SaveUpFilesProductPath=" & chr(34) & trim(request("SaveUpFilesProductPath")) & chr(34) & " '产品上传文件的目录" & vbcrlf
hf.write "Const SaveUpnewsPath=" & chr(34) & trim(request("SaveUpnewsPath")) & chr(34) & " '新闻上传文件的目录" & vbcrlf
hf.write "Const SaveUpVideoPath=" & chr(34) & trim(request("SaveUpVideoPath")) & 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
%>
<!-- #include file="Inc/Foot.asp" -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -