Active Server Page (ASP) 常見問題

来源：互联网发布：大众变速箱电脑编程编辑：程序博客网时间：2024/05/21 19:41

Active Server Page (ASP) 常見問題

【「Active Server Page」以下簡稱「ASP」】

問：如何將認證使用者儲存到Session變數(New) 問： ServerVariables("LOGON_USER")傳回空值(New) 問： ServerVariables("Remote_Host")傳回IP而不是HostName(New) 問： CDO版本摘要介紹問：何謂ADSI？問：何謂ADsPath? 問：如何得到LDAP Root DS Entry？問：如何偵測瀏覽器的屬性？問：如何善用Response.Buffer增進瀏覽速度？問：如何利用Meta Tag來增加文件屬性？問： Server.Transfer和Response.Redirect相異之處？問： Server.Execute和#include相異之處？問：要如何使用ASPError物件？問：要如何讓以asp程式讓Internet Explorer 瀏覽器不cache？問：如何依據瀏覽器語言版本設定ASP locale ID ? 問：如何使用ASP/ADO query ODBC DATASOURCE？問：要如何使用 Active Server Pages 程式預防瀏覽器開啟檔案時只顯示為Frameset的一部份？問：

如何使用ASP 製作模擬動態生長的表單(form) ?

問：如何使用ASP利用ADO呼叫SQL的stored procedure？問：我的程式中是否能放入Option Explicit?
Option Explicit
Response.Expires = 0 問：如何在ASP程式中設定session timeout的長短? 問：如果使用者不接受cookie會發生何種狀況？問：要如何設定ASP的cache？問：當使用了Proxy Server的情況下，Webpage回傳一個"Object Moved"的錯誤，要如何修改
asp程式解決這個問題？問：什麼時候增加ASP script engine cache，可以幫助運行的效率？問：使用 On filesystemobject的 .filecopy 方法，得到以下錯誤訊息，應該如何處理？

Microsoft VBScript runtime error '800a0046'
Permission denied

問：如何設計一個page可以對每個登入的使用者提示歡迎的祝賀語如下？

Welcome <NT Username>

問：是否有可能去讀取以及解析在其他site的檔案而無須附加其他的元件？問：當access自己web site 下的virtual directory ，會發生以下的錯誤訊息，該如何處理？

HTTP/1.1 500 Server Error -2146646015 (0x800cc801)

問：為何IIS的Online文件的Index tab沒有包含所有的章節？問：為何無法在PWS 或是NT Workstation 版的IIS上做搜尋文件? 問：為何當disable 自動密碼同步後，匿名使用者無法進入web site？問： ASP 1.0有哪幾個版本？問：發生以下的錯誤是什麼原因？

Microsoft VBScript compilation error '800a0414'
Cannot use parens when calling a Sub
/test/test.asp, line 17
myobj.movefile(fname, sfolder, tfolder)
---------------------------------------^

問：要如何強迫 session 關閉? 問：發生以下的錯誤是什麼原因，要如何解決？

error 'ASP 0115' Unexpected error
/disney/main.asp
A trappable error occurred in an external object. The script cannot continue running.

