对象不支持此属性或错误：'request.form'

myth_sunny 2010-07-17 09:35:34

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>




<%
dim rsBig,sqlBig

dim BigClassName

if request.form("AddBigClass") = "添加" then

request.Form("BigClassName") = BigClassName

if BigClassName = "" then
call errorHisrtoryBack("主类名称不能空，请重新输入")
end if

set rsBig = server.CreateObject("adodb.recordset")
sqlBig = "select * from BigClass where BigClassName = '"&BigClassName&"'"
rsBig.open sqlBig,conn,1,3

if not rsBig.bof and not rsBig.eof then
call errorHisrtoryBack ("主类名称已经存在，请重新输入")
end if

rsBig.addnew
rsBig("BigClassName") = BigClassName
reBig.update
rsBig.close
set rsBig = nothing

end if

%>



</head>
<body>

<div id="AddClass">
<h1> 添加主类</h1>

<form name="BigClass" id="BigClass" method="post" action="Class_Add.asp" >
<table>
<tr><td class="Addtitle">主类名称：</td>
<td><input type="text" name="BigClassName" id="BigClassName" class="ClassName" /></td>
</tr>
<tr><td class="Addtitle"></td>
<td><input type="submit" name="AddBigClass" id="AddBigClass" value="添加" class="Add" /></td>
</tr>
</table>
</form>

</body>
</html>

...全文

52 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

xiaohu0515 2010-07-18

打赏
举报

request.Form("BigClassName") = BigClassName
此时BigClassName是空值。我可没这么赋值过。应当是反过来吧？
BigClassName=request.Form("BigClassName")

ChinaXtHuLang 2010-07-18

打赏
举报

[Quote=引用 5 楼 xiaohu0515 的回复:]

request.Form("BigClassName") = BigClassName
此时BigClassName是空值。我可没这么赋值过。应当是反过来吧？
BigClassName=request.Form("BigClassName")
[/Quote]

YES

myth_sunny 2010-07-17