asp代码出错?那位高手帮我解
Microsoft VBScript 编译器错误 错误 '800a0408'
无效字符
/ficq/sendmessage.asp,行36
sql="INSERT INTO信息表(发信人,收信人,发信时间,正文)VALUES ('" &_fuser & "', '" & touser & "', #" & now() & "#,'" & words & "')"
----------------------------------^
原文件如下:
<%
'fix text for SQL
Function sqlstr(data)
sqlstr = Replace(data,"'","''")
end Function
'get info from client
No=request.QueryString("No")
touser=Sqlstr (request.form("onlineuser"))
words=sqlstr(request.form("sendwords"))
'connect to user database
set Conn=server.CreateObject("ADODB.Connection")
connstr="driver={microsoft access driver (*.mdb)};DBQ="&server.MapPath("user.mdb")
Conn.open connstr
sendsuccess="yes"
temptext=""
loginloop=false
'user indetify
sql="SELECT * FROM user WHERE 在线编号='" & No & "'"
set rs=conn.Execute(sql)
if rs.bof or rs.eof then
temptext="%OD您已掉线,请重新登陆! %OD"
else
fuser=rs("用户名")
sendloop=true
end if
if sendloop=true then
'check reciever's state
sql="SELECT * FROM user WHERE 用户名='" & touser & "'"
set rs=conn.Execute(sql)
if rs.bof or rs.eof then
temptext="%OD该用户未注册! %OD消息不能发出!%OD"
else
sql="INSERT INTO 信息表(发信人,收信人,发信时间,正文)VALUES ('" &_fuser & "', '" & touser &
"', #" & now() & "#, '" & words & "')"
conn.Execute(sql)
toNo=Rs("在线编号")
if toNo<>"0" then
temptext="%OD消息已发出.%OD"
else
temptext="%OD消息已发出,但对方已离线.%OD"
end if
end if
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
'return
returnValue="sendsuccess=" & sendsuccess & "&hint=" & temptext
rrsponse.write(ReturnValue)
%>