asp数据库插入数据提示成功但数据库中没有插入内容
来源:百度知道 编辑:UC知道 时间:2024/05/31 16:07:44
源代码 高手给看下 我刚学
<%@ language="vbscript"%>
<%response.Expires = 0%>
<!--#include file="check.asp"-->
<%
if session("shenfen")<>"1" then
response.redirect "err.asp?err=1"
end if
%>
<% dim db
db="database/shangbao.mdb"%>
<%
dim conn
dim connstr
on error resume next
connstr="DBQ="+server.mappath(db)+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
if err then
err.clear
end if
end if
%>
<%
dim jsxm,skrq,jc,jsh,kkmd,cdmd,ztmd,jsws,ktjl,bz
jsxm=trim(Request.Form("jsxm"))
skrq=trim(Request.Form("skrq"))
jc=trim(Request
<%@ language="vbscript"%>
<%response.Expires = 0%>
<!--#include file="check.asp"-->
<%
if session("shenfen")<>"1" then
response.redirect "err.asp?err=1"
end if
%>
<% dim db
db="database/shangbao.mdb"%>
<%
dim conn
dim connstr
on error resume next
connstr="DBQ="+server.mappath(db)+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
if err then
err.clear
end if
end if
%>
<%
dim jsxm,skrq,jc,jsh,kkmd,cdmd,ztmd,jsws,ktjl,bz
jsxm=trim(Request.Form("jsxm"))
skrq=trim(Request.Form("skrq"))
jc=trim(Request
rs("ba")=request.form("bz")
ba和bz分别代表的是什么?有没有写错?
bz=trim(Request.Form("bz"))
最上面一句肯定是写错了
最后rs没有关闭
rs.open sqltext,conn,3,3
rs.open sqltext,conn,1,3
是不是插入的那里得添加个表单啊?你添加表单了没有?就是在输入插入内容的那里。提交的内容得提交到数据库里并更新了才能显示。
你再在那方面看看去。