 <!--#include file="fy.F.asp"-->
<!--#include file="../fy_inc/cls_pageview.asp"-->
 <% 
 			 Dim  ACT_L,U,rs,rst,rs2,C,C2,SqlStr,TemplateContent,CurrPage,PageStyle,PerPageNumber,ACT_Lable,ModeID,Parameter,ArticleSql,CurrPageStr
 			 Dim Url,urlarr,uid,UserHS,userlogin
				Set ACT_L = New ACT_Code
			 Set UserHS = New ACT_User
			 userlogin=CBool(UserHS.UserLoginChecked)
			 C = ChkNumeric(request("c"))
			  UID = ChkNumeric(request("uid"))
 			 Set rst=fycms.actexe("select top 1 UModeID,templetsid from User_fy where userid="&UID)
			 If  rst.eof Then die "没有这个用户"
  			 Dim sql
 			 sql="select f.* from User_fy F inner join "&fycms.ACT_U(rst("UModeID"),2)&" U on F.userid=U.userid where u.userid="&UID&"   order by u.userid desc"
  			 Set rs=fycms.actexe(sql)
			 If   rs.eof Then die "没有这个用户"
 
 			 If  C="0" Then  response.write "参数错误":response.End

			 If U="0" Or UID="0" Then response.write "errors":response.End

			 If  C="0" Then  response.write "参数错误":response.End
 			 Set C2=fycms.actexe("select top 1 ModeID,UModeID,ClassTemp from space_fy where id="&C)
 			 If  C2.eof Then response.write "没有找到指定模板1":response.End
			 U=C2("UModeID"):ModeID = C2("ModeID")
 			 If CurrPage<=0 Then CurrPage=CurrPage+1
 			 Set rs2=fycms.actexe("select top 1 templets from templets_fy where id="&rst("templetsid"))
			 If  rs2.eof Then response.write "没有找到指定模板2":response.End
			
 			 TemplateContent =  LoadTemplate(fycms.ACT_U(U,3)&"/"&rs2("templets")&"/"&C2("ClassTemp"))
  	
  			 Dim newt:Set newt=New Cls_Template
 

			 If userlogin=True Then 
				TemplateContent=rep(TemplateContent,"{fy:userlogin}","1=1")
			 Else 
				TemplateContent=rep(TemplateContent,"{fy:userlogin}","1=0")
			 End If 

			  
 			  TemplateContent = newt.GetUserInfo(TemplateContent,rs)
 			 TemplateContent=newt.GetTabContentPage(TemplateContent,"0","","","index.html",false,"")'自定义函数


			response.write TemplateContent&vbcrlf & "<!-- Created Page at " & Now() & " ,By fycms.com ,ACT Content Management System(fycms)  -->" & vbCrLf
 
 

 %>
