📄 act.code.asp
字号:
ACT_SlIDeSQL = ACT_SlIDeSQL & ("if(this.AllPic[0] == null) return false;" & vbCrLf)
ACT_SlIDeSQL = ACT_SlIDeSQL & ("document.write('<div align=""center""><a ID=""Url' + this.ID + '"" href=""""" & OpenType & "><img ID=""Img' + this.ID + '"" wIDth=' + this.WIDth + ' height=' + this.Height + ' style=""filter: revealTrans(duration=2,transition=23);"" src=""javascript:null"" border=""0""></a>');" & vbCrLf)
ACT_SlIDeSQL = ACT_SlIDeSQL & ("if(this.TitleLen != 0) document.write(""<br><Div ID='Title"" + this.ID + ""'></Div></div>"");" & vbCrLf)
ACT_SlIDeSQL = ACT_SlIDeSQL & ("this.Img = document.getElementByID(""Img"" + this.ID);" & vbCrLf)
ACT_SlIDeSQL = ACT_SlIDeSQL & ("this.Url = document.getElementByID(""Url"" + this.ID);" & vbCrLf)
ACT_SlIDeSQL = ACT_SlIDeSQL & ("this.Title = document.getElementByID(""Title"" + this.ID);" & vbCrLf)
ACT_SlIDeSQL = ACT_SlIDeSQL & ("this.LoopShow();" & vbCrLf)
ACT_SlIDeSQL = ACT_SlIDeSQL & ("}" & vbCrLf)
ACT_SlIDeSQL = ACT_SlIDeSQL & ("function LoopShowSlIDePic1() {" & vbCrLf)
ACT_SlIDeSQL = ACT_SlIDeSQL & ("if(this.PicNum<this.AllPic.length-1) this.PicNum++ ;" & vbCrLf)
ACT_SlIDeSQL = ACT_SlIDeSQL & ("else this.PicNum=0;" & vbCrLf)
ACT_SlIDeSQL = ACT_SlIDeSQL & ("this.Img.filters.revealTrans.Transition=this.Effect;" & vbCrLf)
ACT_SlIDeSQL = ACT_SlIDeSQL & ("this.Img.filters.revealTrans.apply();" & vbCrLf)
ACT_SlIDeSQL = ACT_SlIDeSQL & ("this.Img.src=this.AllPic[this.PicNum].ImgUrl;" & vbCrLf)
ACT_SlIDeSQL = ACT_SlIDeSQL & ("this.Img.filters.revealTrans.play();" & vbCrLf)
ACT_SlIDeSQL = ACT_SlIDeSQL & ("this.Url.href=this.AllPic[this.PicNum].LinkUrl;" & vbCrLf)
ACT_SlIDeSQL = ACT_SlIDeSQL & ("if(this.Title) this.Title.innerHTML='<a href=""'+this.AllPic[this.PicNum].LinkUrl+'"" " & OpenType & ">'+this.AllPic[this.PicNum].Title+'</a>';" & vbCrLf)
ACT_SlIDeSQL = ACT_SlIDeSQL & ("this.Img.timer=setTimeout(this.ID+"".LoopShow()"",this.TimeOut);" & vbCrLf)
ACT_SlIDeSQL = ACT_SlIDeSQL & ("}" & vbCrLf)
ACT_SlIDeSQL = ACT_SlIDeSQL & ("var SlIDePic1 = new SlIDePic1(""SlIDePic1"");" & vbCrLf)
ACT_SlIDeSQL = ACT_SlIDeSQL & ("SlIDePic1.WIDth = " & PicWIDth & ";" & vbCrLf)
ACT_SlIDeSQL = ACT_SlIDeSQL & ("SlIDePic1.Height = " & PicHeight & ";" & vbCrLf)
ACT_SlIDeSQL = ACT_SlIDeSQL & ("SlIDePic1.TimeOut = " & ChangeTime & ";" & vbCrLf)
ACT_SlIDeSQL = ACT_SlIDeSQL & ("SlIDePic1.Effect = 23;" & vbCrLf)
If CBool(TypeTitle) = False Then
ACT_SlIDeSQL = ACT_SlIDeSQL & ("SlIDePic1.TitleLen = 0;" & vbCrLf)
Else
ACT_SlIDeSQL = ACT_SlIDeSQL & ("SlIDePic1.TitleLen = 1;" & vbCrLf)
End If
TitleCssStr = GCss(TitleCss)
For K=0 To Ubound(ACTSQL,2)
PicUrl = ACTSQL(1,N)
TempTitle = "<span" & TitleCssStr & ">" &ACTCMS.GetStrValue(ACTSQL(3,N),TitleLen)& "</span>"
ACT_SlIDeSQL = ACT_SlIDeSQL & "var NewItem = new NewSlIDe1();" & vbCrLf
ACT_SlIDeSQL = ACT_SlIDeSQL & "NewItem.ImgUrl = '" & PicUrl & "';" & vbCrLf
ACT_SlIDeSQL = ACT_SlIDeSQL & "NewItem.LinkUrl= '" & AcTCMS.GetInfoUrl(ModeID,ACTSQL(2,N),ACTSQL(0,N),ACTSQL(4,N),ACTSQL(5,N),ACTSQL(6,N),ACTSQL(7,N)) & "';" & vbCrLf
ACT_SlIDeSQL = ACT_SlIDeSQL & "NewItem.Title = '" & TempTitle & "';" & vbCrLf
ACT_SlIDeSQL = ACT_SlIDeSQL & "SlIDePic1.Add(NewItem);" & vbCrLf
Next
ACT_SlIDeSQL = ACT_SlIDeSQL & ("SlIDePic1.Show();" & vbCrLf)
ACT_SlIDeSQL = ACT_SlIDeSQL & ("//-->" & vbCrLf)
ACT_SlIDeSQL = ACT_SlIDeSQL & ("</Script>" & vbCrLf)
End if
End Function
Function GetLastArticleList(ActF,ClassID,PageStyle,ArticleSort,OpenType,PageNumber,RowHeight,TitleLen,ColNumber,TypeClassName,TypeNew,NavType,Nav,Division,DateForm,DateAlign,TitleCss,DateCss,divID,divclass,ulID,ulclass,liID,liclass)
Dim Parameter,SqlStr,ACTSQL
If Application(AcTCMSN & "ACTCMS_TCJ_Type") = "Folder" Then
Select Case ClassID
Case "1":Parameter="ClassID='" & Application(AcTCMSN & "ClassID") & "' And"
Case Else
If InStr(ClassID, ",") > 0 Then
Parameter="ClassID In (" & ClassID & ") And"
Else
Parameter="ClassID='" & ClassID & "' And"
End If
End Select
SqlStr = "SELECT ID FROM "&ACTCMS.ACT_C(Application(AcTCMSN & "ModeID"),2)&" Where " & Parameter & " isAccept=0 AND delif=0 order by IsTop Desc," &ArticleSort &" ,ID Desc"
Dim RS,N
Set RS=ACTCMS.ACTEXE(SqlStr)
If RS.EOF Then GetLastArticleList = "<p>此栏目下没有数据</p>":Application(Cstr(AcTCMSN & "PageList")) = "":RS.Close:Set RS = Nothing:Exit Function
ACTSQL=RS.GetRows(-1):Set RS = Nothing
TotalPut=Ubound(ACTSQL,2)+1
PageNum=cint(PageNumber)
Dim PageNum, I, J, k, TempStr, OpenTypeStr,FolderNameAndLinkStr, TempTitle, NaviStr, ColSpanNum,AddDate,totalput,TempIDArrStr
OpenTypeStr = Gopen(OpenType)
if (TotalPut mod PageNumber)=0 then
PageNum = TotalPut \ PageNumber
Else
PageNum = TotalPut \ PageNumber + 1
End If
For I = 1 To PageNum
TempIDArrStr = ""
For J = 1 To PageNumber
TempIDArrStr = TempIDArrStr &ACTSQL(0,N) & ","
N=N+1
If N>=TotalPut Then Exit For
Next
TempIDArrStr = Left(TempIDArrStr, Len(TempIDArrStr) - 1)
SqlStr = "SELECT ID,ClassID,Title,UpdateTime,ChangesLink,FileName,GroupID_ACT,Score_ACT FROM "&ACTCMS.ACT_C(Application(AcTCMSN & "ModeID"),2)&" Where ID in (" & TempIDArrStr & ") AND isAccept=0 AND delif=0 order by IsTop Desc," &ArticleSort &" ,ID Desc"
TempStr = TempStr & ACTCMS_Page_SQL(SqlStr,OpenType,RowHeight,TitleLen,ColNumber,TypeClassname,TypeNew,NavType,Nav,Division,DateForm,DateAlign,TitleCss,DateCss,ACTF,DivID,DivClass,UlID,UlClass,LiID,LiClass)
TempStr = TempStr & AcTCMS.GetPageList(PageStyle,""&ACTCMS.ACT_C(Application(AcTCMSN & "ModeID"),5)&"",PageNum,I,TotalPut,PageNumber)
TempStr = TempStr & "{$PageList}" '加上分页符
If N>=TotalPut Then Exit For
Next
Application(AcTCMSN & "PageList") = TempStr
Application(AcTCMSN & "PageStyle")= PageStyle
Else
Application(AcTCMSN & "PageList") = ""
End If
GetLastArticleList = "{PageListStr}"
End Function
Function ACTCMS_Page_SQL(SqlStr,OpenType,RowHeight,TitleLen,ColNumber,TypeClassname,TypeNew,NavType,Nav,Division,DateForm,DateAlign,TitleCss,DateCss,ACTF,DivID,DivClass,UlID,UlClass,LiID,LiClass) '21
Dim RS,I,K,N,DateStr,TitleCssName,ColSpanNum,TypeNews,TempTitle,NaviStr,DateCssStr,ACTSQL
Set RS=ACTCMS.ACTEXE(SqlStr)
If RS.EOF Then ACTCMS_Page_SQL="暂无内容":RS.Close:Set RS=Nothing:Exit Function
ACTSQL=RS.GetRows(-1):Set RS = Nothing
Dim ActNum:ActNum=Ubound(ACTSQL,2)
Dim Title,ClassnameLink
TitleCssName = GCss(TitleCss):DateCssStr = GCss(DateCss):RowHeight = GRowHeight(RowHeight):NaviStr = GNavi(NavType,Nav)
If ActF=2 Then
If DivID<>"0" Then ACTCMS_Page_SQL = "<div"&GCssID(DivID)&GCss(DivClass) &">" & vbCrLf
If UlID <>"0" Then ACTCMS_Page_SQL=ACTCMS_Page_SQL& " <ul"&GCssID(UlID)&GCss(UlClass) &">" & vbCrLf
For K=0 To ActNum
If CBool(TypeClassname) = True Then ClassnameLink = "<span>[" & AcTCMS.GainClassName(ACTSQL(1,N),OpenType,TitleCssName) & "]</span>"
If Cbool(TypeNew)=True And (Year(ACTSQL(3,N))&Month(ACTSQL(3,N))&Day(ACTSQL(3,N)) =Year(Now)&Month(Now)&Day(Now)) Then TypeNews="<img src=""" & Domain&"ACT_inc/share/new.gif"" border=""0""/>" Else TypeNews=""
DateStr=GDDateStr(ACTSQL(3,N),DateForm,DateCssStr)
TempTitle = "<a " & TitleCssName & " href=""" &AcTCMS.GetInfoUrl(Application(AcTCMSN & "ModeID"),ACTSQL(1,N),ACTSQL(0,N),ACTSQL(4,N),ACTSQL(5,N),ACTSQL(6,N),ACTSQL(7,N)) & """" & Gopen(OpenType) & " title=""" & AcTCMS.CloseHtml(ACTSQL(2,N)) & """>" &ACTCMS.GetStrValue(ACTSQL(2,N),TitleLen) & "</a>"
ACTCMS_Page_SQL = ACTCMS_Page_SQL & (" <li"&GCssID(LIID)&GCss(LiClass)&">" &NaviStr&ClassnameLink&TempTitle&TypeNews&DateStr & "</li>" & vbCrLf)
N=N+1
Next
If UlID<>"0" Then ACTCMS_Page_SQL =ACTCMS_Page_SQL&"</ul>" & vbCrLf
If DivID<>"0" Then ACTCMS_Page_SQL =ACTCMS_Page_SQL&"</div>"
Else
ACTCMS_Page_SQL = "<table border=""0"" cellpadding=""0"" cellspacing=""0"" wIDth=""100%"">" & vbCrLf
For K=0 To ActNum
ACTCMS_Page_SQL = ACTCMS_Page_SQL & "<tr>" & vbCrLf
For I = 1 To ColNumber
If CBool(TypeClassname) = True Then ClassnameLink = "[" & AcTCMS.GainClassName(ACTSQL(1,N),OpenType,TitleCssName) & "] "
If Cbool(TypeNew)=True And (Year(ACTSQL(3,N))&Month(ACTSQL(3,N))&Day(ACTSQL(3,N)) =Year(Now)&Month(Now)&Day(Now)) Then TypeNews="<img src=""" & Domain&"ACT_inc/share/new.gif"" border=""0""/>" Else TypeNews=""
DateStr=GDateStr(ACTSQL(3,N),DateForm,DateAlign,DateCssStr,ColNumber,ColSpanNum)
TempTitle = "<a " & TitleCssName & " href=""" &AcTCMS.GetInfoUrl(Application(AcTCMSN & "ModeID"),ACTSQL(1,N),ACTSQL(0,N),ACTSQL(4,N),ACTSQL(5,N),ACTSQL(6,N),ACTSQL(7,N)) & """" & Gopen(OpenType) & " title=""" & AcTCMS.CloseHtml(ACTSQL(2,N)) & """>" &ACTCMS.GetStrValue(ACTSQL(2,N),TitleLen) & "</a>"
If ColNumber=1 Then
ACTCMS_Page_SQL = ACTCMS_Page_SQL & (" <td height=""" & RowHeight & """>" &NaviStr&ClassnameLink&TempTitle&TypeNews&DateStr& "</td>" & vbCrLf)
Else
ACTCMS_Page_SQL = ACTCMS_Page_SQL & (" <td wIDth=""" & CInt(100 / CInt(ColNumber)) & "%"" height=""" &RowHeight& """>" & vbCrLf)
ACTCMS_Page_SQL = ACTCMS_Page_SQL & (" <table wIDth=""90%"" height=""100%"" cellpadding=""0"" cellspacing=""0"" border=""0"">" & vbCrLf)
ACTCMS_Page_SQL = ACTCMS_Page_SQL & (" <tr><td> " &NaviStr&ClassnameLink&TempTitle&TypeNews &DateStr )
ACTCMS_Page_SQL = ACTCMS_Page_SQL & (" </td></tr>" & vbcrlf &" </table>" & vbCrLf & " </td>" & vbCrLf)
End if
N=N+1
If N>=ActNum+1 Then Exit For
Next
ACTCMS_Page_SQL = ACTCMS_Page_SQL & "</tr>" & vbCrLf
ACTCMS_Page_SQL = ACTCMS_Page_SQL & (GbgPic(Division,ColSpanNum) & vbCrLf)
If N>=ActNum+1 Then Exit For
Next
ACTCMS_Page_SQL = ACTCMS_Page_SQL & ("</table>" & vbCrLf)
End If
End Function
Function GetClassNavigation(ModeID, OpenType, ColNumber, NavHeight, TitleCss, Division,NavType,Nav,ACTF,DivID,DivCss,UlID,UlCss,LiID,LiCss)
Dim I,SqlStr,RS
Dim TempTitle,NaviStr,ColSpanNum,ACTSQL,K,N
If ModeID ="0" Then
SqlStr = "Select ClassID,ClasseName,ClassName,ParentID From Class_Act Where ParentID='0' AND dh=1 Order By OrderID"
ElseIf IsNumeric(ModeID) And ModeID<"20" Then
SqlStr = "Select ClassID,ClasseName,ClassName From Class_Act where ParentID='0' And ModeID=" & ModeID & " AND dh=1 and ChangesLinkUrl='' Order BY OrderID"
ElseIf ModeID ="888" Then
SqlStr = "Select ClassID,ClasseName,ClassName From Class_Act Where ParentID='" & Application(AcTCMSN & "ClassID") & "' AND dh=1 and ChangesLinkUrl='' Order BY OrderID"
Else
If InStr(ModeID,",") > 0 Then
SqlStr = "Select ClassID,ClasseName,ClassName From Class_Act Where ClassID IN (" & ModeID & ") AND dh=1 Order BY OrderID"
Else
SqlStr = "Select ClassID,ClasseName,ClassName From Class_Act Where ClassID = '" & ModeID & "' AND dh=1 Order BY OrderID"
End If
End If
Set RS=ACTCMS.ActExe(SqlStr)
If RS.EOF Then GetClassNavigation="当前还没有栏目":RS.Close:Set RS=Nothing:Exit Function
ACTSQL=RS.GetRows(-1):Set RS = Nothing
Dim ActNum:ActNum=Ubound(ACTSQL,2)
TitleCss = GCss(TitleCss):OpenType = Gopen(OpenType)
If ActF=2 Then
If DivID<>"0" Then GetClassNavigation = "<div"&GCssID(DivID)&GCss(DivCss) &">" & vbCrLf
If UlID <>"0" Then GetClassNavigation=GetClassNavigation& " <ul"&GCssID(UlID)&GCss(UlCss) &">" & vbCrLf
For K=0 To ActNum
GetClassNavigation = GetClassNavigation & (" <li"&GCssID(LIID)&GCss(LICss)&">" &AcTCMS.GainClassName(ACTSQL(0,N),OpenType,TitleCss)& "</li>" & vbCrLf)
N=N+1
Next
If UlID<>"0" Then GetClassNavigation =GetClassNavigation&"</ul>" & vbCrLf
If DivID<>"0" Then GetClassNavigation =GetClassNavigation&"</div>"
Else
GetClassNavigation = "<table border=""0"" cellpadding=""0"" cellspacing=""0"" wIDth=""100%"" align=""center"">" & vbCrLf
NavHeight = GRowHeight(NavHeight):NaviStr = GNavi(NavType, Nav)&" "
For K=0 To ActNum
GetClassNavigation = GetClassNavigation & "<tr>" & vbCrLf
For I = 1 To ColNumber
If ColNumber>=2 Then ColSpanNum = ColNumber
TempTitle =AcTCMS.GainClassName(ACTSQL(0,N),OpenType,TitleCss)
Select Case ColNumber
Case 1
GetClassNavigation= GetClassNavigation & (" <td height=""" & NavHeight & """>" &NaviStr&TempTitle & "</td>" & vbCrLf)
Case 989
GetClassNavigation = GetClassNavigation & (" <td height=""" &NavHeight& """>" & vbCrLf)
GetClassNavigation = GetClassNavigation & (" <table wIDth=""90%"" height=""100%"" cellpadding=""0"" align=""center"" cellspacing=""0"" border=""0"">" & vbCrLf)
GetClassNavigation = GetClassNavigation & (" <tr><td> " &NaviStr&TempTitle)
GetClassNavigation = GetClassNavigation & (" </td></tr>" & vbcrlf &" </table>" & vbCrLf & " </td>" & vbCrLf)
Case Else
GetClassNavigation = GetClassNavigation & (" <td wIDth=""" & CInt(100 / CInt(ColNumber)) & "%"" height=""" &NavHeight& """>" & vbCrLf)
GetClassNavigation = GetClassNavigation & (" <table wIDth=""90%"" height=""100%"" align=""center"" cellpadding=""0"" cellspacing=""0"" border=""0"">" & vbCrLf)
GetClassNavigation = GetClassNavigation & (" <tr><td> " &NaviStr&TempTitle)
GetClassNavigation = GetClassNavigation & (" </td></tr>" & vbcrlf &" </table>" & vbCrLf & " </td>" & vbCrLf)
End Select
N=N+1
If N>=ActNum+1 Then Exit For
Next
If N>=ActNum+1 Then Exit For
GetClassNavigation = GetClassNavigation & "</tr>" & vbCrLf
GetClassNavigation = GetClassNavigation & (GbgPic(Division,ColSpanNum) & vbCrLf)
Next
GetClassNavigation = GetClassNavigation & ("</table>" & vbCrLf)
End If
End Function
Function GetClassForArticleList(ClassID,ActF,ATT,ArticleSort,OpenTypeStr,ListNumber,RowHeight,TitleLen,ColNumber,TypeClassName,TypeNew,ACTIF,NavType,Nav,MoreLinkType,MoreLink,Division,DateForm,DateAlign,TitleCss,DateCss,TypeMenuBg,menubg,SubColNumber,divID,divclass,ulID,ulclass,liID,liclass)
If Application(AcTCMSN & "ACTCMS_TCJ_Type") = "Folder" Or Application(AcTCMSN & "ACTCMS_TCJ_Type") = "Index" Or Application(AcTCMSN & "ACTCMS_TCJ_Type") = "ACTCMSMODE" Then
Dim SqlStr,RS,ACTSQL,n,k,Sqlstrs
Dim Parameter,MoreLinkStr,ACT_IF,ACTCMS_ATT,RSs,ACT_SQL,ACT
If ClassID ="0" Then '查询所有
SqlStr = "Select ClassID,ModeID,ParentID From Class_act Where ParentID='0' and ChangesLinkUrl = '' Order By ParentID asc,OrderID asc "
ElseIf ClassID ="1" Then
SqlStr = "Select classID,ModeID,ParentID From Class_act Where ParentID='" & Application(AcTCMSN & "ClassID") & "' and ChangesLinkUrl = '' ORDER BY ParentID asc,Order⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -