整理了一个editplus的剪辑文件（ASP方面的内容）

#TITLE=ASP常用语法及函数
#INFO
ASP常用的一些语法及自定义函数
#SORT=n

#T= ===ASP常用语法===
#T=============================
#T=数据库相关
#T=　连接ACCESS数据库
<%
Dim DBName,Conn
DBName"^!"    '定义数据库路径及名称
SET Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBName)
%>

#T=　连接MS SQL数据库
<%
Dim Conn
SET Conn=Server.CreateObject("ADODB.connection")
Conn.Open "PROVIDER=SQLOLEDB;DATA SOURCE=SQL服务器名称或IP地址;UID=数据库登录帐号;PWD=数据库密码;DATABASE=数据库名称"
%>

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

#T=　执行SQL命令
RS.Open SQL,conn,1,1

#T=　执行SQL命令
Conn.Execute("^!")

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

#T=　关闭记录集
RS.CLOSE
SET RS=NOTHING

#T=　关闭数据库
Conn.Close
SET Conn=Nothing

#T=============================
#T=ServerVariables相关
#T=　取上一页地址
Request.ServerVariables("HTTP_REFERER")

#T=　取服务器的名称1
Request.ServerVariables("SERVER_NAME")

#T=　取服务器的名称2
Request.ServerVariables("HTTP_HOST")

#T=　取服务器IP
Request.ServerVariables("LOCAL_ADDR")

#T=　取用户IP
Request.ServerVariables("Remote_Host")

#T=　取用户真实IP1
Request.serverVariables("REMOTE_ADDR")

#T=　取用户真实IP函数
Function GetRealIP()
    GetRealIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
    IF(GetRealIP = "")THEN GetRealIP = Request.ServerVariables("REMOTE_ADDR")
End Function

#T=　取服务器端口
Request.ServerVariables("SERVER_PORT")

#T=　取服务器操作系统
Request.ServerVariables("OS")

#T=　取服务器的绝对路径
Request.ServerVariables("APPL_PHYSICAL_PATH")

#T=　取本文件的绝对路径1
Requet.ServerVariables("PATH_TRANSLATED")

#T=　取本文件的绝对路径2
Server.mappath(Request.ServerVariables("SCRIPT_NAME"))

#T=　取本文件的相对路径1
Request.ServerVariables("URL")

#T=　取本文件的相对路径2
Request.ServerVariables("SCRIPT_NAME")

#T=　取本文件的相对路径3
Request.ServerVariables("PATH_INFO")

#T=　取地址栏后的参数
Request.ServerVariables("QUERY_STRING")

#T=　取服务器系统信息
Request.ServerVariables("HTTP_USER_AGENT")

#T=　服务器组件检测
<%
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
    Err = 0
End Function
'IF(IsObjInstalled("Persits.Upload")=True)THEN
'    Response.Write "支持AspUpload组件"
'ELSE
'    Response.Write "不支持AspUpload组件"
'END IF
%>

#T=　取客户端语言环境
^!Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")

#T=　取客户端信息:HTTP_USER_AGENT
^!Request.ServerVariables("HTTP_USER_AGENT")

#T=　取表单(Form)值元素值
Request.Form("^!")

#T=　取URL传递的值
Request.QueryString("^!")

#T=　取完整URL地址
Function GetUrl()
    GetUrl="http://"&Request.ServerVariables("SERVER_N ... .ServerVariables("URL")
    IF(Request.ServerVariables("QUERY_STRING")<>"")THEN GetURL=GetUrl&"?"& Request.ServerVariables("QUERY_STRING")
End Function

#T=============================
#T=自定义函数
#T=　过滤HTML字符
<%
'过滤HTML字符函数
Function HTMLEncode(str)
    IF(str <> "")THEN
        str = Replace(str, "&", "&")
        str = Replace(str, ">", ">")
        str = Replace(str, "<", "<")
        str = Replace(str, Chr(32), " ")
        str = Replace(str, Chr(9), "    ")
        str = Replace(str, Chr(34), """)
        str = Replace(str, Chr(39), "'")
        str = Replace(str, Chr(13), "")
        str = Replace(str, Chr(10) & Chr(10), "</P><P>")
        str = Replace(str, Chr(10), "<BR>")
        str = Replace(str, Chr(255), " ")
    END IF
    HTMLEncode = str
End Function
%>

#T=　检测上页是否从本站提交
<%
'检测上页是否从本站提交
'返回:True,False
'===============================================================
Function IsSelfRefer()
    Dim sHttp_Referer, sServer_Name
    sHttp_Referer = CStr(Request.ServerVariables("HTTP_REFERER"))
    sServer_Name = CStr(Request.ServerVariables("SERVER_NAME"))
    IF(Mid(sHttp_Referer, 8, Len(sServer_Name)) = sServer_Name)THEN
        IsSelfRefer = True
    ELSE
        IsSelfRefer = False
    END IF
End Function
%>

#T=　清除所有HTML标记
<%
'清除HTML标记
Function stripHTML(htmlStr)
    Dim regEx
    SET regEx = New Regexp
    regEx.IgnoreCase = True
    regEx.Global = True
    regEx.Pattern = "<.+?>"
    htmlStr = regEx.Replace(htmlStr,"")
    htmlStr = Replace(htmlStr, "<","<")
    htmlStr = Replace(htmlStr, ">",">")
    htmlStr = Replace(htmlStr,chr(10),"")
    htmlStr = Replace(htmlStr,chr(13),"")
    stripHTML = htmlStr
    SET regEx = Nothing
End Function

%>

#T=　取字符串长度
<%
'求字符串长度函数
Function GetLength(str)
    Dim Length
    For i=1 to Len(str)
        IF(Asc(Mid(str,i,1))<0 or Asc(Mid(str,i,1))>256)THEN
            Length=Length+2
        ELSE
            Length=Length+1
        END IF
    Next
    GetLength=Length
End Function
%>

#T=　截取指定长度字符串