問：如何將認證使用者儲存到Session變數(New) 答： <%
If Session("LOGON_USER") = "" Then
If Request.ServerVariables("LOGON_USER") = "" Then
Response.Status = "401 Access Denied"
Response.End
Else
Session("LOGON_USER") = Request.ServerVariables("LOGON_USER")
' the following lines strip out an NT domain from the user name
If InStr(Session("LOGON_USER"),"/") then
Session("LOGON_USER") = Right(Session("LOGON_USER"), Len(Session("LOGON_USER")) - InStr(Session("LOGON_USER"),"/"))
End If
End If
End If
%> 問： ServerVariables("LOGON_USER")傳回空值(New) 答：如果ASP page使用"允許匿名存取"，則"LOGON_USER"variable將會傳回空值。如果要正確顯示請將認證模式設為基本驗證或整合Windows驗證即可。問： ServerVariables("Remote_Host")傳回IP而不是HostName(New) 答：在預設情況下，ServerVariables("Remote_Host")傳回IP，這是設計上的考量，為了要增進IIS的效能，但您仍可藉由修改Metabase，叫IIS去跟DNS做查詢，詳細請見KB Q245574。問： CDO版本摘要介紹答： Library 來源檔名 ProgID CDO 1.0 Exchange 4.0 Mdlsp.dll
Mdlsp32.dll MAPI CDO 1.1 Exchange 5.0 OleMsg.dll
OleMsg32.dll MAPI CDO 1.2 Exchange 5.5
Outlook 98
Outlook 2000
Exchange 2000 Cdo.dll　 MAPI CDO for NTS 1.2 Exchange 5.5
IIS 4.0
MCIS
Windows 2000 CdoNTS.dll　 CDONTS CDO for Windows 2000 (CDO 2.0) Windows 2000 Cdosys.dll CDO CDO for Exchange 2000 (CDO 3.0) Exchange 2000 Cdoex.dll CDO CDO for Exchange Management 1.0 Exchange 2000 Cdoexm.dll CDOEXM CDO WorkFlow Objects for Microsoft Exchange 1.0 Exchange 2000 Cdowf.dll CDOWF 問：何謂ADSI？答： ADSI是一組存取不同目錄服務的介面，這裡將會專注在存取Windows 2000 Active Directory directory service. ADSI使用LDAP協定來跟Active Directory溝通。問：何謂ADsPath? 答：當使用程式存取Active Directory時，你必須提供LDAP namespace(progID)和物件的路徑(ADsPath)，以下是一些ADsPath的範例：
ADSI object ADsPath Organizational unit in the nwtraders domain LDAP://OU=Sales, DC=nwtraders, DC=msft Exchange object on Exchange Server LDAP://exch01/O=Microsoft jsmith user in the Sales OU of the nwtraders domain LDAP://CN=jsmith, OU=Sales, DC=nwtraders, DC=msft comp1 in the Redmond domain WinNT://REDMOND/comp1, computer alice, a local user on the comp1 computer WinNT://REDMOND/comp1/alice 問：如何得到LDAP Root DS Entry？答： RFC 2251 中規範所有的LDAP directory都必須擁有一個特別內容rootDSE object，其中一個標準的屬性叫做defaultNamingContext，在Windows 2000 中，他會回傳Active Directory根目錄的名稱，請見以下範例：
Set Root = GetObject("LDAP://RootDSE")
DomainPath = Root.Get("DefaultNamingContext")
Set Domain = GetObject("LDAP://"& DomainPath) 問：如何偵測瀏覽器的屬性？答：利用MSWC.BrowserType可以偵測到瀏覽器許多屬性，如瀏覽器名稱、版本，是否支援cookies、frames、tables、BackGroundSounds、VBScript、JavaScript等。例如： Set bc = Server.CreateObject("MSWC.BrowserType")
if bc.cookies=True then... 問：如何利用Response.Buffer增進瀏覽速度？答：利用Response.Buffer=True，Response.Flush可以增進使用者瀏覽速度，如果一個頁面 Response.Buffer=False，有30個資料傳輸，若有100個人瀏覽此頁面，則有 3000個來回傳輸，嚴重影響效率；若在起始處設定 Response.Buffer=True，再將整個頁面分為幾個群組，在設當的地方搭配 Response.Flush，則可大幅改善使用者經驗。問：如何利用Meta Tag來增加文件屬性？答：在Meta Tag 中記錄著各種要提供給瀏覽器的隱藏資訊或指示，如
<META NAME="Update" CONTENT="2000/9/7">
<META NAME="Author" CONTENT="Jerry">
<META NAME="KeyWords" CONTENT="ASP">
<META NAME="Description" CONTENT="VID/ASP FAQ">
如此可讓搜尋引擎或Web Crawler自動進行讀取。問： Server.Transfer和Response.Redirect相異之處？答：雖然Server.Transfer和Response.Redirect都會轉向，但兩者之間仍有些不同：
Response.Redirect是先由伺服器端將資料送到用戶端，用戶端再依照Redirect內容，向伺服器端要求轉向到另一個網頁，如此會增加一次用戶端與伺服器端來回通訊時間，而Server.Transfer則是在伺服器端直接轉向到另一個網頁。並且由於Server.Transfer轉向前後的網頁，仍屬同一應用程式，因此會將Session和Application的變數值帶到轉向後的URL位置，而Response.Redirect不會。問： Server.Execute和#include相異之處？答： Execute Method 是呼叫一個.asp 檔案並執行它，比較類似一般程式語言的procedure call；而#include則僅將所包含的程式插入原程式當中。問：要如何使用ASPError物件？答：首先由Set objASPError=Server.GetLastError取得錯誤資訊，接著由ASPError物件的屬性取得相關訊息：
objASPError.ASPCode：傳回IIS產生的錯誤碼
objASPError.Number：傳回COM標準錯誤碼，如 0x800A03FC
objASPError.Source：傳回實際產生錯誤的原始碼
objASPError.Category：指出錯誤的來源為ASP、Script或是Object
objASPError.File：傳回錯誤程式檔案名稱
objASPError.Line：傳回錯誤程式碼的行數
objASPError.Column：傳回錯誤程式碼的列數
objASPError.Description：傳回錯誤原因簡介
objASPError.ASPDescription：傳回詳細錯誤原因問：要如何讓以asp程式讓Internet Explorer 瀏覽器不cache？答：除了由IIS可設定讓Internet Explorer不cache以外，可以用以下的asp script，基本上是使用HTTP header控制cache。
以下script必須執行在HTTP 1.1 server ，適用於Internet Explorer 4.0以上版本。

