📄 act.code.asp
字号:
N=N+1
If N>=ActNum+1 Then Exit For
Next
ACTCMS_A_SQL = ACTCMS_A_SQL & "</tr>" & vbCrLf
ACTCMS_A_SQL = ACTCMS_A_SQL & (GbgPic(Division,ColSpanNum) & vbCrLf)
If N>=ActNum+1 Then Exit For
Next
ACTCMS_A_SQL = ACTCMS_A_SQL & MoreLinkStr& ("</table>" & vbCrLf)
End If
End Function
Function ACT_P(ClassID,ActF,ATT,ArticleSort,OpenType,ListNumber,ColNumber,TitleLen,Titlecss,PiCcss,PicWIDth,PicHeight,ContentLen,PicStyle,TypeTitle,ACTIF,DivID,DivCss,UlID,UlCss,LiID,LiCss,ModeID)
Dim SqlStr, ACT_IF,Parameter,ACTCMS_ATT
Select Case ClassID
Case "","0":Parameter=""
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
If ACTIF<>"" Then ACT_IF = " And "&ACTIF
If ATT="0" Then ACTCMS_ATT="" Else ACTCMS_ATT = " And ATT="&ATT
OpenType = Gopen(OpenType)
If Lcase(Left(Trim(ArticleSort),2))<>"ID" Then ArticleSort=ArticleSort & ",ID Desc"
Sqlstr="Select TOP " & ListNumber & " ID,ClassID,Title,UpdateTime,ChangesLink,FileName,PicUrl,Content,Intro,GroupID_ACT,Score_ACT From "&ACTCMS.ACT_C(ModeID,2)&" Where " & Parameter & " isAccept=0 AND delif=0 AND ArticlePic=1 " & ACTCMS_ATT &ACT_IF& " ORDER BY IsTop Desc," & ArticleSort
ACT_P = ACT_P_SQL(SqlStr,OpenType,ColNumber,TitleLen,Titlecss,PiCcss,PicWIDth,PicHeight,ContentLen,PicStyle,TypeTitle,ACTF,DivID,DivCss,UlID,UlCss,LiID,LiCss,ModeID)
End Function
Function ACT_P_SQL(SqlStr,OpenType,ColNumber,TitleLen,Titlecss,PiCcss,PicWIDth,PicHeight,ContentLen,PicStyle,TypeTitle,ACTF,DivID,DivCss,UlID,UlCss,LiID,LiCss,ModeID)
on error resume next
Dim PicStr,I,TempPicStr,ActCMSURL,K,N,TempTitle,AcTSQL,RS,ArticleC
Set RS=ACTCMS.ActExe(SqlStr)
If RS.EOF Then ACT_P_SQL="还没有图片数据":RS.Close:Set RS=Nothing:Exit Function
AcTSQL=RS.GetRows(-1):RS.Close:Set RS = Nothing
Dim ActNum:ActNum=Ubound(AcTSQL,2)
TitleCss = GCss(TitleCss):PicCss = GCss(PicCss)
If ActF=2 Then
If DivID<>"0" Then PicStr = "<div"&GCssID(DivID)&GCss(DivCss) &">" & vbCrLf
If UlID <>"0" Then PicStr=PicStr& " <ul"&GCssID(UlID)&GCss(UlCss) &">" & vbCrLf
For K=0 To ActNum
ActCMSURL=AcTCMS.GetInfoUrl(ModeID,AcTSQL(1,N),AcTSQL(0,N),AcTSQL(4,N),AcTSQL(5,N),AcTSQL(9,N),AcTSQL(10,N))
TempPicStr = "<a href=""" &ActCMSURL & """" & OpenType & " title=""" & AcTCMS.CloseHtml(AcTSQL(2,N)) & """><Img "& PicCss &" Src=""" & AcTSQL(6,N) & """ border=""0"" wIDth=""" & PicWIDth & """ height=""" & PicHeight & """ align=""absmIDdle""/></a>"
TempTitle = "<a " & TitleCss & " href=""" &ActCMSURL & """" & OpenType & " title=""" & AcTCMS.CloseHtml(AcTSQL(2,N)) & """>" & ACTCMS.GetStrValue(ACTSQL(2,N),TitleLen) & "</a>"
If AcTSQL(8,N)="" Or IsNull(AcTSQL(8,N)) Then ArticleC=AcTSQL(7,N) Else ArticleC=AcTSQL(7,N)
Select Case PicStyle
Case "1":PicStr = PicStr & (" <li"&GCssID(LIID)&GCss(LICss)&">" & TempPicStr & "</li>" & vbCrLf)
Case "2":PicStr = PicStr & ("<li"&GCssID(LIID)&GCss(LICss)&">" & TempPicStr & "<br/>" & TempTitle & "</li>" & vbCrLf)
Case "3"
PicStr = PicStr & (" <li"&GCssID(liID)&GCss(LICss) &">" & TempPicStr)
If Cbool(TypeTitle) = True Then PicStr = PicStr & ("<h2>" & TempTitle &"</h2>")
PicStr = PicStr & ("<p>" & ACTCMS.GetStrValue(Replace(Replace(Replace(AcTCMS.CloseHtml(ArticleC), vbCrLf, ""), "[NextPage]", ""), " ", ""), ContentLen) &"...[<a href=""" & ActCMSURL & """" & OpenType & """>全文</a>]</p></li>"& vbCrLf)
Case "4"
PicStr = PicStr & (" <li"&GCssID(liID)&GCss(LICss) &">")
If Cbool(TypeTitle) = True Then PicStr = PicStr & ("<h2>" & TempTitle &"</h2>")
PicStr = PicStr & ("<p>" & ACTCMS.GetStrValue(Replace(Replace(Replace(AcTCMS.CloseHtml(ArticleC), vbCrLf, ""), "[NextPage]", ""), " ", ""), ContentLen) &"...[<a href=""" & ActCMSURL & """" & OpenType & """>全文</a>]</p>" & TempPicStr & "</li>"& vbCrLf)
Case Else
PicStr=PicStr&ACT_W(PicStyle)
End Select
N=N+1
Next
ACT_P_SQL = PicStr
If UlID<>"0" Then ACT_P_SQL =ACT_P_SQL&"</ul>" & vbCrLf
If DivID<>"0" Then ACT_P_SQL =ACT_P_SQL&"</div>"
Else
PicStr="<table border=""0"" cellpadding=""0"" cellspacing=""0"" wIDth=""100%"">"
For K=0 To ActNum
PicStr = PicStr & "<tr>" & vbCrLf
For I = 1 To ColNumber
ActCMSURL=AcTCMS.GetInfoUrl(ModeID,AcTSQL(1,N),AcTSQL(0,N),AcTSQL(4,N),AcTSQL(5,N),AcTSQL(9,N),AcTSQL(10,N))
TempPicStr = "<a href=""" &ActCMSURL & """" & OpenType & " title=""" & AcTCMS.CloseHtml(AcTSQL(2,N)) & """><Img "& PicCss &" Src=""" & AcTSQL(6,N) & """ border=""0"" wIDth=""" & PicWIDth & """ height=""" & PicHeight & """ align=""absmIDdle""/></a>"
TempTitle = "<a " & TitleCss & " href=""" &ActCMSURL & """" & OpenType & " title=""" & AcTCMS.CloseHtml(AcTSQL(2,N)) & """>" & ACTCMS.GetStrValue(ACTSQL(2,N),TitleLen) & "</a>"
PicStr = PicStr & ("<td wIDth=""" & CInt(100 / CInt(ColNumber)) & "%"">" & vbCrLf)
If AcTSQL(8,N)="" Or IsNull(AcTSQL(8,N)) Then ArticleC=AcTSQL(7,N) Else ArticleC=AcTSQL(7,N)
Select Case PicStyle
Case "1"
PicStr = PicStr & ("<span align=center><p>" & TempPicStr & "</p></span>" & vbCrLf)
Case "2"
PicStr = PicStr & ("<table border=""0"" cellspacing=""0"" cellpadding=""0"" wIDth=""100%""> ")
PicStr = PicStr & ("<tr><td align=center>" & TempPicStr & "</td></tr>" & vbCrLf)
If CBool(TypeTitle) = True Then
PicStr = PicStr & ("<tr><td align=center>" & TempTitle & "</td></tr>" & vbCrLf)
End If
PicStr = PicStr & ("</table>")
Case "3"
PicStr = PicStr & "<table cellSpacing=""0"" cellPadding=""0"" wIDth=""100%"" border=""0"">" & vbCrLf
PicStr = PicStr & " <TR>" & vbCrLf
PicStr = PicStr & " <TD align=center>" & vbCrLf
PicStr = PicStr & " <TABLE align=center cellSpacing=0 cellPadding=0 border=0>" & vbCrLf
PicStr = PicStr & " <TBODY><TR><TD wIDth=110 align=center>" & TempPicStr & "</TD></TR></TBODY>" & vbCrLf
PicStr = PicStr & " </TABLE></TD>" & vbCrLf
PicStr = PicStr & "<TD> <TABLE wIDth=""100%"" border=""0"">" & vbCrLf
PicStr = PicStr & "<TBODY>"
If CBool(TypeTitle) = True Then
PicStr = PicStr & "<TR><TD>" & TempTitle & "</TD></TR>" & vbCrLf
End If
PicStr = PicStr & "<TR><TD>"&ACTCMS.GetStrValue(Replace(Replace(Replace(AcTCMS.CloseHtml(ArticleC), vbCrLf, ""), "[NextPage]", ""), " ", ""), ContentLen) & "...[<a href=""" & ActCMSURL & """" & OpenType & ">全文</a>]</TD></TR>" & vbCrLf
PicStr = PicStr & "</TBODY>" & vbCrLf
PicStr = PicStr & "</TABLE></TD>" & vbCrLf
PicStr = PicStr & " </TR>" & vbCrLf
PicStr = PicStr & "</TABLE>" & vbCrLf
Case "4"
PicStr = PicStr & "<TABLE cellSpacing=""0"" cellPadding=""0"" wIDth=""100%"" border=""0"">" & vbCrLf
PicStr = PicStr & " <TBODY>" & vbCrLf
PicStr = PicStr & " <TR>" & vbCrLf
PicStr = PicStr & "<TD> <TABLE wIDth=""100%"" border=""0"">" & vbCrLf
PicStr = PicStr & "<TBODY>"
If CBool(TypeTitle) = True Then
PicStr = PicStr & "<TR><TD>" & TempTitle & "</TD></TR>" & vbCrLf
End If
PicStr = PicStr & "<TR><TD>"&ACTCMS.GetStrValue(Replace(Replace(Replace(AcTCMS.CloseHtml(ArticleC), vbCrLf, ""), "[NextPage]", ""), " ", ""), ContentLen) & "...[<a href=""" & ActCMSURL & """" & OpenType & ">全文</a>]</TD></TR>" & vbCrLf
PicStr = PicStr & "</TBODY>" & vbCrLf
PicStr = PicStr & "</TABLE></TD>" & vbCrLf
PicStr = PicStr & " <TD align=center>" & vbCrLf
PicStr = PicStr & "<TABLE align=center cellSpacing=0 cellPadding=0 border=0>" & vbCrLf
PicStr = PicStr & "<TBODY><TR><TD wIDth=110 align=center>" & TempPicStr & "</TD></TR></TBODY>" & vbCrLf
PicStr = PicStr & "</TABLE></TD>" & vbCrLf
PicStr = PicStr & " </TR>" & vbCrLf
PicStr = PicStr & "</TBODY></TABLE>" & vbCrLf
Case Else
PicStr=PicStr&ACT_W(PicStyle)
End Select
PicStr = PicStr & ("</td>" & vbCrLf)
N=N+1
If N>=ActNum+1 Then Exit For
Next
PicStr = PicStr & ("</tr>" & vbCrLf)
PicStr = PicStr & ("<tr><td colspan=""" & ColNumber & """ height=""5""></td></tr>")
IF N>=ActNum+1 Then Exit For
Next
ACT_P_SQL = PicStr & ("</table>" & vbCrLf)
End If
End Function
Function ACTCMS_GetSlIDe(ClassID,ListNumber,OpenType,TitleLen,Titlecss,TypeTitle,TypeSlIDe,PicWIDth,PicHeight,ChangeTime,ModeID)
Dim SqlStr, Parameter
Select Case ClassID
Case "","0":Parameter=""
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 TOP " & ListNumber & " ID,PicUrl,ClassID,Title,ChangesLink,FileName,GroupID_ACT,Score_ACT From "&ACTCMS.ACT_C(ModeID,2)&" Where " & Parameter & " isAccept=0 AND delif=0 AND picurl<>'' AND SlIDe=1 ORDER BY ID Desc "
ACTCMS_GetSlIDe = ACT_SlIDeSQL(SqlStr,OpenType = Gopen(OpenType),TitleLen,Titlecss,TypeTitle,TypeSlIDe,PicWIDth,PicHeight,ChangeTime,ModeID)
End Function
Function ACT_SlIDeSQL(SqlStr,OpenType ,TitleLen,Titlecss,TypeTitle,TypeSlIDe,PicWIDth,PicHeight,ChangeTime,ModeID)
Dim PicUrl, TempTitle,TitleCssStr,ACTSQL,K
Dim RS:Set RS=ACTCMS.ActExe(SqlStr)
If RS.EOF Then ACT_SlIDeSQL="暂时没有幻灯片":RS.Close:Set RS=Nothing:Exit Function
ACTSQL=RS.GetRows(-1):RS.Close:Set RS = Nothing
IF Cint(TypeSlIDe)=2 Then
Dim ImgArrStr,LinkArrStr,TextArrStr
Dim N:N=0
For K=0 To Ubound(ACTSQL,2)
PicUrl = ACTSQL(1,N)
TempTitle = ACTSQL(3,N)
if N=0 Then
ImgArrStr=PicUrl
LinkArrStr=AcTCMS.GetInfoUrl(ModeID,ACTSQL(2,N),ACTSQL(0,N),ACTSQL(4,N),ACTSQL(5,N),ACTSQL(6,N),ACTSQL(7,N))
TextArrStr=TempTitle
Else
ImgArrStr=ImgArrStr & "$$$" & PicUrl
LinkArrStr=LinkArrStr & "$$$" & AcTCMS.GetInfoUrl(ModeID,ACTSQL(2,N),ACTSQL(0,N),ACTSQL(4,N),ACTSQL(5,N),ACTSQL(6,N),ACTSQL(7,N))
TextArrStr=TextArrStr & "$$$" & TempTitle
End if
N=N+1
Next
ACT_SlIDeSQL="<script src=""" & Domain &"ACT_inc/loadflash.js"" type=""text/javascript"" language=""javascript""></script>"&vbcrlf
ACT_SlIDeSQL=ACT_SlIDeSQL & "<SCRIPT language=JavaScript>" & vbcrlf
ACT_SlIDeSQL=ACT_SlIDeSQL & "var focus_wIDth=" & PicWIDth & ";" & vbcrlf
ACT_SlIDeSQL=ACT_SlIDeSQL & "var focus_height=" & PicHeight & ";" & vbcrlf
If Cbool(TypeTitle)=True Then
ACT_SlIDeSQL=ACT_SlIDeSQL & "var text_height=25;" & vbcrlf
Else
ACT_SlIDeSQL=ACT_SlIDeSQL & "var text_height=0;" & vbcrlf
End If
Dim ImgArr:ImgArr=Split(ImgArrStr,"$$$")
Dim LinkArr:LinkArr=Split(LinkArrStr,"$$$")
Dim TextArr:TextArr=Split(TextArrStr,"$$$")
Dim ArrLength:ArrLength=Ubound(ImgArr)
If ArrLength>5 Then ArrLength=5
Dim I,PicStr,LinkStr,TextStr
For I=0 To ArrLength
If I=0 Then
PicStr="var pics='" & ImgArr(0)
LinkArr(0)=replace(LinkArr(0),"&","%26")
LinkStr="var links='" & LinkArr(0)
TextStr="var texts='" & ACTCMS.GetStrValue(actcms.CloseHtml(TextArr(0)),TitleLen) &""
Else
PicStr=PicStr & "|" & ImgArr(I)
LinkArr(I)=replace(LinkArr(I),"&","%26")
LinkStr=LinkStr&"|"&LinkArr(I)
TextStr=TextStr &"|" &ACTCMS.GetStrValue(actcms.CloseHtml(TextArr(I)),TitleLen)
End IF
Next
ACT_SlIDeSQL=ACT_SlIDeSQL &PicStr &"';"&vbcrlf&LinkStr&"';" &vbcrlf & TextStr &"';"&vbcrlf
ACT_SlIDeSQL=ACT_SlIDeSQL & "LoadFlash('" & Domain & "ACT_inc/slIDe.swf','transparent',focus_wIDth,focus_height+text_height,'pics='+pics+'&links='+links+'&texts='+texts+'&borderwIDth='+focus_wIDth+'&borderheight='+focus_height+'&textheight='+text_height)" & vbcrlf
ACT_SlIDeSQL=ACT_SlIDeSQL & "</SCRIPT>" & vbcrlf
Else
ACT_SlIDeSQL = "<Script Language=""JavaScript"">" & vbCrLf
ACT_SlIDeSQL = ACT_SlIDeSQL & ("<!--" & vbCrLf)
ACT_SlIDeSQL = ACT_SlIDeSQL & ("function SlIDePic1(ID) {this.ID=ID; this.WIDth=0;this.Height=0; this.TimeOut=5000; this.Effect=23; this.TitleLen=0; this.PicNum=-1; this.Img=null; this.Url=null; this.Title=null; this.AllPic=new Array(); this.Add=AddSlIDePic1; this.Show=ShowSlIDePic1; this.LoopShow=LoopShowSlIDePic1;}" & vbCrLf)
ACT_SlIDeSQL = ACT_SlIDeSQL & ("function NewSlIDe1() {this.ImgUrl=""""; this.LinkUrl=""""; this.Title="""";}" & vbCrLf)
ACT_SlIDeSQL = ACT_SlIDeSQL & ("function AddSlIDePic1(SP) {this.AllPic[this.AllPic.length] = SP;}" & vbCrLf)
ACT_SlIDeSQL = ACT_SlIDeSQL & ("function ShowSlIDePic1() {" & vbCrLf)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -