wm.user.asp

网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。

<!--#include file="Conn.asp"-->
<!--#include file="Cls.Common.asp"-->
<%
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"

Dim eString,eShowType,eShowContent,eUserName,eMessage
eString = WRMPS.CheckStr(Request.QueryString,0)
If Instr(eString,",") = 0 Then eString = eString&","
eShowType = Ucase(Split(eString,",")(0))
eUserName = Split(eString,",")(1)
Select Case eShowType
  Case "ISLOG"
    If WRUser.ChkLogin Then
	  If Int(WR_Mail(17)) = 1 Then
        Call DBConnBegin()
        Set Rs = Conn.Execute("Select WM_Message From WM_Member Where WM_ID = "&MemID)
        If Not Rs.Eof Then
          eMessage = Rs(0)
          if Int(Split(eMessage,"|")(1)) > 0 Then eMessage = "[<a href="&WR_Setting(3)&"Member/User_Message.asp class=MemberLink target=_blank><img src='"&WR_Setting(3)&"Skins/"&WR_Setting(5)&"/topmsg.gif' align=absmiddle border=0><font color=red>您有<strong>"&Int(Split(eMessage,"|")(1))&"</strong>条新消息</a></font><bgsound src='"&WR_Setting(3)&"images/mail.wav' loop=1 />]" Else eMessage = ""
        End If
        Rs.Close
        Set Rs = Nothing
	  End If
      eShowContent = "您好：<a href="&WRMPS.GetSpaceUrl(0,MemName)&" class=MemberLink target=_blank><font color=red><strong>"&MemName&"！</strong></font></a> ["
	  If AgentID > 0 Then
	    eShowContent = eShowContent & "<a href="&WR_Setting(3)&"Member/Index.asp class=MemberLink>代理中心</a>|"
	  End If
	  eShowContent = eShowContent & "<a href="&WR_Setting(3)&"Member/Index.asp class=MemberLink>管理</a>|<a href="&WR_Setting(3)&"login.asp?Action=Logout class=MemberLink target=_parent>退出</a>]"&eMessage
    Else
	  If IsEmpty(WRMPS.GetCookies("MemberCache")) = False Then eShowContent = "您好："&WRMPS.GetCookies("MemberCache")&"！"
	  eShowContent = eShowContent & "[<a href="&WR_Setting(3)&"login.asp class=MemberLink target=_parent>请登录</a>|<a href="&WR_Setting(3)&"Reg.asp class=MemberLink target=_parent>免费注册</a>]"
    End If
End Select
%>
document.write("<%=eShowContent%>&nbsp;");