<% Response.CacheControl = "no-cache" %>
<% Response.AddHeader "Pragma", "no-cache" %>
<% Response.Expires = -1 %> 問：如何依據瀏覽器語言版本設定ASP locale ID ? 答：使用以下的副程式就是依據使用者的瀏覽器語言，動態設定ASP應用程式 Locale ID
(Session.LCID) 。

<SCRIPT Runat=Server Language=VBScript>
Sub SetLCID()
Dim strAcceptLanguage
Dim strLCID
Dim strPos

strAcceptLanguage = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")

strPos = InStr(1, strAcceptLanguage, ",")
If strPos > 0 Then
strAcceptLanguage = Left(strAcceptLanguage, strPos - 1)
End If

Select Case LCase(strAcceptLanguage)
Case "af"
strLCID = 1078 ' Afrikaans
Case "sq"
strLCID = 1052 ' Albanian
Case "ar-sa"
strLCID = 1025 ' Arabic(Saudi Arabia)
Case "ar-iq"
strLCID = 2049 ' Arabic(Iraq)
Case "ar-eg"
strLCID = 3073 ' Arabic(Egypt)
Case "ar-ly"
strLCID = 4097 ' Arabic(Libya)
Case "ar-dz"
strLCID = 5121 ' Arabic(Algeria)
Case "ar-ma"
strLCID = 6145 ' Arabic(Morocco)
Case "ar-tn"
strLCID = 7169 ' Arabic(Tunisia)
Case "ar-om"
strLCID = 8193 ' Arabic(Oman)
Case "ar-ye"
strLCID = 9217 ' Arabic(Yemen)
Case "ar-sy"
strLCID = 10241 ' Arabic(Syria)
Case "ar-jo"
strLCID = 11265 ' Arabic(Jordan)
Case "ar-lb"
strLCID = 12289 ' Arabic(Lebanon)
Case "ar-kw"
strLCID = 13313 ' Arabic(Kuwait)
Case "ar-ae"
strLCID = 14337 ' Arabic(U.A.E.)
Case "ar-bh"
strLCID = 15361 ' Arabic(Bahrain)
Case "ar-qa"
strLCID = 16385 ' Arabic(Qatar)
Case "eu"
strLCID = 1069 ' Basque
Case "bg"
strLCID = 1026 ' Bulgarian
Case "be"
strLCID = 1059 ' Belarusian
Case "ca"
strLCID = 1027 ' Catalan
Case "zh-tw"
strLCID = 1028 ' Chinese(Taiwan)
Case "zh-cn"
strLCID = 2052 ' Chinese(PRC)
Case "zh-hk"
strLCID = 3076 ' Chinese(Hong Kong)
Case "zh-sg"
strLCID = 4100 ' Chinese(Singapore)
Case "hr"
strLCID = 1050 ' Croatian
Case "cs"
strLCID = 1029 ' Czech
Case "da"
strLCID = 1030 ' Danish
Case "n"
strLCID = 1043 ' Dutch(Standard)
Case "nl-be"
strLCID = 2067 ' Dutch(Belgian)
Case "en"
strLCID = 9 ' English
Case "en-us"
strLCID = 1033 ' English(United States)
Case "en-gb"
strLCID = 2057 ' English(British)
Case "en-au"
strLCID = 3081 ' English(Australian)
Case "en-ca"
strLCID = 4105 ' English(Canadian)
Case "en-nz"
strLCID = 5129 ' English(New Zealand)
Case "en-ie"
strLCID = 6153 ' English(Ireland)
Case "en-za"
strLCID = 7177 ' English(South Africa)
Case "en-jm"
strLCID = 8201 ' English(Jamaica)
Case "en"
strLCID = 9225 ' English(Caribbean)
Case "en-bz"
strLCID = 10249 ' English(Belize)
Case "en-tt"
strLCID = 11273 ' English(Trinidad)
Case "et"
strLCID = 1061 ' Estonian
Case "fo"
strLCID = 1080 ' Faeroese
Case "fa"
strLCID = 1065 ' Farsi
Case "fi"
strLCID = 1035 ' Finnish
Case "fr"
strLCID = 1036 ' French(Standard)
Case "fr-be"
strLCID = 2060 ' French(Belgian)
Case "fr-ca"
strLCID = 3084 ' French(Canadian)
Case "fr-ch"
strLCID = 4108 ' French(Swiss)
Case "fr-lu"
strLCID = 5132 ' French(Luxembourg)
Case "gd"
strLCID = 1084 ' Gaelic(Scots)
Case "gd-ie"
strLCID = 2108 ' Gaelic(Irish)
Case "de"
strLCID = 1031 ' German(Standard)
Case "de-ch"
strLCID = 2055 ' German(Swiss)
Case "de-at"
strLCID = 3079 ' German(Austrian)
Case "de-lu"
strLCID = 4103 ' German(Luxembourg)
Case "de-li"
strLCID = 5127 ' German(Liechtenstein)
Case "e"
strLCID = 1032 ' Greek
Case "he"
strLCID = 1037 ' Hebrew
Case "hi"
strLCID = 1081 ' Hindi
Case "hu"
strLCID = 1038 ' Hungarian
Case "is"
strLCID = 1039 ' Icelandic
Case "in"
strLCID = 1057 ' Indonesian
Case "it"
strLCID = 1040 ' Italian(Standard)
Case "it-ch"
strLCID = 2064 ' Italian(Swiss)
Case "ja"
strLCID = 1041 ' Japanese
Case "ko"
strLCID = 1042 ' Korean
Case "ko"
strLCID = 2066 ' Korean(Johab)
Case "lv"
strLCID = 1062 ' Latvian
Case "lt"
strLCID = 1063 ' Lithuanian
Case "mk"
strLCID = 1071 ' Macedonian
Case "ms"
strLCID = 1086 ' Malaysian
Case "mt"
strLCID = 1082 ' Maltese
Case "no"
strLCID = 1044 ' Norwegian(Bokmal)
Case "no"
strLCID = 2068 ' Norwegian(Nynorsk)
Case "p"
strLCID = 1045 ' Polish
Case "pt-br"
strLCID = 1046 ' Portuguese(Brazilian)
Case "pt"
strLCID = 2070 ' Portuguese(Standard)
Case "rm"
strLCID = 1047 ' Rhaeto-Romanic
Case "ro"
strLCID = 1048 ' Romanian
Case "ro-mo"
strLCID = 2072 ' Romanian(Moldavia)
Case "ru"
strLCID = 1049 ' Russian
Case "ru-mo"
strLCID = 2073 ' Russian(Moldavia)
Case "sz"
strLCID = 1083 ' Sami(Lappish)
Case "sr"
strLCID = 3098 ' Serbian(Cyrillic)
Case "sr"
strLCID = 2074 ' Serbian(Latin)
Case "sk"
strLCID = 1051 ' Slovak
Case "s"
strLCID = 1060 ' Slovenian
Case "sb"
strLCID = 1070 ' Sorbian
Case "es"
strLCID = 1034 ' Spanish(Spain - Traditional Sort)
Case "es-mx"
strLCID = 2058 ' Spanish(Mexican)
Case "es"
strLCID = 3082 ' Spanish(Spain - Modern Sort)
Case "es-gt"
strLCID = 4106 ' Spanish(Guatemala)
Case "es-cr"
strLCID = 5130 ' Spanish(Costa Rica)
Case "es-pa"
strLCID = 6154 ' Spanish(Panama)
Case "es-do"
strLCID = 7178 ' Spanish(Dominican Republic)
Case "es-ve"
strLCID = 8202 ' Spanish(Venezuela)
Case "es-co"
strLCID = 9226 ' Spanish(Colombia)
Case "es-pe"
strLCID = 10250 ' Spanish(Peru)
Case "es-ar"
strLCID = 11274 ' Spanish(Argentina)
Case "es-ec"
strLCID = 12298 ' Spanish(Ecuador)
Case "es-c"
strLCID = 13322 ' Spanish(Chile)
Case "es-uy"
strLCID = 14346 ' Spanish(Uruguay)
Case "es-py"
strLCID = 15370 ' Spanish(Paraguay)
Case "es-bo"
strLCID = 16394 ' Spanish(Bolivia)
Case "es-sv"
strLCID = 17418 ' Spanish(El Salvador)
Case "es-hn"
strLCID = 18442 ' Spanish(Honduras)
Case "es-ni"
strLCID = 19466 ' Spanish(Nicaragua)
Case "es-pr"
strLCID = 20490 ' Spanish(Puerto Rico)
Case "sx"
strLCID = 1072 ' Sutu
Case "sv"
strLCID = 1053 ' Swedish
Case "sv-fi"
strLCID = 2077 ' Swedish(Finland)
Case "th"
strLCID = 1054 ' Thai
Case "ts"
strLCID = 1073 ' Tsonga
Case "tn"
strLCID = 1074 ' Tswana
Case "tr"
strLCID = 1055 ' Turkish
Case "uk"
strLCID = 1058 ' Ukrainian
Case "ur"
strLCID = 1056 ' Urdu
Case "ve"
strLCID = 1075 ' Venda
Case "vi"
strLCID = 1066 ' Vietnamese
Case "xh"
strLCID = 1076 ' Xhosa
Case "ji"
strLCID = 1085 ' Yiddish
Case "zu"
strLCID = 1077 ' Zulu
Case Else
strLCID = 2048 ' default
End Select

