整理了一个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

内容版权声明:除非注明,否则皆为本站原创文章。

转载注明出处:http://www.heiqu.com/3456.html