set RSLogin=conn.Execute("select* from UserInfo (提示错)where"&"LoginID='"&TheUsername&"'and"&"Password='"&ThePassword&"'")
把这个改成这样
sql="select * from UserInfo where LoginID like '%"&TheUsername&"%' and Password like '%"&ThePassword&"%'"
response.write sql '输入sql语句,改成这样可以查看sql是否有问题(出现问题的时候加上,看看sql有没有问题,没有问题就不加)
RSLogin.open sql,conn