login.asp

来自「这是一本关于高级软件工程的书籍」· ASP 代码 · 共 35 行

<!-- #include file="../inc/conn.asp" -->
<!-- #include file="../inc/function.asp" -->
<%
	username = managestr(request("acclog"))
	password = managestr(request("psslog"))
	istui = managestr(request("istui"))
	pagestr = managestr(request("pagestr"))
	pagepid = managestr(request("pagepid"))
	if istui <> "" then 
		session.Abandon
		response.Redirect("index.asp")
	end if
	if pagepid <> "" then
		pagepid = "?pid="&pagepid
	end if
	sql = "select username,uname from people where username='"&username&"' and password='"&password&"'"
	rs.open sql,conn
	if rs.Eof then
	%>
		<SCRIPT language="javascript">
			{
				window.alert("用户不存在或者密码不正确！");
			}
			window.history.go(-1)
		</SCRIPT>
	<% 
	else
		session("username")=rs("username")'客户登陆名称
		session("uname")=rs("uname")'客户名字
		rs.close
		conn.close
		'response.write pagestr&pagepid
		response.Redirect(pagestr&pagepid)
	end if
%>