www.gusucode.com > 全球营销软件站整站源码4月最新数据 4.0源码程序 > 801wyxqf\common\user.asp

    <!--#include file="../conn.asp" -->
<!--#include file="const.asp"-->
<%
Response.Expires = -9999
Response.AddHeader "pragma", "no-cache"
Response.AddHeader "cache-ctrol", "no-cache"
NewAsp.ChkPostAgent()
Response.Write "var checkcode="&CLng(NewAsp.MainSetting(23))&";"	'--登录是否使用验证码
If NewAsp.memberid>0 Then
%>
var memberid=<%=NewAsp.memberid%>;
var membergrade=<%=NewAsp.membergrade%>;
var membername='<%=NewAsp.membername%>';
var membergroup='<%=NewAsp.membergroup%>';
var nickname='<%=NewAsp.CheckStr(Request.Cookies(NewAsp.CookiesName)("nickname"))%>';
var userlogin='<%=NewAsp.CheckStr(Request.Cookies(NewAsp.CookiesName)("UserLogin"))%>';
var regdatetime='<%=NewAsp.CheckStr(Request.Cookies(NewAsp.CookiesName)("RegDateTime"))%>';
var usermail='<%=NewAsp.CheckStr(Request.Cookies(NewAsp.CookiesName)("usermail"))%>';
<%
	Select Case CInt(NewAsp.memberclass)
		Case 999	:	Response.Write "var memberclass='管理员';"
		Case 1		:	Response.Write "var memberclass='计时会员';"
		Case Else	:	Response.Write "var memberclass='计点会员';"
	End Select
Else
	Response.Write "var memberid=0;" & vbCrLf			'--用户ID，没有登陆ID＝0
	Response.Write "var membergrade=0;" & vbCrLf		'--用户等级
	Response.Write "var membername='游客';" & vbCrLf	'--用户名称
	Response.Write "var membergroup='匿名';" & vbCrLf	'--用户组名
	Response.Write "var memberclass='客人';"			'--用户身份
	Response.Write "var nickname='游客';"				'--用户昵称
End If
NewAsp.PageEnd()
%>