check.asp

asp整站系统

<%@ codepage ="936" %>
<!--#include file="adconn.asp"-->
<% dim verifycode,verifycode2
verifycode=trim(Request.Form("verifycode"))
verifycode2=trim(Request.Form("verifycode2"))
if verifycode<>verifycode2 then
response.write"<SCRIPT language=JavaScript>alert('您输入的验证码不正确。');"
response.write"location.href='../index.asp'</SCRIPT>"
founderr=true
else
session("verifycode")=""
%>
<!--#include file="copy.inc"-->
<!--#include file="../user/user.asp"-->
<% 
dim rs,sql
	set rs=server.createobject("adodb.recordset") 
	sql="select top 1 * from admin"
 	rs.open sql,conn,1,3  
if request("action")="login" then
	admin_name=request("admin_name")
	admin_pass=request("admin_pass")
		if admin_name=name1 and admin_pass=pass1 then
		session("admin_name")="felix"
        session("loc")=1
        response.redirect "../manage.asp"
		end if%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from admin where admin_name='"&admin_name&"' and admin_pass='"&admin_pass&"'"
rs.open sql,conn,1,3
    if rs.eof then
        response.write "<br><br><br><br><font size=2><center>　　对不起，您输入的用户名、密码或验证码有误，从重新输入，谢谢！<br><br>本软件建议您使用IE6.0以上版本，分辨率：1024*768<br><br>否则一切后果与本软件无关，特此声明！</font>"
    else
        session("admin_name")=request("admin_name")
        session("loc")=1
        response.redirect "../manage.asp"
	end if 
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
end if
%>