|
yuanchih_chen -> RE: FrontPgae 2002 and 2003 (4/4/2004 10:48:28)
|
Dear web expert:
First,I saw Microsoft resource like that
1. Start Registry Editor (Regedt32.exe).
2. Select the following key in the registry:
HKEY_LOCAL_MACHINE\SOFTWARE\ODBC
3. On the Security menu, click Permissions.
4. Type the required permissions for the account that is accessing the Web page.
5. Quit Registry Editor.
However, I am not sure what should I type for" required permissions for the account that is accessing the Web page"[8|]
Second, I found that IIS problem about IUSR_xxxxx user account from Doug G, but I am not sure where my IUSR_xxxxx of a account a member of the Administrators group is and how/what I can change permission for ??[8|]
Third, I read microsoft resource:
Note An easier way to perform this task is to click Start, click Run, type %temp%, and then press Enter.
2. Start Windows Explorer.
3. In Folders view, expand the path to your temporary folder.
4. Right-click the folder and click Properties on the shortcut menu.
5. On the Security tab, add Everyone to the existing permissions, assign it Change permissions, and apply these new settings to all files and subfolders.
6. Click OK
I done that, not work!
Fourth, I change something like that
fp_DEBUG = False
to :
fp_DEBUG = True
well, my error of Database Wizard became registry key 'Temporary (volatile)[8|]
Fifth,
here is a FrontPage 2003 code of global.asa
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
'==FrontPage Generated - startspan==
Dim FrontPage_UrlVars(1)
'--Project Data Connection
Application("database1_ConnectionString") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=fpdb/database1.mdb"
FrontPage_UrlVars(0) = "database1_ConnectionString"
Application("database1_ConnectionTimeout") = 15
Application("database1_CommandTimeout") = 30
Application("database1_CursorLocation") = 3
Application("database1_RuntimeUserName") = ""
Application("database1_RuntimePassword") = ""
'--
Application("FrontPage_UrlVars") = FrontPage_UrlVars
'==FrontPage Generated - endspan==
End Sub
Sub Session_OnStart
FrontPage_StartSession '==FrontPage Generated==
End Sub
Sub FrontPage_StartSession
On Error Resume Next
if Len(Application("FrontPage_VRoot")) > 0 then Exit Sub
sFile = "global.asa"
sRootPath = Request.ServerVariables("APPL_PHYSICAL_PATH")
if Left(sRootPath,1) = "/" then sSep = "/" else sSep = "\"
if Right(sRootPath,1) <> sSep then sRootPath = sRootPath & sSep
sRootPath = sRootPath & sFile
' discover the VRoot for the current page;
' walk back up VPath until we match VRoot
Vroot = Request.ServerVariables("PATH_INFO")
iCount = 0
do while Len(Vroot) > 1
idx = InStrRev(Vroot, "/")
if idx > 0 then
Vroot = Left(Vroot,idx)
else
' error; assume root web
Vroot = "/"
end if
if Server.MapPath(Vroot & sFile) = sRootPath then exit do
if Right(Vroot,1) = "/" then Vroot = Left(Vroot,Len(Vroot)-1)
iCount = iCount + 1
if iCount > 100 then
' error; assume root web
Vroot = "/"
exit do
end if
loop
' map all URL= attributes in _ConnectionString variables
Application.Lock
if Len(Application("FrontPage_VRoot")) = 0 then
Application("FrontPage_VRoot") = Vroot
UrlVarArray = Application("FrontPage_UrlVars")
for i = 0 to UBound(UrlVarArray)
if Len(UrlVarArray(i)) > 0 then FrontPage_MapUrl(UrlVarArray(i))
next
end if
Application.Unlock
End Sub
Sub FrontPage_MapUrl(AppVarName)
' convert URL attribute in conn string to absolute file location
strVal = Application(AppVarName)
strKey = "URL="
idxStart = InStr(strVal, strKey)
If idxStart = 0 Then Exit Sub
strBefore = Left(strVal, idxStart - 1)
idxStart = idxStart + Len(strKey)
idxEnd = InStr(idxStart, strVal, ";")
If idxEnd = 0 Then
strAfter = ""
strURL = Mid(strVal, idxStart)
Else
strAfter = ";" & Mid(strVal, idxEnd + 1)
strURL = Mid(strVal, idxStart, idxEnd - idxStart)
End If
strOut = strBefore & Server.MapPath(Application("FrontPage_VRoot") & strURL) & strAfter
Application(AppVarName) = strOut
End Sub
</SCRIPT>
Finally, hope I can find a solution[:(]
|
|
|
|
