📄 article_main.asp
字号:
CurrentPage = 1
Call showContent(DisplayMode)
End If
End If
End If
.Write ("</div>")
.Write ("</body>")
.Write ("</html>")
End With
Set ArticleRS = Nothing
End Sub
'参数,显示为,1-大图标,2-平铺,3-列表,4-详细列表等
Sub showContent(DisplayMode)
Select Case DisplayMode
Case 1
Call DisplayByLargePictue
Case 2
Call DisplayByEvenshop
Case 3
Call DisplayByList
Case 4
Call DisplayByDetailList
Case Else
Call DisplayByLargePictue
End Select
Response.Write ("<div id=mytips style='position:absolute;width:280;height:16;border: 1px #000000 solid;font-size:9pt;background-color:#F8F8F5;color:#000000;display:none;'></div>")
End Sub
'大图标显示
Sub DisplayByLargePictue()
Const Row = 8 '每行显示数
Dim K
With Response
.Write ("<table width=""100%"" height=""25"" border=""0"" cellpadding=""0"" cellspacing=""1"">")
.Write ("<tr><td height=""6""></td></tr>")
Do While Not ArticleRS.EOF
.Write ("<tr>")
.Write ("<td><table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">")
.Write (" <tr> ")
K = 0
For T = 1 To Row
If Not ArticleRS.EOF Then
If ArticleRS("OrderID") = 0 Then '频道或目录显示
If KSCMS.ReturnPowerResult(1, Trim(ArticleRS(1))) Then
K = K + 1
FolderName = ArticleRS(3)
ShortName = KSCMS.ListTitle(FolderName, 24)
CreaterStr = ArticleRS(5)
CreateDateStr = ArticleRS(6)
TitleStr = " TITLE='名 称:" & FolderName & " 日 期:" & CreateDateStr & " 创 建:" & CreaterStr & "'"
.Write ("<td width=""" & CInt(100 / Row) & "%"" Style=""cursor:default"" align=""center""" & TitleStr & ">")
.Write ("<span onmousedown=""mousedown(this);"" FolderID=""" & ArticleRS(1) & """ style=""POSITION:relative;"" OnDblClick=""OpenTheFolder(this.FolderID)"">")
If ArticleRS(2) = "0" Then
.Write ("<img src=""../Images/Folder/bigdomain.gif""> ")
Else
.Write ("<img src=""../Images/Folder/folder.gif""> ")
End If
.Write ("<span style=""display:block;height:16;padding:0px 0px 0px 0px;margin:1px;width:80%;cursor:default"">" & ShortName & "</span>")
.Write ("</span>")
.Write ("</td>")
End If
Else '文章显示
K = K + 1
FolderName = ArticleRS(3)
ShortName = KSCMS.ListTitle(FolderName, 24)
CreaterStr = ArticleRS(5)
CreateDateStr = ArticleRS(6)
If ArticleRS(8) = 1 Then
VerificStr = "已审核"
Else
VerificStr = "未审核"
End If
If KeyWord <> "" And CStr(SearchType) = "0" Then
If Trim(ArticleRS(4)) <> "" Then
Subtitle = " 副标题:" & ArticleRS(4)
Else
Subtitle = " 副标题:无"
End If
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 width=""" & CInt(100 / Row) & "%"" Style=""cursor:default"" align=""center"">")
.Write ("<span onmousedown=""mousedown(this);"" ArticleID=""" & ArticleRS(1) & """ style=""POSITION:relative;"" " & ViewStr & " tips=""" & TitleStr & """ & onmousemove=show(this.tips,1,'" & PhotoUrlStr & "') onmouseout=show(this.tips,0)>")
Else
TitleStr = " TITLE='标 题:" & FolderName & Subtitle & " 日 期:" & CreateDateStr & " 审 核:" & VerificStr & " 录 入:" & CreaterStr & "'"
.Write ("<td width=""" & CInt(100 / Row) & "%"" Style=""cursor:default"" align=""center""" & TitleStr & ">")
.Write ("<span onmousedown=""mousedown(this);"" ArticleID=""" & ArticleRS(1) & """ style=""POSITION:relative;"" " & ViewStr & ">")
End If
.Write ("<img src=../Images/Folder/ThePicNews" & ArticleRS(8) & ".gif border=0 align=absmiddle>")
Else
TitleStr = " TITLE='标 题:" & FolderName & Subtitle & " 日 期:" & CreateDateStr & " 审 核:" & VerificStr & " 录 入:" & CreaterStr & "'"
.Write ("<td width=""" & CInt(100 / Row) & "%"" Style=""cursor:default"" align=""center""" & TitleStr & ">")
.Write ("<span onmousedown=""mousedown(this);"" ArticleID=""" & ArticleRS(1) & """ style=""POSITION:relative;"" " & ViewStr & ">")
.Write ("<img src=../Images/Folder/TheWordNews" & ArticleRS(8) & ".gif border=0 align=absmiddle>")
End If
.Write ("<span style=""display:block;height:16;padding:0px 0px 0px 0px;margin:1px;width:80%;cursor:default"">" & ShortName & "</span>")
.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
'不到Row个单元格,则进行补空
Do While K <= Row
.Write ("<td width=70> </td>")
K = K + 1
Loop
If K >= Row Then K = 0
.Write ("</tr>")
.Write ("<tr><td colspan=" & Row & " 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=1&ID=" & ID & "&" & SearchParam)
.Write ("</td>")
.Write ("</tr>")
.Write ("</table>")
End With
End Sub
'平铺显示
Sub DisplayByEvenshop()
Dim K
With Response
.Write ("<table width=""98%"" height=""25"" border=""0"" cellpadding=""0"" cellspacing=""1"">")
.Write ("<tr><td height=""6""></td></tr>")
Do While Not ArticleRS.EOF
.Write ("<tr>")
.Write ("<td><table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">")
.Write (" <tr> ")
K = 0
For T = 1 To 4
If Not ArticleRS.EOF Then
If ArticleRS("OrderID") = 0 Then '频道或目录显示
If KSCMS.ReturnPowerResult(1, Trim(ArticleRS(1))) Then
K = K + 1
FolderName = ArticleRS(3)
ShortName = KSCMS.ListTitle(FolderName, 24)
CreaterStr = ArticleRS(5)
CreateDateStr = ArticleRS(6)
If ArticleRS(2) = "0" Then
TypeStr = "<span style=""display:block;color:gray;""><span style=""display:block;"">" & CreateDateStr & "</span>频 道 </span>"
Else
TypeStr = "<span style=""display:block;color:gray;""><span style=""display:block;"">" & CreateDateStr & "</span>文章栏目</span>"
End If
TitleStr = " TITLE='名 称:" & FolderName & " 日 期:" & CreateDateStr & " 创 建:" & CreaterStr & "'"
.Write ("<td width=""" & CInt(100 / 4) & "%"" Style=""cursor:default""" & TitleStr & ">")
.Write ("<span FolderID=""" & ArticleRS(1) & """ style=""POSITION:relative;"" OnDblClick=""OpenTheFolder(this.FolderID)"">")
If ArticleRS(2) = "0" Then
.Write ("<img src=""../Images/Folder/Superdomain.gif"" align=""top"" style=""display:block;float:left"">")
Else
.Write ("<img src=""../Images/Folder/TheSuperFolder.gif"" align=""top"" style=""display:block;float:left"">")
End If
.Write ("<span style=""width:90%;cursor:default"">" & ShortName & TypeStr & "</span>")
.Write ("</span>")
.Write ("</td>")
End If
Else '文章显示
K = K + 1
FolderName = ArticleRS(3)
ShortName = KSCMS.ListTitle(FolderName, 24)
CreaterStr = ArticleRS(5)
CreateDateStr = ArticleRS(6)
If ArticleRS(8) = 1 Then
VerificStr = "已审核"
Else
VerificStr = "未审核"
End If
If KeyWord <> "" And CStr(SearchType) = "0" Then
If Trim(ArticleRS(4)) <> "" Then
Subtitle = " 副标题:" & ArticleRS(4)
Else
Subtitle = " 副标题:无"
End If
End If
If KSCMS.ReturnPowerResult(1, "KMA10015") Then '检查是否有预览文章权限
ViewStr = "OnDblClick=""ViewArticle(this.ArticleID)"""
Else
ViewStr = ""
End If
If ArticleRS(7) = 1 Then
TypeStr = "<span style=""display:block;color:gray;""><span style=""display:block;"">" & CreateDateStr & "</span>图片文章</span>"
Else
TypeStr = "<span style=""display:block;color:gray;""><span style=""display:block;"">" & CreateDateStr & "</span>普通文章</span>"
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 width=""" & CInt(100 / 4) & "%"" Style=""cursor:default"">")
.Write ("<span ArticleID=""" & ArticleRS(1) & """ style=""POSITION:relative;"" " & ViewStr & " tips=""" & TitleStr & """ & onmousemove=show(this.tips,1,'" & PhotoUrlStr & "') onmouseout=show(this.tips,0)>")
.Write ("<img src=../Images/Folder/TheSuperPicNews" & ArticleRS(8) & ".gif border=0 align=top style=""display:block;float:left"">")
Else
TitleStr = " TITLE='标 题:" & FolderName & Subtitle & " 日 期:" & CreateDateStr & " 审 核:" & VerificStr & " 录 入:" & CreaterStr & "'"
.Write ("<td width=""" & CInt(100 / 4) & "%"" Style=""cursor:default""" & TitleStr & ">")
.Write ("<span ArticleID=""" & ArticleRS(1) & """ style=""POSITION:relative;"" " & ViewStr & ">")
.Write ("<img src=../Images/Folder/TheSuperPicNews" & ArticleRS(8) & ".gif border=0 align=top style=""display:block;float:left"">")
End If
Else
TitleStr = " TITLE='标 题:" & FolderName & Subtitle & " 日 期:" & CreateDateStr & " 审 核:" & VerificStr & " 录 入:" & CreaterStr & "'"
.Write ("<td width=""" & CInt(100 / 4) & "%"" Style=""cursor:default""" & TitleStr & ">")
.Write ("<span ArticleID=""" & ArticleRS(1) & """ style=""POSITION:relative;"" " & ViewStr & ">")
.Write ("<img src=../Images/Folder/TheSuperWordNews" & ArticleRS(8) & ".gif border=0 align=top style=""display:block;float:left"">")
End If
.Write ("<span style=""width:90%;cursor:default"">" & ShortName & TypeStr & "</span>")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -