gusucode.com > 爱美尔女性商城源码 1.0源码程序 > wen/admin/Admin_Check.asp
<% Dim LaoYAdminID,LaoYAdminName,LaoYAdminPass,IsAdmin,rs5 LaoYAdminID =LaoYRequest(Request.Cookies("LaoYAdmin")("UserID")) LaoYAdminName =CheckStr(Request.Cookies("LaoYAdmin")("UserName")) LaoYAdminPass =CheckStr(Request.Cookies("LaoYAdmin")("UserPass")) If LaoYAdminID<>"" and LaoYAdminName<>"" and LaoYAdminPass<>"" then set rs5 = server.CreateObject ("adodb.recordset") sql="Select Top 1 * from ["&tbname&"_Admin] where id="& LaoYAdminID &" and Admin_Pass='"&LaoYAdminPass&"' and Admin_Name='"&LaoYAdminName&"'" on error resume next rs5.open sql,conn,1,1 Dim myadminid,myadminpass,myadminuser myadminid =rs5("ID") myadminpass =rs5("Admin_Pass") myadminuser =rs5("Admin_Name") myadminip =rs5("Admin_IP") rs5.close set rs5=nothing If myadminid<>Int(LaoYAdminID) or myadminpass<>LaoYAdminPass or myadminuser<>LaoYAdminName or myadminip<>GetIP Then IsAdmin=0 Else IsAdmin=1 End if End if If IsAdmin<>1 then Response.Redirect ""&SitePath&""&SiteAdmin&"/Admin_Login.asp" End if %>