load.asp

信息管理系统！很简单的课程设计！类似于城市信息交换的网站！

<!--#include file="../../conn/conn.asp"-->
<%
ok = request.Form("ok")
name = request.Form("name")
pwd = request.Form("pwd")

if session("ok")<>ok then
	response.Write("<script>alert(""您输入的验证码不正确，请重新选择！！"");history.back();</script>")
	conn.close
	set conn = nothing
	response.end()
end if

SQL = "select * from gly_1a where admin_name='"&name&"' and admin_pwd='"&pwd&"'"
set rs = server.CreateObject("adodb.recordset")
rs.open SQL,conn,1,1
if rs("admin_name")<>name or rs("admin_pwd")<>pwd then
	response.Write("<script>alert(""您输入的用户名或密码不正确！！"");history.back();</script>")
	rs.close
	set rs = nothing
	conn.close
	set conn = nothing
	response.end()
else
	session("admin_login")=true
	session("login_qx")=rs("admin_qx")
	session("login_name")=rs("admin_name")
	response.Redirect("../manage/main.asp")
end if
%>