有此一代码,为什么出错?

DARKLY 2004-12-25 08:52:19
<!--#include virtual="/inc/ip.asp"--><!--#include virtual="/inc/chk.asp"-->
<%
if Request("action")="add" then
uname=request.cookies("users")("username")
kunit=trim(request.form("kunit"))
ktime1=trim(request.form("ktime1"))
ktime2=trim(request.form("ktime2"))
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from DQ518_kobjs where kunit='"&kunit&"'"
rs.open sql,conn,1,1
'输入错误判断
if kunit="" then
response.write "<font color= red>您输入的单位名称为空,请填入您要添加的客户</font> <a href=javascript:history.go(-1)>重新输入</a>"
response.end
end if
if ktime1="" then
response.write "<font color= red>请填写起始时间</font> <a href=javascript:history.go(-1)>重新输入</a>"
response.end
end if
if ktime2="" then
response.write "<font color= red>请填写结束时间</font> <a href=javascript:history.go(-1)>重新输入</a>"
response.end
end if

'-------------------------------------------------------------------------------------
if not rs.eof or not rs.bof then
response.write "<font color=red>该客户名 "&kunit&" 已经存在</font> <a href=javascript:history.go(-1)>请核对后再添加</a>"
response.end
else
kname=trim(request("kname"))
ktel=trim(request("ktel"))
kmobile=trim(request("kmobile"))
kunit=trim(request("kunit"))
kjob=trim(request("kjob"))
koj=trim(request("koj"))
kclass=trim(request("kclass"))
kadd=trim(request("kadd"))
ktime1=trim(request("ktime1"))
ktime2=trim(request("ktime2"))
kmmobile=trim(request("kmmobile"))
kmtel=trim(request("kmtel"))
kmjob=trim(request("kmjob"))
khomepg=trim(request("khomepg"))
kmail=trim(request("kmail"))
kfax=trim(request("kfax"))
kgx=trim(request("kgx"))
kcode=trim(request("kcode"))
kmuster=trim(request("kmuster"))
ktext=replace(replace(request("ktext"),chr(10),"<br>"),chr(13),"  ")
uname=request.cookies("users")("username")
'kid="QCGW" & Year(date) & Right("000000" & rs("id"),6)
kid="QCGW" & Year(now()) &Right("000000" & rs("id"),6)
'conn.execute("insert into Dq518_kobjs(kname,ktel,kmobile,kunit,kjob,koj,kclass,kadd,ktime1,ktime2,kmmobile,kmtel,kmjob,khomepg,kmail,kfax,kcode,kmuster,ktext,uname,kid)values('" & kname & "','" & ktel & "','" & kmobile & "','" & kunit & "','" & kjob & "','" & koj & "','" & kclass & "','" & kadd & "','" & ktime1 & "','" & ktime2 & "','" & kmmobile & "','" & kmtel & "','" & kmjob & "','" & khomepg & "','" & kmail & "','" & kfax & "','" & kcode & "','" & kmuster & "','" & ktext & "','" & uname & "','" & kid & "');")
sql="insert into Dq518_kobjs(kname,ktel,kmobile,kunit,kjob,koj,kclass,kadd,ktime1,ktime2,kmmobile,kmtel,kmjob,khomepg,kmail,kfax,kcode,kmuster,ktext,uname,kid)values('" & kname & "','" & ktel & "','" & kmobile & "','" & kunit & "','" & kjob & "','"& koj &"','" & kclass & "','" & kadd & "','" & ktime1 & "','" & ktime2 & "','" & kmmobile & "','" & kmtel & "','" & kmjob & "','" & khomepg & "','" & kmail & "','" & kfax & "','" & kcode & "','" & kmuster & "','" & ktext & "','" & uname & "','" & kid & "');"
'conn.execute("insert into Dq518_kobjs(kname,ktel,kmobile,kunit,kjob,koj,kclass,kadd,ktime1,ktime2,kmmobile,kmtel,kmjob,khomepg,kmail,kfax,kcode,kmuster,ktext,uname,kid)values('"&kname&"','"&ktel&"','"&kmobile&"','"&kunit&"','"&kjob&"','"&koj&"','"&kclass&"','"&kadd&"','"&ktime1&"','"&ktime2&"','"&kmmobile&"','"&kmtel&"','"&kmjob&"','"&khomepg&"','"&kmail&"','"&kfax&"','"&kcode&"','"&kmuster&"','"&ktext&"','"&uname&"','"&kid&"')")
conn.execute(sql)
rs.Close
set rs=nothing
conn.close
set conn=nothing
Response.Redirect "/error.asp?id=8"
end if
end if
%><form method="post" action="addobjs.asp?action=add" name="text">
<table border="1" width="100%" id="table1" cellspacing="0" cellpadding="0" bgcolor="#DFC89D" style="border-collapse: collapse" bordercolor="#996633">
<tr>
<td>
<p align="center"><%=request.cookies("users")("username")%> 的客户资料</td>
</tr>
<tr>
<td bgcolor="#EFEBC9" align="center">单位名称<input type="text" name="kunit" id="kunit" size="77"></td>
</tr>
<tr>
<td bgcolor="#EFEBC9" align="center">日常联系人<input type="text" name="kname" id="kname" size="10">客户职务<input type="text" name="kjob" id="kjob" size="8">联系电话<input type="text" name="ktel" id="ktel" size="12">客户手机<input type="text" name="kmobile" id="kmobile" size="16"></td>
</tr>
<tr>
<td bgcolor="#EFEBC9" align="center">法定代表人<input type="text" name="kmuster" id="kmuster" size="10">法人职务<input type="text" name="kmjob" id="kmjob" size="8">办公电话<input type="text" name="kmtel" id="kmtel" size="12">法人手机<input type="text" name="kmmobile" id="kmmobile" size="16"></td>
</tr>
<tr>
<td bgcolor="#EFEBC9" align="center">联系地址<input type="text" name="kadd" id="kadd" size="59">邮编<input type="text" name="kcode" id="kcode" size="12"></td>
</tr>
<tr>
<td bgcolor="#EFEBC9" align="center">客户类别<select size="1" name="kclass" id="kclass">
<option value="顾问单位">顾问单位</option>
<option value="长期客户">长期客户</option>
<option value="临时客户">临时客户</option>
<option value="其它">其它</option>
</select>行业<select size="1" name="koj" id="koj">
<option value="行政机关">行政机关</option>
<option value="金融证券">金融保险</option>
<option value="房地产业">房地产业</option>
<option value="媒体传播">媒体传播</option>
<option value="医疗卫生">医疗卫生</option>
<option value="教育行业">教育行业</option>
<option value="信息产业">信息产业</option>
<option value="IT产业">IT产业</option>
<option value="饮食行业">饮食行业</option>
<option value="其它行业">其它行业</option>
</select>起始日期<font face="Webdings"><a href="#SelectDate" onClick="javascript:window.open('date.asp?form=text&field=ktime1','','directorys=no,toolbar=no,status=no,menubar=no,scrollbars=no,resizable=no,width=190,height=140');">i</a></font><input type="text" name="ktime1" id="ktime1" size="12" readonly >结束日期<font face="Webdings"><a href="#SelectDate" onClick="javascript:window.open('date.asp?form=text&field=ktime2','','directorys=no,toolbar=no,status=no,menubar=no,scrollbars=no,resizable=no,width=190,height=140');">i</a></font><input type="text" name="ktime2" id="ktime2" size="13" readonly ></td>
</tr>
<tr>
<td bgcolor="#EFEBC9" align="center" valign="top">客户关系<select size="1" name="kgx" id="kgx">
<option value="所里">所里</option>
<option value="律师">律师</option>
</select>主页<input type="text" name="khomepg" id="khomepg" size="27">邮箱<input type="text" name="kmail" id="kmail" size="15">传真<input type="text" name="kfax" id="kfax" size="10"></td>
</tr>
<tr>
<td bgcolor="#EFEBC9" align="center" valign="top">备注说明<textarea rows="7" name="ktext" id="ktext" cols="75"></textarea></td>
</tr>
<tr>
<td bgcolor="#EFEBC9" align="center"><input type="submit" value="发送" name="B1"><input type="reset" value="重写" name="B2"></td>
</tr>
</table></form>


'-----------------------------
其中kid="QCGW" & Year(now()) &Right("000000" & rs("id"),6)
无法写入,提示 错误 '80020009'
请问:错在哪?
year(now())或year(date)都不行
...全文
65 点赞 收藏 6
写回复
6 条回复
DARKLY 2004年12月26日
问题已解决,结贴
回复 点赞
DARKLY 2004年12月25日
up
将kid注释掉或换成数值就可以通过
为什么
回复 点赞
DARKLY 2004年12月25日
opolmzy(ASP)( 一寸木)
是AC转的,SQL里KID列是nvarchar类型
回复 点赞
opolmzy 2004年12月25日
代码是没问题了,看看你的数据库字段类型吧,是ac转到sqlserver2000的?
回复 点赞
opolmzy 2004年12月25日
代码还真不少啊,你应该把关键部分拿出来啊,不行的话再贴全部,这么懒捏?? %^_~

回复 点赞
DARKLY 2004年12月25日
数据库SQL2000SP3a
在ACCESS里可以通过
回复 点赞
发动态
发帖子
ASP
创建于2007-09-28

1.9w+

社区成员

35.7w+

社区内容

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区公告
暂无公告