|
|
主题: 哪里错了？
|
水木
职务：普通成员
等级：1
金币：0.0
发贴：145
注册：2002/11/2 22:59:06
|
#12003/3/18 19:06:06
<%@LANGUAGE="VBSCRIPT"%>
<%
loginname=request.form("T1")
password=request.form("T2")
if loginname="" then
response.redirect "login.asp"
else if password="" then
response.redirect "login.asp"
else
'strSql = "SELECT * from login where account='" & loginname& "' and password='" & password& "'"
'Response.Write strSql
strSql = "SELECT * from login where account='" & loginname& "' and password='" & password& "'"
Set rsMain = Server.CreateObject("ADODB.Recordset")
rsMain.Open strSql,MSCS,1,1
if rsMain.recordcount = 0 then
strErr = "user or password error, please input again！"
else
Response.Cookies("account")=rsMain("account")
Response.Cookies("password")=rsMain("password")
Response.Redirect "add.asp"
end if
%>
|
天丁
职务：普通成员
等级：2
金币：1.0
发贴：427
注册：2002/4/21 14:59:54
|
#22003/3/20 17:35:39
'strSql = "SELECT * from login where account='" & loginname& "' and password='" & password& "'"
'Response.Write strSql
这两句是不是有问题呀，你再仔细看看这两句的格式对吗
|
缺缺
职务：管理员
等级：8
金币：41.0
发贴：9620
注册：2004/1/14 19:14:47
|
#32003/3/20 17:57:18
<%@LANGUAGE="VBSCRIPT"%>
<%
loginname=request.form("T1")
password=request.form("T2")
if loginname="" then
response.redirect "login.asp"
else if password="" then
response.redirect "login.asp"
else
'strSql = "SELECT * from login where account='" & loginname& "' and password='" & password& "'"
'Response.Write strSql
strSql = "SELECT * from login where account='" & loginname& "' and password='" & password& "'"
Set rsMain = Server.CreateObject("ADODB.Recordset")
rsMain.Open strSql,MSCS,1,1
end if
if rsMain.recordcount = 0 then
strErr = "user or password error, please input again！"
else
Response.Cookies("account")=rsMain("account")
Response.Cookies("password")=rsMain("password")
Response.Redirect "add.asp"
end if
%>
'是注释，没有关系的
|
