%
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
User_GetParm
Dim ThisPage
ThisPage=Request.ServerVariables("SCRIPT_NAME")
response.Cookies("FoosunUserCookies")("UserLogin_Style_Num") = p_LoginStyle
If p_LoginStyle="" Or p_LoginStyle = 0 then
response.Cookies("FoosunUserCookies")("UserLogin_Style_Num") = "1"
End if
Dim forward
forward = Request.QueryString("forward")
If forward="" Then
forward = Request.ServerVariables("HTTP_REFERER")
End If
If forward="" Then
forward = left(ThisPage,InStrRev(ThisPage,"/"))&"user/Main.asp"
End If
forward = Server.URLEncode(forward)
%>