admincheck.asp

来自「DEILPHI写的QQ安全软件源码!功能全套,该有的全有了,欢迎交流」· ASP 代码 · 共 37 行

<!--#include file=conn.asp-->
<%
	dim adminname
	dim adminpass
	adminname=replace(trim(request("adminname")),"'","‘")
	adminpass=replace(trim(Request("adminpass")),"'","‘")

	set rs=server.createobject("adodb.recordset")
	sql="select * from admin where password='"&adminpass&"' and adminname='"&adminname&"'"
	rs.open sql,conn,1,1
 	if not(rs.bof and rs.eof) then
 	     if adminpass=rs("password") then 
	           session("admin")=rs("adminname")
	           Response.Redirect "adminmain.asp"
 		else
			call Error
 		end if
	else
		call Error()
	end if

	sub Error()
%>
<script language=vbscript>
	alert ("帐号或密码错误!")
	location.href = "javascript:history.back()"
</script>
<%      
        end sub
	rs.close
	conn.close
	set rs=nothing
	set conn=nothing

%>