member.asp

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

<!--#include file="inc/Conn.asp"-->
<!--#include file="Inc/Cls.Common.asp"-->
<!--#include file="Inc/Cls.Templates.asp"-->
<%
    Dim eUserName
	eUserName = WRMPS.CheckStr(Request.QueryString("User"),0)
	If eUserName <> "" and IsNull(eUserName)=False Then
      Call DBConnBegin()
	  Call WRMPS.FsoBegin()
	  TempStr = WRTemp.SiteTemplates(1,0,54,0)
	  Call WRMPS.FsoEnd()
	  TempStr = WRUser.TempUser(TempStr,eUserName)
	  TempStr = WRTemp.SiteLabel(TempStr)
      Call DBConnEnd()
	Else
	  TempStr = "载入用户数据出错"
	End If
	Response.write WRMPS.ToJs(TempStr)
	Call ClassEnd()
%>