📄 down_main.asp
字号:
.Write ("</span>")
.Write ("</td>")
End If
I = I + 1
If DownRS.EOF Or I >= MaxPerPage Then Exit For
DownRS.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 DownRS.EOF Then Exit Do
Loop
DownRS.Close
conn.Close
.Write ("<tr> ")
.Write ("<td align=""right""> ")
'显示分页信息
Call KSCMS.ShowPageParamter(totalPut, MaxPerPage, "Down_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 DownRS.EOF
.Write ("<tr>")
For T = 1 To 3
If Not DownRS.EOF Then
If DownRS("OrderID") = 0 Then '频道或目录显示
If KSCMS.ReturnPowerResult(3, Trim(DownRS(1))) Then
FolderName = DownRS(3)
ShortName = KSCMS.GotTopic(FolderName, 30)
CreaterStr = DownRS(5)
CreateDateStr = DownRS(6)
If DownRS(2) = "0" Then
TypeStr = "下载频道"
Else
TypeStr = "下载栏目"
End If
TitleStr = " TITLE='名 称:" & FolderName & " 日 期:" & CreateDateStr & " 创 建:" & CreaterStr & "'"
.Write ("<td height=25" & TitleStr & "> <span FolderID=""" & DownRS(1) & """ OnDblClick=""OpenTheFolder(this.FolderID)"">")
If DownRS(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 = DownRS(3)
ShortName = KSCMS.GotTopic(FolderName, 30)
CreaterStr = DownRS(5)
CreateDateStr = DownRS(6)
If DownRS(7) = 1 Then
VerificStr = "已审核"
Else
VerificStr = "未审核"
End If
If KSCMS.ReturnPowerResult(3, "KMD10015") Then '检查是否有预览下载权限
ViewStr = "OnDblClick=""ViewDown(this.DownID)"""
Else
ViewStr = ""
End If
If ShowThumbsTF = 1 Then '鼠标经过显示缩略图的方式
Dim PhotoUrl: PhotoUrl = DownRS(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 DownID=""" & DownRS(1) & """" & ViewStr & " tips=""" & TitleStr & """ onmousemove=show(this.tips,1,'" & PhotoUrlStr & "') onmouseout=show(this.tips,0)>")
Else
TitleStr = " TITLE='名 称:" & FolderName & " 日 期:" & CreateDateStr & " 审 核:" & VerificStr & " 录 入:" & CreaterStr & "'"
.Write ("<td height=25> <span DownID=""" & DownRS(1) & """" & ViewStr & TitleStr & ">")
End If
.Write ("<img src=../Images/Folder/TheSmallDown" & DownRS(7) & ".gif border=0 align=absmiddle>")
.Write ("<span style=""cursor:default"">" & ShortName & "</span></span></td>")
End If
I = I + 1
If DownRS.EOF Or I >= MaxPerPage Then Exit For
DownRS.MoveNext
Else
Exit For
End If
Next
.Write ("</tr>")
If I >= MaxPerPage Then Exit Do
If DownRS.EOF Then Exit Do
Loop
DownRS.Close
conn.Close
.Write ("<tr> ")
.Write ("<td colspan=""6"" align=""right""> ")
'显示分页信息
Call KSCMS.ShowPageParamter(totalPut, MaxPerPage, "Down_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 DownRS.EOF
If DownRS("OrderID") = 0 Then '频道或目录显示
If KSCMS.ReturnPowerResult(3, Trim(DownRS(1))) Then
FolderName = DownRS(3)
ShortName = KSCMS.GotTopic(FolderName, 30)
CreaterStr = DownRS(5)
CreateDateStr = DownRS(6)
If DownRS(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=""" & DownRS(1) & """ OnDblClick=""OpenTheFolder(this.FolderID)"">")
If DownRS(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 = DownRS(3)
ShortName = KSCMS.GotTopic(FolderName, 30)
CreaterStr = DownRS(5)
CreateDateStr = DownRS(6)
If DownRS(7) = 1 Then
VerificStr = "已审核"
VeriStr = VerificStr
Else
VeriStr = "未审核"
VerificStr = "<font color=red>未审核</font>"
End If
TypeStr = "下载项"
If KSCMS.ReturnPowerResult(3, "KMD10015") Then '检查是否有预览下载权限
ViewStr = "OnDblClick=""ViewDown(this.DownID)"""
Else
ViewStr = ""
End If
AttributeStr = ""
If DownRS(8) = 1 Or DownRS(9) = 1 Then
If DownRS(8) = 1 Then AttributeStr = AttributeStr & (" <span title=""推荐下载"" style=""cursor:default""><font color=""green"">荐</font></span> ")
If DownRS(9) = 1 Then AttributeStr = AttributeStr & ("<span title=""热门下载"" style=""cursor:default""><font color=""red"">热</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 = DownRS(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 DownID=""" & DownRS(1) & """" & ViewStr & " tips=""" & TitleStr & """ onmousemove=show(this.tips,1,'" & PhotoUrlStr & "') onmouseout=show(this.tips,0)>")
Else
TitleStr = " TITLE='名 称:" & FolderName & " 日 期:" & CreateDateStr & " 审 核:" & VerificStr & " 录 入:" & CreaterStr & "'"
.Write ("<td height=25> <span DownID=""" & DownRS(1) & """" & ViewStr & TitleStr & ">")
End If
.Write ("<img src=../Images/Folder/TheSmallDown" & DownRS(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
DownRS.MoveNext
I = I + 1
If I >= MaxPerPage Then Exit Do
Loop
.Write ("<tr> ")
.Write ("<td colspan=""6"" align=""right""> ")
'显示分页信息
Call KSCMS.ShowPageParamter(totalPut, MaxPerPage, "Down_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 + -