在我的主页最上方加入:
<%
if session("username")<>""then
username=session("username")
user_type=session("user_type")
str="select * from user where user_name='"&username&"' order by user_id desc"
set rs=db.execute(str)
%>
处理用户登录:
<%
dim username,password,str,rs
username=request.Form("username")
password=request.Form("password")
str="select * from user where user_name='"&username&"' order by user_id desc"
set rs=db.execute(str)
if rs("user_password")= password then
session("username")=request("username")
'if then
response.Redirect"例如myindex.asp"
'end if
else
response.Write "<font size='-1'>"&"对不起,用户名或密码不正确!!!!"&"</font>"
response.Write "<a href='index.asp'>"&"返回"&"</a>"
end if
%>