ASP代码,请高手指教!
我用的是友欧进销存ASP程序,以下是鄙人修改过的“添加业主”页面,提交出错:Microsoft JET Database Engine 错误 '80040e14'
INSERT INTO 语句的语法错误。
/1/huiyuan/huiyuan_add.asp,行 233
源代码如下:=========================================
<%if request.Cookies("shiwei_username")="" then%>
<script language="javascript">top.location.href="../index.asp"</script>
<%
response.end
end if
%>
<!-- #include file="../conn2.asp" -->
<!-- #include file="../const.asp" -->
<html>
<head>
<title><%=dianming%> - 添加业主</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../style/style.css" rel="stylesheet" type="text/css">
<style>body { background-color:#FFFFFF; }</style>
</HEAD>
<BODY>
<%if fla35="0" and request.Cookies("shiwei_id")<>"1" then%>
<br><center><img src="../images/note.gif" align="absmiddle"> <font color="#FF0000">你不具备此权限,请与管理员联系!</font></center>
<%
response.end
end if
%>
<%if request("hid1")="" then%>
<script language="javascript">
function check()
{
if (document.form2.username.value==""||document.form2.card.value=="")
{
alert("有*号的必须填写!");
return false;
}
}
</script>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#C4D8ED">
<tr><td><img src="../images/r_1.gif" alt="" /></td>
<td width="100%" background="../images/r_0.gif">
<table cellpadding="0" cellspacing="0" width="100%">
<tr>
<td> 添加业主(带*号的为必填项)</td>
<td align="right"> </td>
</tr>
</table>
</td>
<td><img src="../images/r_2.gif" alt="" /></td>
</tr>
<tr>
<td></td>
<td><table width="83%" border="1" align="center" cellpadding="4" cellspacing="1" class="toptable grid">
<form name="form2">
<tr><td width="15%" height="30" align="right">所在小区:</td>
<td width="85%" class="category">
<%
sql="select * from ku order by id"
set rs_ku=conn.execute(sql)
if rs_ku.eof then
%>
<script language="javascript">
alert("请先添加小区!")
window.location.href="../system/ku_add.asp"
</script>
<%
response.end
end if
nowku=request("ku")
if nowku="" then
nowku=rs_ku("id")
end if
%>
<select name="ku" onChange="form2.submit()">
<%do while rs_ku.eof=false%>
<option value="<%=rs_ku("id")%>"<%if trim(cstr(rs_ku("id")))=nowku then%> selected="selected"<%end if%>><%=rs_ku("ku")%></option>
<%
rs_ku.movenext
loop
%>
</select></td></tr>
</form>
<form name="form1">
<input type="hidden" name="ku" value="<%=nowku%>">
<tr><td width="15%" height="30" align="right">楼宇单元:</td>
<td width="85%" class="category">
<%
sql="select * from zu_huiyuan where ku="&nowku&" order by id"
set rs_zu=conn.execute(sql)
%>
<select name="zu"><option value="0"></option>
<%do while rs_zu.eof=false%>
<option value="<%=rs_zu("id")%>"<%if trim(cstr(rs_zu("id")))=nowzu then%> selected="selected"<%end if%>><%=rs_zu("zu")%></option>
<%
rs_zu.movenext
loop
%>
</select></td></tr>
<tr><td align="right" height="30">房 号:</td><td class="category"><input type="text" name="card" style="width:100px"> <font color="#ff0000">*</font>
业主姓名:<input type="text" name="username" style="width:120px"> <font color="#ff0000">*</font>
性别:<input type="radio" name="xinbie" value="男" checked="checked"> 男 <input type="radio" name="xinbie" value="女"> 女</td></tr>
<tr><td align="right" height="30">联系电话:</td><td class="category"><input type="text" name="tel" style="width:200px"> QQ:<input type="text" name="qq" style="width:110px" onKeyUp="this.value=this.value.replace(/\D/g,'')" onafterpaste="this.value=this.value.replace(/\D/g,'')">
Email:<input type="text" name="email" style="width:150px"></td></tr>
<tr><td align="right" height="30">地址:</td><td class="category"><input type="text" name="address" style="width:300px"></td></tr>
<tr><td align="right" height="30">身份证号:</td><td class="category"><input type="text" name="sfz" style="width:300px"></td></tr>
<tr><td align="right" height="30">介绍人:</td><td class="category"><input name="huiyuan2" readonly onClick="JavaScript:window.open('huiyuan.asp?form=form1&field=jieshao&field2=huiyuan2&field3=huiyuan3','','directorys=no,toolbar=no,status=no,menubar=no,scrollbars=yes,resizable=no,width=853,height=470,top=176,left=161');" style="width:90px" value="单击选择业主"><input type="text" name="huiyuan3" style="width:150px" readonly><input type="hidden" name="jieshao">
经办人:
<%
if request.Cookies("shiwei_id")=1 then
sql="select * from login order by id_zu,id"
set rs_login=conn.execute(sql)
else
sql="select * from login where id="&request.Cookies("shiwei_id")
set rs_login=conn.execute(sql)
end if
if rs_login.eof then
%>
<script language="javascript">
alert("请先添加员工!")
window.location.href="../system/user_add.asp"
</script>
<%
response.end
else
%>
<select name="id_login"><%do while rs_login.eof=false%><option value="<%=rs_login("id")%>"<%if trim(cstr(rs_login("id")))=trim(cstr(request.Cookies("shiwei_id"))) then%> selected="selected"<%end if%>><%=rs_login("username")%> (<%=rs_login("bianhao")%>)</option>
<%
rs_login.movenext
loop
%>
</select>
<%end if%></td>
</tr>
<tr><td align="right" height="30">入住时间:</td><td class="category"><input name="startdate" value="<%=date()%>" readonly style="width:100px"><img src="../images/date.gif" align="absmiddle" style="cursor:pointer;" onClick="JavaScript:window.open('day.asp?form=form1&field=startdate&oldDate='+startdate.value,'','directorys=no,toolbar=no,status=no,menubar=no,scrollbars=no,resizable=no,width=250,height=170,top=500,left=520');">
业主生日:
<select name="shenri1"><%for x=1930 to 2006%><option value="<%=x%>"<%if x=1970 then%> selected="selected"<%end if%>><%=x%></option><%next%></select>
年<select name="shenri2"><%for x=1 to 12%><option value="<%=x%>"><%=x%></option><%next%></select>
月<select name="shenri3"><%for x=1 to 31%><option value="<%=x%>"><%=x%></option><%next%></select>
日 <select name="yinyan"><option value="阴">阴历</option><option value="阳">阳历</option></select></td>
</tr>
<tr>
<td align="right" height="30">费用起始日期:</td><td class="category">
水 费:
<select name="shui1"><%for x=2010 to 2030%><option value="<%=x%>"<%if x=2010 then%> selected="selected"<%end if%>><%=x%></option><%next%></select>年
<select name="shui2"><%for x=1 to 12%><option value="<%=x%>"><%=x%></option><%next%></select>月
<select name="shui3"><%for x=1 to 31%><option value="<%=x%>"><%=x%></option><%next%></select>日
电 费:
<select name="dian1"><%for x=2010 to 2030%><option value="<%=x%>"<%if x=2010 then%> selected="selected"<%end if%>><%=x%></option><%next%></select>年
<select name="dian2"><%for x=1 to 12%><option value="<%=x%>"><%=x%></option><%next%></select>月
<select name="dian3"><%for x=1 to 31%><option value="<%=x%>"><%=x%></option><%next%></select>日<br />
物管费:
<select name="wuye1"><%for x=2010 to 2030%><option value="<%=x%>"<%if x=2010 then%> selected="selected"<%end if%>><%=x%></option><%next%></select>年
<select name="wuye2"><%for x=1 to 12%><option value="<%=x%>"><%=x%></option><%next%></select>月
<select name="wuye3"><%for x=1 to 31%><option value="<%=x%>"><%=x%></option><%next%></select>日
其他费:
<select name="qita1"><%for x=2010 to 2030%><option value="<%=x%>"<%if x=2010 then%> selected="selected"<%end if%>><%=x%></option><%next%></select>年
<select name="qita2"><%for x=1 to 12%><option value="<%=x%>"><%=x%></option><%next%></select>月
<select name="qita3"><%for x=1 to 31%><option value="<%=x%>"><%=x%></option><%next%></select>日
</td>
</tr>
<tr><td align="right" height="30">备注:</td><td class="category"><textarea name="beizhu" cols="70" rows="4"></textarea></td>
</tr>
<tr><td height="30"> </td><td class="category"><input type="submit" value="确认添加" onClick="return check()" class="button"> <input type="hidden" name="hid1" value="ok"><input type="reset" value="重新填写" class="button"></td></tr>
</form>
</table>
</td>
<td></td>
</tr>
<tr><td><img src="../images/r_4.gif" alt="" /></td>
<td></td>
<td><img src="../images/r_3.gif" alt="" /></td>
</tr></table>
<%
else
nowqq=request("qq")
nowemail=request("email")
nowid_zu=request("id_zu")
nowusername=request("username")
nowxinbie=request("xinbie")
nowtel=request("tel")
nowaddress=request("address")
nowsfz=request("sfz")
nowjieshao=request("jieshao")
nowcard=request("card")
nowid_login=request("id_login")
nowstartdate=request("startdate")
nowshenri1=request("shenri1")
nowshenri2=request("shenri2")
nowshenri3=request("shenri3")
nowyinyan=request("yinyan")
nowshenri=nowshenri1&"-"&nowshenri2&"-"&nowshenri3
nowenddate=cdate(nowstartdate)+365
nowbeizhu=request("beizhu")
nowku=request("ku")
nowshui1=request("shui1")
nowshui2=request("shui2")
nowshui3=request("shui3")
nowdian1=request("dian1")
nowdian2=request("dian2")
nowdian3=request("dian3")
nowwuye1=request("wuye1")
nowwuye2=request("wuye2")
nowwuye3=request("wuye3")
nowqita1=request("qita1")
nowqita2=request("qita2")
nowqita3=request("qita3")
nowshui=nowshui1&"-"&nowshui2&"-"&nowshui3
nowdian=nowdian1&"-"&nowdian2&"-"&nowdian3
nowwuye=nowwuye1&"-"&nowwuye2&"-"&nowwuye3
nowqita=nowqita1&"-"&nowqita2&"-"&nowqita3
sql="select * from huiyuan where card='"&nowcard&"'"
set rs=conn.execute(sql)
if rs.eof=false then
%>
<script language="javascript">
alert("您输入的业主房号已经存在,请重新输入!")
window.history.go(-1)
</script>
<%
response.end
end if
if nowjieshao="" then
nowjieshao=0
else
sql="update huiyuan set jifen=jifen+"&jieshaojifen&" where id="&nowjieshao
conn.execute(sql)
end if
set rs_login=conn.execute("select * from login where id="&nowid_login)
nowlogin=rs_login("username")
sql="insert into huiyuan(username,xinbie,tel,address,sfz,jieshao,card,id_login,login,startdate,shenri,enddate,beizhu,yinyan,qq,email,id_zu,ku,shui,dian,wuye,qita) values('"&nowusername&"','"&nowxinbie&"','"&nowtel&"','"&nowaddress&"','"&nowsfz&"',"&nowjieshao&",'"&nowcard&"',"&nowid_login&",'"&nowlogin&"',#"&nowstartdate&"#,#"&nowshenri&"#,#"&nowenddate&"#,'"&nowbeizhu&"','"&nowyinyan&"','"&nowqq&"','"&nowemail&"',"&nowid_zu&","&nowku&",#"&nowshui&"#,#"&nowdian&"#,#"&nowwuye&"#,#"&nowqita&"#)"
conn.execute(sql)
%>
<script language="javascript">
alert("业主添加成功!")
window.location.href="huiyuan.asp"</script>
<%end if%>
</body></html>
================================结束
我是刚结束ASP不久,估计是“选择小区部分和form的问题(红色和蓝色部分),请各位师傅指点指点。
[ 本帖最后由 天蝎风 于 2010-11-8 00:54 编辑 ]