Session.LCID = strLCID
End Sub
</SCRIPT>

Sample ASP Page
---------------

以下的asp程式展示Locale 的變換，請在瀏覽器中的Internet 選項，改變語言設定。再refresh 這個 ASP page。

NOTE: The SetLCID() 副程式請include在檔案setlcid.inc.

<%@ Language=VBScript %>
<HTML>
<BODY>

<%
SetLCID 'Set the Locale ID per the browser

Response.Write "Date/Time Formats"
Response.Write "<p>Date = " & Date()
Response.Write "<br>Month = " & Month(Date())
Response.Write "<br>Day = " & Day(Date())
Response.Write "<br>Year = " & Year(Date())
Response.Write "<br>Time = " & Time()

Response.Write "<p>Currency Formats"
Response.Write "<p>" & FormatCurrency(1.05, 2)
Response.Write "<br>" & FormatNumber(1000000,2)
Response.Write "<br>" & FormatNumber(-1000000,2)

%>
</BODY>
</HTML>

問：如何使用ASP/ADO query ODBC DATASOURCE？答：以下的example僅做測試目的，測試 ADO 連接到任何 ODBC Datasource。
<HTML>
<%
if Request("REQUESTTYPE") <> "POST" then
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
' % 如果request 不包含 REQUESTTYPE = "POST
' % 則顯示 Form Page
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

