0 then isHttp=True
next
if isnull(strReferer) or isHttp=false then
Response.Write("")
Response.End
end if
dim sql
dim rs
dim username
dim password
dim code
code=replace(trim(Request("code")),"'","")
If codeCStr(session("CheckCode")) Then
Response.Write("")
Response.End
end if
username=replace(trim(request("username")),"'","")
password=md5(replace(trim(Request("password")),"'",""))
set rs=server.createobject("adodb.recordset")
sql="select * from huiyuan where username='"&username&"' andpassword='"&password&"'"
rs.open sql,conn,1,3
if not(rs.bof and rs.eof) then
if userlogck="1" and rs("senhe")="0" then
Response.Write("")
Response.End
end if
session("username")=rs("username")
session("dengji")=rs("dengji")
session.timeout=60
rs("dltime")=now()
rs.update
if logckurl="1" then
cc=Split(userckurl,"|")
Response.Redirect cc(session("dengji"))
else
Response.Redirect "" & userurl & ""
end if
else
call Error()
end if
sub Error()
Response.Write("")
Response.End
end sub
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
|