index.asp

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

<!--#include file="../../inc/Conn.asp"-->
<!--#include file="../../Inc/Cls.Common.asp"-->
<!--#include file="../../Inc/Cls.Templates.asp"-->
<%
  UrlPath = WR_Setting(4)
  Dim Lebel,Temp,ID
  Lebel = WRMPS.URLDecode(Request.QueryString)
  If Instr(Lebel,",") > 0 Then
    ID = Split(Lebel,",")(1)
    Lebel = Split(Lebel,",")(0)
  End If
  If Lebel = "" Then Response.End
  Call DBConnBegin()
  Set Rs = Conn.Execute("Select WM_Content,WM_Type,WM_SaveType From WM_Label Where WM_Name = '"&Lebel&"' and WM_SkinDir='"&WR_Setting(5)&"'")
  If Not Rs.Eof Then
    Temp = Rs(0)
	If Rs(1) = 4 Then
	  Temp = WRMPS.HCode(2,Temp,"\{\$\Get"&Rs(2)&"\(","\)\}")
	  Temp = WRTemp.LabelAnalyse("Get"&Rs(2),Temp)
	End If
	Temp = WRTemp.SiteTempLabel(Temp)
	Temp = WRTemp.SiteClass(Temp)
	Temp = WRTemp.SiteChannel(Temp)
    If Session("UserName") <> "" Then Temp = WRUser.TempStr(Temp,Session("UserName"))
	Temp = WRTemp.SiteLabel(Temp)
	Temp = WRMPS.ToJs(Temp)
	Response.write Temp
  End If
  Rs.Close
  Set Rs = Nothing
  Call ClassEnd()
  Call DBConnEnd()
%>