login.asp

来自「功能的增加及完善 1.完善了上次不能读写房源编号的错误； 2.增加了不是会员」· ASP 代码 · 共 36 行

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

sql="select * from puser where uid='"&uid&"' and pwd='"&pwd&"'"
set rs = conn.Execute(sql)
if not (rs.eof or err) then
		session("uid")=rs("uid")
		 session("VIP")=rs("VIP")
		   session("uname")=rs("uname")
response.Redirect"index.asp"
else
%>
	<script language=Javascript>
	alert("用户名或密码错误，请重新输入！");
	window.history.go(-1);	
	</script>
<%	
	end if
%>