高端网站建设-整理了一个editplus的剪辑文件（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("^!")………………

高端网站建设价格套餐：

500元成品模板网站套餐1000元基础型网站套餐1800元标准定制设计套餐2800元精美定制设计套餐3800-8000元商务型套餐行业门户型套餐其它定制套餐 文章由重庆一佰互联高端网站建设http://www.rzxsoft.cn编辑整理，转载请注明出处