<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% 'if request.ServerVariables("HTTP_HOST")="www.xwxyw.com.cn" Or request.ServerVariables("HTTP_HOST")="xwxyw.com.cn" then Response.Status="301 Moved Permanently" Response.AddHeader "Location","https://yesejiaoyou.com/i.asp?i=xwxyw&type=login" Response.End 'end If %> 会员登录 - 约炮网站 - <%=ft_webname%>
<% Dim myloc myloc="b3" %>
约炮网站
<%If request("logout")="success" Then%>
您已安全退出,欢迎下次登录!
<%ElseIf request("action")="out" Then Call logout() %>
账号安全退出中, 请稍后...
<%Else%>
欢迎来到夜色,请登录网站后继续访问!
<%End If%>
账号:
密码:
<%If request.Cookies("Yese_fk")="999" Then%>

如果不是会员,您可以注册,或以用访客身份登录!

访客可浏览3分钟网站。点击此处免费注册会员
<%End If%>
<%Call closeconn()%> <% sub logout() Response.Cookies("YeSeEden").path="/" Response.Cookies("YeSeEden")("username") = "" Response.Cookies("YeSeEden")("myid") = "" Response.Cookies("YeSeEden")("password") = "" Response.Cookies("YeSeEden")("sex") = "" Response.Cookies("YeSeEden")("grade") = "" Response.Cookies("YeSeEden")("flag") = "" Response.Cookies("YeSeEden")("area_b") = "" Response.Cookies("YeSeEden")("area_s") = "" Response.Cookies("YeSeEden")("truemember") = "" Response.Cookies("YeSeEden")("Recommended") = "" Response.Cookies("YeSeEden")("tovip") = "" Response.Cookies("YeSeEden") = "" 'Call alert ("退出成功!欢迎下次登录!","usercenter.html") If request("reg")="yes" Then Response.Redirect("reg_check.html") ElseIf request("reg")="not" Then Response.Redirect("reg_check.html?reg=not") Else Response.Redirect("login.html?logout=success") End If 'Response.End end sub %> <% Dim my_username my_id=request.Cookies("YeSeEden")("myid") If my_id<>"" Then 'cookies为空 response.redirect "/usercenter.html" End If %>