<!--#include file = "Startup.asp"-->
<!-- #include file="Function.asp" -->
<%Set Wap=Server.CreateObject("QuickWAP.WAP") %>
<!-- #include file="../WapConfig/WapConfig.asp" -->
<%
call adminer()
Call Header()
Call ComeUrl()
%>
<%
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="Wap.SiteName" type="text" class="input_text" id="Wap.SiteName" size="40" value="<%=Wap.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="Wap.SiteWebUrl" type="text" class="input_text" id="Wap.SiteWebUrl" size="40" value="<%=Wap.SiteWebUrl%>">
        公司网站的WEB地址。</td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="150" bgcolor="#FFFFFF">网站WAP网址：</td>
      <td><input name="Wap.SiteWapUrl" type="text" class="input_text" id="Wap.SiteWapUrl=" size="40" value="<%=Wap.SiteWapUrl%>">
        公司网站的WAP地址。</td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="150" bgcolor="#FFFFFF">网站Logo图片地址：</td>
      <td><input name="Wap.SiteLogo" type="text" class="input_text" id="Wap.SiteLogo" size="40" value="<%=Wap.SiteLogo%>">
        CDMA WAP1.2手机:PNG格式(256色)，文件不要太大。</td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="150" bgcolor="#FFFFFF">默认对齐方式：</td>
      <td><input name="PAlign" type="text" class="input_text" id="PAlign" size="40" value="<%=PAlign%>">
        网站内容的对齐方式，有：left、center、right三种。</td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="150" bgcolor="#FFFFFF">内容是否换行：</td>
      <td><input name="WrapMode" type="text" class="input_text" id="WrapMode" size="40" value="<%=WrapMode%>">
        显示内容滚动或换行：wrap、nowrap两种。</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="Wap.MdbPath" type="text" class="input_text" id="Wap.MdbPath" size="40" value="<%=Wap.MdbPath%>">
        数据库的路径。 </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="Wap.MailServerUserName" type="text" class="input_text" id="Wap.MailServerUserName2" size="40" value="<%=Wap.MailServerUserName%>">
        任何一个邮箱的邮件地址,如bicyle@126.com。</td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="150" bgcolor="#FFFFFF">Email帐号对应的密码：</td>
      <td><input name="Wap.MailServerPassword" type="password" class="input_text" id="Wap.MailServerPassword" size="40" value="<%=Wap.MailServerPassword%>">
        当密码为空，则使用系统提供账户发送。 </td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td bgcolor="#FFFFFF">SMTP服务器地址：</td>
      <td><input name="Wap.MailSmtp" type="text" class="input_text" id="Wap.MailSmtp" size="40" value="<%=Wap.MailSmtp%>">
        该邮箱所使用的SMTP地址。如smtp.126.com</td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="150" bgcolor="#FFFFFF">发送网站的名称：</td>
      <td><input name="Wap.MailSiteName" type="text" class="input_text" id="Wap.MailSiteName" size="40" value="<%=Wap.MailSiteName%>"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="150" bgcolor="#FFFFFF">WEB网站的地址：</td>
      <td><input name="Wap.MailWebUrl" type="text" class="input_text" id="Wap.MailWebUrl" size="40" value="<%=Wap.MailWebUrl%>"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="150" bgcolor="#FFFFFF">WAP网站的地址：</td>
      <td><input name="Wap.MailWapUrl" type="text" class="input_text" id="Wap.MailWapUrl" size="40" value="<%=Wap.MailWapUrl%>"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="150" bgcolor="#FFFFFF">报告状态的文件名：</td>
      <td><input name="Wap.MailResultFileName" type="text" class="input_text" id="Wap.MailResultFileName" size="40" value="<%=Wap.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="Wap.SoftSerialNumber" type="text" class="input_text" id="Wap.SoftSerialNumber" size="40" value="<%=Wap.SoftSerialNumber%>">
        域名注册码。请登陆<a href="http://www.bicyle.org" target="_blank">中国被爱可以在线</a>注册。 </td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td><input name="Wap.IPSerialNumber" type="text" class="input_text" id="Wap.IPSerialNumber" size="40" value="<%=Wap.IPSerialNumber%>" />
