这段代码为什么不能保存到sql数据库里？

[netboy821215]

<!--#include file="dbpath/dbpath.asp"-->
<!--#include file="function/char.inc"-->
<%
sub getInput()
sSubject=request.form("dSubject")
sMemo=request.form("dMemo")
sGq=request.form("dgq")
sName=request.form("dname")
sAddress=request.form("daddress")
sCode=request.form("dcode")
stypeid=request.form("lbmc")
sgs=request.form("dgs")
end sub

dim rs

dim sSubject
dim sMemo
dim sGq
dim sName
dim sAddress
dim sCode
dim stypeid
dim sgs

dim errorMsg
dim foundError

getInput()
saveData()
if foundError=false then
response.redirect "manage.asp"
else
call showerrors()
end if
set rs=nothing
conn.close
set conn=nothing



sub saveData()
dim InsertCursor
Set InsertCursor = Server.CreateObject("ADODB.Recordset")

InsertCursor.Open "select * from gq",conn,1,3
InsertCursor.addnew
InsertCursor("name") =htmlencode(sName)
InsertCursor("address") =htmlencode(sAddress)
InsertCursor("code") =htmlencode(sCode)
InsertCursor("subject") =htmlencode(sSubject)
InsertCursor("memo") =htmlencode(sMemo)
InsertCursor("gs") =htmlencode(sgs)
InsertCursor("gq") =sGq
InsertCursor("lbid") =stypeid
InsertCursor("gqdate") =cstr(date())
InsertCursor("gqtime") =cstr(time())
InsertCursor.Update
InsertCursor.close
if err>0 then
err.clear
foundError=true
ErrorMsg="<li>Êý ¾Ý ¿â ²Ù ×÷ ʧ °Ü !</li>"
else
foundError=false
end if
end sub

sub showErrors()
%>

[qzriso]

有没有提示什么错误?

[netboy821215]

没有提示错误~添加数据不能入库 我都不知道什么原因。继续等待……

[netboy821215]

继续等待……

[ttkkyy]

你把取得数据的程序不要写为过程试一下

<!--#include file="dbpath/dbpath.asp"-->
<!--#include file="function/char.inc"-->
<%


dim rs

dim sSubject
dim sMemo
dim sGq
dim sName
dim sAddress
dim sCode
dim stypeid
dim sgs

dim errorMsg
dim foundError

sSubject=request.form("dSubject")
sMemo=request.form("dMemo")
sGq=request.form("dgq")
sName=request.form("dname")
sAddress=request.form("daddress")
sCode=request.form("dcode")
stypeid=request.form("lbmc")
sgs=request.form("dgs")


saveData()
if foundError=false then
response.redirect "manage.asp"
else
call showerrors()
end if
set rs=nothing
conn.close
set conn=nothing



sub saveData()
dim InsertCursor
Set InsertCursor = Server.CreateObject("ADODB.Recordset")

InsertCursor.Open "select * from gq",conn,1,3
InsertCursor.addnew
InsertCursor("name") =htmlencode(sName)
InsertCursor("address") =htmlencode(sAddress)
InsertCursor("code") =htmlencode(sCode)
InsertCursor("subject") =htmlencode(sSubject)
InsertCursor("memo") =htmlencode(sMemo)
InsertCursor("gs") =htmlencode(sgs)
InsertCursor("gq") =sGq
InsertCursor("lbid") =stypeid
InsertCursor("gqdate") =cstr(date())
InsertCursor("gqtime") =cstr(time())
InsertCursor.Update
InsertCursor.close
if err>0 then
err.clear
foundError=true
ErrorMsg="<li>Êý ¾Ý ¿â ²Ù ×÷ ʧ °Ü !</li>"
else
foundError=false
end if
end sub

sub showErrors()
%>

[netboy821215]

没有人回应 郁闷！！~~~~~~~~

[netboy821215]

ttkkyy 不行啊 我换过来了

[GoodyeahApple]

将错误捕捉的部分先注释掉，看看是那错了。

[ttkkyy]

你确定一下是否取到了传过来得值
插不进去值是新增了记录但没有值，还是记录没有增加