原代码如下:
原代码如下:
url="Packing_CTRL.asp"
set upload=new upload_5xsoft '实例化一个上传对象upload,这个无组件上传类最大只能上200K的文件,上传超过200K文件,将会非常的慢,如果想上传更大的文件,可以使用有组件上传
function addpacking() '这是一个上传函数
dim sz
sz=trim(upload.form("size"))
'先判断是否已经存在该记录
set rs=server.CreateObject("adodb.recordset") '建立一个记录集对象rs
sql="select * from PACKING WHERE SIZE='" & sz & "'"
rs.open sql,conn,1,3 '打开记录集
If Not rs.EOF Or Not rs.BOF then '存在同名
response.write "
response.write "alert('系统已存在该记录,请添加其它纪录!');"
response.write" history.go(-1);"
response.write ""
response.end
exit function
else
rs.addnew
rs("SIZE")=trim(upload.form("size")) '这里要注意,必须用upload.form来获取表单的值,和平常不一样,不能用request.form
rs("PCCTN")=trim(upload.form("pcctn"))
rs("SQMCTN")=trim(upload.form("sqmctn"))
rs("KGCTN")=trim(upload.form("kgctn"))
rs("CTNUPLT")=trim(upload.form("ctnuplt"))
rs("SQMUPLT")=trim(upload.form("sqmuplt"))
rs("KGUPLT")=trim(upload.form("kguplt"))
rs("CTNDPLT")=trim(upload.form("ctndplt"))
rs("SQMDPLT")=trim(upload.form("sqmdplt"))
rs("KGDPLT")=trim(upload.form("kgdplt"))
rs("CTNCONT")=trim(upload.form("ctncont"))
rs("SQMCONT")=trim(upload.form("sqmcont"))
rs("KGCONT")=trim(upload.form("kgcont"))
rs.update '????????????????????????????????????
response.write "
response.write "alert('OK!');"
response.write" history.go(-1);"
response.write ""
response.end
end if
rs.close
set rs=nothing
end function
addpacking() '调用函数
%>
其中:
response.write "
response.write "alert('OK!');"
response.write" history.go(-1);"
response.write ""
response.end
是用来提示程序执行到哪里出错的,不属于原设计的一部分.
试了很多次,把上面这段放到rs.update前,会有提示"OK!",放到rs.update后面,就没有提示了,而且数据库中没有添加到记录, 请大家看看问题出在哪里? 谢谢!
已经解决,什么都没改变,突然间就可以了. 但还是找不到问题所在,可能是系统问题.
谢谢大家的解答,不过找不到问题的关键.
展开