Recent miscellaneous

xiaoxiao2021-03-06  73

FSO configuration file

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 = NothingSet FS = Nothing

'Sort function

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

转载请注明原文地址:https://www.9cbs.com/read-121205.html

New Post(0)