请教下各位,asp中数据无法写入数据库,但是程序没报错。

herrytmc 2011-11-13 08:31:26
<!--#include file="Connections/conn.asp" -->
<%
dim action
action=request.QueryString("action")
if action="save" then
dim sqlstmt,Rs,Conn
Set Conn=Server.CreateObject ("ADODB.Connection")
Conn.open MM_conn_STRING
Set Rs = Server.CreateObject("ADODB.Recordset")
sqlstmt="select * from tb_xinxiang"
Rs.open sqlstmt,Conn,3,2

Rs.movefirst
username=trim(request.form("xm"))
sex=trim(request.form("xb"))
useremail=trim(request.form("dzyj"))
usertel=trim(request.form("lxdh"))
useraddress=trim(request.form("lxdz"))
title=trim(request.form("title"))
addtime=trim(request.form("tjsj"))
content=trim(request.form("nr"))
sqlstmt = "insert into tb_xinxiang(UserName,Sex,UserEmail,UserTel,UserAddress,Title,AddTime,Content) values('"+username+"','"+sex+"','"+useremail+"','"+usertel+"','"+useraddress+"','"+title+"','"+addtime+"','"+content+"')"
Conn.execute sqlstmt
action=2
Rs.close
set Rs=nothing
end if
if action=2 then response.Redirect("wyxx_success.asp")
%>
数据无法插入数据库中,但能显示提交数据成功页面。这是什么原因,以前从没出现过这个问题。
...全文
56 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
herrytmc 2011-11-14
  • 打赏
  • 举报
回复
谢谢你们了,问题已经解决了,是表单中的传送数据的方式不对。
netbooting 2011-11-14
  • 打赏
  • 举报
回复
这句话有问题
Rs.open sqlstmt,Conn,3,2

3表示静态游标
2表示保守锁定

你用Rs锁定了记录集,后面Conn.execute sqlstmt就法执行了。

改成大家常用的Rs.open sqlstmt,Conn,1,3就可以了,并且你打开了RS什么都没做,不如不要RS
hookee 2011-11-13
  • 打赏
  • 举报
回复

<!--#include file="Connections/conn.asp" -->
<%
dim action
action = request.QueryString("action")
if action="save" then
dim sqlstmt,Rs,Conn
username = trim(request.form("xm"))
sex = trim(request.form("xb"))
useremail = trim(request.form("dzyj"))
usertel = trim(request.form("lxdh"))
useraddress = trim(request.form("lxdz"))
title = trim(request.form("title"))
addtime = trim(request.form("tjsj"))
content = trim(request.form("nr"))

Set Conn = Server.CreateObject ("ADODB.Connection")
Conn.open MM_conn_STRING
Set Rs = Server.CreateObject("ADODB.Recordset")
sqlstmt = "select * from tb_xinxiang where 1=0"
Rs.open sqlstmt,Conn,1,3
Rs.AddNew
Rs("UserName") = username
Rs("Sex") = sex
Rs("UserEmail") = useremail
Rs("UserTel") = usertel
Rs("UserAddress") = useraddress
Rs("Title") = title
Rs("AddTime") = addtime
Rs("Content") = content
Rs.Update
Rs.close
set Rs = nothing
Conn.Close
Set Conn = Nothing
response.Redirect "wyxx_success.asp"
end if
%>

28,390

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