📄 down_left.asp
字号:
.Write " </tr>"
.Write " <tr>"
.Write " <td height=""22""> 属 性："
If CInt(ObjRS(2)) = 1 Or CInt(ObjRS(3)) = 1 Then
If CInt(ObjRS(2)) = 1 Then
.Write ("<span title=""推荐下载"" style=""cursor:default""><font color=""green"">荐</font></span> ")
End If
If CInt(ObjRS(3)) = 1 Then
.Write ("<span title=""热门下载"" style=""cursor:default""><font color=""red"">热</font></span> ")
End If
Else
.Write ("无")
End If
.Write " </td>"
.Write " </tr>"
.Write " <tr>"
.Write " <td height=""22""> 添加日期：" & ObjRS(1) & "</td>"
.Write " </tr>"
.Write " </table>"
End If
Else
ObjRS.Open "Select Count(ID) As TotalChannel From KS_Class Where ChannelID=3 And TN='0' And DelTF=0", conn, 1, 1
Set CountObjRS = conn.Execute("Select Count(ID) As DownTotal From KS_DownLoad Where DelTF=0")
Set CountClassRS = conn.Execute("Select Count(ID) As VerificTotal From KS_DownLoad Where Verific=0")
.Write " <table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
.Write " <tr>"
.Write " <td height=""5""></td>"
.Write " </tr>"
.Write " <tr>"
.Write " <td height=""22""> 频道总数：<font color=blue>" & ObjRS(0) & "</font>"
.Write " 个</td>"
.Write " </tr>"
.Write " <tr>"
.Write " <td height=""22""> 下载总数：<font color=blue>" & CountObjRS(0) & "</font>"
.Write " 个</td>"
.Write " </tr>"
.Write " <tr>"
.Write " <td height=""22""> 待审下载：<font color=Red>" & CountClassRS(0) & "</font>"
.Write " 个</td>"
.Write " </tr>"
.Write " <tr>"
.Write " <td height=""50""> 小技巧：<br>"
.Write " 按住 <font color=""#FF0000"">Shift </font>键连续选择，按住"
.Write " <font color=""#FF0000"">Ctrl </font>键多项选择,按"
.Write " <font color=""#FF0000"">Delete</font>"
.Write " 键删除选中项</td>"
.Write " </tr>"
.Write " </table>"
CountClassRS.Close
CountObjRS.Close
Set CountClassRS = Nothing
Set CountObjRS = Nothing
End If
ObjRS.Close
Set ObjRS = Nothing
.Write " </td>"
.Write " </tr>"
.Write " <tr>"
.Write " <td height=""120"" valign=""top""> <table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
.Write " <tr>"
.Write " <td height=""25""><img src=""../Images/sys.gif"" width=""21"" height=""17"" align=""absmiddle"">下载管理菜单</td>"
.Write " </tr>"
If CStr(OpType) = "0" Or CStr(OpType) = "-1" Then
Dim TempStr
If ID <> "0" And CStr(StatusFlag) = "1" Then
TempStr = "栏目"
Else
TempStr = "频道"
End If
.Write " <tr>"
.Write " <td height=""25""> <img src=""../Images/home.gif"" width=""18"" height=""18"" align=""absmiddle""><span style=""cursor:default"" onClick=""javascript:SetEnabledStatus(false);SelectObjItem(this,'','','');parent.parent.frames['MainFrame'].location='Down_Main.asp';parent.parent.frames['BottomFrame'].location='../Split.asp?ButtonSymbol=Disabled&OpStr=下载管理 >> <font color=red>浏览频道</font>';"">下载首页</span></td>"
.Write " </tr>"
.Write " <TR>"
.Write " <TD>"
.Write " <table width=""100%"" border=""0"" id=""EnabledArea"">"
If CStr(OpType) = "-1" Then
.Write " <tr>"
.Write " <td height=""25""> <img src=""../Images/Comment.gif"" align=""absmiddle""><span style=""cursor:default"" onClick=""javascript:if(EnabledTF){SelectObjItem(this,'','','');parent.parent.frames['MainFrame'].Comment('');}"">评论管理</span></td>"
.Write " </tr>"
Else
.Write " <tr>"
.Write " <td height=""25""> <img src=""../Images/Comment.gif"" align=""absmiddle""><span style=""cursor:default"" onClick=""javascript:if(EnabledTF){SelectObjItem(this,'','','');parent.parent.frames['MainFrame'].Comment('');}"">" & TempStr & "下的评论</span></td>"
.Write " </tr>"
End If
.Write " <tr>"
.Write " <td height=""25""> <img src=""../Images/Folder/AddFolder.gif"" align=""absmiddle""><span style=""cursor:default"" onClick=""javascript:if(EnabledTF){SelectObjItem(this,'','','');parent.parent.frames['MainFrame'].CreateFolder();}"">添加一个新" & TempStr & "</span></td>"
.Write " </tr>"
.Write " <tr>"
.Write " <td height=""25""> <img src=""../Images/Editor.gif"" width=""20"" height=""20"" align=""absmiddle""><span style=""cursor:default"" onClick=""javascript:if(EnabledTF){SelectObjItem(this,'','','');parent.parent.frames['MainFrame'].CreateNews('');}"">添加一个新下载</span></td>"
.Write " </tr>"
.Write " <tr>"
.Write " <td height=""25""> </td>"
.Write " </tr>"
Else
.Write " <tr>"
.Write " <td height=""25""> <img src=""../Images/home.gif"" width=""18"" height=""18"" align=""absmiddle""><span style=""cursor:default"" onClick=""javascript:SetEnabledStatus(false);SelectObjItem(this,'','','');parent.parent.frames['MainFrame'].location='Down_Main.asp';parent.parent.frames['BottomFrame'].location='../Split.asp?ButtonSymbol=Disabled&OpStr=下载管理 >> <font color=red>浏览频道</font>';"">下载首页</span></td>"
.Write " </tr>"
.Write " <tr>"
.Write " <td height=""25""> <img src=""../Images/qs.gif"" width=""18"" height=""18"" align=""absmiddle""><span style=""cursor:default"" onClick=""javascript:SetEnabledStatus(false);SelectObjItem(this,'','','');parent.parent.frames['MainFrame'].location='Down_UserDownMain.asp';parent.parent.frames['BottomFrame'].location='../Split.asp?ButtonSymbol=Disabled&OpStr=下载管理 >> <font color=red>签收会员下载</font>';"">签收会员下载</span></td>"
.Write " </tr>"
.Write " <TR>"
.Write " <TD>"
.Write " <table width=""100%"" border=""0"" id=""EnabledArea"">"
.Write " <tr id=""EnabledArea3"">"
.Write " <td height=""25""> <img src=""../Images/Comment.gif"" align=""absmiddle""><span style=""cursor:default"" onClick=""javascript:if(EnabledTF){SelectObjItem(this,'','','');parent.parent.frames['MainFrame'].Comment('');}"">查看选中下载的评论</span></td>"
.Write " </tr>"
.Write " <tr>"
.Write " <td height=""25""> <img src=""../Images/Copy.gif"" align=""absmiddle""><span style=""cursor:default"" onClick=""javascript:if(EnabledTF){SelectObjItem(this,'','','');parent.parent.frames['MainFrame'].Edit('');}"">编辑这个下载</span></td>"
.Write " </tr>"
.Write " <tr>"
.Write " "
.Write " <td height=""25""> <img src=""../Images/Del.gif"" width=""23"" height=""22"" align=""absmiddle""><span style=""cursor:default"" onClick=""javascript:if(EnabledTF){SelectObjItem(this,'','','');parent.parent.frames['MainFrame'].Delete('');}"">删除这个下载</span></td>"
.Write " </tr>"
.Write " <tr>"
.Write " <td height=""25""> </td>"
.Write " </tr>"
End If
.Write " </table>"
.Write " </TD></TR>"
.Write " </table></td>"
.Write " </tr>"
.Write " </table></td>"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -