<% If request.cookies("timesshop")("username")="" Then dim url url=url&request.ServerVariables("SCRIPT_NAME") if(len(trim(request.ServerVariables("QUERY_STRING")))>0) then url=url & "?" & request.ServerVariables("QUERY_STRING") end if response.write url response.Redirect "/shop/user/login.asp?url='"&url&"'" end if%>

个人资料 <% set rs=server.CreateObject("adodb.recordset") rs.open "select useremail,vip,identify,UserQuestion,realname from [user] where username='"&request.cookies("timesshop")("username")&"' ",conn,1,1 Dim Rank If rs("vip")=0 then Rank = "普通会员" elseif rs("vip")=1 then Rank = "一钻会员" elseif rs("vip")=2 then Rank = "二钻会员" elseif rs("vip")=3 then Rank = "三钻会员" elseif rs("vip")=4 then Rank = "四钻会员" End if %> 尊敬的用户，我们向您承诺：你的信息将被严格保密。 用 户 名： <% = request.cookies("timesshop")("username") %> 会员级别： [<% = Rank %>] E-Mail　： > <% rs.close set rs=nothing %>