28,391
社区成员
发帖
与我相关
我的任务
分享
<% dbdns="../" %>
<!--#include file="../include/conn.asp" -->
<!--#include file="../include/md5.asp" -->
<%
dim sql,rs,username,password
username=replace(trim(Request("username")),"'","")
password=replace(trim(Request("password")),"'","")
password=md5(password)
set rs=server.CreateObject("Adodb.Recordset")
sql="select * from Ublue_Admin where AdminName='"&username&"' and AdminPwd='"&password&"'"
rs.open sql,conn,1,1
if not rs.eof then
session("admin")=rs("AdminName")
session("purview")=rs("AdminPurview")
rs.close
set rs=nothing
call CloseConn()
Response.Redirect("manage.asp")
else
rs.close
set rs=nothing
call CloseConn()
Response.Redirect("ad_login.asp")
end if
%>