老弟，恳请大虾们，帮我看看这程序哪里出错了。
!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.<html>
<!--#include file="dbconn.asp"-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>批量添加纪录</title>
<style type="text/css">
<!--
.style2 {
color: #000000;
font-weight: bold;
}
.style6 {font-size: 12px}
.style8 {
color: #FF0000;
font-size: 12;
}
-->
</style>
</head>
<body>
<%
username1=request.cookies("username1")
username2=request.cookies("username2")
jigouhao=request.cookies("jigouhao")
cx=request.cookies("cx")
khh=request("khh")
bbriqi=date
if cx=2 then
response.write "<script language=javascript>" & chr(13) & "alert('不好意思，您无需进行此项操作！');" & "history.back()" & "</script>"
end if
%>
<%
'向数据库写入数据
SUB writeData()
dim recCnt,i
dim xq1,xq2,xq3,xq4,xq5,xq6,xq7,xq8,xq9,xq10,xq11,xq12,xq13,xq14,xq15,xq16,xq17,xq18,xq19,xq20,xq21,xq22,xq23,xq24,xq25,xq26
dim conn
dim sqlStr,connStr
application.lock
response.write "<font color=#00ff00 >正在写入数据......</font><br><br>"
connstr="DBQ="+server.mappath("database/date_fxq.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
recCnt=session("recnum") 'request.form("recCnt") '.count '取得共有多少条记录
'添加反洗钱报送情况数据
' 计算今天是那年那天那月
tmonth=split(date,"-")
smonth=year(date())&"-"&month(date())&"-"&"1"
t=tmonth(0)&"年"&tmonth(1)&"月第"&datepart("ww",date())-datepart("ww",smonth)+1&"周"
h1=tmonth(0)
h2=tmonth(1)
h3=datepart("ww",date())-datepart("ww",smonth)+1
h4=trim(h1)+trim(h2)+trim(h3)
h5=trim(h1)+trim(h2)
response.write t
Set rs1 = Server.CreateObject ("ADODB.Recordset")
sql1 = "Select * from bbqk where jigouhao='"&jigouhao&"' and zq='"&h4&"'"
'sql1 = "Select * from bbqk where jigouhao='"&jigouhao&"' and "
rs1.Open sql1,conn,3,2
if Rs1.EOF Then
rs1.addnew
rs1("jigouhao")=jigouhao
rs1("date")=date
rs1("nf")=h1
rs1("yf")=h5
rs1("xq")=h3
rs1("zq")=h4
rs1("bbqk")=1
rs1.update
else
bbqk=rs1("bbqk")
rs1.edit
rs1("bbqk")=bbqk+1
rs1.update
end if
'批量录入数据
rs1.close
Set rs1 = Nothing
for i=1 to recCnt
xq1=trim(request.form("xiqian1")(i))
xq2=trim(request.form("xiqian12")(i))
xq3=trim(request.form("xiqian13")(i))
xq4=trim(request.form("xiqian14")(i))
xq5=trim(request.form("xiqian15")(i))
xq6=trim(request.form("xiqian16")(i))
xq7=trim(request.form("xiqian17")(i))
xq8=trim(request.form("xiqian18")(i))
xq9=trim(request.form("xiqian19")(i))
xq10=trim(request.form("xiqian110")(i))
xq11=trim(request.form("xiqian111")(i))
xq12=trim(request.form("xiqian112")(i))
xq13=trim(request.form("xiqian113")(i))
xq14=trim(request.form("xiqian114")(i))
xq15=trim(request.form("xiqian115")(i))
xq16=trim(request.form("xiqian116")(i))
xq17=trim(request.form("xiqian117")(i))
xq18=trim(request.form("xiqian118")(i))
xq19=trim(request.form("xiqian119")(i))
xq20=trim(request.form("xiqian120")(i))
xq21=trim(request.form("xiqian121")(i))
xq22=date
xq23=username2
'判断数据合法性
if xq1="" or xq3="" or xq4="" or xq5="" or xq6="" or xq7="" or xq8="" or xq9="" or xq10="" then
response.write "<script language=javascript>" & chr(13) & "alert('第一行有空数据！');" & "history.back()" & "</script>"
end if
if xq11="" or xq12="" or xq13="" or xq14="" or xq15="" or xq16="" or xq17="" or xq18="" or xq19="" then
response.write "<script language=javascript>" & chr(13) & "alert('第二行有空数据！');" & "history.back()" & "</script>"
end if
if xq20="" then
response.write "<script language=javascript>" & chr(13) & "alert('请输入客户号！');" & "history.back()" & "</script>"
end if
'sql="insert into xiqian2(jigou,khh,zhh,date1)values('"
'sql=sql & xq19 & "','"
'sql=sql & xq20 & "','"
'sql=sql & xq1 & "','"
'sql=sql & xq2 & "')"
'&xq19&"','"&xq20&"','"&xq1&"','"&xq2&"')"
sql="insert into xiqian2(jigou,khh,zhh,date1,jyfs,jyfl,sfbz,lyyt,dfmc,dfdm,dszh,dfzj,dfhm,dsmc,bizh,jye1,jye2,ywbs,dbxm,dbhm,nemo,date2,bzh,username1)values('"&xq19&"','"&xq20&"','"&xq1&"','"&xq2&"','"&xq3&"','"&xq4&"','"&xq21&"','"&xq5&"','"&xq6&"','"&xq7&"','"&xq8&"','"&xq9&"','"&xq10&"','"&xq11&"','"&xq12&"','"&xq13&"','"&xq14&"','"&xq15&"','"&xq16&"','"&xq17&"','"&xq18&"','"&xq22&"','正常','"&xq23&"')"
conn.execute(sql)
next
application.unlock
conn.close
set conn=nothing
response.write "<font color=#000fff>输入的 " & session("recnum") & " 组数据已成功入库</font>"
END SUB
'显示成批录入的界面
SUB InputData()
dim recCnt,i
%>
<form name="bathInputData" action="addnew_fxq2.asp?action=add" method="post">
<%
recCnt=cint(request.form("recCnt"))
session("recnum")=recCnt '这里必须用Session变量，否则无法传递！
for i=1 to recCnt
%>
<table width="100%" border="1" bordercolor="#333333">
<tr bordercolor="#999999" bgcolor="#66FF99">
<td height="2" colspan="10"><div align="center" class="style2">
<div align="center"><font style="font-size: 9pt"><span class="style8">第<%=i%>条</span></font><font color="#808080" style="font-size: 9pt">
<font color="#808080" style="font-size: 9pt">
<input name="xiqian119" id="xiqian111" style="border: 1 solid #808080" value="中国民生银行广州<%=username1%>" size="30" maxlength="18">
</font>
<input name="xiqian120" id="xiqian119" style="border: 1 solid #808080" value="<%=khh%>" size="8" maxlength="18">
</font>银行业金融机构报告可疑交易逐笔交易明细表</div>
</div></td>
</tr>
<tr bordercolor="#000000" bgcolor="#99FFFF">
<td width="13%"><div align="center" class="style6">账号</div></td>
<td width="7%"><div align="center" class="style6">交易日期</div></td>
<td width="5%"><div align="center" class="style6">交易方式</div></td>
<td width="6%"><div align="center" class="style6">涉外分类与代码</div></td>
<td width="1%"><span class="style6">资金收付标志</span></td>
<td width="9%"><div align="center" class="style6">来源和用途</div></td>
<td width="13%"><div align="center" class="style6">对方机构名称</div></td>
<td width="9%"><div align="center" class="style6">对方机构代码</div></td>
<td width="13%"><div align="center" class="style6">交易对手账号</div></td>
<td width="15%"><div align="center" class="style6">对手证件类型</div></td>
</tr>
<tr bordercolor="#000000">
<td><font color="#808080" style="font-size: 9pt">
<input name="xiqian1" id="xiqian1" style="border: 1 solid #808080" size="18" maxlength="18">
</font></td>
<td><font color="#808080" style="font-size: 9pt">
<input name="xiqian12" id="xiqian12" style="border: 1 solid #808080" size="10" maxlength="10">
</font></td>
<td><font color="#808080" style="font-size: 9pt">
<input name="xiqian13" id="xiqian13" style="border: 1 solid #808080" size="6" maxlength="6">
</font></td>
<td><font color="#808080" style="font-size: 9pt">
<input name="xiqian14" id="xiqian14" style="border: 1 solid #808080" size="10" maxlength="10">
</font></td>
<td><font color="#808080" style="font-size: 9pt">
<select name="xiqian121" id="xiqian121">
<option value="收">收</option>
<option value="付" selected>付</option>
</select>
</font></td>
<td><font color="#808080" style="font-size: 9pt">
<input name="xiqian15" id="xiqian15" style="border: 1 solid #808080" size="12" maxlength="10">
</font></td>
<td><font color="#808080" style="font-size: 9pt">
<input name="xiqian16" id="xiqian16" style="border: 1 solid #808080" size="18" maxlength="56">
</font></td>
<td><font color="#808080" style="font-size: 9pt">
<input name="xiqian17" id="xiqian17" style="border: 1 solid #808080" size="12" maxlength="12">
</font></td>
<td><font color="#808080" style="font-size: 9pt">
<input name="xiqian18" id="xiqian18" style="border: 1 solid #808080" size="18" maxlength="18">
</font></td>
<td><font color="#808080" style="font-size: 9pt">
<input name="xiqian19" id="xiqian19" style="border: 1 solid #808080" size="18" maxlength="18">
</font></td>
</tr>
<tr bordercolor="#000000" bgcolor="#99FFFF">
<td><div align="center" class="style6">对手证明号码</div></td>
<td><div align="center" class="style6">对手姓名</div></td>
<td><div align="center" class="style6">币种</div></td>
<td colspan="2"><div align="center" class="style6">交易额（原币）</div></td>
<td><div align="center" class="style6">交易额（折美）</div></td>
<td><div align="center" class="style6">业务标识号</div></td>
<td><div align="center" class="style6">代办人姓名</div></td>
<td><div align="center" class="style6">代办人证号</div></td>
<td><div align="center" class="style6">备注</div></td>
</tr>
<tr bordercolor="#000000">
<td height="33"><font color="#808080" style="font-size: 9pt">
<input name="xiqian110" id="xiqian110" style="border: 1 solid #808080" size="18" maxlength="10">
</font></td>
<td><font color="#808080" style="font-size: 9pt">
<input name="xiqian111" id="xiqian1112" style="border: 1 solid #808080" size="10" maxlength="10">
</font></td>
<td><font color="#808080" style="font-size: 9pt">
<input name="xiqian112" id="xiqian112" style="border: 1 solid #808080" size="6" maxlength="6">
</font></td>
<td colspan="2"><font color="#808080" style="font-size: 9pt">
<input name="xiqian113" id="xiqian113" style="border: 1 solid #808080" size="18" maxlength="18">
</font></td>
<td><font color="#808080" style="font-size: 9pt">
<input name="xiqian114" id="xiqian114" style="border: 1 solid #808080" size="12" maxlength="10">
</font></td>
<td><font color="#808080" style="font-size: 9pt">
<input name="xiqian115" id="xiqian115" style="border: 1 solid #808080" size="18" maxlength="10">
</font></td>
<td><font color="#808080" style="font-size: 9pt">
<input name="xiqian116" id="xiqian116" style="border: 1 solid #808080" size="12" maxlength="12">
</font></td>
<td><font color="#808080" style="font-size: 9pt">
<input name="xiqian117" id="xiqian117" style="border: 1 solid #808080" size="18" maxlength="18">
</font></td>
<td><font color="#808080" style="font-size: 9pt">
<input name="xiqian118" id="xiqian118" style="border: 1 solid #808080" size="22" maxlength="10">
</font></td>
</tr>
</table>
<%
next
%>
<br>
<input name="action" type="submit" value="提交">
</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
%>
</body>
</html>
点击后，报
无法显示网页
试图访问的网页出现问题，无法显示。
--------------------------------------------------------------------------------
请尝试执行下列操作：
单击刷新按钮，或稍后重试。
打开 198.20.2.31 主页，然后查找与所需信息相关的链接。
HTTP 错误 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务
--------------------------------------------------------------------------------
技术信息（用于支持人员）
错误类型：
Microsoft VBScript 编译器错误 (0x800A0401)
语句未结束
/cjgl/addnew_fxq2.asp, 第 65 行, ? 66 ?
浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; WPS; Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) ; .NET CLR 1.1.4322)
网页：
GET /cjgl/addnew_fxq2.asp
时间：
2008年9月27日, 13:55:02
详细信息：
Microsoft 支持
不知道呀。
