#TITLE=ASP常用語(yǔ)法及函數(shù)
#INFO
ASP常用的一些語(yǔ)法及自定義函數(shù)
#SORT=n

#T= ===ASP常用語(yǔ)法===
#T=============================
#T=數(shù)據(jù)庫(kù)相關(guān)
#T=　連接ACCESS數(shù)據(jù)庫(kù)
<%
Dim DBName,Conn
DBName"^!"    '定義數(shù)據(jù)庫(kù)路徑及名稱(chēng)
SET Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBName)
%>

#T=　連接MS SQL數(shù)據(jù)庫(kù)
<%
Dim Conn
SET Conn=Server.CreateObject("ADODB.connection")
Conn.Open "PROVIDER=SQLOLEDB;DATA SOURCE=SQL服務(wù)器名稱(chēng)或IP地址;UID=數(shù)據(jù)庫(kù)登錄帳號(hào);PWD=數(shù)據(jù)庫(kù)密碼;DATABASE=數(shù)據(jù)庫(kù)名稱(chēng)"
%>

#T=　建立記錄集
SET ^!=Server.CreateObject("ADODB.recordset")

#T=　執(zhí)行SQL命令
RS.Open SQL,conn,1,1

#T=　執(zhí)行SQL命令
Conn.Execute("^!")

#T=　RS直接執(zhí)行SQL命令
SET RS = Conn.Execute("^!")

#T=　關(guān)閉記錄集
RS.CLOSE
SET RS=NOTHING

#T=　關(guān)閉數(shù)據(jù)庫(kù)
Conn.Close
SET Conn=Nothing

#T=============================
#T=ServerVariables相關(guān)
#T=　取上一頁(yè)地址
Request.ServerVariables("HTTP_REFERER")

#T=　取服務(wù)器的名稱(chēng)1
Request.ServerVariables("SERVER_NAME")

#T=　取服務(wù)器的名稱(chēng)2
Request.ServerVariables("HTTP_HOST")

#T=　取服務(wù)器IP
Request.ServerVariables("LOCAL_ADDR")

#T=　取用戶(hù)IP
Request.ServerVariables("Remote_Host")

#T=　取用戶(hù)真實(shí)IP1
Request.serverVariables("REMOTE_ADDR")

#T=　取用戶(hù)真實(shí)IP函數(shù)
Function GetRealIP()
    GetRealIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
    IF(GetRealIP = "")THEN GetRealIP = Request.ServerVariables("REMOTE_ADDR")
End Function

#T=　取服務(wù)器端口
Request.ServerVariables("SERVER_PORT")

#T=　取服務(wù)器操作系統(tǒng)
Request.ServerVariables("OS")

#T=　取服務(wù)器的絕對(duì)路徑
Request.ServerVariables("APPL_PHYSICAL_PATH")

#T=　取本文件的絕對(duì)路徑1
Requet.ServerVariables("PATH_TRANSLATED")

#T=　取本文件的絕對(duì)路徑2
Server.mappath(Request.ServerVariables("SCRIPT_NAME"))

#T=　取本文件的相對(duì)路徑1
Request.ServerVariables("URL")

#T=　取本文件的相對(duì)路徑2
Request.ServerVariables("SCRIPT_NAME")

#T=　取本文件的相對(duì)路徑3
Request.ServerVariables("PATH_INFO")

#T=　取地址欄后的參數(shù)
Request.ServerVariables("QUERY_STRING")

#T=　取服務(wù)器系統(tǒng)信息
Request.ServerVariables("HTTP_USER_AGENT")

#T=　服務(wù)器組件檢測(cè)
<%
Function IsObjInstalled(strClassString)
    On Error Resume Next
    IsObjInstalled = False
    Err = 0
    Dim xTestObj
    SET xTestObj = Server.CreateObject(strClassString)
    IF(0 = Err)THEN IsObjInstalled = True
    SET xTestObj = Nothing