本文所介紹的幾個ASP語言編程的例子,在很多的網(wǎng)頁制作上都很常用,在做網(wǎng)站的時候一般地都能用得到,相信會對網(wǎng)站制作的各位技術(shù)人員是有用的。下面筆者將這些例子列出來,供各位技術(shù)人員參考使用。
一、用ASP編程語言判斷出來網(wǎng)站的虛擬物理路徑:
<p align="center" >網(wǎng)站的物理路徑為:<%= Server.MapPath("\") %></p>
二、如何判斷當(dāng)前所使用的瀏覽器類型:
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程序代碼實現(xiàn)與Access數(shù)據(jù)庫的連接:
<%
dim conn,mdbfile
mdbfile=server.mappath("data.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=數(shù)據(jù)庫密碼;dbq="&mdbfile
%>
五、ASP程序代碼實現(xiàn)與SQLServer數(shù)據(jù)庫的連接:
<%
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
%>
六、關(guān)閉網(wǎng)頁上的session功能:
<% @ENABLESESSIONSTATE = FALSE %>
七、Session數(shù)組的使用:
<%
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