<%Set XML=Server.CreateObject("QuickWAP.XML") %>
<%if session("nyeee_admin")="" then
response.redirect "login.asp"
end if%>
<!-- #include file="../WAP/WapConfig/WapConfig.asp" -->
<%
'**************************************************
'函数名：IsObjInstalled
'作  用：检查组件是否已经安装
'参  数：strClassString ----组件名
'返回值：True  ----已经安装
'       False ----没有安装
'**************************************************
Function IsObjInstalled(strClassString)
	On Error Resume Next
	IsObjInstalled = False
	Err = 0
	Dim xTestObj
	Set xTestObj = Server.CreateObject(strClassString)
	If 0 = Err Then IsObjInstalled = True
	Set xTestObj = Nothing
	Err = 0
End Function
%>


<style>
td{font-size:9pt;line-height:120%;color:#353535} 
body{font-size:9pt;line-height:120%} 

a:link          { color: #000000; text-decoration: none }
a:visited       { color: #000000; text-decoration: none }
a:active        { color: #000000; text-decoration: none }
a:hover         { color: #336699; text-decoration: none; position: relative; right: 0px; top: 1px }
.pad {
	PADDING-LEFT: 2px
}
</style>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>企业黄页系统</title>
<style type="text/css">
<!-- 
td           { font-size: 12px; line-height: 17px }
body         { font-size: 12px; line-height: 17px }
p            { margin-top: 0px; margin-bottom: 0px }
form         { margin-top: 0px; margin-bottom: 0px }
a:link       { text-decoration: none; color: black }
a:visited    { text-decoration: none; color: black }
a:active     { text-decoration: none }
a:hover      { text-decoration: underline; color: red }
-->
</style>
</head>

<body>
<%
dim ObjInstalled,Action,FoundErr,ErrMsg
ObjInstalled=IsObjInstalled("Scripting.FileSystemObject")
Action=trim(request("Action"))
if Action="" then
	Action="ShowInfo"
end if
%>
<%
if Action="SaveConfig" then
	call SaveConfig()
	'Response.Redirect "WebBasicInfo.asp" 
end if
if FoundErr=True then
	call WriteErrMsg()
end if
%>


<table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#DEDFDE">
  <form name="myform" method="post" action="WebBasicInfo.asp?Action=SaveConfig">
    <tr bgcolor="#f7f7f7"> 
      <td colspan="2"><div align="center"><strong>网　站　基　本　设　置</strong></div></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="150" bgcolor="#FFFFFF">网站名称：</td>
      <td><input name="XML.SiteName" type="text" class="input_text" id="XML.SiteName" size="40" value="<%=XML.SiteName%>">
        公司网站的名称。 
        <input name="Action" type="hidden" id="Action" value="SaveConfig"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="150" bgcolor="#FFFFFF">网站WEB网址：</td>
      <td><input name="XML.SiteWebUrl" type="text" class="input_text" id="XML.SiteWebUrl" size="40" value="<%=XML.SiteWebUrl%>">
        公司网站的WEB地址。</td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="150" bgcolor="#FFFFFF">网站WAP网址：</td>
      <td><input name="XML.SiteWapUrl" type="text" class="input_text" id="XML.SiteWapUrl=" size="40" value="<%=XML.SiteWapUrl%>">
        公司网站的WAP地址。</td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="150" bgcolor="#FFFFFF">网站Logo图片地址：</td>
      <td><input name="XML.SiteLogo" type="text" class="input_text" id="XML.SiteLogo" size="40" value="<%=XML.SiteLogo%>">
        CDMA WAP1.2手机:PNG格式(256色)，文件不要太大。</td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="150" bgcolor="#FFFFFF">设置CSS样式的路径：</td>
      <td><input name="CSSFile" type="text" class="input_text" id="CSSFile" size="40" value="<%=CSSFile%>">
        默认为“Style.css”，位于根目录下。</td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td bgcolor="#FFFFFF">每页字数：</td>
      <td><input name="TextLong" type="text" class="input_text" id="TextLong" size="40" value="<%=TextLong%>">
        自动分页每次取得显示的字数，默认300。 </td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="150" bgcolor="#FFFFFF">默认Access路径：</td>
      <td><input name="XML.MdbPath" type="text" class="input_text" id="XML.MdbPath" size="40" value="<%=XML.MdbPath%>">
        数据库的路径。 </td>
    </tr>
	    <tr bgcolor="#FFFFFF"> 
      <td width="150" bgcolor="#FFFFFF">设置MSSQL路径：</td>
      <td><input name="XML.SqlStrConn" type="text" class="input_text" id="XML.SqlStrConn" size="40" value="<%=XML.SqlStrConn%>">
        目前仅支持MsSQL2000。</td>
    </tr>
    <tr bgcolor="#F7f7f7"> 
      <td colspan="2"><div align="center"><strong>邮 件 发 送　设　置 </strong></div></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="150" bgcolor="#FFFFFF">SMTP服务器验证登陆名：</td>
      <td><input name="XML.MailServerUserName" type="text" class="input_text" id="XML.MailServerUserName2" size="40" value="<%=XML.MailServerUserName%>">
        任何一个邮箱的邮件地址,如bicyle@126.com。</td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="150" bgcolor="#FFFFFF">Email帐号对应的密码：</td>
      <td><input name="XML.MailServerPassword" type="password" class="input_text" id="XML.MailServerPassword" size="40" value="<%=XML.MailServerPassword%>">
        当密码为空，则使用系统提供账户发送。 </td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td bgcolor="#FFFFFF">SMTP服务器地址：</td>
      <td><input name="XML.MailSmtp" type="text" class="input_text" id="XML.MailSmtp" size="40" value="<%=XML.MailSmtp%>">
        该邮箱所使用的SMTP地址。如smtp.126.com</td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="150" bgcolor="#FFFFFF">发送网站的名称：</td>
      <td><input name="XML.MailSiteName" type="text" class="input_text" id="XML.MailSiteName" size="40" value="<%=XML.MailSiteName%>"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="150" bgcolor="#FFFFFF">WEB网站的地址：</td>
      <td><input name="XML.MailWebUrl" type="text" class="input_text" id="XML.MailWebUrl" size="40" value="<%=XML.MailWebUrl%>"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="150" bgcolor="#FFFFFF">WAP网站的地址：</td>
      <td><input name="XML.MailWapUrl" type="text" class="input_text" id="XML.MailWapUrl" size="40" value="<%=XML.MailWapUrl%>"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="150" bgcolor="#FFFFFF">报告状态的文件名：</td>
      <td><input name="XML.MailResultFileName" type="text" class="input_text" id="XML.MailResultFileName" size="40" value="<%=XML.MailResultFileName%>">
        邮件发送完毕后转到的文件，一般不要修改。 </td>
    </tr>
    <tr bgcolor="#F7f7f7"> 
      <td colspan="2"><div align="center"><strong>　联 系 信 息 设　置 </strong></div></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td bgcolor="#FFFFFF">联系电话：</td>
      <td><input name="CompanyTelPhone" type="text" class="input_text" id="CompanyTelPhone" size="40" value="<%=CompanyTelPhone%>"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td bgcolor="#FFFFFF">联系传真：</td>
      <td><input name="CompanyFax" type="text" class="input_text" id="CompanyFax" size="40" value="<%=CompanyFax%>"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td bgcolor="#FFFFFF">联系地址：</td>
      <td><input name="CompanyAddress" type="text" class="input_text" id="CompanyAddress" size="40" value="<%=CompanyAddress%>"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td bgcolor="#FFFFFF">联系邮编：</td>
      <td><input name="CompanyPost" type="text" class="input_text" id="CompanyPost" size="40" value="<%=CompanyPost%>"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td bgcolor="#FFFFFF">站长手机：</td>
      <td><input name="CompanyPhone" type="text" class="input_text" id="CompanyPhone" size="40" value="<%=CompanyPhone%>"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td bgcolor="#FFFFFF">联系邮箱：</td>
      <td><input name="CompanyEmail" type="text" class="input_text" id="CompanyEmail" size="40" value="<%=CompanyEmail%>"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td bgcolor="#FFFFFF">网站简介：</td>
      <td><textarea name="CompanyInfo" cols="60" rows="5" id="CompanyInfo"><%=CompanyInfo%></textarea><br/>回车请用[br]不要含有特殊字符如"和'等。      </td>
    </tr>
    <tr bgcolor="#F7f7f7"> 
      <td colspan="2"><div align="center"><strong>　注 册 信 息 设　置 </strong></div></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td rowspan="3" bgcolor="#FFFFFF">注册码（任选其一）：</td>
      <td><input name="XML.SoftSerialNumber" type="text" class="input_text" id="XML.SoftSerialNumber" size="40" value="<%=XML.SoftSerialNumber%>">
        域名注册码。请登陆<a href="http://www.bicyle.org" target="_blank">中国被爱可以在线</a>注册。 </td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td><input name="XML.IPSerialNumber" type="text" class="input_text" id="XML.IPSerialNumber" size="40" value="<%=XML.IPSerialNumber%>" />
IP注册码。请登陆<a href="http://www.bicyle.org" target="_blank">中国被爱可以在线</a>注册。 </td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td><input name="XML.CdiskSerialNumber" type="text" class="input_text" id="XML.CdiskSerialNumber" size="40" value="<%=XML.CdiskSerialNumber%>" /> 
      C盘序列号注册码。请登陆<a href="http://www.bicyle.org" target="_blank">中国被爱可以在线</a>注册。 </td>
    </tr>
    <tr bgcolor="#F7f7f7"> 
      <td colspan="2"><div align="center"><strong>默 认 语 言 设　置 </strong></div></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td bgcolor="#FFFFFF">简繁体设置：</td>
      <td><input name="XML.ChineseType" type="text" class="input_text" id="XML.ChineseType" size="40" value="<%=XML.ChineseType%>">
        简体:Simple，繁体：Complex。</td>
    </tr>
	    <tr bgcolor="#F7f7f7"> 
      <td colspan="2"><div align="center"><strong>其 他 信 息 设 置</strong></div></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td bgcolor="#FFFFFF">ICP备案信息：</td>
      <td><input name="ICPNumber" type="text" class="input_text" id="ICPNumber" size="40" value="<%=ICPNumber%>"> 
        备案请到<a href="http://www.miibeian.gov.cn/" target="_blank">工业和信息化产业部</a></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td height="40" colspan="2" bgcolor="#FFFFFF"><div align="center"> 
          <input type="submit" name="Submit" value="　提　交　" class="input_submit">
          　　　　　 
          <input type="reset" name="Submit2" value=" 重　置 " class="input_submit">
        </div></td>
    </tr>
  </form>
</table>
<%
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("../WAP/WapConfig/WapConfig.asp"),true)
	hf.write "<" & "%" & vbcrlf
	hf.write "'设置网站信息。" & vbcrlf
	hf.write "XML.SiteName=" & chr(34) & trim(request("XML.SiteName")) & chr(34) & "            '设置网站的名称。" & vbcrlf
	hf.write "XML.SiteTitle=" & chr(34) & trim(request("XML.SiteName")) & chr(34) & "            '设置IE浏览时网站的标题。" & vbcrlf
	hf.write "XML.SiteWebUrl=" & chr(34) & trim(request("XML.SiteWebUrl")) & chr(34) & "        '网站WEB地址" & vbcrlf
	hf.write "XML.SiteWapUrl=" & chr(34) & trim(request("XML.SiteWapUrl")) & chr(34) & "        '网站WAP地址" & vbcrlf
	hf.write "XML.SiteLogo=" & chr(34) & trim(request("XML.SiteLogo")) & chr(34) & "            '设置首页的LOGO图片。" & vbcrlf
	hf.write "CSSFile=" & chr(34) & trim(request("CSSFile")) & chr(34) & "                        '设置CSS样式的文件地址。" & vbcrlf
	hf.write "XML.SqlStrConn=" & chr(34) & trim(request("XML.SqlStrConn")) & chr(34) & "              '设置MS SQL2000的路径。" & vbcrlf
	hf.write "'设置默认数据库的路径。" & vbcrlf
	hf.write "XML.MdbPath=" & chr(34) & trim(request("XML.MdbPath")) & chr(34) & vbcrlf
	hf.write "TextLong=" & chr(34) & trim(request("TextLong")) & chr(34) & "                    '每页字数" & vbcrlf
	hf.write "'设置公司联系信息" & vbcrlf
	hf.write "CompanyPhone=" & chr(34) & trim(request("CompanyPhone")) & chr(34) & vbcrlf
	hf.write "CompanyTelPhone=" & chr(34) & trim(request("CompanyTelPhone")) & chr(34) & vbcrlf
	hf.write "CompanyFax=" & chr(34) & trim(request("CompanyFax")) & chr(34) & vbcrlf
	hf.write "CompanyEmail=" & chr(34) & trim(request("CompanyEmail")) & chr(34) & vbcrlf
	hf.write "CompanyAddress=" & chr(34) & trim(request("CompanyAddress")) & chr(34) & vbcrlf
	hf.write "CompanyPost=" & chr(34) & trim(request("CompanyPost")) & chr(34) & vbcrlf
	hf.write "CompanyInfo=" & chr(34) & Replace(trim(request("CompanyInfo")),Chr(13) & Chr(10),"[br]") & chr(34) & vbcrlf
	hf.write "'以下为发邮件的信息设置。" & vbcrlf
	hf.write "XML.MailServerUserName=" & chr(34) & trim(request("XML.MailServerUserName")) & chr(34) & vbcrlf
	hf.write "XML.MailServerPassword=" & chr(34) & trim(request("XML.MailServerPassword")) & chr(34) & vbcrlf
	hf.write "XML.MailSmtp=" & chr(34) & trim(request("XML.MailSmtp")) & chr(34) & vbcrlf
	hf.write "XML.MailSiteName=" & chr(34) & trim(request("XML.MailSiteName")) & chr(34) & vbcrlf
	hf.write "XML.MailWebUrl=" & chr(34) & trim(request("XML.MailWebUrl")) & chr(34) & vbcrlf
	hf.write "XML.MailWapUrl=" & chr(34) & trim(request("XML.MailWapUrl")) & chr(34) & vbcrlf
	hf.write "XML.MailResultFileName=" & chr(34) & trim(request("XML.MailResultFileName")) & chr(34) & vbcrlf
	hf.write "'以下为系统注册序列号。" & vbcrlf
	hf.write "XML.SoftSerialNumber=" & chr(34) & trim(request("XML.SoftSerialNumber")) & chr(34) & "        '域名注册码。" & vbcrlf
	hf.write "XML.IPSerialNumber=" & chr(34) & trim(request("XML.IPSerialNumber")) & chr(34) & "        'IP注册码。" & vbcrlf	
	hf.write "XML.CDiskSerialNumber=" & chr(34) & trim(request("XML.CDiskSerialNumber")) & chr(34) & "        'C盘序列号注册码。" & vbcrlf		
	hf.write "'设置简体繁体" & vbcrlf
	hf.write "XML.ChineseType=" & chr(34) & trim(request("XML.ChineseType")) & chr(34) & "            '设置语言简繁体中文，简体:Simple ，繁体:Complex" & vbcrlf
	hf.write "'ICP备案" & vbcrlf
	hf.write "ICPNumber=" & chr(34) & trim(request("ICPNumber")) & chr(34) & "        'ICP备案号。" & vbcrlf
	hf.write "%" & ">"
	hf.close
	set hf=nothing
	set fso=nothing	
	Response.Write "<p align=center>修改成功，3秒后自动返回设置页！<script>window.setTimeout(""location.href='WebBasicInfo.asp'"",3000);</script></p>"
End Sub
%>
</body>                                                                                                                                 
</html>                                                                                                                                 
             