我的asp代码为什么没办法提交到数据库 求大神指点 谢谢各位了!!! <% if request.
我的asp代码为什么没办法提交到数据库求大神指点谢谢各位了!!!<%ifrequest.form("pwd")<>request.form("pwd1")thenresp...
我的asp代码为什么没办法提交到数据库 求大神指点 谢谢各位了!!!
<%
if request.form("pwd")<>request.form("pwd1") then
response.write("<p align='center'>您输入的密码不一致,请重新输入!</p>")
elseif request.form("yhm")<>"" and request.form("pwd")<>"" and request.form("pwd1")<>"" then
dim conn,strconn
set conn=server.createobject("adodb.connection")
strconn="provider=microsoft.jet.oledb.4.0;data source="&server.mappath("shujuku.mdb")
conn.open strconn
dim rs,sql
sql=("select * from kehubiao where khnc='"&request.form("yhm")&"'")
set rs=conn.execute(sql)
if rs.eof then
rs.addnew
rs.("khnc")= request.form("yhm")
rs.("pwd")= request.form("pwd")
rs.("zcsj")= now()
rs.update
session("name")= request.form("yhm")
session("mima")= request.form("pwd")
response.redirect("xskhxx.asp")
else
response.write("<p align='center'>用户名已存在,请重新输入!")
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
%> 展开
<%
if request.form("pwd")<>request.form("pwd1") then
response.write("<p align='center'>您输入的密码不一致,请重新输入!</p>")
elseif request.form("yhm")<>"" and request.form("pwd")<>"" and request.form("pwd1")<>"" then
dim conn,strconn
set conn=server.createobject("adodb.connection")
strconn="provider=microsoft.jet.oledb.4.0;data source="&server.mappath("shujuku.mdb")
conn.open strconn
dim rs,sql
sql=("select * from kehubiao where khnc='"&request.form("yhm")&"'")
set rs=conn.execute(sql)
if rs.eof then
rs.addnew
rs.("khnc")= request.form("yhm")
rs.("pwd")= request.form("pwd")
rs.("zcsj")= now()
rs.update
session("name")= request.form("yhm")
session("mima")= request.form("pwd")
response.redirect("xskhxx.asp")
else
response.write("<p align='center'>用户名已存在,请重新输入!")
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
%> 展开
2个回答
展开全部
<%
If request.Form("pwd")<>request.Form("pwd1") Then
response.Write("<p align='center'>您输入的密码不一致,请重新输入!</p>")
ElseIf request.Form("yhm")<>"" And request.Form("pwd")<>"" And request.Form("pwd1")<>"" Then
Dim conn, strconn
set conn = server.CreateObject("adodb.connection")
conn = "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("bbsftplogdb.mdb")
set rs=server.createobject("adodb.recordset")
sql = ("select * from kehubiao where khnc='"&request.Form("yhm")&"'")
rs.open sql,conn,1,3 '错误点1,建议以这种格式打开数据库,格式清楚。
If rs.EOF Then
rs.addnew
rs("khnc") = request.Form("yhm") '错误点2
rs("pwd") = request.Form("pwd")
rs("zcsj") = Now()
rs.update
session("name") = request.Form("yhm")
session("mima") = request.Form("pwd")
response.redirect("xskhxx.asp")
Else
response.Write("<p align='center'>用户名已存在,请重新输入!")
End If
rs.Close
Set rs = Nothing
conn.closes
et conn = Nothing
End If
%>
在线交流,错误点已经注释。
更多追问追答
追问
能够详细解释一下错误点2吗? 和我的有什么不同呢
追答
你的方式只能默认是读操作,不能写。所以错误点1就有了。
字段的引用方式没有点。所以错误点2就有了。
展开全部
你这个貌似没有与数据库连接起来呀,怎么可能提交的上去
strconn="provider=microsoft.jet.oledb.4.0;data source="&server.mappath("shujuku.mdb")这个是表示你与数据库连接的么?
因为你的命名我都不知道是什么意思,所以不知道你代码有没有写错
strconn="provider=microsoft.jet.oledb.4.0;data source="&server.mappath("shujuku.mdb")这个是表示你与数据库连接的么?
因为你的命名我都不知道是什么意思,所以不知道你代码有没有写错
更多追问追答
追问
可这个是我复制粘贴的应该不会错 而切我在其他的代码里就完全能够读取数据库的文件
追答
那我就不清楚了,我每次做的时候不用你这样的语句,一般我跟数据库连接用这个
private static string connstr = @"Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=user;Data Source=.";在此之前就用操作来测试一下是否连接成功
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询