好吧问答库 > asp问题，很急

asp问题，很急

sqlstr="select pwd,logintimes from user where sqlstr="sqlstr &"username like✀"& username &"✀" 为什么总是提示 Microsoft VBScript 编译器错误 (0x800A0401)语句未结束主要代码<% @ language="vbscript"%><% Option Explicit %><% dim username,pwd,errmsg Dim objrs,sqlstr username=Trim(request("username")) pwd=Trim(request("pwd")) If username="" Then errmsg="未填写用户名" If pwd="" Then errmsg="未填写密码" If IsEmpty(errmsg) Then If username="guest" Then outputcookies else Set objrs=server.CreateObject("adodb.recordset") sqlstr="select pwd,logintimes from user where sqlstr="sqlstr &"username like✀"& username &"✀" objrs.open sqlstr,objconn,1,3 If objrs.eof Then errmsg="没有该用户" ElseIf objrs("pwd")<>pwd Then errmsg="密码错误" Else logintimes=objrs("logintimes")+1 objrs("logintimes")=logintimes objrs.update outputcookies %><% End If End If End If If IsEmpty(errmsg) Then response.redirect("chatroom.asp") %>

2026年09月27日 13:48

有3个网友回答

网友（1）：

是你的SQL语句有问题：

sqlstr="select pwd,logintimes from user where sqlstr="sqlstr &"username like'"& username &"'"

改为：

sqlstr="select pwd,logintimes from user where " sqlstr=sqlstr & "username like'"& username &"'"

网友（2）：

="sqlstr &"username like'"& username &"'这里错了。把它放在一个变量里，再连接到sqlstr="select pwd,logintimes from user where sqlstr=里试试·

网友（3）：

sqlstr="select pwd,logintimes from user where "&sqlstr & " username like '%"& username &"%'"