用fso配置文件
Set fs=CreateObject("Scripting.FileSystemObject")
Set TS1 = fs.OpenTextFile(Server.MapPath("config.asp"),2,True)
TS1.writeline "<"&chr(37)
TS1.writeline "webname="&chr(34)&""&request("webname")&""&chr(34)&""
TS1.writeline chr(37)&">"
Set TS1 = Nothing
Set fs=nothing
'排序函数
function shortAr(byref artemp)
dim t
for j = 0 to ubound(artemp)-1
for i = 0 to ubound(artemp)-(j+1)
if artemp(i) > artemp(i+1) then
t=artemp(i)
artemp(i) = artemp(i+1)
artemp(i+1) = t
end if
next
next
end function