vbs代码if strsong "" Then显示缺少then错误代码为800A03F9如何排除该错误？

Microsoft VBScript 编译器错误错误 '800a03f9' 缺少 'Then'
Microsoft VBScript 编译器错误错误 '800a03f9' 缺少 'Then' /zwz/changepws.asp，行 13 这问题怎么解决
Microsoft VBScript 编译器错误错误 '800a03f9' 缺少 'Then' /picview.asp ，行 49 If Not rs.eofT...
Microsoft VBScript 运行时错误错误 '800a000d' 类型不匹配: 'hexValue' include/function.asp，行 5811

Microsoft VBScript 编译器错误错误 '800a03f9' 缺少 'Then'

If SysCode = "eims-20080808-0000" Then Conn.Execute("update [eims_System] set LoginTimes = LoginTimes+1 where ID=1")，你试一试看看。

if trim(request("password")))<>trim(rs("password") then

前面多个括号，后面少一个括号。

if trim(request("password"))<>trim(rs("password")) then

If Not rs.eof Then '这里的eof和then中间应该有一个空格分开的！

If hexValue < &H81 Then 出错行

你这个格式应该是16进制的比较吧,你改成下面这样

If hex(hexValue) < hex(&H81) Then '你应该把内容转换为16进制(用hex()函数),再比较