最近的 杂 东西

用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