主题:[讨论]引号惹的祸,求救!
soeken
[专家分:0] 发布于 2007-09-14 15:05:00
大家好,我下面这段代码运行会出错,应该怎么样改才可以?
<%
response.write ("<tr width=760 align=center ><td width=100 align=center bgcolor='#FFFFFF' height=25><a href=addeluser.asp?id='&rs("username")&' onClick='{if(confirm("您确定要删除该记录吗?!")){return
true;}return false;}'>删除</a>|<a href=changeuser.asp?id='&rs("username")&'>修改</a></td>" )
%>
错误提示:
Microsoft VBScript 编译器错误 错误 '800a03ee'
缺少 ')'
/qr.asp,行 5
response.write ("<tr width=760 align=center ><td width=100 align=center bgcolor='#FFFFFF'
回复列表 (共7个回复)
沙发
wangsdong [专家分:21390] 发布于 2007-09-14 15:14:00
response.write ("<tr width=760 align=center ><td width=100 align=center bgcolor='#FFFFFF' height=25><a href=addeluser.asp?id='"&rs("username")&"' onClick='{if(confirm(""您确定要删除该记录吗?!"")){return true;}return false;}'>删除</a>|<a href=changeuser.asp?id='"&rs("username")&"'>修改</a></td>")
试试
板凳
soeken [专家分:0] 发布于 2007-09-14 15:18:00
楼上说的还是不行
错误:
Microsoft VBScript 运行时错误 错误 '800a000d'
类型不匹配: 'rs'
3 楼
wangsdong [专家分:21390] 发布于 2007-09-14 15:27:00
你在这句之前将rs("username")输出来看看,能否输出来东西,如果没有,你自己找一下原因
4 楼
soeken [专家分:0] 发布于 2007-09-14 15:50:00
谢谢楼上,上面的问题已经可以运行!又有个问题了,上面那些代码可以运行,现在下面的调用删除文件却出错了,本来是可以的:
<!-- #Include File=Conn.asp -->
<%
dim userid,sql
response.buffer=true
Response.Expires=0
userid=Request.Querystring("id")
sql="delete * from [user] where trim(Cstr(username))='"&userid&"'"
set rs=conn.execute (sql)
Response.Write "<html><body><center>成功删除!<p>"
Response.Write "<a href=index.asp>返回查看</a>"
Response.Write "</center></body></html>"
Conn.Close
Set Conn=Nothing
%>
错误:
Microsoft JET Database Engine 错误 '80040e14'
语法错误 (操作符丢失) 在查询表达式 'trim(Cstr(username))=''ceshi''' 中。
5 楼
soeken [专家分:0] 发布于 2007-09-14 16:23:00
我怀疑是id='"&rs("username")&"'这个传送问题。。。。不懂要怎么改
6 楼
wangsdong [专家分:21390] 发布于 2007-09-14 16:54:00
sql="delete * from [user] where trim(Cstr(username))='"&userid&"'"
改成
sql="delete * from [user] where trim(Cstr(username))="&userid
这样试试
如果不成功,你再试试去掉*号,看看有没有结果
7 楼
soeken [专家分:0] 发布于 2007-09-14 17:06:00
非常的感谢楼上,问题终于解决,,下次再请教你
我来回复