chkadmin.asp

邮件发送系统 sql与vb实现的 能完成在线的邮件发送与管理

<!--#include file=conn.asp-->
<%
	'变量定义
	dim sql,rs,username,password

	'去除多余空格
	username=replace(trim(request("username")),"'","")
	'去除多余空格
	password=replace(trim(Request("password")),"'","")

	'记录集对象
	set rs=server.createobject("adodb.recordset")

	'查询数据库中是否存在该用户，并且密码输入是否正确
	sql="select * from admin where password='"&password&"' and username='"&username&"'"

	'执行查询
	rs.open sql,conn,1,1

	'如果记录集不为空，说明用户帐号和密码输入正确
 	if not(rs.bof and rs.eof) then
		if password=rs("password") Then
			'将用户信息写入Session
			session("admin")=rs("username")
			'用户权限级别
			session("flag")=rs("flag")

			'重定向至manage.asp页面
			Response.Redirect "manage.asp"
 		Else
 			'调用错误处理过程
			call Error
 		end if
	Else
		'调用错误处理过程
		call Error
	end if

	'错误处理过程
	sub Error()
		'输出错误信息
    	response.write "   <br><br><br>"
    	response.write "    <table align='center' width='300' border='1' cellpadding='0' cellspacing='0' bordercolor='#999999'>"
    	response.write "      <tr bgcolor='#999999'> "
    	response.write "        <td colspan='2' height='15'> "
    	response.write "          <div align='center'><font color='#FFFFFF'>操作: 确认身份失败!</font></div>"
    	response.write "        </td>"
    	response.write "      </tr>"
    	response.write "      <tr> "
    	response.write "        <td colspan='2' height='23'> "
    	response.write "          <div align='center'><br><br>"
    	response.write "      用户名或密码错误!!! <br><br>"
    	response.write "        <a href='javascript:onclick=history.go(-1)'>返回</a>"        
    	response.write "        <br><br></div></td>"
    	response.write "      </tr>   </table>" 
	end Sub
	
	'关闭记录集，释放对象
	rs.close
	set rs=Nothing
	
	'关闭数据库链接，释放对象
	conn.close
	set conn=nothing
%>