UC知道ASP实现登陆界面和连接ACCESS数据库
来源：百度知道 编辑：UC知道 时间：2024/05/27 04:46:16
目的:我想在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 recordsA
首先我在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 recordsA
错误在这里
Commandtext="Insert into t_user(d_user,d_pass)values('"&username&"','"&userpass&"')"
在values前面有个空格吧.小心点噢
兄弟 你的中英文一定要区分开啊 上面那位说的没错啊
Response.Write"用户已存在”<>Response.Write"用户已存在"
要是做区分大小写的程序那你不是更不知道哪里错
建立你在找错误的时候用Response.End()
来断开 要自己学会找错误啊
我做的时候也遇到过这个问题
一直用像你的这个连接突然出错后来我该成这样就可以了
<%
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" 试试