当前位置：网站首页 >> 建站知识 >> 网站技术 >>


在ASP网页编程中几个非常有用的技术例子

来源：郑州凯讯网站    发布人：郑州凯讯公司    发布日期：2014-04-07

本文所介绍的几个ASP语言编程的例子，在很多的网页制作上都很常用，在做网站的时候一般地都能用得到，相信会对网站制作的各位技术人员是有用的。下面笔者将这些例子列出来，供各位技术人员参考使用。

一、用ASP编程语言判断出来网站的虚拟物理路径：
<p align="center" >网站的物理路径为：<%= Server.MapPath("\") %></p>

二、如何判断当前所使用的浏览器类型：
dim strBrowse
strBrowser=Request.ServerVariables("HTTP_USER_AGENT")
If Instr(strBrowser,"MSIE")<>0 Then
Response.redirect("msie.html")
Else
Response.redirect("other.html")
End If

三、获取访问者的IP地址：
<p>您的IP地址为：<%= Request.serverVariables("REMOTE_ADDR) %></p>

四、ASP程序代码实现与Access数据库的连接：
<%
dim conn,mdbfile
mdbfile=server.mappath("data.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=数据库密码;dbq="&mdbfile
%>

五、ASP程序代码实现与SQLServer数据库的连接：
<%
Dim DbServerName, DbName, DbUserID, DbPassword
Dim conn

DbName = "mydb"
DbServerName = "127.0.0.1"
DbUserID = "sa"
DbPassword = "123456"

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={SQL Server};SERVER=" & DbServerName & ";UID=" & DbUserID & "; PWD=" & DbPassword &";database="&DbName
%>

六、关闭网页上的session功能：
<% @ENABLESESSIONSTATE = FALSE %>

七、Session数组的使用：
<%
Dim MyArray()
Redim MyArray(5)
MyArray(0)="000"
MyArray(1)="111"
MyArray(2)="222"
MyArray(3)="333"
MyArray(4)="444"
MyArray(5)="555"

Session("StoredArray") = MyArray
LocalArray = Session("StoredArray")
Response.Write(LocalArray(0))
Response.Write(LocalArray(1))
Response.Write(LocalArray(2))
Response.Write(LocalArray(3))
Response.Write(LocalArray(4))
Response.Write(LocalArray(5))
response.end
%>

八、向文本文件里写入一段文字：
dim txtfile
txtfile = "D:\test.txt"

Set fso = Server.CreateObject("Scripting.FileSystemObject")
set file = fso.opentextfile(path, ForAppending, TRUE)

file.write("要写入的文字")

file.close
set file = nothing
set fso = nothin