📄 article_main.asp
字号:
.Write ("</span>")
.Write ("</td>")
End If
I = I + 1
If ArticleRS.EOF Or I >= MaxPerPage Then Exit For
ArticleRS.MoveNext
Else
Exit For
End If
Next
'不到4个单元格,则进行补空
Do While K <= 4
.Write ("<td width=70> </td>")
K = K + 1
Loop
If K >= 4 Then K = 0
.Write ("</tr>")
.Write ("<tr><td colspan=4 height=10></td></tr>")
.Write ("</table></td>")
.Write ("</tr>")
If I >= MaxPerPage Then Exit Do
If ArticleRS.EOF Then Exit Do
Loop
ArticleRS.Close
conn.Close
.Write ("<tr> ")
.Write ("<td align=""right""> ")
'显示分页信息
Call KSCMS.ShowPageParamter(totalPut, MaxPerPage, "Article_main.asp", True, "个项目", CurrentPage, "DisplayMode=2&ID=" & ID & "&" & SearchParam)
.Write ("</td>")
.Write ("</tr>")
.Write ("</table>")
End With
End Sub
'列表显示
Sub DisplayByList()
With Response
.Write ("<table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">")
Do While Not ArticleRS.EOF
.Write ("<tr>")
For T = 1 To 3
If Not ArticleRS.EOF Then
If ArticleRS("OrderID") = 0 Then '频道或目录显示
If KSCMS.ReturnPowerResult(1, Trim(ArticleRS(1))) Then
FolderName = ArticleRS(3)
ShortName = KSCMS.GotTopic(FolderName, 30)
CreaterStr = ArticleRS(5)
CreateDateStr = ArticleRS(6)
If ArticleRS(2) = "0" Then
TypeStr = "文章频道"
Else
TypeStr = "文章栏目"
End If
TitleStr = " TITLE='名 称:" & FolderName & " 日 期:" & CreateDateStr & " 创 建:" & CreaterStr & "'"
.Write ("<td height=25" & TitleStr & "> <span FolderID=""" & ArticleRS(1) & """ OnDblClick=""OpenTheFolder(this.FolderID)"">")
If ArticleRS(2) = "0" Then
.Write ("<img src=""../Images/Folder/domain.gif"" align=absmiddle>")
Else
.Write ("<img src=""../Images/Folder/SmallFolder.gif"" align=absmiddle>")
End If
.Write ("<span style=""cursor:default"">" & ShortName & "</span></span></td>")
End If
Else
FolderName = ArticleRS(3)
ShortName = KSCMS.GotTopic(FolderName, 30)
CreaterStr = ArticleRS(5)
CreateDateStr = ArticleRS(6)
If ArticleRS(8) = 1 Then
VerificStr = "已审核"
Else
VerificStr = "未审核"
End If
If KSCMS.ReturnPowerResult(1, "KMA10015") Then '检查是否有预览文章权限
ViewStr = "OnDblClick=""ViewArticle(this.ArticleID)"""
Else
ViewStr = ""
End If
If CInt(ArticleRS(7)) = 1 Then
If ShowThumbsTF = 1 Then '鼠标经过显示缩略图的方式
Dim PhotoUrl: PhotoUrl = ArticleRS(14)
Dim PhotoUrlStr
If IsNull(PhotoUrl) Or PhotoUrl = "" Then
PhotoUrlStr = "../Images/Nopic.gif"
Else
PhotoUrlStr = PhotoUrl
End If
TitleStr = "<table border=0 align=left><tr><td nowrap>标 题:</td><td nowrap>" & FolderName & Subtitle & "</td></tr><tr><td>日 期:</td><td>" & CreateDateStr & "</td></tr><tr><td>审 核:</td><td>" & VerificStr & "</td></tr><tr><td>录 入:</td><td>" & CreaterStr & "</td></tr></table>"
.Write ("<td height=25> <span ArticleID=""" & ArticleRS(1) & """" & ViewStr & " tips=""" & TitleStr & """ & onmousemove=show(this.tips,1,'" & PhotoUrlStr & "') onmouseout=show(this.tips,0)>")
.Write ("<img src=../Images/Folder/TheSmallPicNews" & ArticleRS(8) & ".gif border=0 align=absmiddle>")
Else
TitleStr = " TITLE='名 称:" & FolderName & " 日 期:" & CreateDateStr & " 录 入:" & CreaterStr & " 审 核:" & VerificStr & "'"
.Write ("<td height=25" & TitleStr & "> <span ArticleID=""" & ArticleRS(1) & """" & ViewStr & ">")
.Write ("<img src=../Images/Folder/TheSmallPicNews" & ArticleRS(8) & ".gif border=0 align=absmiddle>")
End If
Else
TitleStr = " TITLE='名 称:" & FolderName & " 日 期:" & CreateDateStr & " 录 入:" & CreaterStr & " 审 核:" & VerificStr & "'"
.Write ("<td height=25" & TitleStr & "> <span ArticleID=""" & ArticleRS(1) & """" & ViewStr & ">")
.Write ("<img src=../Images/Folder/TheSmallWordNews" & ArticleRS(8) & ".gif border=0 align=absmiddle>")
End If
.Write ("<span style=""cursor:default"">" & ShortName & "</span></span></td>")
End If
I = I + 1
If ArticleRS.EOF Or I >= MaxPerPage Then Exit For
ArticleRS.MoveNext
Else
Exit For
End If
Next
.Write ("</tr>")
If I >= MaxPerPage Then Exit Do
If ArticleRS.EOF Then Exit Do
Loop
ArticleRS.Close
conn.Close
.Write ("<tr> ")
.Write ("<td colspan=""6"" align=""right""> ")
'显示分页信息
Call KSCMS.ShowPageParamter(totalPut, MaxPerPage, "Article_main.asp", True, "个项目", CurrentPage, "DisplayMode=3&ID=" & ID & "&" & SearchParam)
.Write ("</td>")
.Write ("</tr>")
.Write ("</table>")
End With
End Sub
'详细列表显示
Sub DisplayByDetailList()
Dim VeriStr
With Response
.Write ("<table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">")
.Write ("<tr align=""center""><td height=23 width=250 class=""sort"">标 题</td><td width=120 class=""sort"">录 入</td><td width=150 class=""sort"">修改日期</td><td width=80 class=""sort""> 类 型 </td><td width=80 class=""sort""> 审 核 </td><td width=130 class=""sort""> 属 性 </td></tr>")
Do While Not ArticleRS.EOF
If ArticleRS("OrderID") = 0 Then '频道或目录显示
If KSCMS.ReturnPowerResult(1, Trim(ArticleRS(1))) Then
FolderName = ArticleRS(3)
ShortName = KSCMS.GotTopic(FolderName, 30)
CreaterStr = ArticleRS(5)
CreateDateStr = ArticleRS(6)
If ArticleRS(2) = "0" Then
TypeStr = "文章频道"
Else
TypeStr = "文章栏目"
End If
TitleStr = " TITLE='名 称:" & FolderName & " 日 期:" & CreateDateStr & " 创 建:" & CreaterStr & "'"
.Write ("<tr bgcolor=""#ffffff"" onMouseOver=""this.style.background='#EEF8FE'"" onMouseOut=""this.style.background='#FFFFFF'"">")
.Write ("<td height=25" & TitleStr & "> <span FolderID=""" & ArticleRS(1) & """ OnDblClick=""OpenTheFolder(this.FolderID)"">")
If ArticleRS(2) = "0" Then
.Write ("<img src=""../Images/Folder/domain.gif"" align=absmiddle>")
Else
.Write ("<img src=""../Images/Folder/SmallFolder.gif"" align=absmiddle>")
End If
.Write ("<span style=""cursor:default"">" & ShortName & "</span></span></td>")
.Write ("<td align=""center""> " & CreaterStr & "</td>")
.Write ("<td align=""center"">" & CreateDateStr & "</td>")
.Write ("<td align=""center"">" & TypeStr & "</td>")
.Write ("<td align=""center"">---</td>")
.Write ("<td align=""center"">---</td>")
.Write ("</tr>")
End If
Else
FolderName = ArticleRS(3)
ShortName = KSCMS.GotTopic(FolderName, 30)
CreaterStr = ArticleRS(5)
CreateDateStr = ArticleRS(6)
If ArticleRS(8) = 1 Then
VerificStr = "已审核"
VeriStr = VerificStr
Else
VeriStr = "未审核"
VerificStr = "<font color=red>未审核</font>"
End If
If CInt(ArticleRS(7)) = 1 Then
TypeStr = " 图片文章 "
Else
TypeStr = " 普通文章 "
End If
If KSCMS.ReturnPowerResult(1, "KMA10015") Then '检查是否有预览文章权限
ViewStr = "OnDblClick=""ViewArticle(this.ArticleID)"""
Else
ViewStr = ""
End If
AttributeStr = ""
If ArticleRS(9) = 1 Or ArticleRS(10) = 1 Or ArticleRS(11) = 1 Or ArticleRS(12) = 1 Or ArticleRS(13) = 1 Then
If ArticleRS(9) = 1 Then AttributeStr = AttributeStr & (" <span title=""推荐文章"" style=""cursor:default""><font color=""green"">荐</font></span> ")
If ArticleRS(10) = 1 Then AttributeStr = AttributeStr & ("<span title=""热门文章"" style=""cursor:default""><font color=""red"">热</font></span> ")
If ArticleRS(11) = 1 Then AttributeStr = AttributeStr & ("<span title=""今日头条"" style=""cursor:default""><font color=""#0000ff"">头</font></span> ")
If ArticleRS(12) = 1 Then AttributeStr = AttributeStr & ("<span title=""滚动文章"" style=""cursor:default""><font color=""#F709F7"">滚</font></span> ")
If ArticleRS(13) = 1 Then AttributeStr = AttributeStr & ("<span title=""幻灯片文章"" style=""cursor:default""><font color=""black"">幻</font></span>")
Else
AttributeStr = "---"
End If
If CInt(ArticleRS(7)) = 1 Then
If ShowThumbsTF = 1 Then '鼠标经过显示缩略图的方式
Dim PhotoUrl: PhotoUrl = ArticleRS(14)
Dim PhotoUrlStr
If IsNull(PhotoUrl) Or PhotoUrl = "" Then
PhotoUrlStr = "../Images/Nopic.gif"
Else
PhotoUrlStr = PhotoUrl
End If
TitleStr = "<table border=0 align=left><tr><td nowrap>标 题:</td><td nowrap>" & FolderName & Subtitle & "</td></tr><tr><td>日 期:</td><td>" & CreateDateStr & "</td></tr><tr><td>审 核:</td><td>" & VerificStr & "</td></tr><tr><td>录 入:</td><td>" & CreaterStr & "</td></tr></table>"
.Write ("<tr>")
.Write ("<td height=25> <span ArticleID=""" & ArticleRS(1) & """" & ViewStr & " tips=""" & TitleStr & """ & onmousemove=show(this.tips,1,'" & PhotoUrlStr & "') onmouseout=show(this.tips,0)>")
.Write ("<img src=../Images/Folder/TheSmallPicNews" & ArticleRS(8) & ".gif border=0 align=absmiddle>")
Else
TitleStr = " TITLE='名 称:" & FolderName & " 日 期:" & CreateDateStr & " 录 入:" & CreaterStr & " 审 核:" & VeriStr & "'"
.Write ("<tr>")
.Write ("<td height=25" & TitleStr & "> <span ArticleID=""" & ArticleRS(1) & """" & ViewStr & ">")
.Write ("<img src=../Images/Folder/TheSmallPicNews" & ArticleRS(8) & ".gif border=0 align=absmiddle>")
End If
Else
TitleStr = " TITLE='名 称:" & FolderName & " 日 期:" & CreateDateStr & " 录 入:" & CreaterStr & " 审 核:" & VeriStr & "'"
.Write ("<tr bgcolor=""#ffffff"" onMouseOver=""this.style.background='#EEF8FE'"" onMouseOut=""this.style.background='#FFFFFF'"">")
.Write ("<td height=25" & TitleStr & "> <span ArticleID=""" & ArticleRS(1) & """" & ViewStr & ">")
.Write ("<img src=../Images/Folder/TheSmallWordNews" & ArticleRS(8) & ".gif border=0 align=absmiddle>")
End If
.Write ("<span style=""cursor:default"">" & ShortName & "</span></span></td>")
.Write ("<td align=""center""> " & CreaterStr & "</td>")
.Write ("<td align=""center"">" & CreateDateStr & "</td>")
.Write ("<td align=""center"">" & TypeStr & "</td>")
.Write ("<td align=""center"">" & VerificStr & "</td>")
.Write ("<td align=""center"">" & AttributeStr & "</td>")
.Write ("</tr>")
End If
ArticleRS.MoveNext
I = I + 1
If I >= MaxPerPage Then Exit Do
Loop
.Write ("<tr> ")
.Write ("<td colspan=""6"" align=""right""> ")
'显示分页信息
Call KSCMS.ShowPageParamter(totalPut, MaxPerPage, "Article_main.asp", True, "个项目", CurrentPage, "DisplayMode=4&ID=" & ID & "&" & SearchParam)
.Write ("</td>")
.Write ("</tr>")
.Write ("</table>")
End With
End Sub
End Class
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -