dengluasp.asp

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

<%
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 [user] where usersn='"&trim(request("usersn"))&"';"
	set rs=Server.CreateObject("ADODB.Recordset")
	rs.open sql,conn,3,3	'以写入方式打开
if not rs.eof then	'如果用户名存在
	if rs("userpwd")=trim(request("userpwd")) then
	'将数据库中存储的密码和用户提交的密码进行比较 
		session("usersn")=trim(request("usersn"))
		session("username")=rs("username")	'将相关的信息写到 session 内，以便随时获取
		session("userid")=rs("userid")
		
		response.Redirect("buyykj.asp")	'成功后转到首页
	else	'如果密码不一样
                session("usersn")=""
		session("username")=""
	        session("userid")=""
		response.Write("<script>alert('用户密码错误！');window.location.href='denglu.asp';</script>")
		response.End() '清除所有与用户有关的信息，并转向到首页
	end if
        else	'如果用户名不存在
        session("usersn")=""
	session("username")=""
	session("userid")=""
	response.Write("<script>alert('户名不存在！');window.location.href='index.asp';</script>")
	response.End() '清除所有与用户有关的信息，并转向到首页
end if
rs.close
set rs=nothing
%>