📄 picture_main.asp
字号:
CurrentPage = totalPut \ MaxPerPage + 1
End If
End If
If CurrentPage = 1 Then
Call showContent(DisplayMode)
Else
If (CurrentPage - 1) * MaxPerPage < totalPut Then
PictureRS.Move (CurrentPage - 1) * MaxPerPage
Call showContent(DisplayMode)
Else
CurrentPage = 1
Call showContent(DisplayMode)
End If
End If
End If
.Write ("</div>")
.Write ("</body>")
.Write ("</html>")
End With
Set PictureRS = Nothing
Set conn = 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()
Dim K
Const Row = 8 '每行显示数
With Response
.Write ("<table width=""100%"" height=""25"" border=""0"" cellpadding=""0"" cellspacing=""1"">")
.Write ("<tr><td height=""6""></td></tr>")
Do While Not PictureRS.EOF
.Write ("<tr>")
.Write ("<td><table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">")
.Write (" <tr> ")
For T = 1 To Row
If Not PictureRS.EOF Then
If PictureRS("OrderID") = 0 Then '频道或目录显示
If KSCMS.ReturnPowerResult(2, Trim(PictureRS(1))) Then
K = K + 1
FolderName = PictureRS(3)
ShortName = KSCMS.ListTitle(FolderName, 24)
CreaterStr = PictureRS(5)
CreateDateStr = PictureRS(6)
TitleStr = " TITLE='名 称:" & FolderName & " 日 期:" & CreateDateStr & " 创 建:" & CreaterStr & "'"
.Write ("<td width=""" & CInt(100 / Row) & "%"" Style=""cursor:default"" align=""center""" & TitleStr & ">")
.Write ("<span onmousedown=""mousedown(this);"" FolderID=""" & PictureRS(1) & """ style=""POSITION:relative;"" OnDblClick=""OpenTheFolder(this.FolderID)"">")
If PictureRS(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 = PictureRS(3)
ShortName = KSCMS.ListTitle(FolderName, 24)
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
.Write ("<td width=""" & CInt(100 / Row) & "%"" Style=""cursor:default"" align=""center"">")
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 ("<span onmousedown=""mousedown(this);"" PictureID=""" & PictureRS(1) & """ style=""POSITION:relative;""" & ViewStr & " tips=""" & TitleStr & """ onmousemove=show(this.tips,1,'" & PhotoUrlStr & "') onmouseout=show(this.tips,0)>")
Else
TitleStr = " TITLE='名 称:" & FolderName & " 日 期:" & CreateDateStr & " 审 核:" & VerificStr & " 录 入:" & CreaterStr & "'"
.Write ("<span onmousedown=""mousedown(this);"" PictureID=""" & PictureRS(1) & """ style=""POSITION:relative;""" & ViewStr & TitleStr & ">")
End If
.Write ("<img src=../Images/Folder/Picture" & PictureRS(7) & ".gif border=0 align=absmiddle>")
.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 PictureRS.EOF Or I >= MaxPerPage Then Exit For
PictureRS.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 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=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 PictureRS.EOF
.Write ("<tr>")
.Write ("<td><table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">")
.Write (" <tr> ")
For T = 1 To 4
If Not PictureRS.EOF Then
If PictureRS("OrderID") = 0 Then '频道或目录显示
If KSCMS.ReturnPowerResult(2, Trim(PictureRS(1))) Then
K = K + 1
FolderName = PictureRS(3)
ShortName = KSCMS.ListTitle(FolderName, 24)
CreaterStr = PictureRS(5)
CreateDateStr = PictureRS(6)
If PictureRS(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=""" & PictureRS(1) & """ style=""POSITION:relative;"" OnDblClick=""OpenTheFolder(this.FolderID)"">")
If PictureRS(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 = PictureRS(3)
ShortName = KSCMS.ListTitle(FolderName, 24)
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
TypeStr = "<span style=""display:block;color:gray;""><span style=""display:block;"">" & CreateDateStr & "</span>图片组</span>"
.Write ("<td width=""" & CInt(100 / 4) & "%"" Style=""cursor:default"">")
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 ("<span PictureID=""" & PictureRS(1) & """ style=""POSITION:relative;"" " & ViewStr & " tips=""" & TitleStr & """ onmousemove=show(this.tips,1,'" & PictureRS(4) & "') onmouseout=show(this.tips,0)>")
Else
TitleStr = " TITLE='名 称:" & FolderName & " 日 期:" & CreateDateStr & " 审 核:" & VerificStr & " 录 入:" & CreaterStr & "'"
.Write ("<span PictureID=""" & PictureRS(1) & """ style=""POSITION:relative;"" " & ViewStr & TitleStr & ">")
End If
.Write ("<img src=../Images/Folder/TheSuperPicture" & PictureRS(7) & ".gif border=0 align=top style=""display:block;float:left"">")
.Write ("<span style=""width:90%;cursor:default"">" & ShortName & TypeStr & "</span>")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -