admincheck.asp

3ani桑尼网络wap导航程序wap导航程序wap导航程序

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

%>