setsite.asp
来自「生成html的ASP企业站点,可以进行二次开发的」· ASP 代码 · 共 437 行 · 第 1/2 页
ASP
437 行
<%@ LANGUAGE = VBScript %>
<HTML xmlns="http://www.w3.org/1999/xhtml">
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312" />
<TITLE>网站信息设置</TITLE>
<link rel="stylesheet" href="Images/Admin.css">
<script language="javascript" src="../Script/Admin.js"></script>
</HEAD>
<!--#include file="../Include/Const.asp" -->
<!--#include file="../Include/ConnSiteData.asp" -->
<!--#include file="../Include/Version.asp" -->
<!--#include file="CheckAdmin.asp"-->
<BODY>
<%
Dim quanxian
quanxian=trim(Request.ServerVariables(name))
if Instr(session("AdminPurview"),"|1,")=0 then
response.write ("<br><br><div align=""center""><font style=""color:red; font-size:9pt; "")>您没有管理该模块的权限！</font></div>")
response.end
end If
%><%
dim rsscode
select case request.QueryString("Action")
case "Save"
SaveSiteInfo
case "SaveConst"
SaveConstInfo
case else
ViewSiteInfo
end select
%>
<br>
<table class="tableborder" width="95%" border="0" align="center" cellpadding="3" cellspacing="1">
<form name="editForm" method="post" action="?Action=Save">
<tr>
<th height="22" colspan="2">【系统主参数设置】</th>
</tr>
<tr>
<td width="20%" align="right" class="forumRow">网站标题：</td>
<td width="80%" class="forumRowHighlight"><input name="SiteTitleCH" type="text" id="SiteTitleCH" style="width: 280" value="<%=SiteTitleCH%>">
中文 <font color="red">*</font></td>
</tr>
<tr>
<td width="20%" align="right" class="forumRow">网站标题：</td>
<td width="80%" class="forumRowHighlight"><input name="SiteTitleEN" type="text" id="SiteTitleEN" style="width: 280" value="<%=SiteTitleEN%>">
英文 <font color="red">*</font></td>
</tr>
<tr>
<td align="right" class="forumRow">公司网址：</td>
<td class="forumRowHighlight"><input name="SiteUrl" type="text" id="SiteUrl" style="width: 280" value="<%=SiteUrl%>">
<font color="red">域名 *</font></td>
</tr>
<tr>
<td align="right" class="forumRow">公司名称：</td>
<td class="forumRowHighlight"><input name="ComNameCH" type="text" id="ComNameCH" style="width: 280" value="<%=ComNameCH%>">
中文 <font color="red">*</font></td>
</tr>
<tr>
<td align="right" class="forumRow">公司名称：</td>
<td class="forumRowHighlight"><input name="ComNameEN" type="text" id="ComNameEN" style="width: 280" value="<%=ComNameEN%>">
英文 <font color="red">*</font></td>
</tr>
<tr>
<td align="right" class="forumRow">详细地址：</td>
<td class="forumRowHighlight"><input name="AddressCH" type="text" id="AddressCH" style="width: 280" value="<%=AddressCH%>">
中文 <font color="red">*</font></td>
</tr>
<tr>
<td align="right" class="forumRow">详细地址：</td>
<td class="forumRowHighlight"><input name="AddressEN" type="text" id="AddressEN" style="width: 280" value="<%=AddressEN%>">
英文 <font color="red">*</font></td>
</tr> <tr>
<td align="right" class="forumRow">邮政编码：</td>
<td class="forumRowHighlight"><input name="ZipCode" type="text" id="ZipCode" style="width: 180" value="<%=ZipCode%>" maxlength="6"> <font color="red">*</font></td>
</tr>
<tr>
<td align="right" class="forumRow">联系电话：</td>
<td class="forumRowHighlight"><input name="Telephone" type="text" id="Telephone" style="width: 180" value="<%=Telephone%>"> <font color="red">*</font></td>
</tr>
<tr>
<td align="right" class="forumRow">传真号码：</td>
<td class="forumRowHighlight"><input name="Fax" type="text" id="Fax" style="width: 180" value="<%=Fax%>"> <font color="red">*</font></td>
</tr>
<tr>
<td align="right" class="forumRow">电子邮箱：</td>
<td class="forumRowHighlight"><input name="Email" type="text" id="Email" style="width: 180" value="<%=Email%>"> <font color="red">*</font></td>
</tr>
<tr><td align="right" class="forumRow">地图标注：</td>
<td class="forumRowHighlight"><input name="Emap" type="text" id="Emap" style="width: 180" value="<%=Emap%>"> <a href=javascript:ShowDialog("Map.asp?Action=Admin&xy="+document.editForm.Emap.value+"&Input=Emap",500,350)><font color="#FF0000">获取经纬度</span></a></<font color="red">*</font></td>
</tr>
<tr>
<td align="right" class="forumRow">中文Keywords优化：</td>
<td class="forumRowHighlight"><textarea name="KeywordsCH" rows="4" id="KeywordsCH" style="width: 500"><%=KeywordsCH%></textarea></td>
</tr>
<tr>
<td align="right" class="forumRow">中文Description优化：</td>
<td class="forumRowHighlight"><textarea name="DescriptionsCH" rows="4" id="DescriptionsCH" style="width: 500"><%=DescriptionsCH%></textarea></td>
</tr>
<tr>
<td align="right" class="forumRow">英文Keywords优化：</td>
<td class="forumRowHighlight"><textarea name="KeywordsEN" rows="4" id="KeywordsEN" style="width: 500"><%=KeywordsEN%></textarea></td>
</tr>
<tr>
<td align="right" class="forumRow">英文Description优化：</td>
<td class="forumRowHighlight"><textarea name="DescriptionsEN" rows="4" id="DescriptionsEN" style="width: 500"><%=DescriptionsEN%></textarea></td>
</tr>
<tr>
<td align="right" class="forumRow">ICP备案号：</td>
<td class="forumRowHighlight"><input name="IcpNumber" type="text" id="IcpNumber" style="width: 180" value="<%=IcpNumber%>"></td>
</tr>
<tr>
<td align="right" class="forumRow">首页视频地址：</td>
<td class="forumRowHighlight"><input name="Video" type="text" id="Video" style="width: 500" value="<%=Video%>">
视频格式支持：Mp3/Avi/Wmv/Asf/Mov/Rm/Ra/Ram/Rmvb/Swf</td>
</tr>
<tr>
<td align="right" class="forumRow">访客留言设置：</td>
<td class="forumRowHighlight"><input name="MesViewFlag" type="checkbox" id="MesViewFlag" value="1" <%if MesViewFlag then response.write ("checked")%>>无须审核</td>
</tr>
<tr>
<td align="right" class="forumRow">前台是否显示视频：</td>
<td class="forumRowHighlight"><input name="ssp" type="checkbox" id="ssp" value="1" <% if ssp then response.write ("checked") %>>显示视频(选上后在地图位置会出现企业视频)</td>
</tr>
</tr>
<tr>
<td align="right" class="forumRow">RSS设置：</td>
<td class="forumRowHighlight">
<input name="rssnews" type="checkbox" id="rssnews" value="1" <% if instr(rsscode,"n") > 0 then response.write ("checked") %>>采集新闻
<input name="rssporodute" type="checkbox" id="rssporodute" value="1" <% if instr(rsscode,"p") > 0 then response.write ("checked") %>>采集产品
<input name="rssdown" type="checkbox" id="rssdown" value="1" <% if instr(rsscode,"d") > 0 then response.write ("checked") %>>采集下载
</td>
</tr>
<tr>
<td align="right" class="forumRow"></td>
<td class="forumRowHighlight"><input name="submitSaveEdit" type="submit" id="submitSaveEdit" value="保存主参数设置"></td>
</tr>
</form>
</table>
<br>
<table class="tableborder" width="95%" border="0" align="center" cellpadding="3" cellspacing="1">
<form name="ConstForm" method="post" action="?Action=SaveConst">
<tr>
<th height="22" colspan="2">【附加参数设置】</th>
</tr>
<tr>
<td width="20%" align="right" class="forumRow">系统安装目录：</td>
<td width="80%" class="forumRowHighlight"><input name="SysRootDir" type="text" id="SysRootDir" style="width: 280" value="<%=SysRootDir%>">
<font color="red">*</font>使用绝对根路径,比方您的系统在网站空间根目录下的<font color="red">mmm</font>目录下,这里应该填<font color="red">/mmm/</font>必须以<font color="red">/</font>开头和结尾</td>
</tr>
<tr>
<td align="right" class="forumRow">网站数据库目录：</td>
<td class="forumRowHighlight"><input name="SiteDataPath" type="text" id="SiteDataPath" style="width: 280" value="<%=SiteDataPath%>"> <font color="red">*</font></td>
</tr>
<tr>
<td align="right" class="forumRow">网站数据库备份目录：</td>
<td class="forumRowHighlight"><input name="SiteDataBakPath" type="text" id="SiteDataBakPath" style="width: 280" value="<%=SiteDataBakPath%>"> <font color="red">*</font></td>
</tr>
<tr>
<td align="right" class="forumRow">统计数据库目录：</td>
<td class="forumRowHighlight"><input name="StatDataPath" type="text" id="StatDataPath" style="width: 280" value="<%=StatDataPath%>"> <font color="red">*</font></td>
</tr>
<tr>
<td align="right" class="forumRow">统计数据库备份目录：</td>
<td class="forumRowHighlight"><input name="StatDataBakPath" type="text" id="StatDataBakPath" style="width: 280" value="<%=StatDataBakPath%>"> <font color="red">*</font></td>
</tr>
<tr>
<td align="right" class="forumRow">是否启用防注入系统：</td>
<td class="forumRowHighlight"><input name="EnableStopInjection" type="radio" value="True" <%if EnableStopInjection=True then%> checked<%end if%>>启用 <input name="EnableStopInjection" type="radio" value="False">不启用 <font color="red">*</font></td>
</tr>
<tr>
<td align="right" class="forumRow">是否自动锁定注入的IP：</td>
<td class="forumRowHighlight"><input name="Kill_IP" type="radio" value="True" <%if Kill_IP=True then%> checked<%end if%>>启用 <input name="Kill_IP" type="radio" value="False">不启用 <font color="red">*</font></td>
</tr>
<tr>
<td align="right" class="forumRow">页面防刷新时间：</td>
<td class="forumRowHighlight"><input name="Refresh" type="text" id="Refresh" style="width: 80" value="<%=Refresh%>"> 秒 <font color="red">*</font></td>
</tr>
<tr>
<td align="right" class="forumRow">新闻模块单页调用条数：</td>
<td class="forumRowHighlight"><input name="NewInfo" type="text" id="NewInfo" style="width: 80" value="<%=NewInfo%>"> <font color="red">*</font></td>
</tr>
<tr>
<td align="right" class="forumRow">产品模块单页调用条数：</td>
<td class="forumRowHighlight"><input name="ProInfo" type="text" id="ProInfo" style="width: 80" value="<%=ProInfo%>"> <font color="red">*</font></td>
</tr>
<tr>
<td align="right" class="forumRow">人才模块单页调用条数：</td>
<td class="forumRowHighlight"><input name="JobInfo" type="text" id="JobInfo" style="width: 80" value="<%=JobInfo%>"> <font color="red">*</font></td>
</tr>
<tr>
<td align="right" class="forumRow">下载模块单页调用条数：</td>
<td class="forumRowHighlight"><input name="DownInfo" type="text" id="DownInfo" style="width: 80" value="<%=DownInfo%>"> <font color="red">*</font></td>
</tr>
<tr>
<td align="right" class="forumRow">其他信息单页调用条数：</td>
<td class="forumRowHighlight"><input name="OtherInfo" type="text" id="OtherInfo" style="width: 80" value="<%=OtherInfo%>"> <font color="red">*</font></td>
</tr>
<tr>
<td align="right" class="forumRow">留言模块单页调用条数：</td>
<td class="forumRowHighlight"><input name="MessageInfo" type="text" id="MessageInfo" style="width: 80" value="<%=MessageInfo%>"> <font color="red">*</font></td>
</tr>
<tr>
<td align="right" class="forumRow">是否生成静态页面：</td>
<td class="forumRowHighlight"><input name="ISHTML" type="radio" value="1" <%if ISHTML=1 then%> checked<%end if%>>生成静态HTML <input name="ISHTML" type="radio" value="0" <%if ISHTML=0 then%> checked<%end if%>>不生成 <font color="red">*</font></td>
</tr> <tr>
<td align="right" class="forumRow">生成静态页面后缀：</td>
<td class="forumRowHighlight"><input name="HTMLName" type="text" id="HTMLName" style="width: 80" value="<%=HTMLName%>"> <font color="red">*</font> 如：New.html中“html”即为后缀。可设置如：html、htm、Asp</td>
</tr>
<tr>
<td align="right" class="forumRow">新闻分类生成前缀：</td>
<td class="forumRowHighlight"><input name="NewSortName" type="text" id="NewSortName" style="width: 180" value="<%=NewSortName%>"> <font color="red">*</font> 如：New-1.html中“New”即为前缀</td>
</tr>
<tr>
<td align="right" class="forumRow">新闻详细页生成前缀：</td>
<td class="forumRowHighlight"><input name="NewName" type="text" id="NewName" style="width: 180" value="<%=NewName%>"> <font color="red">*</font></td>
</tr>
<tr>
<td align="right" class="forumRow">产品分类生成前缀：</td>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?