6、處理數(shù)據(jù)庫日期值
1099


　　 如果說包含引號的字符串會帶來問題的話，那么對我們的某些讀者來說向數(shù)據(jù)庫傳遞日期數(shù)據(jù)更是容易出錯。下面我們根據(jù)所用數(shù)據(jù)庫系統(tǒng)的類型分別解釋如何正確地完成這一任務(wù)。

　　 問：

　　 如何使用ASP向數(shù)據(jù)庫傳遞日期數(shù)據(jù)？

　　 答：

　　 答案與所用數(shù)據(jù)庫類型有關(guān)。假設(shè)我們使用名為“strDate”的變量保存日期數(shù)據(jù)，如果使用Access數(shù)據(jù)庫，那么生成字符串的代碼為：
strSQL = " 合法的SQL命令 " & "#" & strDate & "#"




　　 如果使用的是SQL Server、Sybase、Oracle等數(shù)據(jù)庫，則代碼為：
strSQL = "合法的SQL命令" & "'" & strDate & "'"




　　 注意兩者的區(qū)別在于發(fā)送日期數(shù)據(jù)所用的分隔符。Access使用“#”，而其他數(shù)據(jù)庫使用的是單引號“'”。

7、檢查Cookie是否啟用
用戶已經(jīng)禁用Cookie？看來，這個(gè)用戶不那么信任你。不過，既然他這么樂意搞小動作，你也不妨來一下。使用下面介紹的方法，你可以檢查用戶是否已經(jīng)禁用了Cookie，然后禮貌地告訴他如果要使用網(wǎng)站的全部功能，那么他必須啟用Cookie。

　　 問：

　　 如何才能知道用戶是否關(guān)閉了Cookie？

　　 答：

　　 要檢查用戶是否已經(jīng)關(guān)閉了Cookie，可按如下步驟進(jìn)行：

設(shè)置一個(gè)Cookie。
重定向頁面。
在重定向頁面中讀取Cookie。
如果存在Cookie，則用戶已經(jīng)啟用了Cookie；否則，說明用戶禁用了Cookie。
通過查詢字符串確定當(dāng)前位于步驟1還是3。
　　 代碼實(shí)例如下： 　　
 Dim strCookie, strTry
 strCookie = Request.Cookies("MyCookie")
 strTry = Request.QueryString("Try")
 
 If strCookie = "" Then
' Check to see if this is a redirect
' after setting the cookie
If strTry = "" Then
 Response.Cookies("MyCookie") = "Set"
 ' Redirect to this page and try again.
 Response.Redirect(Request.ServerVariables("SCRIPT_NAME")

& "?Try=Yes")
Else
 'User/Browser didn't accept cookies
 'Do something...
End If
 Else
' -- Hooray! User is accepting cookies
' -- Delete our cookie: by setting its
' -- expiry date to waaaay back
Response.Cookies("MyCookie").Expires = "January 1, 1980"
 'Do something...
 End If

8、檢查文件是否存在
如果你通過ASP來管理文件，在處理某個(gè)文件之前必須確認(rèn)一下該文件確實(shí)存在。下面介紹的簡單代碼可用于驗(yàn)證文件是否存在。

　　 問：

　　 我想訪問某個(gè)數(shù)據(jù)庫中的PDF文件，并在HTML頁面中創(chuàng)建對這些文件的鏈接。在刷新鏈接之前，我想要驗(yàn)證文件是否確實(shí)存在。如何在ASP中實(shí)現(xiàn)驗(yàn)證功能？

　　 答：

　　 在ASP中可以使用FileSystemObject的FileExists方法驗(yàn)證文件是否存在。
Dim fs, strFileNameAndPath

strFileNameAndPath = Your file name
' -- Use file name and path
' -- from the database. Remember to map it
' -- to the Web Server's point of view.
' -- Use Server.MapPath for help.

Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FileExists(strFileNameAndPath) Then
 ' -- 文件存在
else
 ' -- 文件不存在
end if