ASP添加数据库记录问题(内容无法提交进数据库) 10
我做了一个ASP提交信息的版面,做为留言提交使用!所有页面链接都没问题,就是提交不进数据库。。。求大神啊!在线求解答!数据处理:<%ac=request.QueryStr...
我做了一个ASP提交信息的版面,做为留言提交使用!所有页面链接都没问题,就是提交不进数据库。。。求大神啊!
在线求解答!
数据处理:
<%
ac=request.QueryString("ac")
msg="错误信息"
if request.Form("name")="" then
msg=msg&"<br>"&"姓名不能为空"
end if
if strcomp(msg,"错误信息")>0 then
response.Redirect("reg.asp?msg="&msg)
end if
if ac="adduser" then
dsql="select * from info where id is null"
set rs=server.createobject("adodb.recordset")
rs.open dsql,conn,1,3
rs.addnew
rs("name")=request.Form("name")
rs("qq")=request.Form("qq")
rs("Salary")=request.Form("Salary")
rs("personalinfo")=request.Form("personalinfo")
rs("time")=now
rs.update
set rs=nothing
%>
<center>
<a href="index.asp" target="_self">留言成功,点击返回</a>
</center>
<%
end if
%>
conn页:
<%
'连接数据库开始
dim conn,rs,sql
on error resume next
dbpath=server.mappath("jgyg51687DYdr564.mdb")
set conn=server.createobject("adodb.connection")
conn.pen "PROVIDER=Microsoft.jet.OLEDB.4.0;data source="&dbpath
'创建记录对象
set rs=server.createobject("adodb.recordset")
%> 展开
在线求解答!
数据处理:
<%
ac=request.QueryString("ac")
msg="错误信息"
if request.Form("name")="" then
msg=msg&"<br>"&"姓名不能为空"
end if
if strcomp(msg,"错误信息")>0 then
response.Redirect("reg.asp?msg="&msg)
end if
if ac="adduser" then
dsql="select * from info where id is null"
set rs=server.createobject("adodb.recordset")
rs.open dsql,conn,1,3
rs.addnew
rs("name")=request.Form("name")
rs("qq")=request.Form("qq")
rs("Salary")=request.Form("Salary")
rs("personalinfo")=request.Form("personalinfo")
rs("time")=now
rs.update
set rs=nothing
%>
<center>
<a href="index.asp" target="_self">留言成功,点击返回</a>
</center>
<%
end if
%>
conn页:
<%
'连接数据库开始
dim conn,rs,sql
on error resume next
dbpath=server.mappath("jgyg51687DYdr564.mdb")
set conn=server.createobject("adodb.connection")
conn.pen "PROVIDER=Microsoft.jet.OLEDB.4.0;data source="&dbpath
'创建记录对象
set rs=server.createobject("adodb.recordset")
%> 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询