asp 常用幾個執行個體函數

1、檢查檔案是否存在
用法樣本：If CheckFile("aa.jpg") = True Then Response.Write "OK"

複製內容到剪貼簿 程式碼
Function CheckFile(FileName)
   On Error Resume Next
  Dim FsoObj
  Set FsoObj = Server.CreateObject("Scripting.FileSystemObject")
  If Not FsoObj.FileExists(Server.MapPath(FileName)) Then
    CheckFile = False
    Exit Function
  End If
  CheckFile = True:Set FsoObj = Nothing
End Function

2、檢測字串出現次數

參數說明：TheChar="要檢測的字串"，TheString="待檢測的字串"
用法樣本：If CheckTheChar("a","about") = 1 Then Response.Write "OK"
複製內容到剪貼簿 程式碼
Function CheckTheChar(TheChar,TheString)
  If InStr(TheString,TheChar) Then
    For n = 1 To Len(TheString)
      If Mid(TheString,n,Len(TheChar)) = TheChar Then
        CheckTheChar = CheckTheChar + 1
      End If
    Next
    CheckTheChar = CheckTheChar
  Else
    CheckTheChar = 0'"0次"
  End If
End Function

3、取完整的URL地址

複製內容到剪貼簿 程式碼
Function GetUrl()
  Dim ScriptAddress, M_ItemUrl, M_item
  ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME")) '取得當前地址
  M_ItemUrl = ""
  If (Request.QueryString <> "") Then
    ScriptAddress =  ScriptAddress & "?"
    For Each M_item In Request.QueryString
      If InStr(page,M_Item)=0 Then
        M_ItemUrl = M_ItemUrl & M_Item &"="& Server.URLEncode(Request.QueryString(""&M_Item&""))  & ""
      End If
    Next
  End If
  GetUrl = ScriptAddress & M_ItemUrl
End Function