开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > WEB源码(ASP,PHP,...) > 查看源码
SetSite.asp
资源名称：utifulstyleatmosphereFLASH.rar　[点击查看]
上传用户：mtjhgs
上传日期：2021-12-08
资源大小：3755k
文件大小：23k
源码类别：

WEB源码(ASP,PHP,...)

开发平台：

HTML/CSS

SetSite.asp：源码内容
  1. <%@ LANGUAGE = VBScript.Encode %>
  2. <HTML xmlns="http://www.w3.org/1999/xhtml">
  3. <HEAD>
  4. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312" />
  5. <TITLE>网站信息设置</TITLE>
  6. <link rel="stylesheet" href="Images/Admin.css">
  7. <script language="javascript" src="../Script/Admin.js"></script>
  8. <style type="text/css">
  9. <!--
  10. .STYLE1 {color: #FF0000}
  11. -->
  12. </style>
  13. </HEAD>
  14. <!--#include file="../Include/Const.asp" -->
  15. <!--#include file="../Include/ConnSiteData.asp" -->
  16. <!--#include file="../Include/Version.asp" -->
  17. <!--#include file="CheckAdmin.asp"-->
  18. <BODY>
  19. <%
  20. if Instr(session("AdminPurview"),"|1,")=0 then
  21.   response.write ("<br><br><div align=""center""><font style=""color:red; font-size:9pt; "")>您没有管理该模块的权限！</font></div>")
  22.   response.end
  23. end If
  24. %>
  25. <%
  26. select case request.QueryString("Action")
  27.   case "Save"
  28.     SaveSiteInfo
  29.   case "SaveConst"
  30.     SaveConstInfo
  31.   case else
  32.     ViewSiteInfo
  33. end select
  34. %>
  35. <br>
  36. <table class="tableborder" width="95%" border="0" align="center" cellpadding="3" cellspacing="1">
  37. <form name="editForm" method="post" action="?Action=Save">
  38.   <tr>
  39.     <th height="22" colspan="2">【系统主参数设置】</th>
  40.   </tr>
  41.   <tr>
  42.     <td width="20%" align="right" class="forumRow">网站标题：</td>
  43.     <td width="80%" class="forumRowHighlight"><input name="SiteTitleCH" type="text" id="SiteTitleCH" style="width: 280" value="<%=SiteTitleCH%>">      
  44.        中文 <font color="red">*</font></td>
  45.   </tr>
  46.   <tr>
  47.     <td width="20%" align="right" class="forumRow">网站标题：</td>
  48.     <td width="80%" class="forumRowHighlight"><input name="SiteTitleEN" type="text" id="SiteTitleEN" style="width: 280" value="<%=SiteTitleEN%>">
  49.       英文 <font color="red">*</font></td>
  50.   </tr>
  51.     <tr>
  52.     <td align="right" class="forumRow">公司网址：</td>
  53.     <td class="forumRowHighlight"><input name="SiteUrl" type="text" id="SiteUrl" style="width: 280" value="<%=SiteUrl%>"> 
  54.       <font color="red">域名 *</font></td>
  55.   </tr>
  56.   <tr>
  57.     <td align="right" class="forumRow">公司名称：</td>
  58.     <td class="forumRowHighlight"><input name="ComNameCH" type="text" id="ComNameCH" style="width: 280" value="<%=ComNameCH%>">      
  59.        中文 <font color="red">*</font></td>
  60.   </tr>
  61.   <tr>
  62.     <td align="right" class="forumRow">公司名称：</td>
  63.     <td class="forumRowHighlight"><input name="ComNameEN" type="text" id="ComNameEN" style="width: 280" value="<%=ComNameEN%>">      
  64.        英文 <font color="red">*</font></td>
  65.   </tr>
  66.     <tr>
  67.     <td align="right" class="forumRow">详细地址：</td>
  68.     <td class="forumRowHighlight"><input name="AddressCH" type="text" id="AddressCH" style="width: 280" value="<%=AddressCH%>">      
  69.        中文 <font color="red">*</font></td>
  70.   </tr>
  71.     <tr>
  72.     <td align="right" class="forumRow">详细地址：</td>
  73.     <td class="forumRowHighlight"><input name="AddressEN" type="text" id="AddressEN" style="width: 280" value="<%=AddressEN%>">      
  74.        英文 <font color="red">*</font></td>
  75.   </tr>  <tr>
  76.     <td align="right" class="forumRow">邮政编码：</td>
  77.     <td class="forumRowHighlight"><input name="ZipCode" type="text" id="ZipCode" style="width: 180" value="<%=ZipCode%>" maxlength="6"> <font color="red">*</font></td>
  78.   </tr>
  79.   <tr>
  80.     <td align="right" class="forumRow">联系电话：</td>
  81.     <td class="forumRowHighlight"><input name="Telephone" type="text" id="Telephone" style="width: 180" value="<%=Telephone%>"> <font color="red">*</font></td>
  82.   </tr>
  83.   <tr>
  84.     <td align="right" class="forumRow">传真号码：</td>
  85.     <td class="forumRowHighlight"><input name="Fax" type="text" id="Fax" style="width: 180" value="<%=Fax%>"> <font color="red">*</font></td>
  86.   </tr>
  87.   <tr>
  88.     <td align="right" class="forumRow">电子邮箱：</td>
  89.     <td class="forumRowHighlight"><input name="Email" type="text" id="Email" style="width: 180" value="<%=Email%>"> <font color="red">*</font></td>
  90.   </tr>
  91.     <tr><td align="right" class="forumRow">地图标注：</td>
  92.     <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>
  93.   </tr>
  94.   <tr>
  95.     <td align="right" class="forumRow">中文Keywords优化：</td>
  96.     <td class="forumRowHighlight"><textarea name="KeywordsCH" rows="4"  id="KeywordsCH" style="width: 500"><%=KeywordsCH%></textarea></td>
  97.   </tr>
  98.   <tr>
  99.     <td align="right" class="forumRow">中文Description优化：</td>
  100.     <td class="forumRowHighlight"><textarea name="DescriptionsCH" rows="4" id="DescriptionsCH" style="width: 500"><%=DescriptionsCH%></textarea></td>
  101.   </tr>
  102.   <tr>
  103.     <td align="right" class="forumRow">英文Keywords优化：</td>
  104.     <td class="forumRowHighlight"><textarea name="KeywordsEN" rows="4"  id="KeywordsEN" style="width: 500"><%=KeywordsEN%></textarea></td>
  105.   </tr>
  106.   <tr>
  107.     <td align="right" class="forumRow">英文Description优化：</td>
  108.     <td class="forumRowHighlight"><textarea name="DescriptionsEN" rows="4" id="DescriptionsEN" style="width: 500"><%=DescriptionsEN%></textarea></td>
  109.   </tr>
  110.   <tr>
  111.     <td align="right" class="forumRow">ICP备案号：</td>
  112.     <td class="forumRowHighlight"><input name="IcpNumber" type="text" id="IcpNumber" style="width: 180" value="<%=IcpNumber%>"></td>
  113.   </tr>
  114.   <tr>
  115.     <td align="right" class="forumRow">首页视频地址：</td>
  116.     <td class="forumRowHighlight"><input name="Video" type="text" id="Video" style="width: 500" value="<%=Video%>">
  117.       视频格式支持：Mp3/Avi/Wmv/Asf/Mov/Rm/Ra/Ram/Rmvb/Swf</td>
  118.   </tr>
  119.   <tr>
  120.     <td align="right" class="forumRow">访客留言设置：</td>
  121.     <td class="forumRowHighlight"><input name="MesViewFlag" type="checkbox" id="MesViewFlag" value="1" <%if MesViewFlag then response.write ("checked")%>>无须审核</td>
  122.   </tr>
  123.     <tr>
  124.     <td align="right" class="forumRow">前台公告类型设置：</td>
  125.     <td class="forumRowHighlight"><input name="ssp" type="checkbox" id="ssp" value="1"  <% if ssp then response.write ("checked") %>>显示视频</td>
  126.   </tr>
  127.     </tr>
  128.     <tr>
  129.     <td align="right" class="forumRow">RSS设置：</td>
  130.     <td class="forumRowHighlight">
  131.     <input name="rssnews" type="checkbox" id="rssnews" value="1"  <% if instr(rsscode,"n") > 0   then response.write ("checked") %>>采集新闻
  132.     <input name="rssporodute" type="checkbox" id="rssporodute" value="1"  <% if instr(rsscode,"p") > 0 then response.write ("checked") %>>采集产品
  133.     <input name="rssdown" type="checkbox" id="rssdown" value="1"  <% if instr(rsscode,"d") > 0 then response.write ("checked") %>>采集下载 
  134.     </td>
  135.   </tr>
  136.   <tr>
  137.     <td align="right" class="forumRow"></td>
  138.     <td class="forumRowHighlight"><input name="submitSaveEdit" type="submit" id="submitSaveEdit" value="保存主参数设置"></td>
  139.   </tr>
  140.   </form>
  141. </table>
  142. <br>
  143. <table class="tableborder" width="95%" border="0" align="center" cellpadding="3" cellspacing="1">
  144. <form name="ConstForm" method="post" action="?Action=SaveConst">
  145.   <tr>
  146.     <th height="22" colspan="2">【附加参数设置】</th>
  147.   </tr>
  148.   <tr>
  149.     <td width="20%" align="right" class="forumRow">系统安装目录：</td>
  150.     <td width="80%" class="forumRowHighlight"><input name="SysRootDir" type="text" id="SysRootDir" style="width: 280" value="<%=SysRootDir%>"> 
  151.       <font color="red">*</font>使用绝对根路径,比方您的系统在网站空间根目录下的<font color="red">mmm</font>目录下,这里应该填<font color="red">/mmm/</font>必须以<font color="red">/</font>开头和结尾</td>
  152.   </tr>
  153.   <tr>
  154.     <td align="right" class="forumRow">网站数据库目录：</td>
  155.     <td class="forumRowHighlight"><input name="SiteDataPath" type="text" id="SiteDataPath" style="width: 280" value="<%=SiteDataPath%>"> <font color="red">*</font></td>
  156.   </tr>
  157.     <tr>
  158.     <td align="right" class="forumRow">网站数据库备份目录：</td>
  159.     <td class="forumRowHighlight"><input name="SiteDataBakPath" type="text" id="SiteDataBakPath" style="width: 280" value="<%=SiteDataBakPath%>"> <font color="red">*</font></td>
  160.   </tr>
  161.     <tr>
  162.     <td align="right" class="forumRow">统计数据库目录：</td>
  163.     <td class="forumRowHighlight"><input name="StatDataPath" type="text" id="StatDataPath" style="width: 280" value="<%=StatDataPath%>"> <font color="red">*</font></td>
  164.   </tr>
  165.     <tr>
  166.     <td align="right" class="forumRow">统计数据库备份目录：</td>
  167.     <td class="forumRowHighlight"><input name="StatDataBakPath" type="text" id="StatDataBakPath" style="width: 280" value="<%=StatDataBakPath%>"> <font color="red">*</font></td>
  168.   </tr>
  169.   <tr>
  170.     <td align="right" class="forumRow">是否启用防注入系统：</td>
  171.     <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>
  172.   </tr>
  173.     <tr>
  174.     <td align="right" class="forumRow">是否自动锁定注入的IP：</td>
  175.     <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>
  176.   </tr>
  177.   <tr>
  178.     <td align="right" class="forumRow">页面防刷新时间：</td>
  179.     <td class="forumRowHighlight"><input name="Refresh" type="text" id="Refresh" style="width: 80" value="<%=Refresh%>"> 秒 <font color="red">*</font></td>
  180.   </tr>
  181.   <tr>
  182.     <td align="right" class="forumRow">新闻模块单页调用条数：</td>
  183.     <td class="forumRowHighlight"><input name="NewInfo" type="text" id="NewInfo" style="width: 80" value="<%=NewInfo%>"> <font color="red">*</font></td>
  184.   </tr>
  185.   <tr>
  186.     <td align="right" class="forumRow">产品模块单页调用条数：</td>
  187.     <td class="forumRowHighlight"><input name="ProInfo" type="text" id="ProInfo" style="width: 80" value="<%=ProInfo%>"> <font color="red">*</font></td>
  188.   </tr>
  189.   <tr>
  190.     <td align="right" class="forumRow">人才模块单页调用条数：</td>
  191.     <td class="forumRowHighlight"><input name="JobInfo" type="text" id="JobInfo" style="width: 80" value="<%=JobInfo%>"> <font color="red">*</font></td>
  192.   </tr>
  193.   <tr>
  194.     <td align="right" class="forumRow">下载模块单页调用条数：</td>
  195.     <td class="forumRowHighlight"><input name="DownInfo" type="text" id="DownInfo" style="width: 80" value="<%=DownInfo%>"> <font color="red">*</font></td>
  196.   </tr>
  197.   <tr>
  198.     <td align="right" class="forumRow">其他信息单页调用条数：</td>
  199.     <td class="forumRowHighlight"><input name="OtherInfo" type="text" id="OtherInfo" style="width: 80" value="<%=OtherInfo%>"> <font color="red">*</font></td>
  200.   </tr>
  201.   <tr>
  202.     <td align="right" class="forumRow">留言模块单页调用条数：</td>
  203.     <td class="forumRowHighlight"><input name="MessageInfo" type="text" id="MessageInfo" style="width: 80" value="<%=MessageInfo%>"> <font color="red">*</font></td>
  204.   </tr>
  205.   <tr>
  206.     <td align="right" class="forumRow">是否生成静态页面：</td>
  207.     <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>
  208.   </tr>    <tr>
  209.     <td align="right" class="forumRow">生成静态页面后缀：</td>
  210.     <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>
  211.   </tr>
  212.   <tr>
  213.     <td align="right" class="forumRow">新闻分类生成前缀：</td>
  214.     <td class="forumRowHighlight"><input name="NewSortName" type="text" id="NewSortName" style="width: 180" value="<%=NewSortName%>"> <font color="red">*</font> 如：New-1.html中“New”即为前缀</td>
  215.   </tr>
  216.   <tr>
  217.     <td align="right" class="forumRow">新闻详细页生成前缀：</td>
  218.     <td class="forumRowHighlight"><input name="NewName" type="text" id="NewName" style="width: 180" value="<%=NewName%>"> <font color="red">*</font></td>
  219.   </tr>
  220.   <tr>
  221.     <td align="right" class="forumRow">产品分类生成前缀：</td>
  222.     <td class="forumRowHighlight"><input name="ProSortName" type="text" id="ProSortName" style="width: 180" value="<%=ProSortName%>"> <font color="red">*</font></td>
  223.   </tr>
  224.   <tr>
  225.     <td align="right" class="forumRow">产品详细页生成前缀：</td>
  226.     <td class="forumRowHighlight"><input name="ProName" type="text" id="ProName" style="width: 180" value="<%=ProName%>"> <font color="red">*</font></td>
  227.   </tr>
  228.   <tr>
  229.     <td align="right" class="forumRow">下载分类生成前缀：</td>
  230.     <td class="forumRowHighlight"><input name="DownSortName" type="text" id="DownSortName" style="width: 180" value="<%=DownSortName%>"> <font color="red">*</font></td>
  231.   </tr>
  232.   <tr>
  233.     <td align="right" class="forumRow">下载详细页生成前缀：</td>
  234.     <td class="forumRowHighlight"><input name="DownNameDiy" type="text" id="DownNameDiy" style="width: 180" value="<%=DownNameDiy%>"> <font color="red">*</font></td>
  235.   </tr>
  236.   <tr>
  237.     <td align="right" class="forumRow">其他信息分类生成前缀：</td>
  238.     <td class="forumRowHighlight"><input name="OtherSortName" type="text" id="OtherSortName" style="width: 180" value="<%=OtherSortName%>"> <font color="red">*</font></td>
  239.   </tr>
  240.   <tr>
  241.     <td align="right" class="forumRow">其他信息详细页生成前缀：</td>
  242.     <td class="forumRowHighlight"><input name="OtherName" type="text" id="OtherName" style="width: 180" value="<%=OtherName%>"> <font color="red">*</font></td>
  243.   </tr>
  244.   <tr>
  245.     <td align="right" class="forumRow">人才分类生成前缀：</td>
  246.     <td class="forumRowHighlight"><input name="JobSortName" type="text" id="JobSortName" style="width: 180" value="<%=JobSortName%>"> <font color="red">*</font></td>
  247.   </tr>
  248.   <tr>
  249.     <td align="right" class="forumRow">人才详细页生成前缀：</td>
  250.     <td class="forumRowHighlight"><input name="JobNameDiy" type="text" id="JobNameDiy" style="width: 180" value="<%=JobNameDiy%>"> <font color="red">*</font></td>
  251.   </tr>
  252.   <tr>
  253.     <td align="right" class="forumRow">企业信息生成前缀：</td>
  254.     <td class="forumRowHighlight"><input name="AboutNameDiy" type="text" id="AboutNameDiy" style="width: 180" value="<%=AboutNameDiy%>"> <font color="red">*</font></td>
  255.   </tr>
  256.   <tr>
  257.     <td align="right" class="forumRow">分隔符：</td>
  258.     <td class="forumRowHighlight"><input name="Separated" type="text" id="Separated" style="width: 80" value="<%=Separated%>"> <font color="red">*</font> 如：New-1.html中的“-”即为分隔符</td>
  259.   </tr>
  260.   <tr>
  261.     <td align="right" class="forumRow"></td>
  262.     <td class="forumRowHighlight"><input name="submitSaveEdit" type="submit" id="submitSaveEdit" value="保存附加参数设置">
  263.       </td>
  264.   </tr>
  265.   </form>
  266. </table>
  267. </BODY>
  268. </HTML>
  269. <%
  270. function SaveSiteInfo()
  271.   if len(trim(request.Form("SiteTitleCh")))<1 or len(trim(request.Form("SiteTitleEn")))<1 then
  272.     response.write ("<script language=javascript> alert('""中文，英文""网站标题不能少于1个字符！');history.back(-1);</script>")
  273.     response.end
  274.   end if
  275.    if len(trim(request.Form("SiteUrl")))<10 then
  276.     response.write ("<script language=javascript> alert('网站网址不能为空，具不少于10个字符！');history.back(-1);</script>")
  277.     response.end
  278.   end if 
  279.   if len(trim(request.Form("SiteUrl")))<9 then
  280. response.write "<script language='JavaScript'>alert('请详细填写您的公司网址！');" & "history.back()" & "</script>"
  281.     response.end
  282.   end if
  283.   if len(trim(request.Form("ComNameCh")))<1 or len(trim(request.Form("ComNameEn")))<1 then
  284.     response.write ("<script language=javascript> alert('""中文，英文""公司名称不能少于1个字符！');history.back(-1);</script>")
  285.     response.end
  286.   end if 
  287.   if len(trim(request.Form("AddressCh")))<1 or len(trim(request.Form("AddressEn")))<1 then
  288.     response.write ("<script language=javascript> alert('""中文，英文""公司地址不能少于3个字符！');history.back(-1);</script>")
  289.     response.end
  290.   end if
  291.   if len(trim(request.Form("ZipCode")))<6 then
  292. response.write "<script language='JavaScript'>alert('请详细填写邮政编码并保持至少在6个字符以上！');" & "history.back()" & "</script>"
  293.     response.end
  294.   end if
  295.   if len(trim(request.Form("Telephone")))<11 then
  296. response.write "<script language='JavaScript'>alert('请详细填写联系电话并保持至少在11个字符以上！');" & "history.back()" & "</script>"
  297.     response.end
  298.   end if
  299.   if len(trim(request.Form("Fax")))<11 then
  300. response.write "<script language='JavaScript'>alert('请详细填写传真号码并保持至少在11个字符以上！');" & "history.back()" & "</script>"
  301.     response.end
  302.   end if
  303.   if len(trim(request.Form("Email")))<6 then
  304. response.write "<script language='JavaScript'>alert('请详细填写电子邮箱地址并保持至少在6个字符以上！');" & "history.back()" & "</script>"
  305.     response.end
  306.   end if
  307.   dim rs,sql
  308.   set rs = server.createobject("adodb.recordset")
  309.   sql="select top 1 * from Wygkcnflash_Site"
  310.   rs.open sql,conn,1,3
  311.   rs("SiteTitleCH")=trim(Request.Form("SiteTitleCH"))
  312.   rs("SiteTitleEN")=trim(Request.Form("SiteTitleEN"))
  313.   rs("SiteUrl")=trim(Request.Form("SiteUrl"))
  314.   rs("ComNameCH")=trim(Request.Form("ComNameCH"))
  315.   rs("ComNameEN")=trim(Request.Form("ComNameEN"))
  316.   rs("AddressCH")=trim(Request.Form("AddressCH"))
  317.   rs("AddressEN")=trim(Request.Form("AddressEN"))
  318.   rs("ZipCode")=trim(Request.Form("ZipCode"))
  319.   rs("Telephone")=trim(Request.Form("Telephone"))
  320.   rs("Fax")=trim(Request.Form("Fax"))
  321.   rs("Email")=trim(Request.Form("Email"))
  322.   rs("Emap")=trim(Request.Form("Emap"))
  323.   rs("KeywordsCH")=trim(Request.Form("KeywordsCH"))
  324.   rs("KeywordsEN")=trim(Request.Form("KeywordsEN"))
  325.   rs("DescriptionsCH")=trim(Request.Form("DescriptionsCH"))
  326.   rs("DescriptionsEN")=trim(Request.Form("DescriptionsEN"))
  327.   rs("IcpNumber")=trim(Request.Form("IcpNumber"))
  328.   rs("Video")=trim(Request.Form("Video"))
  329.   if Request.Form("MesViewFlag")=1 then
  330.     rs("MesViewFlag")=Request.Form("MesViewFlag")
  331.     Conn.execute "alter table Wygkcnflash_Message alter column ViewFlagCh bit default 1"
  332.     Conn.execute "alter table Wygkcnflash_Message alter column ViewFlagEn bit default 1"
  333.   else
  334.     rs("MesViewFlag")=0
  335.     Conn.execute "alter table Wygkcnflash_Message alter column ViewFlagCh bit default 0"
  336.     Conn.execute "alter table Wygkcnflash_Message alter column ViewFlagEn bit default 0"
  337.   end if
  338.  if Request.Form("ssp")=1 then
  339.     rs("ssp")=Request.Form("ssp")
  340.     Conn.execute "alter table Wygkcnflash_Message alter column sspCh bit default 1"
  341.     Conn.execute "alter table Wygkcnflash_Message alter column sspEn bit default 1"
  342.   else
  343.     rs("ssp")=0
  344.     Conn.execute "alter table Wygkcnflash_Message alter column sspCh bit default 0"
  345.     Conn.execute "alter table Wygkcnflash_Message alter column sspEn bit default 0"
  346.   end if
  347.   dim rsssite
  348.   if  request.form("rssnews") = 1 then
  349.        rsssite = rsssite + "n"
  350.   end if
  351.   
  352.     if  request.form("rssporodute") = 1 then
  353.        rsssite = rsssite + "p"
  354.   end if
  355.   
  356.     if  request.form("rssdown") = 1 then
  357.        rsssite = rsssite + "d"
  358.   end if
  359. rs("rsssite") = rsssite
  360.   rs.update
  361.   rs.close
  362.   set rs=nothing
  363.   response.write "<script language='javascript'>alert('系统主参数设置成功！');location.replace('SetSite.asp');</script>"
  364. end function
  366. function ViewSiteInfo()
  367.   dim rs,sql
  368.   set rs = server.createobject("adodb.recordset")
  369.   sql="select top 1 * from Wygkcnflash_Site"
  370.   rs.open sql,conn,1,1
  371.   if rs.bof and rs.eof then
  372. response.write ("<br><br><div align=""center""><font style=""color:red;font-size:9pt; "")>数据库记录读取错误！</font></div>")
  373.     response.end
  374.   else
  375.     SiteTitleCH=rs("SiteTitleCH")
  376.     SiteTitleEN=rs("SiteTitleEN")
  377.     SiteUrl=rs("SiteUrl")
  378.     ComNameCH=rs("ComNameCH")
  379.     ComNameEN=rs("ComNameEN")
  380.     AddressCH=rs("AddressCH") 
  381.     AddressEN=rs("AddressEN")
  382.     ZipCode=rs("ZipCode")
  383.     Telephone=rs("Telephone")
  384.     Fax=rs("Fax")
  385.     Email=rs("Email")
  386. Emap=rs("Emap")
  387.     KeywordsCH=rs("KeywordsCH")
  388.     KeywordsEN=rs("KeywordsEN")
  389.     DescriptionsCH=rs("DescriptionsCH")
  390.     DescriptionsEN=rs("DescriptionsEN")
  391.     IcpNumber=rs("IcpNumber")
  392. MesViewFlag=rs("MesViewFlag")
  393. Video=rs("Video")
  394. ssp=rs("ssp")
  395. rsscode=rs("rssSite")
  396.     rs.close
  397.     set rs=nothing
  398.   end if
  399. End Function
  401. Function SaveConstInfo()
  402.  set fso=Server.CreateObject("Scripting.FileSystemObject")
  403.  set hf=fso.CreateTextFile(Server.mappath("../Include/Const.asp"),true)
  404.  hf.write "<" & "%" & vbcrlf
  405.  hf.write "Const SysRootDir = " & chr(34) & ReplaceConstChar(trim(request("SysRootDir"))) & chr(34) & "" & vbcrlf
  406.  hf.write "Const SiteDataPath = " & chr(34) & ReplaceConstChar(trim(request("SiteDataPath"))) & chr(34) & "" & vbcrlf
  407.  hf.write "Const SiteDataBakPath = " & chr(34) & ReplaceConstChar(trim(request("SiteDataBakPath"))) & chr(34) & "" & vbcrlf
  408.  hf.write "Const StatDataPath = " & chr(34) & ReplaceConstChar(trim(request("StatDataPath"))) & chr(34) & "" & vbcrlf
  409.  hf.write "Const StatDataBakPath = " & chr(34) & ReplaceConstChar(trim(request("StatDataBakPath"))) & chr(34) & "" & vbcrlf
  410.  hf.write "Const EnableStopInjection = " & ReplaceConstChar(trim(request("EnableStopInjection"))) & "" & vbcrlf
  411.  hf.write "Const Kill_ip = " & ReplaceConstChar(trim(request("Kill_ip"))) & "" & vbcrlf
  412.  hf.write "Const Refresh = " & ReplaceConstChar(trim(request("Refresh"))) & "" & vbcrlf
  413.  hf.write "Const NewInfo = " & ReplaceConstChar(trim(request("NewInfo"))) & "" & vbcrlf
  414.  hf.write "Const ProInfo = " & ReplaceConstChar(trim(request("ProInfo"))) & "" & vbcrlf
  415.  hf.write "Const JobInfo = " & ReplaceConstChar(trim(request("JobInfo"))) & "" & vbcrlf
  416.  hf.write "Const DownInfo = " & ReplaceConstChar(trim(request("DownInfo"))) & "" & vbcrlf
  417.  hf.write "Const OtherInfo = " & ReplaceConstChar(trim(request("OtherInfo"))) & "" & vbcrlf
  418.  hf.write "Const MessageInfo = " & ReplaceConstChar(trim(request("MessageInfo"))) & "" & vbcrlf
  419.  hf.write "Const ISHTML = " & ReplaceConstChar(trim(request("ISHTML"))) & "" & vbcrlf
  420.  hf.write "Const HTMLName = " & chr(34) & ReplaceConstChar(trim(request("HTMLName"))) & chr(34) & "" & vbcrlf
  421.  hf.write "Const NewSortName = " & chr(34) & ReplaceConstChar(trim(request("NewSortName"))) & chr(34) & "" & vbcrlf
  422.  hf.write "Const NewName = " & chr(34) & ReplaceConstChar(trim(request("NewName"))) & chr(34) & "" & vbcrlf
  423.  hf.write "Const ProSortName = " & chr(34) & ReplaceConstChar(trim(request("ProSortName"))) & chr(34) & "" & vbcrlf
  424.  hf.write "Const ProName = " & chr(34) & ReplaceConstChar(trim(request("ProName"))) & chr(34) & "" & vbcrlf
  425.  hf.write "Const DownSortName = " & chr(34) & ReplaceConstChar(trim(request("DownSortName"))) & chr(34) & "" & vbcrlf
  426.  hf.write "Const DownNameDiy = " & chr(34) & ReplaceConstChar(trim(request("DownNameDiy"))) & chr(34) & "" & vbcrlf
  427.  hf.write "Const OtherSortName = " & chr(34) & ReplaceConstChar(trim(request("OtherSortName"))) & chr(34) & "" & vbcrlf
  428.  hf.write "Const OtherName = " & chr(34) & ReplaceConstChar(trim(request("OtherName"))) & chr(34) & "" & vbcrlf
  429.  hf.write "Const JobSortName = " & chr(34) & ReplaceConstChar(trim(request("JobSortName"))) & chr(34) & "" & vbcrlf
  430.  hf.write "Const JobNameDiy = " & chr(34) & ReplaceConstChar(trim(request("JobNameDiy"))) & chr(34) & "" & vbcrlf
  431.  hf.write "Const AboutNameDiy = " & chr(34) & ReplaceConstChar(trim(request("AboutNameDiy"))) & chr(34) & "" & vbcrlf
  432.  hf.write "Const Separated = " & chr(34) & ReplaceConstChar(trim(request("Separated"))) & chr(34) & "" & vbcrlf
  433.  hf.write "%" & ">"
  434.  hf.close
  435.  set hf=nothing
  436.  set fso=nothing
  437.  response.Write "<script language=javascript>alert('系统附加参数设置成功！');location.href='SetSite.asp';</script>"
  438. End Function
  439. %>