我的表单提交后，出错，大家帮着看看……我在线等

gaoqianjin 2003-12-13 10:31:22

表单程序：<form action="addok.asp" enctype="multipart/form-data" method="post" name="form" onsubmit="return juge()">
<tr>
<td colspan="2">　</tr>
<tr>
<td colspan="2" height="20" bgcolor="#993333"> <p align="center"><font color="#FFFF00">会员专区◇◇◇供求信息◇◇◇发布信息</font></tr>
<tr align="left">
<td colspan="2" height="50" style="LINE-HEIGHT: 150%"> <p align="center">提示:<font color="red">请您详细填写以下各项，以便系统管理你的信息。（*为必填项）！</font></tr>
<tr>
<td align="middle" width="95">信息主题：
<td width="425"> <input name="til" size="30" maxlength="50" style="color: #0000FF; background-color: #FFFFFF">
<font color="red"><b>*</b></font> （50字以内）</tr>
<tr>
<td align="middle" width="95">关键字：
<td width="425"> <input name="keyword" size="30" style="color: #0000FF">
<b> <font color="red">*</font></b>（50字以内）</tr>
<tr>
<td align="middle" width="95">公司名称：
<td width="425"> <input name="company" size="30" style="color: #0000FF">
<b> <font color="red">*</font></b></tr>
<tr>
<td align="middle" width="95">信息类型：
<td width="425" height="30"> <input type="radio" name="xx_lb" value="供应" checked>
供应
<input type="radio" name="xx_lb" value="求购">
求购
<input type="radio" name="xx_lb" value="合作">
合作 </tr>
<tr>
<td align="middle" width="95">产品类型：
<td width="425" height="30"> <input name="ss_lb" size="20" maxlength="50" style="color: #0000FF">
(例如：主板、CPU等)</tr>
<tr>
<td align="middle" width="95">有效期：
<td width="425" height="30"> <select name="yxq" style="color: #0000FF">
<option value="7" selected>＝一周＝</option>
<option value="15">＝半月＝</option>
<option value="30">＝一个月＝</option>
<option value="60">＝两个月＝</option>
</select> <b></b> </tr>
<tr>
<td align="middle" width="95">所在地区：
<td width="425" height="30"> <select name="sc_dq" style="color: #0000FF">
<option value="济南" selected>＝＝济南＝＝</option>
<option value="青岛">＝＝青岛＝＝</option>
<option value="烟台">＝＝烟台＝＝</option>
<option value="淄博">＝＝淄博＝＝</option>
<option value="泰安">＝＝泰安＝＝</option>
<option value="潍坊">＝＝潍坊＝＝</option>
<option value="济宁">＝＝济宁＝＝</option>
<option value="枣庄">＝＝枣庄＝＝</option>
<option value="德州">＝＝德州＝＝</option>
<option value="潍海">＝＝潍海＝＝</option>
<option value="日照">＝＝日照＝＝</option>
<option value="莱芜">＝＝莱芜＝＝</option>
<option value="滨州">＝＝滨州＝＝</option>
<option value="东营">＝＝东营＝＝</option>
<option value="聊城">＝＝聊城＝＝</option>
<option value="菏泽">＝＝菏泽＝＝</option>
<option value="临沂">＝＝临沂＝＝</option>
</select> <b></b> </tr>
<tr>
<td align="middle" width="95">产品报价：
<td width="425"> <input type="text" name="jgsm" size="15" maxlength="25" onKeyPress="if (event.keyCode < 45 || event.keyCode > 57) event.returnValue = false;" style="color: #0000FF">
元(只填数字)</tr>
<tr>
<td align="middle" valign="top" width="95">
<td valign="top" width="425"> </tr>
<tr>
<td align="middle" valign="middle" width="95">信息内容：
<td valign="top" width="425"> <textarea cols="50" name="xxms" rows="8" style="color: #0000FF"></textarea>
<br>
（800字以内）</tr>
<tr align="center">
<td colspan="2">
<input name="sub" type="submit" value="提交">
　 <input name="Submit3" type="reset" value="重填">
</tr>
</form>
表单处理程序：<%
Dim m_id
Response.buffer=true ' 开启缓冲页面功能
Response.ContentType="text/HTML"
Response.Charset="gb2312"
id=request.querystring("id")
username=request.form("username")
err_msg="所添表单任何一项都不能为空!"
sp_msg="输入非法字符：>或<！请重新输入！"
call form_fiel_ifnull(err_msg,sp_msg,"formcook")

if request("method")="post" then
til=request("til")
keyword=request("keword")
company=request("company")
xx_lb=request("xx_lb")
ss_lb=request("ss_lb")
yxq=request("yxq")
jgsm=request("jgsm")
xxms=request("xxms")
Params=cn_para()
set conn=server.CreateObject("ADODB.connection")
conn.Open Params
set rs1=server.createobject("adodb.recordset")
sql="select * from gqxx_add
rs1.open sql,conn,2,3
if rs1.eof then
rs1.addnew
rs1("til")=til
rs1("keyword")=keyword
rs1("company")=company
rs1("xx_lb")=xx_lb
rs1("ss_lb")=ss_lb
rs1("yxq")=yxq
rs1("jgsm")=jgsm
rs1("xxms")=xxms

