www.gusucode.com > 中网景企业网站源码时尚版 2009.73码程序 > admin/config.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="opendb.asp" -->
<%
Call CheckAdmin()
Call CnkAdminRight(1)
Dim i,action,ObjInstalled,FoundErr,ErrMsg
ObjInstalled=IsObjInstalled("Scripting.FileSystemObject")
Call Head()
Action=request("action")
Select Case action
Case "save"
call SaveConfig()
Response.Redirect "config.asp"
Case ""
call ShowConfig()
End Select
Call Foot()
sub ShowConfig()
Dim rscfg
set rscfg=Server.CreateObject("ADODB.RecordSet")
rscfg.open "select * from cnk_config",conn,1,1
%>
<body>
<form name="form1" method="post" action="">
<div class="cnkbox">
<div class="title">基本信息设置</div>
<div class="content">
<div id="list">
<% If Lang=0 or Lang=2 Then %>
<ul>
<li class="t1">网站中文名称：</li>
<li class="t2">
<input name="SiteName" type="text" class="input" id="SiteName" size="30" maxlength="50" value="<%=rscfg("sitename")%>" />
</li>
</ul>
<% End If %>
<% If Lang=1 or Lang=2 Then %>
<ul>
<li class="t1">网站英文名称：</li>
<li class="t2">
<input name="SiteName_en" type="text" class="input" id="SiteName_en" size="30" maxlength="50" value="<%=rscfg("sitename_en")%>" />
</li>
</ul>
<% End If %>
<% If Lang=0 or Lang=2 Then %>
<ul>
<li class="t1">中文LOGO图片：</li>
<li class="t2">
<input name="SiteLogo" type="text" class="input" id="SiteLogo" size="30" maxlength="50" value="<%=rscfg("SiteLogo")%>" />
<input type="button" name="Submit" class="button" value="上传" onClick="window.open('upload_flash.asp?formname=form1&editname=SiteLogo&uppath=images&filelx=jpg&fixname=logo','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')">
图片的尺寸请在前台的LOGO上点右键看属性 </li>
</ul>
<% End If %>
<% If Lang=1 or Lang=2 Then %>
<ul>
<li class="t1">英文LOGO图片：</li>
<li class="t2">
<input name="SiteLogo_en" type="text" class="input" id="SiteLogo_en" size="30" maxlength="50" value="<%=rscfg("SiteLogo_en")%>" />
<input type="button" name="Submit" class="button" value="上传" onClick="window.open('upload_flash.asp?formname=form1&editname=SiteLogo_en&uppath=images&filelx=jpg&fixname=logoen','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')">
图片的尺寸请在前台的LOGO上点右键看属性 </li>
</ul>
<% End If %>
<% If Lang=0 or Lang=2 Then %>
<ul>
<li class="t1">中文Banner背景图片：</li>
<li class="t2">
<input name="Banner" type="text" class="input" id="Banner" size="30" maxlength="50" value="<%=rscfg("Banner")%>" />
<input type="button" name="Submit" class="button" value="上传" onClick="window.open('upload_flash.asp?formname=form1&editname=Banner&uppath=images&filelx=jpg&fixname=banner','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')">
这里是全局Banner,栏目Banner可以栏目管理中设置
</li>
</ul>
<% End If %>
<% If Lang=1 or Lang=2 Then %>
<ul>
<li class="t1">英文Banner背景图片：</li>
<li class="t2">
<input name="Banner_en" type="text" class="input" id="Banner_en" size="30" maxlength="50" value="<%=rscfg("Banner_en")%>" />
<input type="button" name="Submit" class="button" value="上传" onClick="window.open('upload_flash.asp?formname=form1&editname=Banner_en&uppath=images&filelx=jpg&fixname=banneren','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')">
这里是全局Banner,栏目Banner可以栏目管理中设置 </li>
</ul>
<% End If %>
<% If Lang=0 or Lang=2 Then %>
<ul>
<li class="t1">中文Banner Flash：</li>
<li class="t2">
<input name="BannerFlash" type="text" class="input" id="BannerFlash" size="30" maxlength="50" value="<%=rscfg("BannerFlash")%>" />
<input type="button" name="Submit" class="button" value="上传" onClick="window.open('upload_flash.asp?formname=form1&editname=BannerFlash&uppath=images&filelx=swf&fixname=bannerflash','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')">
这里是全局Banner Flash,栏目Banner Flash可以栏目管理中设置
</li>
</ul>
<% End If %>
<% If Lang=1 or Lang=2 Then %>
<ul>
<li class="t1">英文Banner Flash：</li>
<li class="t2">
<input name="BannerFlash_en" type="text" class="input" id="BannerFlash_en" size="30" maxlength="50" value="<%=rscfg("BannerFlash_en")%>" />
<input type="button" name="Submit" class="button" value="上传" onClick="window.open('upload_flash.asp?formname=form1&editname=BannerFlash_en&uppath=images&filelx=swf&fixname=bannerflashen','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')">
这里是全局Banner Flash,栏目Banner Flash可以栏目管理中设置
</li>
</ul>
<% End If %>
<% If Lang=0 or Lang=2 Then %>
<ul>
<li class="t1">中文底部LOGO：</li>
<li class="t2">
<input name="FootLogo" type="text" class="input" id="FootLogo" size="30" maxlength="50" value="<%=rscfg("FootLogo")%>" />
<input type="button" name="Submit" class="button" value="上传" onClick="window.open('upload_flash.asp?formname=form1&editname=FootLogo&uppath=images&filelx=jpg&fixname=footlogo','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')"> 如模板没有不必改这项
</li>
</ul>
<% End If %>
<% If Lang=1 or Lang=2 Then %>
<ul>
<li class="t1">英文底部LOGO：</li>
<li class="t2">
<input name="FootLogo_en" type="text" class="input" id="FootLogo_en" size="30" maxlength="50" value="<%=rscfg("FootLogo_en")%>" />
<input type="button" name="Submit" class="button" value="上传" onClick="window.open('upload_flash.asp?formname=form1&editname=FootLogo_en&uppath=images&filelx=jpg&fixname=footlogoen','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')">如模板没有不必改这项
</li>
</ul>
<% End If %>
<ul>
<li class="t1">网址：</li>
<li class="t2">
http://<input name="SiteURL" type="text" class="input" id="SiteURL" size="30" maxlength="100" value="<%=rscfg("SiteURL")%>" />
如:www.abc.com </li>
</ul>
<ul>
<li class="t1">管理员E-mail：</li>
<li class="t2">
<input name="MasterEmail" type="text" class="input" id="MasterEmail" size="30" maxlength="50" value="<%= rscfg("MasterEmail") %>" />
</li>
</ul>
<% If Lang=0 or Lang=2 Then %>
<ul>
<li class="t1">网站中文关键词：</li>
<li class="t2">
<input name="SiteKeyword" type="text" class="input" id="SiteKeyword" size="40" maxlength="255" value="<%= rscfg("SiteKeyword") %>" />
用逗号隔开</li>
</ul>
<% End If %>
<% If Lang=1 or Lang=2 Then %>
<ul>
<li class="t1">网站英文关键词：</li>
<li class="t2">
<input name="SiteKeyword_en" type="text" class="input" id="SiteKeyword_en" size="40" maxlength="255" value="<%= rscfg("SiteKeyword_en") %>" />
用逗号隔开</li>
</ul>
<% End If %>
<% If Lang=0 or Lang=2 Then %>
<ul>
<li class="t1">网站中文描述：</li>
<li class="t2">
<input name="SiteDescription" type="text" class="input" id="SiteDescription" size="40" maxlength="255" value="<%= rscfg("SiteDescription") %>" />
用逗号隔开</li>
</ul>
<% End If %>
<% If Lang=1 or Lang=2 Then %>
<ul>
<li class="t1">网站英文描述：</li>
<li class="t2">
<input name="SiteDescription_en" type="text" class="input" id="SiteDescription_en" size="40" maxlength="255" value="<%= rscfg("SiteDescription_en") %>" />
用逗号隔开</li>
</ul>
<% End If %>
<ul>
<li class="t1">Cookies名称：</li>
<li class="t2">
<input name="cookies_name" type="text" class="input" id="cookies_name" size="40" maxlength="50" value="<%= rscfg("cookies_name") %>" />
建议不改动 </li>
</ul>
<ul>
<li class="t1">(首页)背景音乐地址：</li>
<li class="t2">
<input name="BgMusic" type="text" class="input" id="BgMusic" size="40" maxlength="200" value="<%= rscfg("BgMusic") %>" />
如不要背景音乐请清空,支持.mp3 .wma格式</li>
</ul>
<!--ul>
<li class="t1">在前台显示进入后台链接：</li>
<li class="t2">
<input type="radio" name="isDisAdminPath" value="1" id="disadmin" <% 'If rscfg("isDisAdminPath")=1 Then Response.Write("checked")%>>
<label for="disadmin">是</label>
<input type="radio" name="isDisAdminPath" id="undisadmin" value="0" <% 'If rscfg("isDisAdminPath")=0 Then Response.Write("checked")%>>
<label for="undisadmin">否</label>
</li>
</ul>
<ul>
<li class="t1">后台文件夹名称：</li>
<li class="t2">
<input name="AdminPath" type="text" class="input" id="AdminPath" size="30" maxlength="50" value="<%'= rscfg("AdminPath") %>" />
为了安全，您可以修改后台管理目录（默认为cnkadmin），改过以后，需要再设置此处</li>
</ul-->
<% If Lang=2 Then %>
<ul>
<li class="t1">默认进入语言：</li>
<li class="t2">
<input name="EnterLang" type="radio" value="0" id="EnterLang1" <% If rscfg("EnterLang")=0 Then Response.Write("checked")%>>
<label for="EnterLang1">中文</label>
<input type="radio" name="EnterLang" value="1" id="EnterLang2" <% If rscfg("EnterLang")=1 Then Response.Write("checked")%>>
<label for="EnterLang2">英文</label>
(如果没有封面页让访客选择将按默认进入)</li>
</ul>
<% End If %>
<ul>
<li class="t1">是否允许新用户注册：</li>
<li class="t2">
<input name="isNewUser" type="radio" value="1" id="newuser1" <% If rscfg("isNewUser")=1 Then Response.Write("checked")%>>
<label for="newuser1">是</label>
<input type="radio" name="isNewUser" value="0" id="newuser2" <% If rscfg("isNewUser")=0 Then Response.Write("checked")%>>
<label for="newuser2">否</label></li>
</ul>
<ul>
<li class="t1">注册需要管理员审核：</li>
<li class="t2">
<input type="radio" name="isCheckUser" value="1" id="newuser3" <% If rscfg("isCheckUser")=1 Then Response.Write("checked")%>>
<label for="newuser3">是</label>
<input type="radio" name="isCheckUser" value="0" id="newuser4" <% If rscfg("isCheckUser")=0 Then Response.Write("checked")%>>
<label for="newuser4">否</label></li>
</ul>
<ul>
<li class="t1">评论需要管理员审核：</li>
<li class="t2">
<input type="radio" name="isShenCmt" value="1" id="isShenCmt3" <% If rscfg("isShenCmt")=1 Then Response.Write("checked")%>>
<label for="isShenCmt3">是</label>
<input type="radio" name="isShenCmt" value="0" id="isShenCmt4" <% If rscfg("isShenCmt")=0 Then Response.Write("checked")%>>
<label for="isShenCmt4">否</label></li>
</ul>
<ul>
<li class="t1">留言需要管理员审核：</li>
<li class="t2">
<input type="radio" name="isShenGb" value="1" id="isShenGb1" <% If rscfg("isShenGb")=1 Then Response.Write("checked")%>>
<label for="isShenGb1">是</label>
<input type="radio" name="isShenGb" value="0" id="isShenGb0" <% If rscfg("isShenGb")=0 Then Response.Write("checked")%>>
<label for="isShenGb0">否</label></li>
</ul>
<ul>
<li class="t1">是否显示中网景版权信息：</li>
<li class="t2">
<input type="radio" name="isShowCNK" value="1" id="isShowCNK1" <% If rscfg("isShowCNK")=1 Then Response.Write("checked")%>>
<label for="isShowCNK1">是</label>
<input type="radio" name="isShowCNK" value="0" id="isShowCNK0" <% If rscfg("isShowCNK")=0 Then Response.Write("checked")%>>
<label for="isShowCNK0">否</label>
</li>
</ul>
<ul>
<li class="t1">会员取回密码次数限制：</li>
<li class="t2">
<input name="GetPasswordNum" type="text" class="input" value="<%= rscfg("GetPasswordNum") %>" id="GetPasswordNum" size="5" maxlength="2">
0则表示无限制，若取回问答错误超过此限制，当天不能使用取回密码功能。 </li>
</ul>
<ul>
<li class="t1">最大上传图片/文件大小：</li>
<li class="t2">
<input name="MaxUpfileSize" type="text" class="input" value="<%= rscfg("MaxUpfileSize") %>" id="MaxUpfileSize" size="10" maxlength="5"> KB </li>
</ul>
<% If Lang=0 or Lang=2 Then %>
<ul>
<li class="t1">中文版权信息：</li>
<li class="t2">
<textarea name="SiteCopyright" cols="60" rows="7" class="input" id="SiteCopyright"><%=rscfg("SiteCopyright")%></textarea>
可填统计代码
</li>
</ul>
<% End If %>
<% If Lang=1 or Lang=2 Then %>
<ul>
<li class="t1">英文版权信息：</li>
<li class="t2">
<textarea name="SiteCopyright_en" cols="60" rows="7" class="input" id="SiteCopyright_en"><%=rscfg("SiteCopyright_en")%></textarea>
</li>
</ul>
<% End If %>
<% If Lang=0 or Lang=2 Then %>
<ul>
<li class="t1">中文页面左边联系方式：</li>
<li class="t2">
<textarea name="LeftContact" cols="60" rows="7" class="input" id="LeftContact"><%=rscfg("LeftContact")%></textarea>
</li>
</ul>
<% End If %>
<% If Lang=1 or Lang=2 Then %>
<ul>
<li class="t1">英文页面左边联系方式：</li>
<li class="t2">
<textarea name="LeftContact_en" cols="60" rows="7" class="input" id="LeftContact_en"><%=rscfg("LeftContact_en")%></textarea>
</li>
</ul>
<% End If %>
<ul>
<li class="t1">在线即时通讯浮动板：</li>
<li class="t2">
<input type="radio" name="isSelfFloatBoard" value="0" id="isSelfFloatBoard0" <% If rscfg("isSelfFloatBoard")=0 Then Response.Write("checked")%>>
<label for="isSelfFloatBoard0">不使用</label>
<input type="radio" name="isSelfFloatBoard" value="1" id="isSelfFloatBoard1" <% If rscfg("isSelfFloatBoard")=1 Then Response.Write("checked")%>>
<label for="isSelfFloatBoard1">使用站内浮动板</label>
<input type="radio" name="isSelfFloatBoard" value="2" id="isSelfFloatBoard2" <% If rscfg("isSelfFloatBoard")=2 Then Response.Write("checked")%>>
<label for="isSelfFloatBoard2">使用即时通讯提供商自带的浮动板</label>
</li>
</ul>
<% If Lang=0 or Lang=2 Then %>
<ul>
<li class="t1">中文版在线即时通讯代码：</li>
<li class="t2">
<textarea name="IMonline" cols="60" rows="7" class="input" id="IMonline"><%=rscfg("IMonline")%></textarea>
换行用代码<br>或<br /> </li>
</ul>
<% End If %>
<% If Lang=1 or Lang=2 Then %>
<ul>
<li class="t1">英文版在线即时通讯代码：</li>
<li class="t2">
<textarea name="IMonline_en" cols="60" rows="7" class="input" id="IMonline_en"><%=rscfg("IMonline_en")%></textarea>
换行用代码<br>或<br /> </li>
</ul>
<% End If %>
<ul>
<li class="t1">禁止注册的用户名：</li>
<li class="t2">
<textarea name="BadUsername" cols="60" rows="7" class="input" id="BadUsername"><%=rscfg("BadUsername")%></textarea>
用|隔开多个用户名</li>
</ul>
<!--<ul>
<li class="t1">序列号：<br>
由中网景提供</li>
<li class="t2">
<textarea name="RegCode" cols="60" rows="7" class="input" id="RegCode"><%'=rscfg("RegCode")%></textarea>
</li>
</ul>-->
<div class="clearboth"></div>
</div>
</div>
</div>
<div align="center">
<input name="action" type="hidden" id="action" value="save" />
<input name="提交" type="submit" class="button" value="提交保存" />
<input name="重置" type="reset" class="button" value="恢复" />
</div>
<div class="clearboth"></div>
</form>
<% end sub
Sub SaveConfig()
Dim SiteName,SiteName_en,SiteURL,SiteLogo,SiteLogo_en,Banner,Banner_en,BannerFlash,BannerFlash_en,FootLogo,FootLogo_en
Dim MasterEmail,SiteKeyword,SiteDescription,SiteKeyword_en,SiteDescription_en,SiteCopyright,SiteCopyright_en,MaxUpfileSize
Dim LeftContact,LeftContact_en,cookies_name,BgMusic,EnterLang,sql
Dim isDisAdminPath,AdminPath,isNewUser,isCheckUser,isShenCmt,isShenGb,isShowCNK,GetPasswordNum,HomeTvWidth,HomeTvHeight,isSelfFloatBoard,IMonline,IMonline_en,BadUsername
SiteName=Trim(Request.Form("SiteName"))
SiteName_en=Trim(Request.Form("SiteName_en"))
SiteURL=Trim(Request.Form("SiteURL"))
SiteLogo=Trim(Request.Form("SiteLogo"))
SiteLogo_en=Trim(Request.Form("SiteLogo_en"))
Banner=Trim(Request.Form("Banner"))
Banner_en=Trim(Request.Form("Banner_en"))
BannerFlash=Trim(Request.Form("BannerFlash"))
BannerFlash_en=Trim(Request.Form("BannerFlash_en"))
FootLogo=Trim(Request.Form("FootLogo"))
FootLogo_en=Trim(Request.Form("FootLogo_en"))
MasterEmail=Trim(Request.Form("MasterEmail"))
SiteKeyword=Trim(Request.Form("SiteKeyword"))
SiteDescription=Trim(Request.Form("SiteDescription"))
SiteKeyword_en=Trim(Request.Form("SiteKeyword_en"))
SiteDescription_en=Trim(Request.Form("SiteDescription_en"))
SiteCopyright=Trim(Request.Form("SiteCopyright"))
SiteCopyright_en=Trim(Request.Form("SiteCopyright_en"))
LeftContact=Trim(Request.Form("LeftContact"))
LeftContact_en=Trim(Request.Form("LeftContact_en"))
cookies_name=Trim(Request.Form("cookies_name"))
BgMusic=Trim(Request.Form("BgMusic"))
EnterLang=Trim(Request.Form("EnterLang"))
if EnterLang="" then EnterLang=Lang
'isDisAdminPath=Trim(Request.Form("isDisAdminPath"))
'AdminPath=Trim(Request.Form("AdminPath"))
isNewUser=Trim(Request.Form("isNewUser"))
isCheckUser=Trim(Request.Form("isCheckUser"))
isShenCmt=Trim(Request.Form("isShenCmt"))
isShenGb=Trim(Request.Form("isShenGb"))
isShowCNK=Trim(Request.Form("isShowCNK"))
GetPasswordNum=Trim(Request.Form("GetPasswordNum"))
MaxUpfileSize=Trim(Request.Form("MaxUpfileSize"))
isSelfFloatBoard=Trim(Request.Form("isSelfFloatBoard"))
IMonline=Trim(Request.Form("IMonline"))
IMonline_en=Trim(Request.Form("IMonline_en"))
BadUsername=Trim(Request.Form("BadUsername"))
sql="update cnk_config set SiteName='"&SiteName&"',SiteName_en='"&SiteName_en&"',SiteURL='"&SiteURL&"'"
sql=sql&",SiteLogo='"&SiteLogo&"',SiteLogo_en='"&SiteLogo_en&"',Banner='"&Banner&"',Banner_en='"&Banner_en&"',BannerFlash='"&BannerFlash&"',BannerFlash_en='"&BannerFlash_en&"',FootLogo='"&FootLogo&"',FootLogo_en='"&FootLogo_en&"'"
sql=sql&",MasterEmail='"&MasterEmail&"',SiteKeyword='"&SiteKeyword&"',SiteKeyword_en='"&SiteKeyword_en&"',SiteDescription='"&SiteDescription&"',SiteDescription_en='"&SiteDescription_en&"',SiteCopyright='"&SiteCopyright&"',SiteCopyright_en='"&SiteCopyright_en&"'"
sql=sql&",LeftContact='"&LeftContact&"',LeftContact_en='"&LeftContact_en&"',cookies_name='"&cookies_name&"',BgMusic='"&BgMusic&"',EnterLang="&EnterLang
sql=sql&",isNewUser="&isNewUser&",isCheckUser="&isCheckUser&",isShenCmt="&isShenCmt&",isShenGb="&isShenGb&",isShowCNK="&isShowCNK&",GetPasswordNum="&GetPasswordNum&",MaxUpfileSize="&MaxUpfileSize&",isSelfFloatBoard="&isSelfFloatBoard&",IMonline='"&guolv(IMonline)&"',IMonline_en='"&guolv(IMonline_en)&"',BadUsername='"&BadUsername&"'"
conn.execute(sql)
If ObjInstalled=false Then
Response.Write("<br><li>你的服务器不支持 FSO(Scripting.FileSystemObject)! </li>")
Response.End()
exit sub
End If
dim fso,hf,bycnk
bycnk="<br />Powered by <a href=http://www.websys.cn/ target=_blank>CnkWebSys</a> © CNK Inc."
set fso=Server.CreateObject("Scripting.FileSystemObject")
set hf=fso.CreateTextFile(Server.mappath("../common/config.asp"),true)
hf.write "<" & "%" & vbcrlf
hf.write "const SiteName="""&guolv(SiteName)&"""" & vbcrlf
hf.write "const SiteName_en="""&guolv(SiteName_en)&""""& vbcrlf
hf.write "const SiteURL="""&guolv(SiteURL)&"""" & vbcrlf
hf.write "const SiteLogo="""&guolv(SiteLogo)&"""" & vbcrlf
hf.write "const SiteLogo_en="""&guolv(SiteLogo_en)&"""" & vbcrlf
hf.write "const Banner="""&guolv(Banner)&"""" & vbcrlf
hf.write "const Banner_en="""&guolv(Banner_en)&"""" & vbcrlf
hf.write "const BannerFlash="""&guolv(BannerFlash)&"""" & vbcrlf
hf.write "const BannerFlash_en="""&guolv(BannerFlash_en)&"""" & vbcrlf
hf.write "const FootLogo="""&guolv(FootLogo)&"""" & vbcrlf
hf.write "const FootLogo_en="""&guolv(FootLogo_en)&"""" & vbcrlf
hf.write "const MasterEmail="""&guolv(MasterEmail)&"""" & vbcrlf
hf.write "const SiteKeyword="""&guolv(SiteKeyword)&"""" & vbcrlf
hf.write "const SiteDescription="""&guolv(SiteDescription)&""""& vbcrlf
hf.write "const SiteKeyword_en="""&guolv(SiteKeyword_en)&"""" & vbcrlf
hf.write "const SiteDescription_en="""&guolv(SiteDescription_en)&""""& vbcrlf
hf.write "const SiteCopyright="""&guolv(SiteCopyright)&bycnk&""""& vbcrlf
hf.write "const SiteCopyright_en="""&guolv(SiteCopyright_en)&bycnk&""""& vbcrlf
hf.write "const LeftContact="""&guolv(LeftContact)&""""& vbcrlf
hf.write "const LeftContact_en="""&guolv(LeftContact_en)&""""& vbcrlf
hf.write "const cookies_name="""&guolv(cookies_name)&"""" & vbcrlf
hf.write "const BgMusic="""&guolv(BgMusic)&"""" & vbcrlf
hf.write "const EnterLang="&EnterLang& vbcrlf
'hf.write "const isDisAdminPath="&isDisAdminPath& vbcrlf
'hf.write "const AdminPath="""&AdminPath&""""& vbcrlf
hf.write "const isSelfFloatBoard="&isSelfFloatBoard& vbcrlf
hf.write "const isNewUser="&isNewUser& vbcrlf
hf.write "const isCheckUser="&isCheckUser& vbcrlf
hf.write "const isShenCmt="&isShenCmt& vbcrlf
hf.write "const isShenGb="&isShenGb& vbcrlf
hf.write "const GetPasswordNum="&GetPasswordNum& vbcrlf
hf.write "const BadUsername="""&guolv(BadUsername)&"""" & vbcrlf
hf.write "%" & ">"
hf.close
set hf=nothing
set fso=nothing
Call alertmsg("设置成功")
end sub
Function guolv(Str)
Str=Replace(Str,chr(10),"<br />") '过滤换行
Str=Replace(Str,chr(13),"") '过滤回车
Str=Replace(Str,chr(34),"""") '过滤"
Str=Replace(Str,"'","''") '过滤'
Str=Replace(Str,"request","")
Str=Replace(Str,"%","")
guolv=Str
End Function
%>