为什么代码在一个文件内不能正确运行，分开写却可以？

[zhuangxuan]

批量录入代码如下，如果我将writeData()函数存为另一个文件，下面判断函数else if request.form("action")="提交" then Call writeData()也去掉可正确运行，可是当我写为一个文件时却不能正确运行？


SUB writeData()
dim recCnt,i
dim fieldName1,fieldName2,fieldName3,fieldName4,fieldName5,fieldName6,fieldName7,txt1,txt2,txt3,txt4,txt5,txt6,txt7,txt8
dim conn
dim sqlStr,connStr
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("/database/db.mdb")'建立数据库连接

recCnt=request.form("recCnt") '取得共有多少条记录

txt1=trim(request.form("daili"))
txt2=trim(request.form("hanban"))
txt3=trim(request.form("rqi"))
txt4=trim(request.form("hanzhan"))
txt5=trim(request.form("wangluo"))
txt6=trim(request.form("danhao"))
txt7=trim(request.form("tihuocall"))
txt8=trim(request.form("zongjian"))
'批量录入数据
for i=1 to recCnt
fieldName1=trim(request.form("fahuoren")(i))
fieldName2=trim(request.form("shouhuoren")(i))
fieldName3=trim(request.form("ticall")(i))
fieldName4=trim(request.form("pinbao")(i))
fieldName5=trim(request.form("jianshu")(i))
fieldName6=trim(request.form("zhongliang")(i))
fieldName7=trim(request.form("fuwu")(i))
sqlStr="insert into jbill(agent,flight,ddate,destin,comnet,tbill,tel,numwei,shiper,consi,contel,dispack,nnumber,twght,ddemo) values('"&txt1&"','"&txt2&"','"&txt3&"','"&txt4&"','"&txt5&"','"&txt6&"','"&txt7&"','"&txt8&"','"&fieldName1&"','"&fieldName2&"','"&fieldName3&"','"& fieldName4&"','"&fieldName5&"','"&fieldName6&"','"&fieldName7&"')"

'set rs=server.createobject("adodb.recordset")
'rs.open sqlStr,conn,1,3
response.write sqlStr
response.write "recCnt="&recCnt&"</br>"
conn.execute(sqlStr)
next
response.Write "录入成功! "
END SUB

'显示成批录入的界面
SUB InputData()
dim recCnt,i
%>
<div align="center">
<table width="537" height="22" border="0" cellpadding="0" cellspacing="0" bgcolor="#0099FF">
<tr>
<td><div align="center"><strong><font color="#FFFFFF" size="4">运单录入</font></strong></div></td>
</tr>
</table>
</div>
<form id="form1" name="form1" method="post" action="">
<table width="540" height="102" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CADADF">
<tr bgcolor="#FFFFFF">
<td width="67"><div align="center"><strong>公司网络：</strong></div></td>
<td width="148">  <input name="wangluo" type="text" id="wangluo" size="12" /></td>
<td width="79"><div align="center">代    理：</div></td>
<td width="241">  <input name="daili" type="text" id="daili" size="12" /></td>
</tr>
<tr bgcolor="#FFFFFF">
<td><div align="center">航    班：</div></td>
<td>  <input name="hanban" type="text" id="hanban" size="12" /> </td>
<td><div align="center">单    号：</div></td>
<td>  <input name="danhao" type="text" id="danhao" size="12" /></td>
</tr>
<tr bgcolor="#FFFFFF">
<td><div align="center">日    期：</div></td>
<td>  <input name="rqi" type="text" id="rqi" size="12" />
<a href="#" title="选择日期" onclick="fPopUpDlg('../js/calendar.htm', document.form1.rqi, 'winpop', 177, 210);return false"><img src="images/date.GIF" width="16" height="16" border="0" align="absbottom" /></a></td>
<td><div align="center">提货电话：</div></td>
<td> 
<input name="tihuocall" type="text" id="tihuocall" size="12" /></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="22"><div align="center">航    站：</div></td>
<td> 
<input name="hanzhan" type="text" id="hanzhan" size="12" /></td>
<td><div align="center">件数重量：</div></td>
<td> 
<input name="zongjian" type="text" id="zongjian" size="30" /></td>
</tr>
</table>
<br />
<table width="540" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="369" height="25">其中有如下分货：</td>
</tr>
</table>
<br />
<% '显示成批录入的界面
recCnt=cint(request.form("recCnt"))
for i=1 to recCnt
%>
<table width="540" height="131" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CADADF">
<tr bgcolor="#FFFFFF">
<td width="85" height="27"><div align="center">发货人：</div></td>
<td width="230">  <input name="fahuoren" type="text" id="fahuoren" size="12" /></td>
<td width="96"><div align="center">品名/包装：</div></td>
<td width="124">  <input name="pinbao" type="text" id="pinbao" size="12" /></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25"><div align="center">收货人：</div></td>
<td>  <input name="shouhuoren" type="text" id="shouhuoren" size="20" /></td>
<td><div align="center">件     数：</div></td>
<td>  <input name="jianshu" type="text" id="jianshu" size="12" /></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="27"><div align="center">电  话：</div></td>
<td>  <input name="ticall" type="text" id="ticall" size="28" /></td>
<td><div align="center">重     量：</div></td>
<td>  <input name="zhongliang" type="text" id="zhongliang" size="12" /></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="47"><div align="center">服务要求：</div></td>
<td colspan="3">  <textarea name="fuwu" cols="55" rows="2" id="fuwu"></textarea></td>
</tr>
</table>
<br />
<%
next
%><input type="hidden" name="recCnt" value=<%=recCnt%>>
<div align="center">
<input type="submit" name="Submit" value="提交" />
    
<input type="reset" name="Submit2" value="重置" />
</div>
</form>
<%
END SUB

'指定要批量录入多少条记录
SUB assignHowMuch()
%>

<!------指定要录入多少条记录-------------->
<form name="form1" action="" method="post">
您要录入的记录的条数：<input type="text" name="recCnt">
<input type="submit" name="action" value="下一步>>">
</form>
<%
END SUB

if request.form("action")="下一步>>" then
Call InputData() '显示成批录入界面
else if request.form("action")="提交" then
Call writeData() '向数据库批量写入数据
else
Call assignHowMuch() '显示指定录入多少条记录的界面
end if
end if
%>

[goon2005]

简化代码。。。