rs1.update

end if
rs1.close
set rs1=nothing
set conn=nothing
end if
%>

提交之后，是空白页？哪出错了？大家看看

...全文

124 19 打赏收藏转发到动态举报

写回复

用AI写文章

19 条回复

切换为时间正序

请发表友善的回复…

发表回复

gaoqianjin 2003-12-13

打赏
举报

为什么呢？解决不了

bullion 2003-12-13

打赏
举报

应该不是这个原因,要不你试一下吧

gaoqianjin 2003-12-13

打赏
举报

原理我清楚，
所以才奇怪，为什么连接总是空白页？
现在我怀疑会不会数据库表中，不仅有我知道这些字段，还有其他的，要是的话，我这么做，会不会就是这样的结果呢

bullion 2003-12-13

打赏
举报

给你做个测试吧
<%
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
Response.Write Request("aa")
End If
<body>
<form method="post" name="theform" action="form.asp">
<input type="text" name="aa">
<input type="submit" name="submit1" value="发送">
</form>
</body>

原理一样的

gaoqianjin 2003-12-13

打赏
举报

奇怪为什么连接总为空白页

bullion 2003-12-13

打赏
举报

上面补充一下
把enctype="multipart/form-data"去掉

gaoqianjin 2003-12-13

打赏
举报

我快被上个管理员搞疯了！被他改的简直乱七八糟

bullion 2003-12-13

打赏
举报

表单程序：
'/////////////////////////这一句不变
<form action="addok.asp" enctype="multipart/form-data" method="post" name="form" onsubmit="return juge()">
<tr>
<td colspan="2">　</tr>
<tr>
<td colspan="2" height="20" bgcolor="#993333"> <p align="center"><font color="#FFFF00">会员专区◇◇◇供求信息◇◇◇发布信息</font></tr>
<tr align="left">
<td colspan="2" height="50" style="LINE-HEIGHT: 150%"> <p align="center">提示:<font color="red">请您详细填写以下各项，以便系统管理你的信息。（*为必填项）！</font></tr>
<tr>
<td align="middle" width="95">信息主题：
<td width="425"> <input name="til" size="30" maxlength="50" style="color: #0000FF; background-color: #FFFFFF">
<font color="red"><b>*</b></font> （50字以内）</tr>
<tr>
<td align="middle" width="95">关键字：
<td width="425"> <input name="keyword" size="30" style="color: #0000FF">
<b> <font color="red">*</font></b>（50字以内）</tr>
<tr>
<td align="middle" width="95">公司名称：
<td width="425"> <input name="company" size="30" style="color: #0000FF">
<b> <font color="red">*</font></b></tr>
<tr>
<td align="middle" width="95">信息类型：
<td width="425" height="30"> <input type="radio" name="xx_lb" value="供应" checked>
供应
<input type="radio" name="xx_lb" value="求购">
求购
<input type="radio" name="xx_lb" value="合作">
合作 </tr>
<tr>
<td align="middle" width="95">产品类型：
<td width="425" height="30"> <input name="ss_lb" size="20" maxlength="50" style="color: #0000FF">
(例如：主板、CPU等)</tr>
<tr>
<td align="middle" width="95">有效期：
<td width="425" height="30"> <select name="yxq" style="color: #0000FF">
<option value="7" selected>＝一周＝</option>
<option value="15">＝半月＝</option>
<option value="30">＝一个月＝</option>
<option value="60">＝两个月＝</option>
</select> <b></b> </tr>
<tr>
<td align="middle" width="95">所在地区：
<td width="425" height="30"> <select name="sc_dq" style="color: #0000FF">
<option value="济南" selected>＝＝济南＝＝</option>
<option value="青岛">＝＝青岛＝＝</option>
<option value="烟台">＝＝烟台＝＝</option>
<option value="淄博">＝＝淄博＝＝</option>
<option value="泰安">＝＝泰安＝＝</option>
<option value="潍坊">＝＝潍坊＝＝</option>
<option value="济宁">＝＝济宁＝＝</option>
<option value="枣庄">＝＝枣庄＝＝</option>
<option value="德州">＝＝德州＝＝</option>
<option value="潍海">＝＝潍海＝＝</option>
<option value="日照">＝＝日照＝＝</option>
<option value="莱芜">＝＝莱芜＝＝</option>
<option value="滨州">＝＝滨州＝＝</option>
<option value="东营">＝＝东营＝＝</option>
<option value="聊城">＝＝聊城＝＝</option>
<option value="菏泽">＝＝菏泽＝＝</option>
<option value="临沂">＝＝临沂＝＝</option>
</select> <b></b> </tr>
<tr>
<td align="middle" width="95">产品报价：
<td width="425"> <input type="text" name="jgsm" size="15" maxlength="25" onKeyPress="if (event.keyCode < 45 || event.keyCode > 57) event.returnValue = false;" style="color: #0000FF">
元(只填数字)</tr>
<tr>
<td align="middle" valign="top" width="95">
<td valign="top" width="425"> </tr>
<tr>
<td align="middle" valign="middle" width="95">信息内容：
<td valign="top" width="425"> <textarea cols="50" name="xxms" rows="8" style="color: #0000FF"></textarea>
<br>
（800字以内）</tr>
<tr align="center">
<td colspan="2">
<input name="sub" type="submit" value="提交">
　 <input name="Submit3" type="reset" value="重填">
</tr>
</form>
表单处理程序：<%
Dim m_id
Response.buffer=true ' 开启缓冲页面功能
Response.ContentType="text/HTML"
Response.Charset="gb2312"
id=request.querystring("id")
username=request.form("username")
err_msg="所添表单任何一项都不能为空!"
sp_msg="输入非法字符：>或<！请重新输入！"
call form_fiel_ifnull(err_msg,sp_msg,"formcook")

