ASP网页内部错误

来源：百度知道 编辑：UC知道 时间：2024/05/14 16:09:05
<% dim username, password,constr
constr="Provider=Microsoft.Jet.OLEDB.4.0;Data source="&server.mappath("a.mdb")

username=request("user")
password=request("password")
if username="" then
response.Write("用户名不能为空")
response.end
end if
set Conn=Server.Createobject("adodb.connection")

set rs=server.CreateObject("adodb.recordset")

Conn.open conn

sql="select * from user where username='"&username "'and password='"&password "'"
rs.open sql ,constr,1,1
if not rs.eof and not rs.bof then
response.Redirect("lyb.asp")
else
response.Write(" 用户名或密码错误")
end if
rs.close
conn.close

%>

运行以上代码后,提示 HTTP 500 - 内部服务器错误
请问高手是什么原因?
我的文件系统是FAT32
数据库也不是只读属性

Conn.open conn
这句错了
改为：
Conn.open constr
==========================================================
sql="select * from user where username='"&username "'and password='"&password "'"
rs.open sql ,constr,1,1
这两句也都错了
改为：
sql="select * from user where username='"&username&"'and password='"&password& "'"
rs.open sql ,conn,1,1

注意网站文件和数据库是否为只读,如果是只读将其只读属性去掉
如果硬盘是NTFS格式,就要打开网站所在的文件夹属性,选择"安全性"选项卡,将所有用户的安全性设为"完全控制"

<% dim username, password,constr
constr="Provider=Microsoft.Jet.OLEDB.4.0;Data source="&server.mappath("a.mdb")

username=request("user")
password=request("password")
if username="" then
response.Write("用户名不能为空")
response.end
end if
set conn=Server.Createobject("adodb.connection"