|
#2
ouyang20082007-06-01 11:15
回复：（ouyang2008）调试中提示语句未结束如何解决？...
 |
源代码如下
<body><%@language=vbscript%>
<%username=Trim(request.form("username"));
userpwd=Trim(request.form("password"));
set conn=server.createobject("adodb.connection");conn.open"provider=sqloledb.1;persistsecurityinfo=true;userid=sa;password=99611linlin;initial catalog=asptest;datdsource=ouyang_6b40bde2"
set rst=server.createobject("adodb.recordset")
strsql="select*from userlogon where username="&"'"&username&"'"&"and pwd="&"'"&userpwd&"'"
rst.open strsql,conn,3
if rst.recordcount=0 then
response.redirect("logonerror.asp")
else
session("username")=rst.fields("username")
session("userid")=rst.fields("id")
response.redirect("logonsuccess.asp")
end if
%>
</body>