ASP错误 语句未结束

来源：百度知道 编辑：UC知道 时间：2024/05/27 17:41:34
大家帮我看看哪错了?
全代码:
<!--#include file="Connections/conn.asp" -->

<% If Request("action") = "SaveWrite" Then
Call SaveWrite()
End If
%>
<%
Sub SaveWrite()
dim rs3
dim sql
dim hdid
dim riqi
dim hdzt
dim hdlx
dim sfcj
dim kfdx
dim fy
dim hym
dim xh
dim xm
dim email
dim sj
dim times
hdid = trim(request.Form("hdid"))
riqi = trim(request.Form("riqi"))
hdzt = trim(request.Form("hdzt"))
hdlx = trim(request.Form("hdlx"))
sfcj = trim(request.form("radiobutton"))
kfdx = trim(request.Form("kfdx"))
fy = trim(request.Form("fy"))
hym = trim(request.Form("hym"))
xh = trim(request.Form("xh"))
xm = trim(request.Form("xm"))
email = trim(request.Form("ema

错误在于：
sql ="select * from huodongcanjia where [参加人用户名] = '"&hym&"' and [活动ID]='"&hdid&"'"中，[活动ID]='"& 和hdid之间必须要有空格。如下：... [活动ID]='" & hdid&"'"。
否则，VB会认为 "&hd" 表示十六进制数"d",造成错误。

sql ="select * from huodongcanjia where [参加人用户名] = '"&hym&"' and [活动ID]='"&hdid&"'"

这句前后加上几句

response.write hym
response.write hdid
sql ="select * from huodongcanjia where [参加人用户名] = '"&hym&"' and [活动ID]='"&hdid&"'"
response.write sql

查看取得的值是否为空，用trim去掉空格，
dim rs3
dim sql
dim hdid
dim riqi
dim hdzt
dim hdlx
dim sfcj
dim kfdx
dim fy
dim hym
dim xh
dim xm
dim email
dim sj
dim times
你可以不用这样定义，可以
dim sj,times,xh这样，