<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% if request.QueryString("action")="logout" then response.cookies("pet_user")="" response.Cookies("pet_flag")="" Response.Cookies("pet_user").Domain = "petking.cn" Response.Cookies("pet_flag").Domain = "petking.cn" Response.Cookies("pet_user").Expires = date()-1000 Response.Cookies("pet_flag").Expires = date()-1000 end if %> <% if request.Form<>"" then dim verifycode verifycode=request.Form("verifycode") if verifycode<>Session("verifycode") then response.Write "" response.End() end if %> <% dim username,password username=trim(request.Form("username")) password=trim(request.Form("password")) password=mid(md5(password),9,16) dim rs set rs=server.CreateObject("adodb.recordset") rs.open "select * from pet_admin_7",conn while not rs.eof if rs("admin_user_7")=username and rs("admin_pass_7")=password then response.cookies("pet_user")=username response.Cookies("pet_flag")=rs("pet_flag") Response.Cookies("pet_user").Domain = "petking.cn" Response.Cookies("pet_flag").Domain = "petking.cn" Response.Cookies("pet_user").Expires = date()+1 Response.Cookies("pet_flag").Expires = date()+1 rs.close set rs=nothing conn.close set conn=nothing response.Redirect("login.html") end if rs.movenext wend rs.close rs.open "select * from dv_user",conn while not rs.eof if rs("username")=username and rs("userpassword")=password then response.cookies("pet_user")=username response.Cookies("pet_flag")=rs("pet_flag") Response.Cookies("pet_user").Domain = "petking.cn" Response.Cookies("pet_flag").Domain = "petking.cn" Response.Cookies("pet_user").Expires = date()+1 Response.Cookies("pet_flag").Expires = date()+1 rs.close set rs=nothing conn.close set conn=nothing response.Redirect("login.html") end if rs.movenext wend rs.close set rs=nothing conn.close set conn=nothing response.Write "" end if %>

 

 

 

<% dim pet_user,pet_flag pet_user=Request.Cookies("pet_user") pet_flag=Request.Cookies("pet_flag") if pet_user="" and pet_flag="" then %>      用户名：  密  码：  验证码： <% dim getrandom Randomize '设置随机因子 getrandom=mid((rnd*100000000),1,4) '生成6位随机数，取高4位 session.timeout=1 Session("verifycode")=getrandom '保存于Session中 %>  　　　　  .gif" width="12" height="20" align="absbottom">.gif" width="12" height="20" align="absbottom">.gif" width="12" height="20" align="absbottom">.gif" width="12" height="20" align="absbottom">     <%else%> <%=pet_user%> 您好 您已经登录成功！ 您的等级：<% select case pet_flag case 1 response.Write("一般会员") case 2 response.Write("相册管理员") case 3 response.Write("天堂管理员") case 4 response.Write("医院管理员") case 5 response.Write("犬舍网管理员") case 6 response.Write("本站编辑") case 7 response.Write("美容管理员") case 8 response.Write("企业名录管理员") case 9 response.Write("犬舍后台管理员") case 11 response.Write("猫咪网管理员") case 20 response.Write("超级管理员") end select %> 您可以使用以下服务！ 宠物相册 宠物天堂 求职招聘 企业名录 管理犬舍 宠物医院 宠物美容 <%if pet_flag=6 then%>文章后台管理<%end if%> <%if pet_flag=20 then%>后台管理<%end if%> <%if pet_flag=9 then%>犬舍后台管理<%end if%> <%if pet_flag=5 then%>猫舍 犬舍客服管理<%end if%> <%if pet_flag=20 then%> 猫舍管理<%end if%> 安全退出 <%end if%>   欢迎大家登录宠物王,成为宠物王(PKC)用户.宠物王关注您的宠物,与您的宠物共同成长...   返回首页