index.asp

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

<!--#include file="../inc/Conn.asp"-->
<!--#include file="../Inc/Cls.Common.asp"-->
<!--#include file="../Inc/Cls.Templates.asp"-->
<%
  Dim UserName,Act
  UserName=WRMPS.CheckStr(Request.QueryString("UserName"),0)
  Act = WRMPS.CheckStr(Request.QueryString("Act"),0)
  If Act = "" Then Act = "INDEX"
  If UserName = "" Then Call WRMPS.ErrView("·请选择相关用户<meta http-equiv=refresh content='1;URL=../'>",0)
  Call DBConnBegin()
  Set Rs = Conn.Execute("select WM_Key from WM_Member where WM_UserName='"&UserName&"'")
  If Rs.eof Then
    Call WRMPS.ErrView("·没有相关用户资料<meta http-equiv=refresh content='1;URL=Index.asp'>",0)
  Else
    If Rs(0) = 0 Then Call WRMPS.ErrView("·此用户还没有通过审核<meta http-equiv=refresh content='1;URL=Index.asp'>",0)
    If Rs(0) = 2 Then Call WRMPS.ErrView("·此用户已被锁定<meta http-equiv=refresh content='1;URL=Index.asp'>",0)
  End If
  Rs.Close
  Set Rs = Nothing
  Author = UserName
  
  SitePath = ",<a href="&WRMPS.GetSpaceUrl(0,UserName)&">会员查看</a>"
  SitePath = WRMPS.GetSitePath(0,SitePath)
  Call WRMPS.FsoBegin()
  TempStr = WRTemp.SiteTemplates(0,0,29,0)
  Call WRMPS.FsoEnd()
  TempStr = WRMPS.GetReplace(TempStr,"【"&Ucase(Act)&"】【","【】【")
  If Instr(TempStr,"【INDEX】【") > 0 Then TempStr = WRMPS.HCode(1,TempStr,"\【INDEX】\【","\】") & WRMPS.HCode(3,TempStr,"\【INDEX】\【","\】")
  If Instr(TempStr,"【ARTICLE】【") > 0 Then TempStr = WRMPS.HCode(1,TempStr,"\【ARTICLE】\【","\】") & WRMPS.HCode(3,TempStr,"\【ARTICLE】\【","\】")
  If Instr(TempStr,"【CLASS】【") > 0 Then TempStr = WRMPS.HCode(1,TempStr,"\【CLASS】\【","\】") & WRMPS.HCode(3,TempStr,"\【CLASS】\【","\】")
  If Instr(TempStr,"【COM】【") > 0 Then TempStr = WRMPS.HCode(1,TempStr,"\【COM】\【","\】") & WRMPS.HCode(3,TempStr,"\【COM】\【","\】")
  If Instr(TempStr,"【CRITIQUE】【") > 0 Then TempStr = WRMPS.HCode(1,TempStr,"\【CRITIQUE】\【","\】") & WRMPS.HCode(3,TempStr,"\【CRITIQUE】\【","\】")
  If Instr(TempStr,"【INFO】【") > 0 Then TempStr = WRMPS.HCode(1,TempStr,"\【INFO】\【","\】") & WRMPS.HCode(3,TempStr,"\【INFO】\【","\】")
  If Instr(TempStr,"【】【") > 0 Then TempStr = WRMPS.HCode(1,TempStr,"\【】\【","\】") & WRMPS.HCode(2,TempStr,"\【】\【","\】") & WRMPS.HCode(3,TempStr,"\【】\【","\】")
  TempStr = WRTemp.SiteTempLabel(TempStr) '替换动态标签
  TempStr = WRMPS.GetReplace(TempStr,"{$UserData}",WRUser.UserData(UserName))
  TempStr = WRUser.TempUser(TempStr,UserName)
  TempStr = WRTemp.SiteLabel(TempStr)
  Call ClassEnd()
  Response.write TempStr
  Call DBConnEnd()
%>