adminxshjcheck.asp

新世纪影院源码

<!--#include file="conn.asp"-->
<%'---------程序编写说明-------%> 
<%'本程序由junping96编写
'程序名称：新世纪影院VOD播放系统（商业版）
'FileName: Adminxshjcheck.asp
'EditDate:2003-12-07
'Editer:junping96
'Email:[e-mail]
'QQ:       249112913 249114058
'请尊重本人劳动，禁止修改版权，有任何问题请和我联系。
%>
<%
admin=trim(request.form("admin"))
admin=replace(admin,"'","")
password=trim(request.form("password"))
password=replace(password,"'","")
loginip=request.servervariables("REMOTE_ADDR")
sql="insert into adminlog(loginname,loginpassword,loginip) values('"&admin&"','"&password&"','"&loginip&"')"
rs.execute(sql)
rs.close

set rs=server.createobject("adodb.recordset")
sql="select * from admin where admin='"&admin&"' and password='"&password&"'"
rs.open sql,conn,1,1
if not rs.eof or bof then
session("adminxshjlogined")=rs("admin")
session("passwordxshjlogined")=rs("password")
session("flagxshjlogined")=rs("flag")
response.redirect "admin.asp"
else
response.redirect request.servervariables("HTTP_REFERER")
end if
rs.close
set rs=nothing
%>