loginasp.asp

来自「本网上拍卖系统选用ASP + SQL Server进行开发, 是一个基于Brow」· ASP 代码 · 共 38 行

<%
SqlDatabaseName = "paimai"            			      '数据库名
SqlUsername = "sa"                                    '用户名
SqlPassword = " "                                      '用户密码
Dim Conn,ConnStr
Set Conn = Server.CreateObject("ADODB.Connection")
ConnStr = "Provider = Sqloledb; Persist Security Info=false; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & ";"
Conn.Open ConnStr
	sql="select * from [admin] where adminn='"&trim(request("adminn"))&"';"
	set rs=Server.CreateObject("ADODB.Recordset")
	rs.open sql,conn,3,3	'以写入方式打开
if not rs.eof then	'如果用户名存在
	if rs("adminpwd")=trim(request("adminpwd")) then
	'将数据库中存储的密码和用户提交的密码进行比较 
		session("adminn")=trim(request("adminn"))
		session("adminid")=rs("adminid")
			'将相关的信息写到 session 内，以便随时获取
		
		
		response.Redirect("admess.asp")	'成功后转到首页
	else	'如果密码不一样
                session("adminn")=""
                session("adminid")=""
		
		response.Write("<script>alert('管理员密码错误！');window.location.href='login.asp';</script>")
		response.End() '清除所有与用户有关的信息，并转向到首页
	end if
        else	'如果用户名不存在
        session("adminn")=""
	    session("adminid")=""

	response.Write("<script>alert('管理员不存在！');window.location.href='index.asp';</script>")
	response.End() '清除所有与用户有关的信息，并转向到首页
end if
rs.close
set rs=nothing
%>