Web+数据库 ( 积分: 50 )

在webmodule中加入Table
table关闭时，一切正常，该显示的都能显示，
可是这个table不能打开，一旦open就出错了

如果在程序中open，IE就显示

Internal Application Error
Network initialization failed. Permission denied. File: C:/PDOXUSRS.NET Directory: C:/

如果在编程时就打开，那么ie显示
Internal Server Error 500
Exception: EDBEngineError
Message: Permission denied. File: PDOXUSRS.NET

在webmodule中加入Table
table关闭时，一切正常，该显示的都能显示，
可是这个table不能打开，一旦open就出错了

如果在程序中open，IE就显示

Internal Application Error
Network initialization failed. Permission denied. File: C:/PDOXUSRS.NET Directory: C:/

如果在编程时就打开，那么ie显示
Internal Server Error 500
Exception: EDBEngineError
Message: Permission denied. File: PDOXUSRS.NET

程序如下：
webmodule中有 TableUser: TTable; 和 Session1: TSession;
TableUser是user.db数据库

procedure TWebModule1.WebModule1WebActionItemLoginAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var s:string;
begin
s:='<H1>已经登录的首页</H1>';
s:=s+'<P>Host:'+Request.Host+'</P>';
with Request.QueryFields do begin UserName:=Values['UserName']; Password:=Values['Password']; end;
with TableUser do begin
//try
Open;
try if Locate('UserName;Password', VarArrayOf([UserName,Password]),[loPartialKey]) then
s:=s+'<P>'+FieldByName('Xm').AsString+'</P>';
except s:=s+'<P>数据查询错误</P>';end;
//except s:=s+'<P>数据库没有打开</P>';end;
end; Response.Content:=s; Handled:=True;
end;

把BDE换成ADO

或者自己手动在C盘建立那个目录