login.asp

多用户个人主页系统(ASP)

<%
response.buffer=true
response.expires=0
%>
<!--#include file="includes/setup.asp"-->
<!--#include file="includes/formdata.inc"-->
<!--#include file="includes/dataconn.inc"-->
<%
username = trim(request.form("username"))
password = trim(request.form("password"))
call formdata(username)
sql="select * from user where username='"&username&"'"
set rstemp = conntemp.execute(sql)
if rstemp.eof=true then response.redirect("error.asp?Error=noname")
if trim(rstemp("password"))=password then
sql="update user set enddate='"&FormatDateTime(date(),1)&"' where username='"&username&"'"
conntemp.execute(sql)
else
response.clear
response.redirect("error.asp?Error=epass")
end if
if trim(rstemp("kt"))="否" then
response.clear
response.redirect("error.asp?Error=nokt")
else
if  trim(rstemp("kt"))="冻" then
response.clear
response.redirect("error.asp?Error=dj")
else
session("xichen_num")=trim(rstemp("num"))
session("xichen_username")=trim(rstemp("username"))
session("xichen_usergroup")=trim(rstemp("groups"))
response.clear
response.redirect("edit.asp?num="& trim(rstemp("num")) & "&username=" & trim(rstemp("username"))&"&path="&trim(rstemp("username")))
end if
end if
%>