dsn = Session("dsn")
dbuser = Session("dbuser")
dbpass = Session("dbpass")
dbtable = Session("dbtable")
dbfield = Session("dbfield")
dbwhere = Session("dbwhere")
%>
<FORM ACTION=adoselect.asp method=POST>
<TABLE>
<TR><TD><B>You are authenticated as: </TD>
<TD><FONT COLOR=GREEN><% =
Request.ServerVariables("LOGON_USER")%></TD></TR>
<TR><TD><B>Your IP Address is: </TD>
<TD><FONT COLOR=GREEN><% =
Request.ServerVariables("REMOTE_ADDR")%></TD></TR>
<TR><TD><B>System DSN:</TD>
<TD><INPUT TYPE=TEXT NAME=datasource VALUE="<% = dsn %>"></TD></TR>
<TR><TD><B>Username:</TD>
<TD><INPUT TYPE=TEXT NAME=username VALUE="<% = dbuser %>"></TD></TR>
<TR><TD><B>Password:</TD>
<TD><INPUT TYPE=Password NAME=password VALUE="<% = dbpass
%>"></TD></TR>
<TR><TD><B>Table:</TD>
<TD><INPUT TYPE=TEXT NAME=table VALUE="<% = dbtable %>"></TD></TR>
<TR><TD><B><FONT COLOR=RED>WHERE</TD>
<TD></TD></TR>
<TR><TD><B>Field to Query:</TD>
<TD><INPUT TYPE=TEXT NAME=field VALUE="<% = dbfield %>"></TD></TR>
<TR><TD><B>Value to Query:</TD>
<TD><INPUT TYPE=TEXT NAME=where VALUE="<% = dbwhere %>"></TD></TR>
</TABLE>
<INPUT TYPE=HIDDEN NAME=REQUESTTYPE VALUE="POST">
<INPUT TYPE=Submit VALUE="Query Database">
<HR>
</FORM>
<%

else
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'% 執行 Query to Database
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
' % Request datsource 從之前的Form
' % 設定 Session 變數因此可以讀取這個值作為下次查詢使用
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

dsn = Request("datasource")
Session("dsn") = dsn

' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
' % Request username 從之前的Form
' % 設定 Session 變數因此可以讀取這個值作為下次查詢使用
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

dbuser = Request("username")
Session("dbuser") = dbuser

' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
' % Request password 從之前的Form
' % 設定 Session 變數因此可以讀取這個值作為下次查詢使用
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

dbpass = Request("password")
Session("dbpass") = dbpass

' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
' % Request table 從之前的Form
' % 設定 Session 變數因此可以讀取這個值作為下次查詢使用
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

dbtable = Request("table")
Session("dbtable") = dbtable

' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
' % Request field 從之前的Form
' % 設定 Session 變數因此可以讀取這個值作為下次查詢使用
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

dbfield = Request("field")
Session("dbfield") = dbfield

' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
' % Request table 從之前的Form
' % 設定 Session 變數因此可以讀取這個值作為下次查詢使用
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

dbwhere = Request("where")
Session("dbwhere") = dbwhere

' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
' % 檢查是否有任何要求的變數是blank, 如果有會通知使用者何者
' % 是blank ，反之繼續query
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
if dsn = "" OR dbuser = "" OR dbtable = "" then

Response.write "Error in SQL Statement:<BR>"
if dsn = "" then
Response.write "<FONT COLOR=RED>Missing System DSN</FONT><P>"
end if
if dbuser = "" then
Response.write "<FONT COLOR=RED>Missing Username</FONT><P>"
end if
if dbtable = "" then
Response.write "<FONT COLOR=RED>Missing Tablename</FONT><P>"
end if
Response.write "<FORM ACTION=adoselect.asp><INPUT TYPE=SUBMIT
VALUE=ReQuery></FORM>"
else
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
' % 產生 Conn Object ，開啟時
' % 帶進參數 System DSN, UserID, Password
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
Conn.Open dsn, dbuser, dbpass

' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
' % 建立 SQL 敘述並指定到變數 sql.
' $ 連接 dbtable 以及SELECT 敘述
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
if dbfield = "" OR dbwhere ="" then
sql="SELECT * FROM " & dbtable
else

' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
' % 如果 dbfield 和 dbwhere 被定，接著
' % 改變SQL 敘述使用 WHERE 子句
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
'
sql="SELECT * FROM " & dbtable
sql = sql & " WHERE " & dbfield
sql = sql & " LIKE '%" & dbwhere & "%'"
end if

' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
' %除錯用, 回傳 SQL 敘述
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Response.Write "<B><FONT SIZE=2 COLOR=BLUE>SQL STATEMENT: </B>" &
sql & "<HR>"

' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
' % 開啟 RecordSet (RS) 並傳到
' % connection (conn) 和 SQL 敘述 (sql)
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
RS.Open sql, Conn
%>

<P>
<TABLE BORDER=1>
<TR>
<%
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
' % 迴圈從 Fields Names ，印出 Field Names
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

For i = 0 to RS.Fields.Count - 1
%>
<TD><B><% = RS(i).Name %></B></TD>
<% Next %>
</TR>
<%
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
' % 迴圈從 rows, 顯示每一個field
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Do While Not RS.EOF
%>
<TR>
<% For i = 0 to RS.Fields.Count - 1 %>
<TD VALIGN=TOP><% = RS(i) %></TD>
<% Next %>
</TR>
<%
RS.MoveNext
Loop
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
' % 確認關閉 Result Set 以及 Connection object
' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
RS.Close
Conn.Close
%>
</TABLE>

<%
end if
end if
%>

問：要如何使用 Active Server Pages 程式預防瀏覽器開啟檔案時只顯示為Frameset的一部份？答：當Web 文件變成frameset的一部份的情形發生，通常是由於不是設計成個別顯示，要預防這個情形，可使用ASP 的"Response.Redirect" 和 "Request.ServerVariables" 方重新指向到frameset page。

假設使用以下文件架構:

Frameset Page (mainfrm.htm)
Frame 1 (frame1.asp)
Frame 2 (frame2.asp)

將以下的程式碼放在frame1.asp 或是 frame2.asp 在開頭的<HTML> tag 之前

<%
If (Request.ServerVariables("HTTP_REFERER") = "") Or _
(Left(Request.ServerVariables("HTTP_REFERER"),42) <> _
"http://www.myserver.com/AppDir/mainfrm.htm") Then
Response.Redirect "http://www.myserver.com/AppDir/mainfrm.htm"
End If
%>

以下是這個例子的程式碼

File: Mainfrm.htm
-----------------

<HTML>
<HEAD><TITLE>MAINFRM</TITLE></HEAD>
<BODY>
<FRAMESET ROWS="400,*">
<FRAME SCROLLING="no" NORESIZE SRC="frame1.asp">
<FRAME SCROLLING="no" NORESIZE SRC="frame2.asp">
</FRAMESET>
</BODY>
</HTML>

File: Frame1.asp
----------------

<%
If (Request.ServerVariables("HTTP_REFERER") = "") Or
(Left(Request.ServerVariables("HTTP_REFERER"),42) <>
"http://www.myserver.com/AppDir/mainfrm.htm") Then
Response.Redirect "http://www.myserver.com/AppDir/mainfrm.htm"
End If
%>

