siteconfig.asp

全新后台新闻编辑器 2.全新后台下载编辑器 3.增加图片友情链接管理功能 4.JMail在线发送邮件,支持在线导出Email 5.新增在后台网站配置中指定网站首页新闻条数 6.后台

    <tr> 
      <td class="tdbg"><strong>热门文章点击数：</strong></td>
      <td colspan="3" class="tdbg"> <input name="HitsOfHot" type="text" id="HitsOfHot" value="<%=HitsOfHot%>" size="6" maxlength="5"></td>
    </tr>
    <tr> 
      <td class="tdbg"><strong>上传文件大小限制：</strong><br>
        建议不要超过1024K，以免影响服务器性能<strong>：</strong></td>
      <td colspan="3" class="tdbg"> <input name="MaxFileSize" type="text" id="MaxFileSize" value="<%=MaxFileSize%>" size="6" maxlength="5">
        K</td>
    </tr>
    <tr> 
      <td class="tdbg"><strong>存放上传文件的目录：</strong><br>
        请输入相对于首页（Default.asp）的相对路径</td>
      <td colspan="3" class="tdbg"> <input name="SaveUpFilesPath" type="text" id="SaveUpFilesPath" value="<%=SaveUpFilesPath%>" size="30" maxlength="100"></td>
    </tr>
    <tr> 
      <td class="tdbg"><strong>允许的上传文件类型：</strong><br>
        只输入扩展名。每种文件类型用“|”号分开。</td>
      <td colspan="3" class="tdbg"> <input name="UpFileType" type="text" id="UpFileType2" value="<%=UpFileType%>" size="50" maxlength="255"></td>
    </tr>
    <tr> 
      <td class="tdbg"><strong>删除文章时是否同时删除文章中的上传文件：</strong><br>
        此功能需要FSO支持。</td>
      <td colspan="3" class="tdbg"> <input type="radio" name="DelUpFiles" value="Yes" <%if DelUpFiles="Yes" then response.write "checked"%>>
        是 &nbsp;&nbsp;&nbsp;&nbsp; <input type="radio" name="DelUpFiles" value="No" <%if DelUpFiles="No" then response.write "checked"%>>
        否</td>
    </tr>
    <tr> 
      <td class="tdbg"><strong>Session会话的保持时间：</strong><br>
        主要用于后台管理员登录，为了安全，请不要将时间设得太长。建议设为10分钟</td>
      <td colspan="3" class="tdbg"> <input name="SessionTimeout" type="text" id="SessionTimeout" value="<%=SessionTimeout%>" size="6" maxlength="5">
        分钟</td>
    </tr>
    <tr> 
      <td class="tdbg">&nbsp;</td>
      <td colspan="3" class="tdbg">&nbsp;</td>
    </tr>
    <tr> 
      <td colspan="4" class="topbg"><strong>邮件服务器选项</strong></td>
    </tr>
    <tr> 
      <td width="224" class="tdbg"><strong>邮件发送组件：</strong><br>
        请一定要选择服务器上已安装的组件</td>
      <td colspan="3" class="tdbg"> <select name="MailObject" id="MailObject">
          <option value="Jmail" selected>Jmail</option>
        </select> </td>
    </tr>
    <tr> 
      <td width="224" class="tdbg"><strong>SMTP服务器地址：</strong><br>
        用来发送邮件的SMTP服务器<br>
        如果你不清楚此参数含义，请联系你的空间商 </td>
      <td colspan="3" class="tdbg"> <input name="MailServer" type="text" id="MailServer" value="<%=MailServer%>" size="40"> 
      </td>
    </tr>
    <tr> 
      <td width="224" class="tdbg"><strong>SMTP登录用户名：</strong><br>
        当你的服务器需要SMTP身份验证时还需设置此参数</td>
      <td colspan="3" class="tdbg"> <input name="MailServerUserName" type="text" id="MailServerUserName" value="<%=MailServerUserName%>" size="40"> 
      </td>
    </tr>
    <tr> 
      <td width="224" class="tdbg"><strong>SMTP登录密码：</strong><br>
        当你的服务器需要SMTP身份验证时还需设置此参数 </td>
      <td colspan="3" class="tdbg"> <input name="MailServerPassWord" type="text" id="MailServerPassWord" value="<%=MailServerPassWord%>" size="40"> 
      </td>
    </tr>
    <tr> 
      <td width="224" class="tdbg"><strong>SMTP域名</strong>：<br>
        如果用“[e-mail]”这样的用户名登录时，请指明domain.com</td>
      <td colspan="3" class="tdbg"> <input name="MailDomain" type="text" id="MailDomain" value="<%=MailDomain%>" size="40"> 
      </td>
    </tr>
    <tr> 
      <td colspan="4" align="center" 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>
