<%=SiteTitle%>

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

用户登录
用户名： |
密 码： |
用户注册 忘记密码

| 您无法进入会员中心，请先登录！如果您不是我们的会员，请立即注册。
| 我们的会员有以下功能：
| 1、修改您的会员注册资料；
| 2、查询您的询价，以及询价的处理情况；
| 3、专用私人留言簿，您可在此给我们留言和查看我们的回复。

<%else%>

亲爱的<%=Session("UserName")%>： 您现在已经进入会员服务中心，这里只有注册会员才能访问。您可在这里修改您的注册信息、给我们留言、查看我们对您留言的答复，也可以查询您的询价及询价处理情况。

<%end if%>