<HTML>
<HEAD><TITLE>FRAME1</TITLE></HEAD>
<BODY>
In Frame 1.
</BODY>
</HTML>

File: Frame2.asp
----------------

<HTML>
<HEAD><TITLE>FRAME2</TITLE></HEAD>
<BODY>
In Frame 2.
</BODY>
</HTML>

問：如何使用ASP 製作模擬動態生長的表單(form) ? 答： FILE: DYNAFORM.ASP
<%@ language = vbscript%>
<% Response.Expires = 0 %>
<HTML>
<HEAD>
<TITLE>Dynamically Growing Form</TITLE>
</HEAD>
<BODY>
<%
If Request("Action") = "Submit the List" Then

' Show what was entered.
Response.Write "<B>Here are the Items submitted:</B><BR>"
nItems = Request.Form("Items").Count
For i = 1 To nItems
' Show submitted Items
Response.Write Request.Form("Items")(i) & "<BR>"
Next
Response.Write Request("Item") & "<BR>"

Else

' Create the form from all items. %>
<FORM Action=dynaform.asp Method=Post>
<B>Items:</B><BR>
<%
nItems = Request.Form("Items").Count
For i = 1 To nItems
' Show previously submitted Items
Response.Write "<INPUT Type=Text Name=Items Value=""" & _
Trim(Request.Form("Items")(i)) & """><BR>"
Next

If Request.Form("Item") <> "" Then
' paint a new input box, and store the old Item in Items collection
Response.Write "<INPUT Type=Text Name=Items Value=""" & _
Trim(Request.Form("Item")) & """><BR>"

Response.Write "<P>Please enter an Item,<BR>"
Response.Write "and submit them one at a time<BR>"
Response.Write "by pressing the Add Item button.<BR>"
Response.Write "<INPUT Type=Text Size=50 Name=Item Value="""""">"
Else
' No Item was submitted, don't show an error
Response.Write "<P>Please enter an Item,<BR>"
Response.Write "and submit them one at a time<BR>"
Response.Write "by pressing the Add Item button.<BR>"
Response.Write "<INPUT Type=Text Size=40 Name=Item Value="""""">
<BR>"
End If

<% End If %>

</FORM>
</BODY>
</HTML>

問：如何使用ASP利用ADO呼叫SQL的stored procedure？答：以下有三種方式可做，以下例子是使用command物件呼叫sample stored procedure sp_test，然後這個stored procedure 會接受一個整數值為參數並會回傳一個整數值。

<%@ LANGUAGE="VBSCRIPT" %>

<HTML>
<HEAD><TITLE>Place Document Title Here</TITLE></HEAD>
<BODY>
方法一是查詢data source 的stored procedure的參數，這是較沒效率的方式為<BR>
<%
Set cn = Server.CreateObject("ADODB.Connection")
Set cmd = Server.CreateObject("ADODB.Command")
cn.Open "data source name", "userid", "password"
Set cmd.ActiveConnection = cn
cmd.CommandText = "sp_test"
cmd.CommandType = adCmdStoredProc
' Ask the server about the parameters for the stored proc
cmd.Parameters.Refresh
' Assign a value to the 2nd parameter.
' Index of 0 represents first parameter.
cmd.Parameters(1) = 11
cmd.Execute
%>
呼叫經由方法一<BR>
ReturnValue = <% Response.Write cmd.Parameters(0) %><P>

方法二是以宣告stored procedure, 接著直接宣告這個參數<BR>
<%
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "data source name", "userid", "password"
Set cmd = Server.CreateObject("ADODB.Command")
Set cmd.ActiveConnection = cn
cmd.CommandText = "sp_test"
cmd.CommandType = adCmdStoredProc
cmd.Parameters.Append cmd.CreateParameter("RetVal", adInteger, _
adParamReturnValue)
cmd.Parameters.Append cmd.CreateParameter("Param1", adInteger, _
adParamInput)
' Set value of Param1 of the default collection to 22
cmd("Param1") = 22
cmd.Execute
%>
呼叫經由方法二<BR>
ReturnValue = <% Response.Write cmd(0) %><P>

方法三是最常用的方式，使用標準方式 <%
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "data source name", "userid", "password"
Set cmd = Server.CreateObject("ADODB.Command")
Set cmd.ActiveConnection = cn
' Define the stored procedure's inputs and outputs
' Question marks act as placeholders for each parameter for the
' stored procedure
cmd.CommandText = "{?=call sp_test(?)}"
' specify parameter info 1 by 1 in the order of the question marks
' specified when we defined the stored procedure
cmd.Parameters.Append cmd.CreateParameter("RetVal", adInteger, _
adParamReturnValue)
cmd.Parameters.Append cmd.CreateParameter("Param1", adInteger, _
adParamInput)
cmd.Parameters("Param1") = 33
cmd.Execute
%>
呼叫經由方法三<BR>
ReturnValue = <% Response.Write cmd("RetVal") %><P>
</BODY>
</HTML>

問：我的程式中是否能放入Option Explicit?
Option Explicit
Response.Expires = 0 答：不可以，Option Explicit是必須以Visual Basic呼叫。問：如何在ASP程式中設定session timeout的長短? 答：舉例 Session.timeout=10 （單位為分鐘），此功能僅用在ASP 2.0以上版本。問：如果使用者不接受cookie會發生何種狀況？答：這時候，每一個 non cookie hit 都會產生一個新的session，而這個產生的session將是毫無意義的。問：要如何設定ASP的cache？答： 1.進入IIS服務管理員（MMC）
2.展開Internet Information Server，選擇伺服器
3.按滑鼠右鍵，選property(內容)
4.在Internet Information Server tab 的主要內容選"WWW服務" 並編輯
5.進入後選擇"主目錄" tab，在應用程式設定項目中按 "設定"
6.進入後選"處理程序選項" tab，就可以看到"指令檔快取記憶體" 下有三項可選擇
不要快取處理ASP檔案
快取處理所有要求的ASP檔案
要快取處理的ASP檔案的最多數目[ ] 問：當使用了Proxy Server的情況下，Webpage回傳一個"Object Moved"的錯誤，要如何修改asp程式解決這個問題？答： <%
response.redirect ....
%>

以下的程式碼可以解決Proxy Server發出page moved訊息
<%
response.clear
response.redirect ...
%>

問：什麼時候增加ASP script engine cache，可以幫助運行的效率？答：當使用超過30個不同asp pages，就必須增加AspScriptEngineCacheMax 的Metabase 參數值。問：使用 On filesystemobject的 .filecopy 方法，得到以下錯誤訊息，應該如何處理？

Microsoft VBScript runtime error '800a0046'
Permission denied

答：請確定最後的參數有包含一個反斜線(backslash) ，說明如下

是 "c:/temp/"
而不是 c:/temp"

問：如何設計一個page可以對每個登入的使用者提示歡迎的祝賀語如下？

Welcome <NT Username>

答：可利用以下的code
'Store the NT LOGON name minus the doamin name in a session variable
LN = Request.ServerVariables("REMOTE_USER")
Session("NTLogon") = UCase(Right(LN, Len(LN) - InStr(1, LN, "/")))
問：是否有可能去讀取以及解析在其他site的檔案而無須附加其他的元件？答：可以的，但只有使用java applet，可以使用 java.net.URLConnection class取得URL的內容，接著再利用其他程式碼做解析的工作。問：當access自己web site 下的virtual directory ，會發生以下的錯誤訊息，該如何處理？

HTTP/1.1 500 Server Error -2146646015 (0x800cc801)

答：這個錯誤是產生於 IIS Metabase (放置所有 config data 的地方) 這表示可能部份的data 已經找不到了，舉例而言，若是要求access某個Vdir的路徑，而實際上並不存在，這個錯誤就會發生。問：為何IIS的Online文件的Index tab沒有包含所有的章節？答：由於有部份的Online文件是從其他元件取得而不屬於IIS，(如SMTP,NNTP），所以並不會被列在主Index。問：為何無法在PWS 或是NT Workstation 版的IIS上做搜尋文件? 答：由於Online文件的搜尋元件的控制是來自於Index Server，而Index Server只工作在NT Server上，因此在Windows 95/98的 PWS或是 NT Workstation的IIS的Online文件上都不會有Index tab 問：為何當disable 自動密碼同步後，匿名使用者無法進入web site？答：當建立使用者帳戶沒有密碼，而這個帳戶為www以及ftp的匿名使用者帳戶，接著enable自動密碼同步，此時對NT而言，個密碼是有效的。此時我們將著個匿名使用者密碼從metabase 中清除，然後disable 自動密碼同步，IIS將不會將這個密碼再自動放回metabase中。問： ASP 1.0有哪幾個版本？答： ASP 1.0 是版本1.12.06.0 日期為 12/6/96
ASP 1.0a 是版本 1.13.31
ASP 1.0b 是版本 1.15.14 日期為 3/14/97
ASP 1.0b 另一個hotfix 版本的 asp.dll 是1.17.07 問：發生以下的錯誤是什麼原因？

Microsoft VBScript compilation error '800a0414'
Cannot use parens when calling a Sub
/test/test.asp, line 17
myobj.movefile(fname, sfolder, tfolder)
---------------------------------------^