⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 siteconfig.asp

📁 ASP网站源程序
💻 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="2" cellspacing="1" bgcolor="#ECF5FF" class="table_southidc">
    <tr> 
      <td class="back_southidc" colspan="4"> <div align="center"><strong>网 站 配 
          置</strong></div></td>
    </tr>
    <tr> 
      <td colspan="4" class="topbg"> <strong>网站信息配置</strong></td>
    </tr>
    <tr> 
      <td width="224" class="tdbg"><strong>网站名称:</strong></td>
      <td colspan="3" class="tdbg"> <input name="SiteName" type="text" id="SiteName" value="<%=SiteName%>" size="40" maxlength="50"> 
      </td>
    </tr>
    <tr> 
      <td width="224" class="tdbg"><strong>网站标题:</strong></td>
      <td colspan="3" class="tdbg"> <input name="SiteTitle" type="text" id="SiteTitle" value="<%=SiteTitle%>" size="40" maxlength="50"> 
      </td>
    </tr>
    <tr> 
      <td width="224" class="tdbg"><strong>网站地址:</strong><br>
        请添写完整URL地址</td>
      <td colspan="3" class="tdbg"> <input name="SiteUrl" type="text" id="SiteUrl" value="<%=SiteUrl%>" size="40" maxlength="255"> 
      </td>
    </tr>
    <tr> 
      <td class="tdbg"><strong>企业邮局:</strong><br>
        请添写完整URL地址</td>
      <td colspan="3" class="tdbg"> <input name="EnterpriseMail" type="text" id="EnterpriseMail" value="<%=EnterpriseMail%>" size="40" maxlength="255"></td>
    </tr>
    <tr> 
      <td width="224" class="tdbg"><strong>LOGO地址:</strong><br> </td>
      <td colspan="3" class="tdbg"> <input name="LogoUrl" type="text" id="LogoUrl" value="<%=LogoUrl%>" size="40" maxlength="255"> 
      </td>
    </tr>
    <tr> 
      <td width="224" height="20" class="tdbg"><strong>首页Banner地址(只能用FLASH):</strong><br> </td>
      <td width="186" class="tdbg"> <input name="BannerUrl" type="text" id="BannerUrl" value="<%=BannerUrl%>" size="25" maxlength="255"> 
      </td>
      <td width="42" class="tdbg">高度:</td>
      <td width="127" class="tdbg"><input name="High" type="text" id="High" value="<%=High%>" size="6" maxlength="5"></td>
    </tr>
    <tr> 
      <td width="224" class="tdbg"><strong>站长姓名:</strong></td>
      <td colspan="3" class="tdbg"> <input name="WebmasterName" type="text" id="WebmasterName" value="<%=WebmasterName%>" size="40" maxlength="20"> 
      </td>
    </tr>
    <tr> 
      <td width="224" class="tdbg"><strong>站长信箱:</strong></td>
      <td colspan="3" class="tdbg"> <input name="WebmasterEmail" type="text" id="WebmasterEmail" value="<%=WebmasterEmail%>" size="40" maxlength="100"> 
      </td>
    </tr>
    <tr> 
      <td width="224" class="tdbg"><strong>版权信息:</strong><br>
        支持HTML标记,不能使用双引号</td>
      <td colspan="3" class="tdbg"> <textarea name="Copyright" cols="50" rows="8" id="Copyright"><%=Copyright%></textarea> 
      </td>
    </tr>
    <tr> 
      <td colspan="4" class="topbg"><strong>网站选项配置</strong></td>
    </tr>
    <tr> 
      <td class="tdbg"><strong>首页每页产品或文章数:</strong></td>
      <td colspan="3" class="tdbg"> <input name="MaxPerPage_Default" type="text" id="MaxPerPage_Default" value="<%=MaxPerPage_Default%>" size="6" maxlength="5"></td>
    </tr>
    <tr> 
      <td class="tdbg"><strong>产品搜索页每页文章数:</strong></td>
      <td colspan="3" class="tdbg"> <input name="MaxPerPage_Search" type="text" id="MaxPerPage_Search" value="<%=MaxPerPage_Search%>" size="6" maxlength="5"></td>
    </tr>
    <tr> 
      <td class="tdbg"><strong>产品内容是否分页显示:</strong></td>
      <td colspan="3" class="tdbg"> <input type="radio" name="ShowContentByPage" value="Yes" <%if ShowContentByPage="Yes" then response.write "checked"%>>
        是 &nbsp;&nbsp;&nbsp;&nbsp; <input type="radio" name="ShowPopMenu" value="No" <%if ShowPopMenu="No" then response.write "checked"%>>
        否</td>
    </tr>
    <tr> 
      <td class="tdbg"><strong>每页显示大约字符数:</strong></td>
      <td colspan="3" class="tdbg"> <input name="MaxPerPage_Content" type="text" id="MaxPerPage_Content" value="<%=MaxPerPage_Content%>" size="6" maxlength="5"></td>
    </tr>
    <tr> 
      <td class="tdbg"><strong>是否启用文章审核功能:</strong></td>
      <td colspan="3" class="tdbg"> <input type="radio" name="EnableArticleCheck" value="Yes" <%if EnableArticleCheck="Yes" then response.write "checked"%>>
        是 &nbsp;&nbsp;&nbsp;&nbsp; <input type="radio" name="ShowPopMenu" value="No" <%if ShowPopMenu="No" then response.write "checked"%>>
        否</td>
    </tr>
    <tr> 
      <td class="tdbg"><strong>是否开放文件上传:</strong></td>
      <td colspan="3" class="tdbg"> <input type="radio" name="EnableUploadFile" value="Yes" <%if EnableUploadFile="Yes" then response.write "checked"%>>
        是 &nbsp;&nbsp;&nbsp;&nbsp; <input type="radio" name="ShowPopMenu" value="No" <%if ShowPopMenu="No" then response.write "checked"%>>
        否</td>
    </tr>
    <tr> 
      <td class="tdbg"><strong>是否弹出公告窗口:</strong></td>
      <td colspan="3" class="tdbg"> <input type="radio" name="PopAnnounce" value="Yes" <%if PopAnnounce="Yes" then response.write "checked"%>>
        是 &nbsp;&nbsp;&nbsp;&nbsp; <input type="radio" name="ShowPopMenu" value="No" <%if ShowPopMenu="No" then response.write "checked"%>>
        否</td>
    </tr>
    <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>
        如果用“name@domain.com”这样的用户名登录时,请指明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>
    <%
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()
Response.Write"<script>alert('您现在使用的是千寻科技提供的免费版本!\n\n请到官方网站:http://www.ybwz.com获取正式版本!');history.back(-1);</script>"
end sub
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -