asp在数据库中插入记录的问题
<%@LANGUAGE="VBSCRIPT"CODEPAGE="65001"%><!DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0Transi...
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>无标题文档</title>
</head>
<body>
<%
dim db
const DatabaseType="ACCESS"
db="lixiaofei.mdb"
On Error Resume Next
dim ConnStr
dim conn
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查Conn.asp文件中的数据库参数设置。"
Response.End
End If
sub CloseConn()
On Error Resume Next
If IsObject(Conn) Then
conn.close
set conn=nothing
end if
end sub
%>
<form name=userinfo method=post action=lixiaofei.asp?action=save>
姓名：<input type="text" name="userName" id="username" maxlength="18"/>
<br />
<input type="submit" value="提交"/>
</form>
<%select case action
case "save" call save()
end select%>
<%sub save()
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [user] where UserEmail='"&trim(request("useremail"))&"' or UserName='"&trim(request("userName"))&"'",conn,1,1
if rs.recordcount>0 then
call usererr()
rs.close
else
rs.close
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [user]",conn,1,3
rs.addnew
rs("userName")=trim(request("userName"))
rs.update
rs.close
response.Write("<table><tr><td>OK</td></tr></table>")
end if
end sub
sub usererr()
response.write "<table width=100% align=center border=0 cellspacing=0 cellpadding=0 bordercolor=#CCCCCC><tr><td bordercolor=#FFFFFF bgcolor=#FFFFFF align=center>"
response.write "<table width=450 border=0 align=center cellpadding=2 cellspacing=0><tr><td height=260>"
response.write "<p>· <font color=red>用户注册失败!</font></p><p>· 您输入的用户名或e-mail地址已存在，请返回重新输入!</p><p>· <a href=javascript:history.go(-1)>返回上一页</a></p> </td></tr></table></td></tr></table>"
end sub
%>
</body>
</html>
数据库如下：
就是执行后发现，数据库中并没有我插入的东西，数据库没有更新 展开
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>无标题文档</title>
</head>
<body>
<%
dim db
const DatabaseType="ACCESS"
db="lixiaofei.mdb"
On Error Resume Next
dim ConnStr
dim conn
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查Conn.asp文件中的数据库参数设置。"
Response.End
End If
sub CloseConn()
On Error Resume Next
If IsObject(Conn) Then
conn.close
set conn=nothing
end if
end sub
%>
<form name=userinfo method=post action=lixiaofei.asp?action=save>
姓名：<input type="text" name="userName" id="username" maxlength="18"/>
<br />
<input type="submit" value="提交"/>
</form>
<%select case action
case "save" call save()
end select%>
<%sub save()
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [user] where UserEmail='"&trim(request("useremail"))&"' or UserName='"&trim(request("userName"))&"'",conn,1,1
if rs.recordcount>0 then
call usererr()
rs.close
else
rs.close
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [user]",conn,1,3
rs.addnew
rs("userName")=trim(request("userName"))
rs.update
rs.close
response.Write("<table><tr><td>OK</td></tr></table>")
end if
end sub
sub usererr()
response.write "<table width=100% align=center border=0 cellspacing=0 cellpadding=0 bordercolor=#CCCCCC><tr><td bordercolor=#FFFFFF bgcolor=#FFFFFF align=center>"
response.write "<table width=450 border=0 align=center cellpadding=2 cellspacing=0><tr><td height=260>"
response.write "<p>· <font color=red>用户注册失败!</font></p><p>· 您输入的用户名或e-mail地址已存在，请返回重新输入!</p><p>· <a href=javascript:history.go(-1)>返回上一页</a></p> </td></tr></table></td></tr></table>"
end sub
%>
</body>
</html>
数据库如下：
就是执行后发现，数据库中并没有我插入的东西，数据库没有更新 展开
4个回答
展开全部
On Error Resume Next
这句去了！ 看下是什么错误！
这句去了！ 看下是什么错误！
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
就一个插入，你这语句写的是不是麻烦了。浪费好多资源。
用response.end() 放到每一步，一各一个的输出，看到不是你想要的就知道哪里错了。 asp排错目前只能这样子。
用response.end() 放到每一步，一各一个的输出，看到不是你想要的就知道哪里错了。 asp排错目前只能这样子。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
有什么问题？
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
什么问题啊?
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（2）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
