📄 picture_main.asp
字号:
.Write ("</span>")
.Write ("</td>")
End If
I = I + 1
If PictureRS.EOF Or I >= MaxPerPage Then Exit For
PictureRS.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 PictureRS.EOF Then Exit Do
Loop
PictureRS.Close
conn.Close
.Write ("<tr> ")
.Write ("<td align=""right""> ")
'显示分页信息
Call KSCMS.ShowPageParamter(totalPut, MaxPerPage, "Picture_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 PictureRS.EOF
.Write ("<tr>")
For T = 1 To 3
If Not PictureRS.EOF Then
If PictureRS("OrderID") = 0 Then '频道或目录显示
If KSCMS.ReturnPowerResult(2, Trim(PictureRS(1))) Then
FolderName = PictureRS(3)
ShortName = KSCMS.GotTopic(FolderName, 30)
CreaterStr = PictureRS(5)
CreateDateStr = PictureRS(6)
If PictureRS(2) = "0" Then
TypeStr = "图片频道"
Else
TypeStr = "图片栏目"
End If
TitleStr = " TITLE='名 称:" & FolderName & " 日 期:" & CreateDateStr & " 创 建:" & CreaterStr & "'"
.Write ("<td height=25" & TitleStr & "> <span FolderID=""" & PictureRS(1) & """ OnDblClick=""OpenTheFolder(this.FolderID)"">")
If PictureRS(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 = PictureRS(3)
ShortName = KSCMS.GotTopic(FolderName, 30)
CreaterStr = PictureRS(5)
CreateDateStr = PictureRS(6)
If PictureRS(7) = 1 Then
VerificStr = "已审核"
Else
VerificStr = "未审核"
End If
If KSCMS.ReturnPowerResult(2, "KMP10015") Then '检查是否有预览图片权限
ViewStr = "OnDblClick=""ViewPicture(this.PictureID)"""
Else
ViewStr = ""
End If
If ShowThumbsTF = 1 Then '鼠标经过显示缩略图的方式
Dim PhotoUrl: PhotoUrl = PictureRS(4)
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 & "</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 PictureID=""" & PictureRS(1) & """" & ViewStr & " tips=""" & TitleStr & """ onmousemove=show(this.tips,1,'" & PictureRS(4) & "') onmouseout=show(this.tips,0)>")
Else
TitleStr = " TITLE='名 称:" & FolderName & " 日 期:" & CreateDateStr & " 审 核:" & VerificStr & " 录 入:" & CreaterStr & "'"
.Write ("<td height=25> <span PictureID=""" & PictureRS(1) & """" & ViewStr & TitleStr & ">")
End If
.Write ("<img src=../Images/Folder/TheSmallPicture" & PictureRS(7) & ".gif border=0 align=absmiddle>")
.Write ("<span style=""cursor:default"">" & ShortName & "</span></span></td>")
End If
I = I + 1
If PictureRS.EOF Or I >= MaxPerPage Then Exit For
PictureRS.MoveNext
Else
Exit For
End If
Next
.Write ("</tr>")
If I >= MaxPerPage Then Exit Do
If PictureRS.EOF Then Exit Do
Loop
PictureRS.Close
conn.Close
.Write ("<tr> ")
.Write ("<td colspan=""6"" align=""right""> ")
'显示分页信息
Call KSCMS.ShowPageParamter(totalPut, MaxPerPage, "Picture_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 PictureRS.EOF
If PictureRS("OrderID") = 0 Then '频道或目录显示
If KSCMS.ReturnPowerResult(2, Trim(PictureRS(1))) Then
FolderName = PictureRS(3)
ShortName = KSCMS.GotTopic(FolderName, 30)
CreaterStr = PictureRS(5)
CreateDateStr = PictureRS(6)
If PictureRS(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=""" & PictureRS(1) & """ OnDblClick=""OpenTheFolder(this.FolderID)"">")
If PictureRS(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 = PictureRS(3)
ShortName = KSCMS.GotTopic(FolderName, 30)
CreaterStr = PictureRS(5)
CreateDateStr = PictureRS(6)
If PictureRS(7) = 1 Then
VerificStr = "已审核"
VeriStr = VerificStr
Else
VeriStr = "未审核"
VerificStr = "<font color=red>未审核</font>"
End If
TypeStr = "图片组"
If KSCMS.ReturnPowerResult(2, "KMP10015") Then '检查是否有预览图片权限
ViewStr = "OnDblClick=""ViewPicture(this.PictureID)"""
Else
ViewStr = ""
End If
AttributeStr = ""
If PictureRS(8) = 1 Or PictureRS(9) = 1 Or PictureRS(10) = 1 Or PictureRS(11) = 1 Or PictureRS(12) = 1 Then
If PictureRS(8) = 1 Then AttributeStr = AttributeStr & (" <span title=""推荐图片"" style=""cursor:default""><font color=""green"">荐</font></span> ")
If PictureRS(9) = 1 Then AttributeStr = AttributeStr & ("<span title=""热门图片"" style=""cursor:default""><font color=""red"">热</font></span> ")
If PictureRS(10) = 1 Then AttributeStr = AttributeStr & ("<span title=""滚动图片"" style=""cursor:default""><font color=""#F709F7"">滚</font></span> ")
If PictureRS(11) = 1 Then AttributeStr = AttributeStr & ("<span title=""幻灯片图片"" style=""cursor:default""><font color=""black"">幻</font></span>")
If PictureRS(12) = 1 Then AttributeStr = AttributeStr & ("<span title=""今日头条图片"" style=""cursor:default""><font color=""blue"">头</font></span>")
Else
AttributeStr = "---"
End If
.Write ("<tr bgcolor=""#ffffff"" onMouseOver=""this.style.background='#EEF8FE'"" onMouseOut=""this.style.background='#FFFFFF'"">")
If ShowThumbsTF = 1 Then '鼠标经过显示缩略图的方式
Dim PhotoUrl: PhotoUrl = PictureRS(4)
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 & "</td></tr><tr><td>日 期:</td><td>" & CreateDateStr & "</td></tr><tr><td>审 核:</td><td>" & VeriStr & "</td></tr><tr><td>录 入:</td><td>" & CreaterStr & "</td></tr></table>"
.Write ("<td height=25> <span PictureID=""" & PictureRS(1) & """" & ViewStr & " tips=""" & TitleStr & """ onmousemove=show(this.tips,1,'" & PictureRS(4) & "') onmouseout=show(this.tips,0)>")
Else
TitleStr = " TITLE='名 称:" & FolderName & " 日 期:" & CreateDateStr & " 审 核:" & VerificStr & " 录 入:" & CreaterStr & "'"
.Write ("<td height=25> <span PictureID=""" & PictureRS(1) & """" & ViewStr & TitleStr & ">")
End If
.Write ("<img src=../Images/Folder/TheSmallPicture" & PictureRS(7) & ".gif border=0 align=absmiddle>")
.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
PictureRS.MoveNext
I = I + 1
If I >= MaxPerPage Then Exit Do
Loop
.Write ("<tr> ")
.Write ("<td colspan=""6"" align=""right""> ")
'显示分页信息
Call KSCMS.ShowPageParamter(totalPut, MaxPerPage, "Picture_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 + -