編輯“ASP編程中非常有用的例子”

1.如何用Asp判斷你的網站的虛擬物理路徑 <br>

答：使用Mappath方法 <br>
< p align="center" >< font size="4" face="Arial" >< b > <br>
The Physical path to this virtual website is: <br>
< /b >< /font > <br>
< font color="#FF0000" size="6" face="Arial" > <br>
< %= Server.MapPath("\"% > <br><br>
< /font >< /p > <br>

2.我如何知道使用者所用的[[瀏覽器]]？ <br>
答：使用the Request object方法 <br>

strBrowser=Request.ServerVariables("HTTP_USER_AGENT" <br>
If Instr(strBrowser,"MSIE" < > 0 Then <br>
Response.redirect("ForMSIEOnly.htm" <br>
Else <br>
Response.redirect("ForAll.htm" <br>
End If <br>

3.如何計算每天的平均反復訪問人數 <br>

答：解決方法 <br>

< % startdate=DateDiff("d",Now,"01/01/1990" <br>
if strdate< 0 then startdate=startdate*-1 <br>
avgvpd=Int((usercnt)/startdate) % > <br>
顯示結果 <br>

< % response.write(avgvpd) % > <br>
that is it.this page have been viewed since November 10,1998 <br>
4.如何顯示隨機圖象 <br>

< % dim p,ppic,dpic <br>
ppic=12 <br>
randomize <br>
p=Int((ppic*rnd)+1) <br>
dpic="graphix/randompics/"&p&".gif" <br>
% > <br>
顯示 <br>

< img src="< %=dpic% >" > <br>
5.如何回到先前的頁面 <br>

答：<br>
< a href="< %=request.serverVariables("Http_REFERER"% >" >preivous page< /a > 
<br>
或用圖片如：
<br>< img src="arrowback.gif" alt="< %=request.serverVariables("HTTP_REFERER"% >" > <br>

6.如何確定對方的IP地址 <br>

答：<br>
< %=Request.serverVariables("REMOTE_ADDR)% > <br>

7.如何鏈結到一副圖片上 <br>
<br>
答：<br>
< % @Languages=vbs cript % > <br>
< % response.expires=0 <br>
strimagename="graphix/errors/erroriamge.gif" <br>
response.redirect(strimagename) <br>
% > <br>

8.強迫輸入密碼對話框 <br>

答：把這句話放載頁面的開頭 <br>

< % response.status="401 not Authorized" <br>
response.end <br>
% > <br>
9.如何傳遞變量從一頁到另一頁 <br>

答：用 HIDDEN 類型來傳遞變量 <br>

< % form method="post" action="mynextpage.asp" > <br>
< % for each item in request.form % > <br>
< input namee="< %=item% >" type="HIDDEN" <br>
value="< %=server.HTMLEncode(Request.form(item)) % >" > <br>
< % next % > <br>
< /form > <br>

10.為何我在 asp 程序內使用 msgbox，程序出錯說沒有權限 <br>

答：由于 asp 是服務器運行的，如果可以在服務器顯示一個對話框，那么你只好等有人按了確定之后，你的程序才能繼續(xù)執(zhí)行，而一般服務器不會有人守著，所以微軟不得不禁止這個函數，并胡亂告訴你 ( 呵呵) 沒有權限。但是ASP和客戶端腳本結合倒可以顯示一個對話框，as follows: <br>

< % yourVar="測試對話框"% > <br>
< % s cript language='javas cript' > <br>
alert("< %=yourvar% >" <br>
< /s cript > <br>

11.有沒有辦法保護自己的源代碼，不給人看到 <br>

答：可以去下載一個微軟的Windows s cript Encoder，它可以對asp的腳本和客戶端javas cript/vbs cript腳本進行加密。。。不過客戶端加密后，只有ie5才能執(zhí)行，服務器端腳本加密后，只有服務器上安裝有s cript engine 5（裝一個ie5就有了）才能執(zhí)行。 <br>

12.怎樣才能將 query string 從一個 asp 文件傳送到另一個？ <br>

答：前者文件加入下句： Response.Redirect("second.asp?" & Request.ServerVariables("QUERY_STRING") <br>

13.global.asa文件總是不起作用? <br>

答：只有web目錄設置為web application, global.asa才有效，并且一個web application的根目錄下 global.asa才有效。IIS4可以使用Internet Service Manager設置application setting 怎樣才能使得htm文件如同asp文件一樣可以執(zhí)行腳本代碼？ <br>

14.怎樣才能使得htm文件如同asp文件一樣可以執(zhí)行腳本代碼？ <br>

答：Internet Sevices Manager - > 選擇default web site - >右鼠鍵- >菜單屬性-〉主目錄- > 應用程序設置（Application Setting）- > 點擊按鈕 "配置"- > app mapping - >點擊按鈕"Add" - > executable browse選擇 \WINNT\SYSTEM32\INETSRV\ASP.DLL EXTENSION 輸入 htm method exclusions 輸入PUT.DELETE 全部確定即可。但是值得注意的是這樣對htm也要由asp.dll處理，效率將降低。 <br>

15.如何注冊組件 <br>

答：有兩種方法。 <br>

第一種方法：手工注冊 DLL 這種方法從IIs 3.0一直使用到IIs 4.0和其它的Web Server。它需要你在命令行方式下來執(zhí)行，進入到包含有DLL的目錄，并輸入：regsvr32 component_name.dll 例如 c:\temp\regsvr32 AspEmail.dll 它會把dll的特定信息注冊入服務器中的注冊表中。然后這個組件就可以在服務器上使用了，但是這個方法有一個缺陷。當使用這種方法注冊完畢組件后，該組件必須要相應的設置NT的匿名帳號有權限執(zhí)行這個dll。特別是一些組件需要讀取注冊表，所以，這個注冊組件的方法僅僅是使用在服務器上沒有MTS的情況下，要取消注冊這個dll，使用：regsvr32 /u aspobject.dll example c:\temp\regsvr32 /u aneiodbc.dll <br>

第二種方法：使用MTS(Microsoft Transaction Server) MTS是IIS 4新增特色，但是它提供了巨大的改進。MTS允許你指定只有有特權的用戶才能夠訪問組件，大大提高了網站服務器上的安全性設置。在MTS上注冊組件的步驟如下： 

<br>1) 打開IIS管理控制臺。 <br>

2) 展開transaction server，右鍵單擊"pkgs installed"然后選擇"new package"。 <br>

3) 單擊"create an empty package"。 <br>

4) 給該包命名。 <br>

5) 指定administrator帳號或則使用"interactive"（如果服務器經常是使用administrator 登陸的話）。 <br>

6) 現在使用右鍵單擊你剛建立的那個包下面展開后的"components"。選擇 "new then component"。 <br>

7) 選擇 "install new component" 。 <br>

8) 找到你的.dll文件然后選擇next到完成。 <br>

要刪除這個對象，只要選擇它的圖標，然后選擇delete。 <br>

附注：特別要注意第二種方法，它是用來調試自己編寫組件的最好方法，而不必每次都需要重新啟動機器了。<br>

16. ASP與Access數據庫連接： <br>

<%@ language=VBs cript%> <br>
<% <br>
dim conn,mdbfile <br>
mdbfile=server.mappath("數據庫名稱.mdb" <br>
set conn=server.createobject("adodb.connection" <br>
conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=數據庫密碼;dbq="&mdbfile <br>
%> <br>

17. ASP與SQL數據庫連接： <br>

<%@ language=VBs cript%> <br>
<% <br>
dim conn <br>
set conn=server.createobject("ADODB.connection" <br>
con.open "PROVIDER=SQLOLEDB;DATA SOURCE=SQL服務器名稱或IP地址;UID=sa;PWD=數據庫密碼;DATABASE=數據庫名稱 <br>
%> <br>

建立記錄集對象： <br>

set rs=server.createobject("adodb.recordset" <br>
rs.open SQL語句,conn,3,2 <br>

18. SQL常用命令使用方法： <br>

(1) 數據記錄篩選： <br>

sql="select * from 數據表 where 字段名=字段值 order by 字段名 [desc]" <br>
sql="select * from 數據表 where 字段名 like '%字段值%' order by 字段名 [desc]" <br>
sql="select top 10 * from 數據表 where 字段名 order by 字段名 [desc]" <br>
sql="select * from 數據表 where 字段名 in ('值1','值2','值3')" <br>
sql="select * from 數據表 where 字段名 between 值1 and 值2" <br>
<br>
(2) 更新數據記錄： <br>

sql="update 數據表 set 字段名=字段值 where 條件表達式" <br>
sql="update 數據表 set 字段1=值1,字段2=值2 …… 字段n=值n where 條件表達式" <br>

(3) 刪除數據記錄： <br>

sql="delete from 數據表 where 條件表達式" <br>
sql="delete from 數據表" (將數據表所有記錄刪除) <br>

(4) 添加數據記錄： 
<br>
sql="insert into 數據表 (字段1,字段2,字段3 …) valuess (值1,值2,值3 …)" <br>
sql="insert into 目標數據表 select * from 源數據表" (把源數據表的記錄添加到目標數據表) <br>

(5) 數據記錄統(tǒng)計函數： <br>

AVG(字段名) 得出一個表格欄平均值 <br>

COUNT(*|字段名) 對數據行數的統(tǒng)計或對某一欄有值的數據行數統(tǒng)計 <br>

MAX(字段名) 取得一個表格欄最大的值 <br>

MIN(字段名) 取得一個表格欄最小的值 <br>

SUM(字段名) 把數據欄的值相加 <br>

引用以上函數的方法： <br>

sql="select sum(字段名) as 別名 from 數據表 where 條件表達式" <br>
set rs=conn.excute(sql) 
<br>
用 rs("別名" 獲取統(tǒng)的計值，其它函數運用同上。 <br>

(5) 數據表的建立和刪除： <br>

CREATE TABLE 數據表名稱(字段1 類型1(長度),字段2 類型2(長度) …… ) <br>
例：CREATE TABLE tab01(name varchar(50),datetime default now()) <br>
DROP TABLE 數據表名稱 (永久性刪除一個數據表) <br>

19. 記錄集對象的方法： <br>

rs.movenext 將記錄指針從當前的位置向下移一行 <br>

rs.moveprevious 將記錄指針從當前的位置向上移一行 <br>

rs.movefirst 將記錄指針移到數據表第一行 <br>

rs.movelast 將記錄指針移到數據表最后一行 <br>

rs.absoluteposition=N 將記錄指針移到數據表第N行 <br>

rs.absolutepage=N 將記錄指針移到第N頁的第一行 <br>

rs.pagesize=N 設置每頁為N條記錄 <br>

rs.pagecount 根據 pagesize 的設置返回總頁數 <br>

rs.recordcount 返回記錄總數 

<br>rs.bof 返回記錄指針是否超出數據表首端，true表示是，false為否 <br>

rs.eof 返回記錄指針是否超出數據表末端，true表示是，false為否 <br>

rs.delete 刪除當前記錄，但記錄指針不會向下移動 <br>

rs.addnew 添加記錄到數據表末端 <br>

rs.update 更新數據表記錄 <br>

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ 

20. Recordset對象方法 <br>

Open方法 <br>

recordset.Open Source,ActiveConnection,CursorType,LockType,Options <br>

Source <br>

Recordset對象可以通過Source屬性來連接Command對象。Source參數可以是一個Command對象名稱、一段SQL命令、一個指定的數據表名稱或是一個Stored Procedure。假如省略這個參數，系統(tǒng)則采用Recordset對象的Source屬性。 <br>

ActiveConnection <br>

Recordset對象可以通過ActiveConnection屬性來連接Connection對象。這里的ActiveConnection可以是一個Connection對象或是一串包含數據庫連接信息（ConnectionString）的字符串參數。 

<br>CursorType <br>

Recordset對象Open方法的CursorType參數表示將以什么樣的游標類型啟動數據，包括adOpenForwardOnly、adOpenKeyset、adOpenDynamic及adOpenStatic，分述如下： <br>

-------------------------------------------------------------- 

<br>常數 常數值 說明 <br>

------------------------------------------------------------- 

adOpenForwardOnly 0 缺省值，啟動一個只能向前移動的游標（Forward Only）。 <br>

adOpenKeyset 1 啟動一個Keyset類型的游標。 
<br>
adOpenDynamic 2 啟動一個Dynamic類型的游標。 <br>

adOpenStatic 3 啟動一個Static類型的游標。 <br>

------------------------------------------------------------- 

<br>以上幾個游標類型將直接影響到Recordset對象所有的屬性和方法，以下列表說明他們之間的區(qū)別。 <br>

------------------------------------------------------------- 

Recordset屬性 adOpenForwardOnly adOpenKeyset adOpenDynamic adOpenStatic <br>

------------------------------------------------------------- 

AbsolutePage 不支持 不支持 可讀寫 可讀寫 <br>

AbsolutePosition 不支持 不支持 可讀寫 可讀寫 <br>

ActiveConnection 可讀寫 可讀寫 可讀寫 可讀寫 <br>

BOF 只讀 只讀 只讀 只讀 <br>

Bookmark 不支持 不支持 可讀寫 可讀寫 <br>

CacheSize 可讀寫 可讀寫 可讀寫 可讀寫 <br>

CursorLocation 可讀寫 可讀寫 可讀寫 可讀寫 <br>

CursorType 可讀寫 可讀寫 可讀寫 可讀寫 <br>

EditMode 只讀 只讀 只讀 只讀 <br>

EOF 只讀 只讀 只讀 只讀 <br>

Filter 可讀寫 可讀寫 可讀寫 可讀寫 <br>

LockType 可讀寫 可讀寫 可讀寫 可讀寫 <br>

MarshalOptions 可讀寫 可讀寫 可讀寫 可讀寫 <br>

MaxRecords 可讀寫 可讀寫 可讀寫 可讀寫 <br>

PageCount 不支持 不支持 只讀 只讀 <br>

PageSize 可讀寫 可讀寫 可讀寫 可讀寫 <br>

RecordCount 不支持 不支持 只讀 只讀 <br>

Source 可讀寫 可讀寫 可讀寫 可讀寫 <br>

State 只讀 只讀 只讀 只讀 <br>

Status 只讀 只讀 只讀 只讀 <br>

AddNew 支持 支持 支持 支持 
<br>
CancelBatch 支持 支持 支持 支持 <br>

CancelUpdate 支持 支持 支持 支持 <br>

Clone 不支持 不支持 <br>

Close 支持 支持 支持 支持 <br>

Delete 支持 支持 支持 支持 <br>

GetRows 支持 支持 支持 支持 <br>

Move 不支持 支持 支持 支持 <br>

MoveFirst 支持 支持 支持 支持 

<br>MoveLast 不支持 支持 支持 支持 <br>

MoveNext 支持 支持 支持 支持 <br>

MovePrevious 不支持 支持 支持 支持 <br>

NextRecordset 支持 支持 支持 支持 <br>

Open 支持 支持 支持 支持 <br>

Requery 支持 支持 支持 支持 <br>

Resync 不支持 不支持 支持 支持 <br>

Supports 支持 支持 支持 支持 <br>

Update 支持 支持 支持 支持 <br>

UpdateBatch 支持 支持 支持 支持 <br>

-------------------------------------------------------------- 

其中NextRecordset方法并不適用于Microsoft Access數據庫。 <br>

LockType <br>

Recordset對象Open方法的LockType參數表示要采用的Lock類型，如果忽略這個參數，那么系統(tǒng)會以Recordset對象的LockType屬性為預設值。LockType參數包含adLockReadOnly、adLockPrssimistic、adLockOptimistic及adLockBatchOptimistic等，分述如下： <br>

------------------------------------------------------------- 

常數 常數值 說明 <br>

-------------------------------------------------------------- 

adLockReadOnly 1 缺省值，Recordset對象以只讀方式啟動，無法運行AddNew、Update及Delete等方法 <br>

adLockPrssimistic 2 當數據源正在更新時，系統(tǒng)會暫時鎖住其他用戶的動作，以保持數據一致性。 <br>

adLockOptimistic 3 當數據源正在更新時，系統(tǒng)并不會鎖住其他用戶的動作，其他用戶可以對數據進行增、刪、改的操作。 <br>

adLockBatchOptimistic 4 當數據源正在更新時，其他用戶必須將CursorLocation屬性改為adUdeClientBatch才能對數據進行增、  <br>

刪、改的操作。 <br>
[[category:ASP]]