📄 ks.labelcls.asp
字号:
KS_R_A = KS_R_A & "marqueesHeight=" & M_Height & ";"
KS_R_A = KS_R_A & "scrillHeight=" & M_Height & ";"
KS_R_A = KS_R_A & "scrillspeed=" & M_Speed & ";"
KS_R_A = KS_R_A & "stoptimes=50;"
KS_R_A = KS_R_A & "stopscroll=false;"
KS_R_A = KS_R_A & "Rolls1.scrollTop=0;"
KS_R_A = KS_R_A & "with (Rolls1)" & vbCrLf
KS_R_A = KS_R_A & "{"
KS_R_A = KS_R_A & "style.width=0;"
KS_R_A = KS_R_A & "style.height=marqueesHeight;"
KS_R_A = KS_R_A & "style.overflowX=""visible"";"
KS_R_A = KS_R_A & "style.overflowY=""hidden"";"
KS_R_A = KS_R_A & "noWrap=true;"
KS_R_A = KS_R_A & "onmouseover=new Function(""stopscroll=true"");" & vbCrLf
KS_R_A = KS_R_A & "onmouseout=new Function(""stopscroll=false"");" & vbCrLf
KS_R_A = KS_R_A & "}" & vbCrLf
KS_R_A = KS_R_A & "preTop=0;" & vbCrLf
KS_R_A = KS_R_A & "currentTop=0;" & vbCrLf
KS_R_A = KS_R_A & "stoptime=0;" & vbCrLf
KS_R_A = KS_R_A & "function initRollsstext()" & vbCrLf
KS_R_A = KS_R_A & "{ Rolls2.innerHTML="""";"
KS_R_A = KS_R_A & "Rolls2.innerHTML+=Rolls1.innerHTML;"
KS_R_A = KS_R_A & "Rolls1.innerHTML=Rolls2.innerHTML+Rolls2.innerHTML;"
KS_R_A = KS_R_A & "setInterval(""scrollUp()"",scrillspeed);"
KS_R_A = KS_R_A & "}" & vbCrLf
KS_R_A = KS_R_A & "function scrollUp()" & vbCrLf
KS_R_A = KS_R_A & "{"
KS_R_A = KS_R_A & "if(stopscroll==true) return;" & vbCrLf
KS_R_A = KS_R_A & "currentTop+=1;"
KS_R_A = KS_R_A & "if(currentTop==scrillHeight)"
KS_R_A = KS_R_A & "{ stoptime+=1;"
KS_R_A = KS_R_A & "currentTop-=1;"
KS_R_A = KS_R_A & "if(stoptime==stoptimes)"
KS_R_A = KS_R_A & "{"
KS_R_A = KS_R_A & "currentTop=0; stoptime=0; }"
KS_R_A = KS_R_A & "}" & vbCrLf
KS_R_A = KS_R_A & "else {"
KS_R_A = KS_R_A & "preTop=Rolls1.scrollTop;" & vbCrLf
KS_R_A = KS_R_A & "Rolls1.scrollTop+=1;"
KS_R_A = KS_R_A & "if(preTop==Rolls1.scrollTop)" & vbCrLf
KS_R_A = KS_R_A & "{ Rolls1.scrollTop=Rolls2.offsetHeight-marqueesHeight;" & vbCrLf
KS_R_A = KS_R_A & "Rolls1.scrollTop+=1; }" & vbCrLf
KS_R_A = KS_R_A & "}"
KS_R_A = KS_R_A & "}" & vbCrLf
KS_R_A = KS_R_A & "setInterval("""",1000);" & vbCrLf
KS_R_A = KS_R_A & "initRollsstext();" & vbCrLf
KS_R_A = KS_R_A & "</script>"
Else '默认方式
For K=0 To Ubound(SQL,2)
CurrTid = SQL(2,K)
TitleStr = SQL(1,K)
TempTitle = GetArticleTitle(TitleStr, T_Len, False, SQL(8,K), SQL(9,K), SQL(10,K))
TempTitle = "• <a" & T_CssStr & " href=""" & (KS.GetInfoUrl(ChannelID,SQL(2,K),SQL(0,K),SQL(5,K),SQL(3,K),SQL(4,K),SQL(6,K))) & """" & O_T_S & " title=""" & TitleStr & """>" & TempTitle & "</a>"
If DateRule <> "0" And DateRule <> "" Then
KS_R_A = KS_R_A & (TempTitle & " <span" & DateCssStr & ">" & KS.DateFormat(SQL(7,K), DateRule) & "</span>")
Else
KS_R_A = KS_R_A & TempTitle
End If
KS_R_A = KS_R_A & " "
Next
If M_Bgcolor <> "" Then
KS_R_A = "<Marquee scrollamount=""" & M_Speed & """ direction=""" & M_Dir & """ width=""" & M_Width & """ Height=""" & M_Height & """ bgcolor=""" & M_Bgcolor & """ onmouseover=""this.stop();"" onmouseout=""this.start();"">" & KS_R_A & "</Marquee>"
Else
KS_R_A = "<Marquee scrollamount=""" & M_Speed & """ direction=""" & M_Dir & """ width=""" & M_Width & """ Height=""" & M_Height & """ onmouseover=""this.stop();"" onmouseout=""this.start();"">" & KS_R_A & "</Marquee>"
End If
End If
End Function
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'函数名: KS_PicA_L
'作 用: 通用图片文章函数
'参 数: SqlStr 待查询的SQL语句,OpenTypStr链接打开类型,等
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Function KS_PicA_L(ChannelID,SqlStr, Width, Height, O_T_S, ShowTitle, PicStyle, C_Len, T_Len, Col, T_Css, BorderType, Border,P_T,DivID,DivCss,UlID,ULCss,LiID,LICss)
Dim SQL,K,N,Url,LinkAndPicStr
Dim RS:Set RS=Server.CreateObject("ADODB.RECORDSET")
RS.Open SqlStr, Conn, 1, 1
If RS.EOF Then KS_PicA_L="":RS.Close:Set RS=Nothing:Exit Function
SQL=RS.GetRows(-1):RS.Close:Set RS = Nothing
Dim TotalNum:TotalNum=Ubound(SQL,2)
Dim TempPicStr, TempTitleStr, I,Title, T_CssStr,ArticleContent,ReturnStr
T_CssStr = KS.GetCss(T_Css)
If P_T=2 Then
ReturnStr = "<div"&KS.GetCssID(DivID)&KS.GetCss(DivCss) &">" & vbCrLf & " <ul"&KS.GetCssID(UlID)&KS.GetCss(ULCss) &">" & vbCrLf
For K=0 To TotalNum
Title = SQL(1,N):TempPicStr = SQL(7,N):TempPicStr=GetPicUrl(TempPicStr)
Url=KS.GetInfoUrl(ChannelID,SQL(2,N),SQL(0,N),SQL(5,N),SQL(3,N),SQL(4,N),SQL(6,N))
LinkAndPicStr = "<a href=""" & Url & """" & O_T_S & " title=""" & Title & """><Img Src=""" & TempPicStr & """ border=""0"" width=""" & Width & """ height=""" & Height & """ align=""absmiddle"" class=""KS_Pic""/></a>"
TempTitleStr = GetArticleTitle(Title, T_Len, False, SQL(10,N), SQL(11,N), SQL(12,N))
TempTitleStr = "<a" & T_CssStr & " href=""" & Url & """" & O_T_S & " title=""" & Title & """>" & TempTitleStr & "</a>"
If SQL(9,N)="" Or IsNull(SQL(9,N)) Then ArticleContent=SQL(8,N) Else ArticleContent=SQL(9,N)
Select Case CInt(PicStyle)
Case 1:ReturnStr = ReturnStr & (" <li"&KS.GetCssID(LIID)&KS.GetCss(LICss)&">" & LinkAndPicStr & "</li>" & vbCrLf)
Case 2:ReturnStr = ReturnStr & ("<li"&KS.GetCssID(LIID)&KS.GetCss(LICss)&">" & LinkAndPicStr & "<br />" & TempTitleStr & "</li>" & vbCrLf)
Case 3
ReturnStr = ReturnStr & (" <li"&KS.GetCssID(liID)&KS.GetCss(LICss) &">" & LinkAndPicStr)
If Cbool(ShowTitle) = True Then ReturnStr = ReturnStr & ("<h2>" & TempTitleStr &"</h2>")
ReturnStr = ReturnStr & ("<p>" & KS.GotTopic(Replace(Replace(Replace(KS.LoseHtml(ArticleContent), vbCrLf, ""), "[NextPage]", ""), " ", ""), C_Len) &"...[<a href=""" & Url & """" & O_T_S & """>全文</a>]</p></li>"& vbCrLf)
Case 4
ReturnStr = ReturnStr & (" <li"&KS.GetCssID(liID)&KS.GetCss(LICss) &">")
If Cbool(ShowTitle) = True Then ReturnStr = ReturnStr & ("<h2>" & TempTitleStr &"</h2>")
ReturnStr = ReturnStr & ("<p>" & KS.GotTopic(Replace(Replace(Replace(KS.LoseHtml(ArticleContent), vbCrLf, ""), "[NextPage]", ""), " ", ""), C_Len) &"...[<a href=""" & Url & """" & O_T_S & """>全文</a>]</p>" & LinkAndPicStr & "</li>"& vbCrLf)
End Select
N=N+1
Next
KS_PicA_L = ReturnStr & ("</ul>" & vbCrLf &"</div>")
Else
ReturnStr = "<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"">" & vbCrLf
For K=0 To TotalNum
ReturnStr = ReturnStr & "<tr>" & vbCrLf
For I = 1 To Col
Title = SQL(1,N):TempPicStr = SQL(7,N):TempPicStr=GetPicUrl(TempPicStr)
Url=KS.GetInfoUrl(ChannelID,SQL(2,N),SQL(0,N),SQL(5,N),SQL(3,N),SQL(4,N),SQL(6,N))
'-------------------------------加边框开始-------------------------------------------------
Dim TempBorder
If BorderType = 1 And Border <> "" Then
TempBorder = TempPicStr '得到原图片
TempPicStr = Border '将原图片设定为透明边框
Else
TempBorder = Border:TempPicStr = TempPicStr
End If
LinkAndPicStr = "<a href=""" & Url & """" & O_T_S & " title=""" & Title & """><Img Src=""" & TempPicStr & """ border=""0"" width=""" & Width & """ height=""" & Height & """ align=""absmiddle""/></a>"
TempPicStr = KS.GetPhotoBorder(LinkAndPicStr, BorderType, TempBorder)
TempTitleStr = GetArticleTitle(Title, T_Len, False, SQL(10,N), SQL(11,N), SQL(12,N))
TempTitleStr = "<a" & T_CssStr & " href=""" & Url & """" & O_T_S & " title=""" & Title & """>" & TempTitleStr & "</a>"
If SQL(9,N)="" Or IsNull(SQL(9,N)) Then ArticleContent=SQL(8,N) Else ArticleContent=SQL(9,N)
ReturnStr = ReturnStr & ("<td width=""" & CInt(100 / CInt(Col)) & "%"">" & vbCrLf)
Select Case CInt(PicStyle)
Case 1
ReturnStr = ReturnStr & ("<span align=center><p>" & TempPicStr & "</p></span>" & vbCrLf)
Case 2
ReturnStr = ReturnStr & ("<table border=""0"" cellspacing=""0"" cellpadding=""0"" width=""100%""> ")
ReturnStr = ReturnStr & ("<tr><td align=center>" & TempPicStr & "</td></tr>" & vbCrLf)
If CBool(ShowTitle) = True Then
ReturnStr = ReturnStr & ("<tr><td align=center>" & TempTitleStr & "</td></tr>" & vbCrLf)
End If
ReturnStr = ReturnStr & ("</table>")
Case 3
ReturnStr = ReturnStr & "<table cellSpacing=""0"" cellPadding=""0"" width=""100%"" border=""0"">" & vbCrLf
ReturnStr = ReturnStr & " <TR>" & vbCrLf
ReturnStr = ReturnStr & " <TD align=center>" & vbCrLf
ReturnStr = ReturnStr & " <TABLE align=center cellSpacing=0 cellPadding=0 border=0>" & vbCrLf
ReturnStr = ReturnStr & " <TBODY><TR><TD width=110 align=center>" & TempPicStr & "</TD></TR></TBODY>" & vbCrLf
ReturnStr = ReturnStr & " </TABLE></TD>" & vbCrLf
ReturnStr = ReturnStr & "<TD> <TABLE width=""100%"" border=""0"">" & vbCrLf
ReturnStr = ReturnStr & "<TBODY>"
If CBool(ShowTitle) = True Then
ReturnStr = ReturnStr & "<TR><TD>" & TempTitleStr & "</TD></TR>" & vbCrLf
End If
ReturnStr = ReturnStr & "<TR><TD>" & KS.GotTopic(Replace(Replace(Replace(KS.LoseHtml(ArticleContent), vbCrLf, ""), "[NextPage]", ""), " ", ""), C_Len) & "...[<a href=""" & Url & """" & O_T_S & """>全文</a>]</TD></TR>" & vbCrLf
ReturnStr = ReturnStr & "</TBODY>" & vbCrLf
ReturnStr = ReturnStr & "</TABLE></TD>" & vbCrLf
ReturnStr = ReturnStr & " </TR>" & vbCrLf
ReturnStr = ReturnStr & "</TABLE>" & vbCrLf
Case 4
ReturnStr = ReturnStr & "<TABLE cellSpacing=""0"" cellPadding=""0"" width=""100%"" border=""0"">" & vbCrLf
ReturnStr = ReturnStr & " <TBODY>" & vbCrLf
ReturnStr = ReturnStr & " <TR>" & vbCrLf
ReturnStr = ReturnStr & "<TD> <TABLE width=""100%"" border=""0"">" & vbCrLf
ReturnStr = ReturnStr & "<TBODY>"
If CBool(ShowTitle) = True Then
ReturnStr = ReturnStr & "<TR><TD>" & TempTitleStr & "</TD></TR>" & vbCrLf
End If
ReturnStr = ReturnStr & "<TR><TD>" & KS.GotTopic(Replace(Replace(Replace(KS.LoseHtml(ArticleContent), vbCrLf, ""), "[NextPage]", ""), " ", ""), C_Len) & "...[<a href=""" & Url & """" & O_T_S & """>全文</a>]</TD></TR>" & vbCrLf
ReturnStr = ReturnStr & "</TBODY>" & vbCrLf
ReturnStr = ReturnStr & "</TABLE></TD>" & vbCrLf
ReturnStr = ReturnStr & " <TD align=center>" & vbCrLf
ReturnStr = ReturnStr & "<TABLE align=center cellSpacing=0 cell⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -