asp代码出错?那位高手帮我解

[leoyou]

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)
%>

[leoyou]

Microsoft VBScript 编译器错误 错误 '800a03ee'

缺少 ')'

/ficq/newmessage.asp，行22

if NOT (rs.bof of rs.eof) Then
---------------^

原文件如下:
<%
'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)
%>

[angelheavens]

sql="INSERT INTO 信息表(发信人,收信人,发信时间,正文) VALUES ('" &_fuser & "', '" & touser & "', '" & now() & "','"&words&"')"

[angelheavens]

if NOT (rs.bof or rs.eof) Then

[leoyou]

顶!上面asp代码是结合flash做的,希望大家关注一下!

[1蓝天1]

up

[Nev]

sql="INSERT INTO 信息表(发信人,收信人,发信时间,正文)VALUES ('" &_fuser & "', '" & touser & "', now() , '" & words & "')"

[qunluo]

gz

[dafei0320]

sql="INSERT INTO 信息表(发信人,收信人,发信时间,正文)VALUES ('" &_fuser & "', '" & touser & "', now() , '" & words & "')"

now()不用加##的!
时间格式才加!!

[富察咪咪]

sql="INSERT INTO 信息表(发信人,收信人,发信时间,正文) VALUES ('" & fuser & "', '" & touser & "', #" & now() & "#,'" & words & "')"
变量不能使用下化线开头 fuser

[Rossetti]

up

[qhdsnow]

sql="INSERT INTO 信息表(发信人,收信人,发信时间,正文) VALUES ('" & fuser & "', '" & touser & "', '" & now() & "','" & words & "')"

if (not rs.bof) or (not rs.eof) then

[julong88]

if NOT (rs.bof of rs.eof) Then ???

是不是应该:if NOT (rs.bof and rs.eof) Then

还有：
if rs.bof or rs.eof then
temptext="%OD该用户未注册! %OD消息不能发出!%OD"

是不是应该：

if rs.bof and rs.eof then
temptext="%OD该用户未注册! %OD消息不能发出!%OD"