<% Dim ACTCLS,ModeID Dim Url,urlarr,ACT_L,UserHS,ACT_Lable,PerPageNumber,TypeContent,UserID,PayTF,classid Dim CurrPage,ID,InfoPurview,ReadPoint,ClassPurview,ClassReadPoint,ChargeType,PitchTime,ReadTimes,ClassArrGroupID Set ACT_L = New ACT_Code Set UserHS = New ACT_User Dim userlogin:userlogin=CBool(UserHS.UserLoginChecked) Dim RsClass,SqlStr,TemplateContent,PageStyle,sqlstrs classid = Rsql(fycms.s("cid")) CurrPage=ChkNumeric(fycms.s("page")) If CurrPage<=0 Then CurrPage=CurrPage+1 If classid = "" Then Call fycms.Alert("非法参数!",fycms.Domain):die "" If IsNumeric(classid)=True Then If Len(classid)<4 Then sqlstrs=" id="&classid Else sqlstrs=" classid="&classid End If Else sqlstrs=" enname='"&classid&"'" End If Set RsClass=fycms.actexe("Select FolderTemplate,classid,Extension,rootid,GroupIDClass,ModeID,actlink,content,makehtmlname,ClassPurview,ClassArrGroupID From Class_fy Where " & sqlstrs ) IF RsClass.Eof And RsClass.Bof Then Call fycms.Alert("非法参数!",fycms.Domain) die "" End If Application(fycmsN & "fycms_TCJ_Type") = "FOLDER" If RsClass("actlink")="2" Then response.Redirect RsClass("makehtmlname") response.end End If ModeID= RsClass("ModeID") classid= RsClass("classid") ClassPurview= ChkNumeric(RsClass("ClassPurview")) ClassArrGroupID= RsClass("ClassArrGroupID") If ClassPurview>0 Then Select Case ClassPurview Case 1 IF userlogin=false Then Call fycms.Alert("对不起,您还没有登录,至少要求本站的注册会员才可查看!",fycms.ActSys&"user/login.asp"):die"" Case 2 If fycms.FoundInArr(ClassArrGroupID,UserHS.GroupID,",")=False Then Call fycms.Alert("对不起,你所在的用户组没有查看的权限!",fycms.ActSys) die"" End If End Select End If Application(fycmsN & "classid")= RsClass("classid") Application(fycmsN & "modeid")= modeid TemplateContent = LoadTemplate(RsClass("FolderTemplate")) Dim newt:Set newt=New Cls_Template TemplateContent=newt.GetTabContentPage(TemplateContent,ClassID,CurrPage,fycms.getclasspath(classid),"index.html",false,"")'自定义函数 If userlogin=True Then TemplateContent=rep(TemplateContent,"{fy:userlogin}","1=1") Else TemplateContent=rep(TemplateContent,"{fy:userlogin}","1=0") End If TemplateContent=InStrRep(TemplateContent,"{info:content}",fycms.ACT_L(Application(fycmsN & "classid"),18))'统一栏目和插件的单页调用 TemplateContent = InStrRep(TemplateContent, "{info:title}",fycms.ACT_L(Application(fycmsN & "classid"),2)) If userlogin=True Then Dim usersqlstr,usrs usersqlstr="select f.*,u.* from User_fy F inner join "&fycms.ACT_U(UserHS.UModeID,2)&" U on F.userid=U.uid where u.uid="&userhs.userid&" order by u.uid desc" Set usrs=fycms.actexe(usersqlstr) If Not usrs.eof Then TemplateContent = newt.GetUserInfo(TemplateContent,usrs) Else TemplateContent = newt.GetnoUserInfo(TemplateContent,"") End If echo TemplateContent&vbcrlf & "" & vbCrLf ' echo fycms.Runtime %>