%
Action=Trim(request("Action"))
if Action="Login" then
dim sql
dim rs
dim username
dim password
username=replace(trim(request("username")),"'","")
password=replace(trim(Request("password")),"'","")
password=md5(password)
set rs=server.createobject("adodb.recordset")
sql="select * from [User] where LockUser=False and username='" & username & "' and password='" & password &"'"
rs.open sql,conn,1,3
if not(rs.bof and rs.eof) then
if password=rs("password") then
rs("LoginIP")=Request.ServerVariables("REMOTE_ADDR")
rs("LastLoginTime")=now()
rs("logins")=rs("logins")+1
rs.update
session("UserName")=rs("username")
Response.Redirect "UserServer.asp"
end if
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
end if
%>
<%
if session("UserName")<>"" then
title="会员["&Session("UserName")&"]专区"
else
title="用户登录"
end if
SiteContent="查看留言,签写留言,客户留言,留言专区"
%>
|
|
|
会员中心 |
|
|
<%If Session("UserName")="" Then%>
|
|
|
|
您无法进入会员中心,请先登录!如果您不是我们的会员,请立即 注册。 |
|
我们的会员有以下功能: |
|
1、修改您的会员注册资料; |
|
2、查询您的询价,以及询价的处理情况; |
|
3、专用私人留言簿,您可在此给我们留言和查看我们的回复。 |
|
|
<%else%>
亲爱的<%=Session("UserName")%>:
您现在已经进入会员服务中心,这里只有注册会员才能访问。您可在这里修改您的注册信息、给我们留言、查看我们对您留言的答复,也可以查询您的询价及询价处理情况。 |
<%end if%> |