本文討論區(qū)：http://bbs.foosun.net/dispbbs.asp?boardID=22&ID=16236&page=1

風(fēng)訊的功能很大，但不知道大家有沒有碰到這個(gè)問題？
現(xiàn)在許多虛擬空間都提供了專用數(shù)據(jù)庫防下目錄，但這個(gè)目錄一般在WEB虛擬目錄之外，要用../的方式引用才可以。
為了安全，總想將數(shù)據(jù)庫放在虛擬目錄之外，但由于風(fēng)訊使用相對于虛擬目錄的絕對路徑，
而使我們無法用 ../date 的方式引用虛擬目錄前的文件。本人為此寫了一個(gè)插件，此文件可將引用地址設(shè)置為相對于磁盤的絕對路徑引用。就是將目錄轉(zhuǎn)換為F:\xx\xx 的方式。

假設(shè)你的網(wǎng)站FTP目錄在F:\webroot\myfile
而你的WEB虛擬根目錄在myfile下的web文件里。在myfile下還有一個(gè)data目錄放一個(gè)名為data.mdb的數(shù)據(jù)庫文件。
下面為實(shí)現(xiàn)方法，

第一步、新建一個(gè)文件名為 VirtualPath.asp 文件內(nèi)容如下：

<%
Function VirtualPath(Way,PathName,DelPath)
Dim MainPath,ArrayPath,Num,TempPath,i

Select Case UCase(Way)
Case "MAINPATH"
MainPath=Server.MapPath("\")&"\"
Case "FILEPATH"
MainPath=Request.ServerVariables("PATH_TRANSLATED")
Case Else
Response.Write "您輸入的參數(shù)有誤，第一個(gè)參數(shù)請輸入MainPath或FilePath。使用MainPath將以站點(diǎn)所在的虛擬目錄為參照截取；FilePath將以當(dāng)前文件所在目錄為參照截取。"
Response.End
End Select

ArrayPath=Split(MainPath,"\")
Num=UBound(ArrayPath)

IF DelPath<>"" Then
For i=0 to Num
IF UCase(ArrayPath(i))= UCase(DelPath) Then
Exit For
End IF
Next
IF i>Num Then
Response.Write "沒有您要截取的目錄，請檢查參數(shù)的正確性。也可設(shè)置為空，此時(shí)將使用全部目錄。"
Response.End
End IF
End IF

TempPath=ArrayPath(0)
For i=1 to Num-1
IF UCase(ArrayPath(i))<>UCase(DelPath) Then
TempPath=TempPath & "\" & ArrayPath(i)
Else
Exit For
End IF
Next

VirtualPath=TempPath Replace(PathName,"/","\")
End Function
%>

第二步、

將新建的文件 VirtualPath.asp 放在風(fēng)訊的INC目錄里。找到風(fēng)訊INC目錄下的 Cls_DB.asp 這個(gè)文件
在第一行增加代碼 <!--#include file="VirtualPath.asp" -->
在文件 Cls_DB.asp 里找到代碼 Server.MapPath(DataBaseConnectStr) 用下面的代碼代替
VirtualPath("mainpath",DataBaseConnectStr,"web")

到現(xiàn)在為止 大功告成。注重 VirtualPath 函數(shù)的幾個(gè)參數(shù)，

第一個(gè)參數(shù)可設(shè)置為 mainpath 或filepath 設(shè)置為 mainpath 則表示相對于站的WEW虛擬目錄
設(shè)置為 filepath 則表示相對于VirtualPath.asp文件的所在目錄。
第二個(gè)參數(shù)表示要設(shè)置的數(shù)庫地址
第二個(gè)參數(shù)表示要截取的目錄，例如 F:\webroot\web 假如如下設(shè)置的VirtualPath("mainpath","/data/data.mdb","web")
最終產(chǎn)生的路徑為 F:\webroot\data\data.mdb

現(xiàn)在你明白了嗎？此文件不僅可用于風(fēng)訊，可以用于任何ASP Access的程序。

有愛好的朋友不妨在一起討論一下。

查看更多 風(fēng)訊cms教程  風(fēng)訊cms模板