IP注册码。请登陆<a href="http://www.bicyle.org" target="_blank">中国被爱可以在线</a>注册。 </td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td><input name="Wap.CdiskSerialNumber" type="text" class="input_text" id="Wap.CdiskSerialNumber" size="40" value="<%=Wap.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="Wap.ChineseType" type="text" class="input_text" id="Wap.ChineseType" size="40" value="<%=Wap.ChineseType%>">
        简体:Simple，繁体：Complex。</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("../WapConfig/WapConfig.asp"),true)
	hf.write "<" & "%" & vbcrlf
	hf.write "'设置网站信息。" & vbcrlf
	hf.write "Wap.SiteName=" & chr(34) & trim(request("Wap.SiteName")) & chr(34) & "            '设置网站的名称。" & vbcrlf
	hf.write "Wap.SiteTitle=" & chr(34) & trim(request("Wap.SiteName")) & chr(34) & "            '设置IE浏览时网站的标题。" & vbcrlf
	hf.write "Wap.SiteWebUrl=" & chr(34) & trim(request("Wap.SiteWebUrl")) & chr(34) & "        '网站WEB地址" & vbcrlf
	hf.write "Wap.SiteWapUrl=" & chr(34) & trim(request("Wap.SiteWapUrl")) & chr(34) & "        '网站WAP地址" & vbcrlf
	hf.write "Wap.SiteLogo=" & chr(34) & trim(request("Wap.SiteLogo")) & chr(34) & "            '设置首页的LOGO图片。" & vbcrlf
	hf.write "PAlign=" & chr(34) & trim(request("PAlign")) & chr(34) & "                        '默认对齐方式Left" & vbcrlf
	hf.write "WrapMode=" & chr(34) & trim(request("WrapMode")) & chr(34) & "                    '当一行无法显示时，是否换行。" & vbcrlf
	hf.write "'设置默认数据库的路径。" & vbcrlf
	hf.write "Wap.MdbPath=" & chr(34) & trim(request("Wap.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) & trim(request("CompanyInfo")) & chr(34) & vbcrlf
	hf.write "'以下为发邮件的信息设置。" & vbcrlf
	hf.write "Wap.MailServerUserName=" & chr(34) & trim(request("Wap.MailServerUserName")) & chr(34) & vbcrlf
	hf.write "Wap.MailServerPassword=" & chr(34) & trim(request("Wap.MailServerPassword")) & chr(34) & vbcrlf
	hf.write "Wap.MailSmtp=" & chr(34) & trim(request("Wap.MailSmtp")) & chr(34) & vbcrlf
	hf.write "Wap.MailSiteName=" & chr(34) & trim(request("Wap.MailSiteName")) & chr(34) & vbcrlf
	hf.write "Wap.MailWebUrl=" & chr(34) & trim(request("Wap.MailWebUrl")) & chr(34) & vbcrlf
	hf.write "Wap.MailWapUrl=" & chr(34) & trim(request("Wap.MailWapUrl")) & chr(34) & vbcrlf
	hf.write "Wap.MailResultFileName=" & chr(34) & trim(request("Wap.MailResultFileName")) & chr(34) & vbcrlf
	hf.write "'以下为系统注册序列号。" & vbcrlf
	hf.write "Wap.SoftSerialNumber=" & chr(34) & trim(request("Wap.SoftSerialNumber")) & chr(34) & "        '域名注册码。" & vbcrlf
	hf.write "Wap.IPSerialNumber=" & chr(34) & trim(request("Wap.IPSerialNumber")) & chr(34) & "        'IP注册码。" & vbcrlf	
	hf.write "Wap.CDiskSerialNumber=" & chr(34) & trim(request("Wap.CDiskSerialNumber")) & chr(34) & "        'C盘序列号注册码。" & vbcrlf		
	hf.write "'设置简体繁体" & vbcrlf
	hf.write "Wap.ChineseType=" & chr(34) & trim(request("Wap.ChineseType")) & chr(34) & "            '设置语言简繁体中文，简体:Simple ，繁体:Complex" & 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
%>