ASP实现登陆界面和连接ACCESS数据库
目的:我想在index.html中登陆(数据库为zhuce.mdb)首先我在ISS服务中建立一个文件夹叫ASP2(文件路径是"C:\Inetpub\wwwroot\ASP...
目的:我想在index.html中登陆(数据库为zhuce.mdb)
首先我在ISS服务中建立一个文件夹叫ASP2(文件路径是"C:\Inetpub\wwwroot\ASP2")
然后我在ASP2文件夹中建立4个文件(zhuce.mdb,register.asp,index.html,zhuce.html)
zhuce.mdb中的表名为t_user,并且建立两个字段:d_user,d_pass)
<register.asp>的代码是
<! - -#include virtual="advobs.inc"- ->
<%
username=Trim(Request.Form("Name"))
userpass=Trim(Request.Form("Password"))
if username=""or userpass=""then
Response.Redirect"zhuce.html"
end if
Set conn=Server.CreateObject("ADODB.Connection")
strProvider="Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\ASP2\zhuce.mdb;Persist Security Info=False"
conn.Open strProvider
Commandtext="Select*Form t_user where d_user='"&username&"'"
conn.Execute commandtext,recordsAffected,adcmdtext
if recordsAffected=0 then
Commandtext="Insert into t_user(d_user,d_pass)values('"&username&"','"&userpass&"')"
conn.Execute commandtext,recordsAffected,adcmdtext
Response.Write"注册成功！"
else
Response.Write"用户已存在”
Response.Write"<a href='zhuce.html'>注册页面</a>"
end if
set conn=nothing
%>
login.html>文件的代码是：
<html>
<body>
<form method="post"action="register.asp">
<p>姓名：<input type="text"name="Name"size="10"></p>
<p>密码：<input type="Password"name="Password"size="10"></p>
<p><input type="submit" value="确定">
<input type="reset" value="取消">
</p>
</form>
</body>
</html>
测试时弹出错误网页页面。
无法显示网页
试图访问的网页出现问题，无法显示。
错误类型：
Microsoft VBScript 编译器错误 (0x800A0409)
未结束的字符串常量
/ASP2/register.asp, line 20, column 21
Response.Write"用户已存在”
--------------------^
网页：
GET /ASP2/register.asp
我采纳了col_de 和林轻灵两位的意见,但是还出现了一个问题
是出在这条语句中---strProvider="Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\ASP2\zhuce.mdb;Persist Security Info=False"
测试刷新网页后
错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序
/ASP2/register.asp, 第 12 行
网页：
POST 20 ??? /ASP2/register.asp
POST Data:
Name=hs&Password=abc 展开
首先我在ISS服务中建立一个文件夹叫ASP2(文件路径是"C:\Inetpub\wwwroot\ASP2")
然后我在ASP2文件夹中建立4个文件(zhuce.mdb,register.asp,index.html,zhuce.html)
zhuce.mdb中的表名为t_user,并且建立两个字段:d_user,d_pass)
<register.asp>的代码是
<! - -#include virtual="advobs.inc"- ->
<%
username=Trim(Request.Form("Name"))
userpass=Trim(Request.Form("Password"))
if username=""or userpass=""then
Response.Redirect"zhuce.html"
end if
Set conn=Server.CreateObject("ADODB.Connection")
strProvider="Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\ASP2\zhuce.mdb;Persist Security Info=False"
conn.Open strProvider
Commandtext="Select*Form t_user where d_user='"&username&"'"
conn.Execute commandtext,recordsAffected,adcmdtext
if recordsAffected=0 then
Commandtext="Insert into t_user(d_user,d_pass)values('"&username&"','"&userpass&"')"
conn.Execute commandtext,recordsAffected,adcmdtext
Response.Write"注册成功！"
else
Response.Write"用户已存在”
Response.Write"<a href='zhuce.html'>注册页面</a>"
end if
set conn=nothing
%>
login.html>文件的代码是：
<html>
<body>
<form method="post"action="register.asp">
<p>姓名：<input type="text"name="Name"size="10"></p>
<p>密码：<input type="Password"name="Password"size="10"></p>
<p><input type="submit" value="确定">
<input type="reset" value="取消">
</p>
</form>
</body>
</html>
测试时弹出错误网页页面。
无法显示网页
试图访问的网页出现问题，无法显示。
错误类型：
Microsoft VBScript 编译器错误 (0x800A0409)
未结束的字符串常量
/ASP2/register.asp, line 20, column 21
Response.Write"用户已存在”
--------------------^
网页：
GET /ASP2/register.asp
我采纳了col_de 和林轻灵两位的意见,但是还出现了一个问题
是出在这条语句中---strProvider="Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\ASP2\zhuce.mdb;Persist Security Info=False"
测试刷新网页后
错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序
/ASP2/register.asp, 第 12 行
网页：
POST 20 ??? /ASP2/register.asp
POST Data:
Name=hs&Password=abc 展开
3个回答
展开全部
我做的时候也遇到过这个问题
一直用像你的这个连接突然出错后来我该成这样就可以了
<%
Set Myconn=Server.CreateObject("ADODB.Connection")
Myconn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("databases/数据库文件名")
%>
我现在才知道数据库连接如果你的ACCESS较老用上面的连接,
版本较新或用ODBC设置了数据源的话则用你的连接方式.
你该一下试试要不就改用strProvider="Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath("zhuce.mdb") &";Persist Security Info=False" 试试
一直用像你的这个连接突然出错后来我该成这样就可以了
<%
Set Myconn=Server.CreateObject("ADODB.Connection")
Myconn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("databases/数据库文件名")
%>
我现在才知道数据库连接如果你的ACCESS较老用上面的连接,
版本较新或用ODBC设置了数据源的话则用你的连接方式.
你该一下试试要不就改用strProvider="Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath("zhuce.mdb") &";Persist Security Info=False" 试试
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
兄弟 你的中英文一定要区分开啊 上面那位说的没错啊
Response.Write"用户已存在”<>Response.Write"用户已存在"
要是做区分大小写的程序那你不是更不知道哪里错
建立你在找错误的时候用Response.End()
来断开 要自己学会找错误啊
Response.Write"用户已存在”<>Response.Write"用户已存在"
要是做区分大小写的程序那你不是更不知道哪里错
建立你在找错误的时候用Response.End()
来断开 要自己学会找错误啊
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
错误在这里
Commandtext="Insert into t_user(d_user,d_pass)values('"&username&"','"&userpass&"')"
在values前面有个空格吧.小心点噢
Commandtext="Insert into t_user(d_user,d_pass)values('"&username&"','"&userpass&"')"
在values前面有个空格吧.小心点噢
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
