📄 ks.labelcls.asp
字号:
If Lcase(left(PicUrl,4))<>"http" then if left(PicUrl,1)="/" then PicUrl=Right(PicUrl,Len(PicUrl)-1): PicUrl=DomainStr & PicUrl
TempTitle = SQL(1,K)
if N=0 Then
ImgArrStr=PicUrl
LinkArrStr=KS.GetInfoUrl(ChannelID,SQL(2,K),SQL(0,K),SQL(5,K),SQL(3,K),SQL(4,K),SQL(6,K))
TextArrStr=TempTitle
SinapicArrStr=PicUrl & "#" & TempTitle
SinapicArrStr=SinapicArrStr & "#" & KS.GetInfoUrl(ChannelID,SQL(2,K),SQL(0,K),SQL(5,K),SQL(3,K),SQL(4,K),SQL(6,K))
Else
ImgArrStr=ImgArrStr & "@@@" & PicUrl
LinkArrStr=LinkArrStr & "@@@" & KS.GetInfoUrl(ChannelID,SQL(2,K),SQL(0,K),SQL(5,K),SQL(3,K),SQL(4,K),SQL(6,K))
TextArrStr=TextArrStr & "@@@" & TempTitle
SinapicArrStr=SinapicArrStr & "@@@" & PicUrl
SinapicArrStr=SinapicArrStr & "#" & TempTitle
SinapicArrStr=SinapicArrStr & "#" & KS.GetInfoUrl(ChannelID,SQL(2,K),SQL(0,K),SQL(5,K),SQL(3,K),SQL(4,K),SQL(6,K))
End if
N=N+1
Next
if Cint(SlideType)=2 then
KS_Slide="<script src=""" & DomainStr &"ks_inc/loadflash.js"" type=""text/javascript"" language=""javascript""></script>"&vbcrlf
KS_Slide=KS_Slide & "<SCRIPT language=JavaScript>" & vbcrlf
KS_Slide=KS_Slide & "var focus_width=" & Width & ";" & vbcrlf
KS_Slide=KS_Slide & "var focus_height=" & Height & ";" & vbcrlf
If Cbool(ShowTitle)=True Then
KS_Slide=KS_Slide & "var text_height=22;" & vbcrlf
Else
KS_Slide=KS_Slide & "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)
LinkStr="var links='" & LinkArr(0)
TextStr="var texts='" & KS.GotTopic(TextArr(0),T_Len) &""
Else
PicStr=PicStr & "|" & ImgArr(I)
LinkStr=LinkStr&"|"&LinkArr(I)
TextStr=TextStr & "|" & KS.GotTopic(TextArr(I),T_Len)
End IF
Next
KS_Slide=KS_Slide &PicStr &"';"&vbcrlf&LinkStr&"';" &vbcrlf & TextStr &"';"&vbcrlf
KS_Slide=KS_Slide & "LoadFlash('" & DomainStr & "KS_Inc/Slideviewer.swf','transparent',focus_width,focus_height+text_height,'pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height)" & vbcrlf
KS_Slide=KS_Slide & "</SCRIPT>" & vbcrlf
elseif Cint(SlideType)=3 then
KS_Slide="<script src=""" & DomainStr &"ks_inc/sinaflash.js"" type=""text/javascript"" language=""javascript""></script>"&vbcrlf
KS_Slide=KS_Slide & "<div id=flashcontent>" & vbcrlf
KS_Slide=KS_Slide & "<SCRIPT type=text/javascript>" & vbcrlf
Dim ImgArr2:ImgArr2=Split(ImgArrStr,"@@@")
Dim LinkArr2:LinkArr2=Split(LinkArrStr,"@@@")
Dim TextArr2:TextArr2=Split(TextArrStr,"@@@")
Dim SinapicArr:SinapicArr=Split(SinapicArrStr,"@@@")
Dim ArrLength2:ArrLength2=Ubound(ImgArr2)
If ArrLength2>5 Then ArrLength2=5
Dim I2,PicStr2,LinkStr2,TextStr2,SinapicStr
For I2=0 To ArrLength2
If I2=0 Then
PicStr2="pics='" & ImgArr2(0)
LinkStr2="mylinks='" & LinkArr2(0)
SinapicStr=SinapicArr(0)
TextStr2="texts='" & KS.GotTopic(TextArr2(0),T_Len) &""
Else
PicStr2=PicStr2 & "|" & ImgArr2(I2)
LinkStr2=LinkStr2&"|"&LinkArr2(I2)
TextStr2=TextStr2 & "|" & KS.GotTopic(TextArr2(I2),T_Len)
SinapicStr=SinapicStr & "|" & SinapicArr(I2)
End IF
Next
KS_Slide=KS_Slide & "var sinaFlash2 = new sinaFlash(""" & DomainStr & "KS_Inc/sinaflash.swf"",""demo"", "& width &", "& height &", """", ""#ffffff"");" & vbcrlf
KS_Slide=KS_Slide & "sinaFlash2.addParam(""quality"", ""best"");" & vbcrlf
KS_Slide=KS_Slide & "sinaFlash2.addParam(""wmode"", ""transparent"");" & vbcrlf
KS_Slide=KS_Slide & "sinaFlash2.addVariable(""picaddress"","""&SinapicStr&""");" & vbcrlf
KS_Slide=KS_Slide & "sinaFlash2.addVariable(""speed"","""& ChangeTime &""");" & vbcrlf
KS_Slide=KS_Slide & "sinaFlash2.write(""flashcontent"");" & vbcrlf
KS_Slide=KS_Slide & "</SCRIPT>" & vbcrlf
elseif Cint(SlideType)=4 then
KS_Slide="<script src=""" & DomainStr &"ks_inc/sohuflash.js"" type=""text/javascript"" language=""javascript""></script>"&vbcrlf
KS_Slide=KS_Slide & "<div id=sasFlashFocus3>" & vbcrlf
KS_Slide=KS_Slide & "<SCRIPT type=text/javascript>" & vbcrlf
KS_Slide=KS_Slide & "var pics3="""", mylinks3="""", texts3="""";" & vbcrlf
KS_Slide=KS_Slide & "var focus_width=" & Width & ";" & vbcrlf
KS_Slide=KS_Slide & "var focus_height=" & Height & ";" & vbcrlf
If Cbool(ShowTitle)=True Then
KS_Slide=KS_Slide & "var text_height=22;" & vbcrlf
Else
KS_Slide=KS_Slide & "var text_height=0;" & vbcrlf
End If
Dim ImgArr3:ImgArr3=Split(ImgArrStr,"@@@")
Dim LinkArr3:LinkArr3=Split(LinkArrStr,"@@@")
Dim TextArr3:TextArr3=Split(TextArrStr,"@@@")
Dim ArrLength3:ArrLength3=Ubound(ImgArr3)
If ArrLength3>5 Then ArrLength3=5
Dim I3,PicStr3,LinkStr3,TextStr3
For I3=0 To ArrLength3
If I3=0 Then
PicStr3="pics='" & ImgArr3(0)
LinkStr3="mylinks='" & LinkArr3(0)
TextStr3="texts='" & KS.GotTopic(TextArr3(0),T_Len) &""
Else
PicStr3=PicStr3 & "|" & ImgArr3(I3)
LinkStr3=LinkStr3&"|"&LinkArr3(I3)
TextStr3=TextStr3 & "|" & KS.GotTopic(TextArr3(I3),T_Len)
End IF
Next
KS_Slide=KS_Slide &PicStr3 &"';"&vbcrlf&LinkStr3&"';" &vbcrlf & TextStr3 &"';"&vbcrlf
KS_Slide=KS_Slide & "var easytool2 = new easytool(""" & DomainStr & "KS_Inc/sohuflash.swf"",""sasFlashFocus3"", "& width &", "& height &", ""6"");" & vbcrlf
KS_Slide=KS_Slide & "easytool2.addParam(""quality"", ""high"");" & vbcrlf
KS_Slide=KS_Slide & "easytool2.addParam(""wmode"", ""opaque"");" & vbcrlf
KS_Slide=KS_Slide & "easytool2.addVariable(""pics2"",pics);" & vbcrlf
KS_Slide=KS_Slide & "easytool2.addVariable(""links2"",mylinks);" & vbcrlf
KS_Slide=KS_Slide & "easytool2.addVariable(""texts2"",texts);" & vbcrlf
KS_Slide=KS_Slide & "easytool2.write(""sasFlashFocus3"");" & vbcrlf
KS_Slide=KS_Slide & "</SCRIPT>" & vbcrlf
KS_Slide=KS_Slide & "</div>" & vbcrlf
End if
Else
KS_Slide = "<Script Language=""JavaScript"">" & vbCrLf
KS_Slide = KS_Slide & ("<!--" & vbCrLf)
KS_Slide = KS_Slide & ("function SlidePic1(ID) {this.ID=ID; this.Width=0;this.Height=0; this.TimeOut=5000; this.Effect=23; this.T_Len=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)
KS_Slide = KS_Slide & ("function NewSlide1() {this.ImgUrl=""""; this.LinkUrl=""""; this.Title="""";}" & vbCrLf)
KS_Slide = KS_Slide & ("function AddSlidePic1(SP) {this.AllPic[this.AllPic.length] = SP;}" & vbCrLf)
KS_Slide = KS_Slide & ("function ShowSlidePic1() {" & vbCrLf)
KS_Slide = KS_Slide & ("if(this.AllPic[0] == null) return false;" & vbCrLf)
KS_Slide = KS_Slide & ("document.write('<div align=""center""><a id=""Url' + this.ID + '"" href=""""" & O_T_S & "><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)
KS_Slide = KS_Slide & ("if(this.T_Len != 0) document.write(""<br><Div id='Title"" + this.ID + ""'></Div></div>"");" & vbCrLf)
KS_Slide = KS_Slide & ("this.Img = document.getElementById(""Img"" + this.ID);" & vbCrLf)
KS_Slide = KS_Slide & ("this.Url = document.getElementById(""Url"" + this.ID);" & vbCrLf)
KS_Slide = KS_Slide & ("this.Title = document.getElementById(""Title"" + this.ID);" & vbCrLf)
KS_Slide = KS_Slide & ("this.LoopShow();" & vbCrLf)
KS_Slide = KS_Slide & ("}" & vbCrLf)
KS_Slide = KS_Slide & ("function LoopShowSlidePic1() {" & vbCrLf)
KS_Slide = KS_Slide & ("if(this.PicNum<this.AllPic.length-1) this.PicNum++ ;" & vbCrLf)
KS_Slide = KS_Slide & ("else this.PicNum=0;" & vbCrLf)
KS_Slide = KS_Slide & ("this.Img.filters.revealTrans.Transition=this.Effect;" & vbCrLf)
KS_Slide = KS_Slide & ("this.Img.filters.revealTrans.apply();" & vbCrLf)
KS_Slide = KS_Slide & ("this.Img.src=this.AllPic[this.PicNum].ImgUrl;" & vbCrLf)
KS_Slide = KS_Slide & ("this.Img.filters.revealTrans.play();" & vbCrLf)
KS_Slide = KS_Slide & ("this.Url.href=this.AllPic[this.PicNum].LinkUrl;" & vbCrLf)
KS_Slide = KS_Slide & ("if(this.Title) this.Title.innerHTML='<a href=""'+this.AllPic[this.PicNum].LinkUrl+'"" " & O_T_S & ">'+this.AllPic[this.PicNum].Title+'</a>';" & vbCrLf)
KS_Slide = KS_Slide & ("this.Img.timer=setTimeout(this.ID+"".LoopShow()"",this.TimeOut);" & vbCrLf)
KS_Slide = KS_Slide & ("}" & vbCrLf)
'新建幻灯片图片对象
KS_Slide = KS_Slide & ("var SlidePic1 = new SlidePic1(""SlidePic1"");" & vbCrLf)
KS_Slide = KS_Slide & ("SlidePic1.Width = " & Width & ";" & vbCrLf)
KS_Slide = KS_Slide & ("SlidePic1.Height = " & Height & ";" & vbCrLf)
KS_Slide = KS_Slide & ("SlidePic1.TimeOut = " & ChangeTime & ";" & vbCrLf)
KS_Slide = KS_Slide & ("SlidePic1.Effect = 23;" & vbCrLf)
If CBool(ShowTitle) = False Then
KS_Slide = KS_Slide & ("SlidePic1.T_Len = 0;" & vbCrLf)
Else
KS_Slide = KS_Slide & ("SlidePic1.T_Len = 1;" & vbCrLf)
End If
T_CssStr = KS.GetCss(T_Css)
For K=0 To Ubound(SQL,2)
PicUrl = SQL(7,K)
TempTitle = "<span" & T_CssStr & ">" &KS.GotTopic(SQL(1,K) ,T_Len)& "</span>"
KS_Slide = KS_Slide & "var NewItem = new NewSlide1();" & vbCrLf
KS_Slide = KS_Slide & "NewItem.ImgUrl = '" & PicUrl & "';" & vbCrLf
KS_Slide = KS_Slide & "NewItem.LinkUrl= '" & KS.GetInfoUrl(ChannelID,SQL(2,K),SQL(0,K),SQL(5,K),SQL(3,K),SQL(4,K),SQL(6,K)) & "';" & vbCrLf
KS_Slide = KS_Slide & "NewItem.Title = '" & TempTitle & "';" & vbCrLf
KS_Slide = KS_Slide & "SlidePic1.Add(NewItem);" & vbCrLf
Next
KS_Slide = KS_Slide & ("SlidePic1.Show();" & vbCrLf)
KS_Slide = KS_Slide & ("//-->" & vbCrLf)
KS_Slide = KS_Slide & ("</Script>" & vbCrLf)
End if
End Function
'取得幻灯片,结合以上函数
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -