loginuid.asp

来自「我同学的毕业设计源代码」· ASP 代码 · 共 45 行

<!-- #include file="conn.asp" -->
<%
if Request("uid")="" then
%>
	<script language=Javascript>
	alert("用户名不能为空！");
	window.history.go(-1);	
	</script>
<%
	response.End
end if
dim flag
sql="select * from puser where uid='" & trim(request("uid")) & "' and pwd='" & replace(trim(request("pwd")),"'","''") & "'"

set rs = conn.Execute(sql)

if not (rs.eof or err) then
		session("uid")=rs("uid")
		flag = rs.Fields.Item("okyes").Value
        if flag="yes" then
		if session("oldUrl")<>"" then
			response.redirect session("oldUrl")
		else
			response.redirect "user_index.asp"
	
		end if
else
%><script language=Javascript>
	alert("您的账号已经被停用！！！！");
	window.history.go(-1);	
	</script>
	
<%	
	end if
	else
	%>
	<script language=Javascript>
	alert("用户名或密码错误，请重新输入！");
	window.history.go(-1);	
	</script>
	<%
	
	
	end if
%>