取得当前程序脚本路径.txt

较为详细的介绍了asp自定义的各种函数,方便asp的各种开发.

Function GetScriptName() 
ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME"))'取得当前地址 
If (Request.QueryString <> "") Then 
ScriptAddress = ScriptAddress & "?" & Server.HTMLEncode(Request.QueryString)'取得带参数地址 
End If 
If Len(ScriptAddress)>250 Then ScriptAddress = Left(ScirptAddress,250)&"..." '进行路径截取，最大为250个字符 
GetScriptName = ScriptAddress 
End Function