ASP+ACCESS显示插入新记录的序号的问题

wangningxy 2008-05-16 02:23:47
<%
dim conn1,types,qname1,gzdw1,zjmc1,zjhm1,address1,postcord1,telephone1,fax1,email1,action_info1,action_for1,tgfangshi1,hqfangshi1,exec1
set conn1=server.createobject("adodb.connection")
conn1.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("gksq.asp")
qname1=Trim(request.form("qname"))
types=Trim(request.form("types"))
gzdw1=Trim(request.form("gzdw"))
zjmc1=Trim(request.form("zjmc"))
zjhm1=Trim(request.form("zjhm"))
address1=Trim(request.form("address"))
postcord1=Trim(request.form("postcord"))
telephone1=Trim(request.form("telephone"))
fax1=Trim(request.form("fax"))
email1=Trim(request.form("email"))
action_info1=Trim(request.form("action_info"))
action_for1=Trim(request.form("action_for"))
tgfangshi1=Trim(request.form("tgfangshi"))
hqfangshi1=Trim(request.form("hqfangshi"))
exec1="insert into gksq(qname,types,gzdw,zjmc,zjhm,address,postcord,telephone,fax,email,action_info,action_for,tgfangshi,hqfangshi)values('"+qname1+"','"+types+"','"+gzdw1+"','"+zjmc1+"','"+zjhm1+"','"+address1+"','"+postcord1+"','"+telephone1+"','"+fax1+"','"+email1+"','"+action_info1+"','"+action_for1+"','"+tgfangshi1+"','"+hqfangshi1+"')"
conn1.execute exec1
conn1.close
set conn1=nothing
%>
<%
Dim conn,rs,exec
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("gksq.asp")
exec="select * from gksq where qname="&request.Form("qname")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
response.write "<center><font color=""red"">你的申请已经添加成功!请耐心等待我们的审批!</font> </center>"
response.write "<center><font color=""red"">系统为你生成的申请序号为:</font> </center>"&rs("id")
response.write "<center><font color=""red"">请牢记该序号以便你查询你的申请审批状态!</font> </center>"
conn.close
set conn=nothing
%>
大家帮忙看一下怎么修改才能输出刚刚插入新记录的序号ID
...全文
163 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
nixiang2008 2008-05-16
  • 打赏
  • 举报
回复
在数据库中设置id为主键就OK了!!!!
nixiang2008 2008-05-16
  • 打赏
  • 举报
回复
你插入的ID是你在数据库中自动生成ID就可以了,不需要你输入ID的,到时候你要修改的话,你获取修改的记录ID在把这个记录给提取出来的就OK了哦!!!!
startdream 2008-05-16
  • 打赏
  • 举报
回复
........
才发现
conn1.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("gksq.asp")

gksq.asp根本就不是个数据库。。。。
「已注销」 2008-05-16
  • 打赏
  • 举报
回复
不行啊
还是出错
错误区信息如下》麻烦了
技术信息(用于支持人员)

错误类型:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
ODBC 驱动程序不支持所需的属性。
/sq/add.asp, 第 100 行
startdream 2008-05-16
  • 打赏
  • 举报
回复

request.Form("qname") 是字符型的还是数字型的?
如果是字符型的,
<%
Dim conn,rs,exec
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("gksq.asp")
exec="select * from user where user='"&request.form("qname")&"'"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
response.write " <center> <font color=""red"">你的申请已经添加成功!请耐心等待我们的审批! </font> </center>"
response.write " <center> <font color=""red"">系统为你生成的申请序号为: </font> </center>"&rs("id")
response.write " <center> <font color=""red"">请牢记该序号以便你查询你的申请审批状态! </font> </center>"
conn.close
set conn=nothing
%>
tantaiyizu 2008-05-16
  • 打赏
  • 举报
回复
the ascid is auto produced ,but you can do this:


update gksq set id='your id' where [your conditions].

28,390

社区成员

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

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