我是连接oracle数据库的自建的info表,里面只有rbsj是日期型,数据库连接没有任何问题,可以从库中读数据出来,但是在asp的录入页面里面却不能将数据写入数据库。这个页以前是连接SqlServer的数据库,那时候没有任何问题。现在改成oracle以后就只能将旧数据取出,新数据写不进去,各位高手帮我看看是怎么回事好么?整个相关的页面我也都打包在附件里面了,大家可以帮我看看。我是新手……也可以在QQ上面给我指导一下,24606053
具体的存贮数据页面代码如下:
<html>
<head>
<style>
<!--
a:link { font-size: 9pt; font-family: 宋体; color: #000000;text-decoration: none; }
a:visited { color: #000000; font-family: 宋体; font-size: 9pt;text-decoration: none; }
a:hover { font-size: 9pt; font-family: 宋体; color: #000000;TEXT-DECORATION: underline; }
body { font-family: 宋体; color: #000000; font-size: 9pt }
p { color: #000000; font-family: 宋体; font-size: 9pt }
td { font-size: 9pt; font-family: 宋体; color: #000000 }
input { font-size: 9pt; font-family: 宋体; color: #000000 }
-->
</style>
</head>
<!--#include file = conn.asp -->
<%
student_count=request.form("student_count")
for i=1 to student_count
clhm=request.form("clhm"&i&"")
cllx=request.form("cllx"&i&"")
sjxm=request.form("sjxm"&i&"")
sjsj=request.form("sjsj"&i&"")
rbsj=request.form("rbsj"&i&"")
zrs=request.form("zrs"&i&"")
clxc=request.form("clxc"&i&"")
clzt=request.form("clzt"&i&"")
ctgl=request.form("ctgl"&i&"")
zbxs=request.form("zbxs"&i&"")
qssj=request.form("qssj"&i&"")
jcsj=request.form("jcsj"&i&"")
sybm=request.form("sybm"&i&"")
syry=request.form("syry"&i&"")
ycbz=request.form("ycbz"&i&"")
clid=request.form("clid"&i&"")
if i=1 and request.form("clhm1")="" then
fonuderr="true"
errmsg="<li>数值为空,请从第一个车号开始输入"
elseif cllx="" then
exit for
else
'set rs=conn.execute("select ch from info where ch='"&ch&"'")
'if not(rs.eof and rs.bof) then
'fonuderr="true"
'errmsg=errmsg&"<li>条目"&i&"的车号("&ch&")已存在"
'end if
'set rs=nothing
if zrs="" then
fonuderr="true"
errmsg=errmsg&"<li>请填写"&i&"的载人数"
end if
end if
j=j+1
next
if fonuderr="true" then
call errormsg()
else
for i=1 to j
clhm=request.form("clhm"&i&"")
cllx=request.form("cllx"&i&"")
sjxm=request.form("sjxm"&i&"")
sjsj=request.form("sjsj"&i&"")
rbsj=request.form("rbsj"&i&"")
zrs=request.form("zrs"&i&"")
clxc=request.form("clxc"&i&"")
clzt=request.form("clzt"&i&"")
ctgl=request.form("ctgl"&i&"")
zbxs=request.form("zbxs"&i&"")
qssj=request.form("qssj"&i&"")
jcsj=request.form("jcsj"&i&"")
sybm=request.form("sybm"&i&"")
syry=request.form("syry"&i&"")
ycbz=request.form("ycbz"&i&"")
clid=request.form("clid"&i&"")
conn.execute("insert into info(clhm,cllx,sjxm,sjsj,rbsj,zrs,clxc,clzt,ctgl,zbxs,qssj,jcsj,sybm,syry,ycbz,clid) values('&clhm','&cllx','&sjxm','&sjsj','&rbsj','&zrs','&clxc','&clzt','&ctgl','&zbxs','&qssj','&jcsj','&sybm','&syry','&ycbz','&clid');commit;")
next
rigmsg="<li>"&j&"条信息添加成功<li><a href='admin_info_index.asp'>返回</a>"
response.write"<p><font color='#ff0000'>操作成功:</font></p><br>"&rigmsg&"<li><a href='javascript:history.go(-1)'>返回上一页</a>"
Response.End
end if
sub errormsg()
response.write"<p><font color='#ff0000'>操作出错:</font></p>"&errmsg&"<li><a href='javascript:history.go(-1)'>返回上一页</a>"
end sub
sub rightmsg()
'自动返回前一页(也可根据backurl设定)
response.write"<p><font color='#ff0000'>操作成功:(1秒后自动返回)</font></p><br>"&rigmsg&"<li><a href='javascript:history.go(-1)'>返回上一页</a>"
end sub
%>
</body>
</html>
具体的存贮数据页面代码如下:
<html>
<head>
<style>
<!--
a:link { font-size: 9pt; font-family: 宋体; color: #000000;text-decoration: none; }
a:visited { color: #000000; font-family: 宋体; font-size: 9pt;text-decoration: none; }
a:hover { font-size: 9pt; font-family: 宋体; color: #000000;TEXT-DECORATION: underline; }
body { font-family: 宋体; color: #000000; font-size: 9pt }
p { color: #000000; font-family: 宋体; font-size: 9pt }
td { font-size: 9pt; font-family: 宋体; color: #000000 }
input { font-size: 9pt; font-family: 宋体; color: #000000 }
-->
</style>
</head>
<!--#include file = conn.asp -->
<%
student_count=request.form("student_count")
for i=1 to student_count
clhm=request.form("clhm"&i&"")
cllx=request.form("cllx"&i&"")
sjxm=request.form("sjxm"&i&"")
sjsj=request.form("sjsj"&i&"")
rbsj=request.form("rbsj"&i&"")
zrs=request.form("zrs"&i&"")
clxc=request.form("clxc"&i&"")
clzt=request.form("clzt"&i&"")
ctgl=request.form("ctgl"&i&"")
zbxs=request.form("zbxs"&i&"")
qssj=request.form("qssj"&i&"")
jcsj=request.form("jcsj"&i&"")
sybm=request.form("sybm"&i&"")
syry=request.form("syry"&i&"")
ycbz=request.form("ycbz"&i&"")
clid=request.form("clid"&i&"")
if i=1 and request.form("clhm1")="" then
fonuderr="true"
errmsg="<li>数值为空,请从第一个车号开始输入"
elseif cllx="" then
exit for
else
'set rs=conn.execute("select ch from info where ch='"&ch&"'")
'if not(rs.eof and rs.bof) then
'fonuderr="true"
'errmsg=errmsg&"<li>条目"&i&"的车号("&ch&")已存在"
'end if
'set rs=nothing
if zrs="" then
fonuderr="true"
errmsg=errmsg&"<li>请填写"&i&"的载人数"
end if
end if
j=j+1
next
if fonuderr="true" then
call errormsg()
else
for i=1 to j
clhm=request.form("clhm"&i&"")
cllx=request.form("cllx"&i&"")
sjxm=request.form("sjxm"&i&"")
sjsj=request.form("sjsj"&i&"")
rbsj=request.form("rbsj"&i&"")
zrs=request.form("zrs"&i&"")
clxc=request.form("clxc"&i&"")
clzt=request.form("clzt"&i&"")
ctgl=request.form("ctgl"&i&"")
zbxs=request.form("zbxs"&i&"")
qssj=request.form("qssj"&i&"")
jcsj=request.form("jcsj"&i&"")
sybm=request.form("sybm"&i&"")
syry=request.form("syry"&i&"")
ycbz=request.form("ycbz"&i&"")
clid=request.form("clid"&i&"")
conn.execute("insert into info(clhm,cllx,sjxm,sjsj,rbsj,zrs,clxc,clzt,ctgl,zbxs,qssj,jcsj,sybm,syry,ycbz,clid) values('&clhm','&cllx','&sjxm','&sjsj','&rbsj','&zrs','&clxc','&clzt','&ctgl','&zbxs','&qssj','&jcsj','&sybm','&syry','&ycbz','&clid');commit;")
next
rigmsg="<li>"&j&"条信息添加成功<li><a href='admin_info_index.asp'>返回</a>"
response.write"<p><font color='#ff0000'>操作成功:</font></p><br>"&rigmsg&"<li><a href='javascript:history.go(-1)'>返回上一页</a>"
Response.End
end if
sub errormsg()
response.write"<p><font color='#ff0000'>操作出错:</font></p>"&errmsg&"<li><a href='javascript:history.go(-1)'>返回上一页</a>"
end sub
sub rightmsg()
'自动返回前一页(也可根据backurl设定)
response.write"<p><font color='#ff0000'>操作成功:(1秒后自动返回)</font></p><br>"&rigmsg&"<li><a href='javascript:history.go(-1)'>返回上一页</a>"
end sub
%>
</body>
</html>