admincheck.asp

来自「传奇2万能变形特征码+极度流畅版,以前vip买回来的,现在已经过时了」· ASP 代码 · 共 36 行

<!--#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

%>