Microsoft VBScript 运行时错误 '800a000d'怎么解决?

来源:百度知道 编辑:UC知道 时间:2024/06/28 02:42:13
Microsoft VBScript 运行时错误 '800a000d'

类型不匹配: '[string: ""]'

\wwwroot\EditProfile.asp, line 350

下面是EditProfile.asp代码的326到380行:
if badwords<>empty then
filtrate=split(badwords,"|")
for i = 0 to ubound(filtrate)
sign=ReplaceText(sign,""&filtrate(i)&"",string(len(filtrate(i)),"*"))
next
end if

if instr(temp,"[/FLASH]")>0 or instr(temp,"[/RM]")>0 or instr(temp,"[/MP]")>0 then message=message&"<li>签名档中不能含有[FLASH] [RM] [MP]代码"

if Len(sign)>255 then message=message&"<li>签名档不能大于 255 个字节"

if instr(userface,";")>0 then message=message&"<li>头像URL中不能含有特殊符号"

if message<>"" then error(""&message&"")

sql="select * from [user] where username='"&HTMLEncode(us

rs("UserInfo")=""&HTMLEncode(Request("realname"))&"\"&HTMLEncode(Request("country"))&"\"&HTMLEncode(Request("province"))&"\"&HTMLEncode(Request("city"))&"\"&HTMLEncode(Request("postcode"))&"\"&HTMLEncode(Request("blood"))&"\"&HTMLEncode(Request("belief"))&"\"&HTMLEncode(Request("occupation"))&"\"&HTMLEncode(Request("marital"))&"\"&HTMLEncode(Request("education"))&"\"&HTMLEncode(Request("college"))&"\"&HTMLEncode(Request("address"))&"\"&HTMLEncode(Request("phone"))&"\"&HTMLEncode(Request("character"))&"\"&HTMLEncode(Request("personal"))&""
是一行吗 如果不是的话在每行后面加个 _ 下划线就可以了
还有把 & 这些和字符串中间都打上空格
还有数据库尽量避免用