'////////////////////这一句改为
'if request("method")="post" then
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
til=request("til")
keyword=request("keword")
company=request("company")
xx_lb=request("xx_lb")
ss_lb=request("ss_lb")
yxq=request("yxq")
jgsm=request("jgsm")
xxms=request("xxms")
Params=cn_para()
set conn=server.CreateObject("ADODB.connection")
conn.Open Params
set rs1=server.createobject("adodb.recordset")
sql="select * from gqxx_add
rs1.open sql,conn,2,3
if rs1.eof then
rs1.addnew
rs1("til")=til
rs1("keyword")=keyword
rs1("company")=company
rs1("xx_lb")=xx_lb
rs1("ss_lb")=ss_lb
rs1("yxq")=yxq
rs1("jgsm")=jgsm
rs1("xxms")=xxms

rs1.update

end if
rs1.close
set rs1=nothing
set conn=nothing
end if
%>

试一下

gaoqianjin 2003-12-13

打赏
举报

我按bullion() 老兄的改了，可是还是不行呀。连接还是空白页

gaoqianjin 2003-12-13

打赏
举报

最初的表但处理程序是：


<%
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then

dim upload,file,formName,formPath,til,keyword,xx_lb,yxq,sc_dq,price,xxms,da,days,years,mon,end_sj,pic_path,hy_lb
set upload=new upload_5xSoft ''建立上传对象

til=upload.form("til")
keyword=upload.form("keyword")
if session("username")="" then
company=upload.form("company")
end if
xx_lb=upload.form("xx_lb")
hy_lb=upload.form("ss_lb")
yxq=upload.form("yxq")
sc_dq=upload.form("sc_dq")
jgsm=upload.form("jgsm")
if jgsm="" then
jgsm=0
end if
xxms=upload.form("xxms")

da=date
end_sj=DateAdd("d",yxq,da)
'days=day(da)+cint(yxq)
'mon=month(da)
'years=year(da)
'if days>30 then
'days=days-30
' mon=mon+1
'if mon>12 then
' mon=mon-12
'years=years+1
' end if
'end if
'end_sj=years&"-"&mon&"-"&days

Params=cn_para()
set cn=server.CreateObject("ADODB.connection")
cn.Open Params

rec_sql="Select * from gqxx_add"
set rec=server.createobject("ADODB.recordset")
rec.Open rec_sql,cn,1,2

for each formName in upload.file
pic_path=""
set file=upload.file(formName) ''生成一个文件对象
if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据
pic_path="pic\gqxx\"&year(Now)&month(Now)&day(Now)&hour(Now)&minute(Now)&second(Now)&file.FileName
formPath=Server.Mappath("\"&pic_path)
file.SaveAs formPath ''保存文件
end if
next
set file=nothing

set upload=nothing ''删除此对象

rec.addnew
rec("til")=til
rec("keyword")=keyword
if session("username")="" then
rec("company")=company
else
rec("username")=session("username")
end if
rec("sc_dq")=sc_dq
rec("xx_lb")=xx_lb
rec("hy_lb")=hy_lb
rec("yx_sj")=end_sj
rec("fb_sj")=formatdatetime(date)
rec("jgsm")=jgsm
rec("pic_path")=pic_path
rec("xxms").appendchunk xxms
rec.update

rec.close
set rec=nothing
set cn=nothing
End If
%>
我是在事先不知道该数据库表个字段的前提下改了一下，大家看看要是表单不去掉那句，用这个行吗？我用过，连接还是空白！

bullion 2003-12-13

打赏
举报

把这个改一下
<form action="addok.asp" enctype="multipart/form-data" method="post" name="form" onsubmit="return juge()">
改为
<form action="addok.asp?act=act" enctype="multipart/form-data" method="post" name="form" onsubmit="return juge()">

下面这句也改一下
if request("method")="post" then
改为
if request("act") = "act" then

这样应该就没问题了,试一下

gaoqianjin 2003-12-13