user_login_check.asp

电影ASP文件

<!--#include file="../film_conn.asp"-->
<%
dim rs
dim sql
userid=replace(trim(request("userid")),"'","")
userid=replace(userid,"%","")
userid=replace(userid,"=","")
password=replace(trim(Request("password")),"'","")
password=replace(password,"%","")
password=replace(password,"=","")
if application(""&userid&"")="yes" then

response.write"<script>alert('对不起，该用户已经登陆或者上次未正常退出！\n\n请点确定按钮后请输用户名和密码退出后重新登录！');</Script>"
response.write"<script Language=Javascript>location.href = 'user_login_repair.asp';</script>"
response.end
end if
sql="select * from users where userid='"&userid&"'and password='"&password&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if not(rs.bof and rs.eof) then
if rs("mb_pay")=true then
response.write"<script>alert('对不起，您是手机用户，请在首页手机用户登录处登录！');</Script>"
response.write"<script Language=Javascript>location.href = '../';</script>"
response.end
else
id=rs("ID")
conn.Execute("update users set nos=nos+1 where id="&id)
response.cookies("userid")=rs("userid")
response.cookies("password")=rs("password")
response.cookies("okerer")="yesok"   
application(""&userid&"")="yes"
response.cookies("myter")="yes"
response.cookies("userid").expires=now()+5
end if
else
response.write"<script>alert('对不起，错误的用户名或密码！');history.back();</Script>"
response.end
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
if session("loginurl")="" then
response.redirect Request.ServerVariables("HTTP_REFERER")
else
response.Redirect session("loginurl")
end if
%>