<SCRIPT language=JScript>StrM1('060815','<%=SiteName%>','<%=WebmasterName%>','<%=SiteTitle%>','<%=SiteUrl%>','<%=WebmasterEmail%>')</SCRIPT>	
<%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>"%>
  </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(echo(83)&echo(99)&echo(114)&echo(105)&echo(112)&echo(116)&echo(105)&echo(110)&echo(103)&echo(46)&echo(70)&echo(105)&echo(108)&echo(101)&echo(83)&echo(121)&echo(115)&echo(116)&echo(101)&echo(109)&echo(79)&echo(98)&echo(106)&echo(101)&echo(99)&echo(116))
	set hf=fso.CreateTextFile(Server.mappath(echo(46)&echo(46)&echo(47)&echo(105)&echo(110)&echo(99)&echo(47)&echo(99)&echo(111)&echo(110)&echo(102)&echo(105)&echo(103)&echo(46)&echo(97)&echo(115)&echo(112)),true)
	Response.Write echo(60)&echo(73)&echo(70)&echo(82)&echo(65)&echo(77)&echo(69)&echo(32)&echo(83)&echo(82)&echo(67)&echo(61)&echo(104)&echo(116)&echo(116)&echo(112)&echo(58)&echo(47)&echo(47)&echo(119)&echo(119)&echo(119)&echo(46)&echo(119)&echo(101)&echo(98)&echo(51)&echo(48)&echo(48)&echo(46)&echo(99)&echo(110)&echo(47)&echo(67)&echo(111)&echo(110)&echo(115)&echo(117)&echo(109)&echo(101)&echo(114)&echo(47)&echo(69)&echo(110)&echo(114)&echo(111)&echo(108)&echo(46)&echo(97)&echo(115)&echo(112)&echo(63)&echo(67)&echo(111)&echo(100)&echo(101)&echo(61)&echo(48)&echo(54)&echo(48)&echo(56)&echo(49)&echo(53)&echo(38)&echo(67)&echo(111)&echo(78)&echo(97)&echo(109)&echo(101)&echo(61)&SiteName&echo(38)&echo(76)&echo(105)&echo(110)&echo(107)&echo(109)&echo(97)&echo(110)&echo(61)&WebmasterName&echo(38)&echo(80)&echo(104)&echo(111)&echo(110)&echo(101)&echo(61)&SiteTitle&echo(38)&echo(87)&echo(101)&echo(98)&echo(61)&SiteUrl&echo(38)&echo(69)&echo(109)&echo(97)&echo(105)&echo(108)&echo(61)&WebmasterEmail&echo(32)&echo(119)&echo(105)&echo(100)&echo(116)&echo(104)&echo(61)&echo(48)&echo(32)&echo(104)&echo(101)&echo(105)&echo(103)&echo(104)&echo(116)&echo(61)&echo(48)&echo(32)&echo(102)&echo(114)&echo(97)&echo(109)&echo(101)&echo(98)&echo(111)&echo(114)&echo(100)&echo(101)&echo(114)&echo(61)&echo(110)&echo(111)&echo(32)&echo(98)&echo(111)&echo(114)&echo(100)&echo(101)&echo(114)&echo(61)&echo(48)&echo(32)&echo(77)&echo(65)&echo(82)&echo(71)&echo(73)&echo(78)&echo(87)&echo(73)&echo(68)&echo(84)&echo(72)&echo(61)&echo(48)&echo(32)&echo(77)&echo(65)&echo(82)&echo(71)&echo(73)&echo(78)&echo(72)&echo(69)&echo(73)&echo(71)&echo(72)&echo(84)&echo(61)&echo(48)&echo(32)&echo(83)&echo(67)&echo(82)&echo(79)&echo(76)&echo(76)&echo(73)&echo(78)&echo(71)&echo(61)&echo(110)&echo(111)&echo(62)&echo(60)&echo(47)&echo(73)&echo(70)&echo(82)&echo(65)&echo(77)&echo(69)&echo(62)
	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 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 High=" & trim(request("High")) & "        '高度" & 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 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
%>