subSaveConfig()
dimfso,hf
setfso=Server.CreateObject("Scripting.FileSystemObject")
sethf=fso.CreateTextFile(Server.mappath("../inc/config.asp"),true)
hf.write"<"&"%"&vbcrlf
hf.write"ConstSiteName="&chr(34)&trim(request("SiteName"))&chr(34)&"'网站名称"&vbcrlf
hf.write"ConstSiteTitle="&chr(34)&trim(request("SiteTitle"))&chr(34)&"'网站标题"&vbcrlf
hf.write"ConstSiteUrl="&chr(34)&trim(request("SiteUrl"))&chr(34)&"'网站地址"&vbcrlf
hf.write"%"&">"
hf.close
sethf=nothing
setfso=nothing
endsub
网站建设 IT知识 IT知识教程 ASP常用的系统配置函数 
最新文章
热门文章
猜你喜欢
