<% 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%>