sub SaveConfig() dim fso,hf set fso=Server.CreateObject("Scripting.FileSystemObject") set hf=fso.CreateTextFile(Server.mappath("../inc/config.asp"),true) hf.write "<" & "%" & vbcrlf hf.write "Const SiteName=" & chr(34) & trim(request("SiteName")) & chr(34) & " '网站名称" & vbcrlf hf.write "Const SiteTitle=" & chr(34) & trim(request("SiteTitle")) & chr(34) & " '网站标题" & vbcrlf hf.write "Const SiteUrl=" & chr(34) & trim(request("SiteUrl")) & chr(34) & " '网站地址" & vbcrlf hf.write "%" & ">" hf.close set hf=nothing set fso=nothing end sub

　　推荐阅读

　　ASP字符串转换为整形、双精度型、布尔

Rem 将字符串转换为整形数据 function toInteger(str,num) str=trim(str) if str="" or not isnumeric(str) then toInteger=num else toInteger=clng(str) >>>详细阅读

本文标题：ASP常用的系统配置函数

地址：http://www.17bianji.com/kaifa2/ASP/32237.html

 1/2    1