上一页"
Else
ArticlePageStr = "
上一页 下一页"
End If
ArticlePageStr = ArticlePageStr & "本文共
" & TotalPage & " 页,第 "
For N = 1 To TotalPage
If CurrPage = N Then
ArticlePageStr = ArticlePageStr & "
[" & N & "] "
Else
ArticlePageStr = ArticlePageStr & "
[" & N & "] "
End If
If TotalPage > 8 Then
If N Mod 8 = 0 Then ArticlePageStr = ArticlePageStr & "
"
End If
Next
ArticlePageStr = ContentArr(CurrPage-1) & ArticlePageStr & "页
"
Else
If fycms.ACT_C(modeid,18)="1" Then
ArticlePageStr = Type_file_Content
Else
ArticlePageStr = rs("content")
End If
End If
If Purview=True Then ArticlePageStr=typecontent
Dim newt:Set newt=New Cls_Template
Dim userlogin:userlogin=CBool(UserHS.UserLoginChecked)
If userlogin=True Then
TemplateContent=rep(TemplateContent,"{fy:userlogin}","1=1")
Else
TemplateContent=rep(TemplateContent,"{fy:userlogin}","1=0")
End If
If fycms.ACT_C(ModeID,13)=0 Then
TemplateContent=rep(TemplateContent,"{fy:Commentcode}","1=1")
Else
TemplateContent=rep(TemplateContent,"{fy:Commentcode}","1=0")
End If
TemplateContent=newt.GetContent(ModeID,rs,TemplateContent,ArticlePageStr)'自定义函数
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
Call CloseConn
%>