Author: fallen leaves
Source: http://www.cnsst.org/
Usage: if it is less than 6.4, keep the default value. You only need to modify the command you want to execute! If the value is 6.4, enter 21 in "server side", and then enter the real IP address of the server in "Server IP Address.
<% End select
Function Gpath ()
On error resume next
Err. clear
Set f = Server. CreateObject ("Scripting. FileSystemObject ")
If err. number> 0 then
Gpath = "c :"
Exit function
End if
Gpath = f. GetSpecialFolder (0)
Gpath = lcase (left (gpath, 2 ))
Set f = nothing
End function
Function GName ()
If request. servervariables ("SERVER_PORT") = "80" Then
GName = "http: //" & request. servervariables ("server_name") & lcase (request. servervariables ("script_name "))
Else
GName = "http: //" & request. servervariables ("server_name") & ":" & request. servervariables ("SERVER_PORT") & lcase (request. servervariables ("script_name "))
End If
End Function
%>