📄 split.asp
字号:
Case "VIEWDOWNFOLDER", "DOWNSEARCH"
.Write ("window.parent.frames['MainFrame'].Delete('DownLoad/');")
Case "VIEWFLASHFOLDER", "FLASHSEARCH"
.Write ("window.parent.frames['MainFrame'].Delete('Flash/');")
Case "FUNCTIONLABEL"
.Write ("window.parent.frames['MainFrame'].Delete('Template/');")
Case "TEMPLATE"
.Write ("window.parent.frames['MainFrame'].frames['TemplateListFrame'].TemplateControl('Template/',2);")
Case "EDITORPAGE"
.Write ("window.parent.frames['MainFrame'].EditorControl('Article/',2);")
Case "AUTHORPAGE"
.Write ("window.parent.frames['MainFrame'].AuthorControl('Article/',2);")
Case "PICTUREAUTHORPAGE"
.Write ("window.parent.frames['MainFrame'].AuthorControl('Picture/',2);")
Case "DOWNAUTHORPAGE"
.Write ("window.parent.frames['MainFrame'].AuthorControl('DownLoad/',2);")
Case "FLASHAUTHORPAGE"
.Write ("window.parent.frames['MainFrame'].AuthorControl('Flash/',2);")
Case "ORIGINPAGE"
.Write ("window.parent.frames['MainFrame'].OriginControl('Article/',2);")
Case "PICTUREORIGINPAGE"
.Write ("window.parent.frames['MainFrame'].OriginControl('Picture/',2);")
Case "DOWNORIGINPAGE"
.Write ("window.parent.frames['MainFrame'].OriginControl('DownLoad/',2);")
Case "FLASHORIGINPAGE"
.Write ("window.parent.frames['MainFrame'].OriginControl('Flash/',2);")
Case "KEYWORDPAGE"
.Write ("window.parent.frames['MainFrame'].KeyWordControl('Article/',2);")
Case "PICTUREKEYWORDPAGE"
.Write ("window.parent.frames['MainFrame'].KeyWordControl('Picture/',2);")
Case "DOWNKEYWORDPAGE"
.Write ("window.parent.frames['MainFrame'].KeyWordControl('DownLoad/',2);")
Case "FLASHKEYWORDPAGE"
.Write ("window.parent.frames['MainFrame'].KeyWordControl('Flash/',2);")
Case "FREELABEL"
.Write ("window.parent.frames['MainFrame'].Delete('Template/');")
Case "SYSJSLIST", "FREEJSLIST", "SYSLABELSEARCH", "FREELABELSEARCH", "SYSJSSEARCH", "FREEJSSEARCH"
.Write ("window.parent.frames['MainFrame'].Delete('Template/');")
Case "VIEWMANAGER", "MANAGERSEARCH"
.Write ("window.parent.frames['MainFrame'].Delete('User/');")
Case "FARSERVERPAGE"
.Write ("window.parent.frames['MainFrame'].DownServerControl('DownLoad/',2);")
Case "ANNOUNCELIST"
.Write ("window.parent.frames['MainFrame'].AnnounceControl('Convention/',2);")
Case "VOTELIST"
.Write ("window.parent.frames['MainFrame'].VoteControl('Convention/',2);")
Case "INNERLINKLIST"
.Write ("window.parent.frames['MainFrame'].InnerControl('Convention/',2);")
Case "VIEWLINK", "LINKSEARCH"
.Write ("window.parent.frames['MainFrame'].Delete('Convention/');")
End Select
.Write (" }")
.Write (" function ClickButton4()")
.Write (" {")
If UCase(ButtonSymbol) = "KEYWORDPAGE" Then
End If
.Write (" }")
.Write (" function document.onreadystatechange()")
.Write (" {")
Select Case (UCase(ButtonSymbol))
Case "DISABLED"
.Write (" document.all.Button1.disabled=true;")
.Write (" document.all.Button2.disabled=true;")
.Write (" document.all.Button3.disabled=true;")
Case "TEMPLATE"
.Write (" document.all.Button1.value='导入模板';")
.Write (" document.all.Button2.value='编辑模板';")
.Write (" document.all.Button3.value='删除模板';")
Case "TEMPLATEADD"
.Write (" document.all.Button1.value=""保存模板"";")
.Write (" document.all.Button2.disabled=true;")
.Write (" document.all.Button3.disabled=true;")
Case "VIEWFOLDER"
.Write (" document.all.Button1.value='添加文章';")
.Write (" document.all.Button2.value='编辑文章';")
.Write (" document.all.Button3.value='删除文章';")
Case "VIEWPICTUREFOLDER"
.Write (" document.all.Button1.value='添加图片';")
.Write (" document.all.Button2.value='编辑图片';")
.Write (" document.all.Button3.value='删除图片';")
Case "VIEWDOWNFOLDER"
.Write (" document.all.Button1.value='添加下载';")
.Write (" document.all.Button2.value='编辑下载';")
.Write (" document.all.Button3.value='删除下载';")
Case "VIEWFLASHFOLDER"
.Write (" document.all.Button1.value='添加Flash';")
.Write (" document.all.Button2.value='编辑Flash';")
.Write (" document.all.Button3.value='删除Flash';")
Case "ADDARTICLE"
.Write (" document.all.Button1.value='保存文章';")
.Write (" document.all.Button2.value='取消返回';")
.Write (" document.all.Button3.disabled=true;")
Case "ARTICLESEARCH"
.Write (" document.all.Button1.disabled=true;")
.Write (" document.all.Button2.value='编辑文章';")
.Write (" document.all.Button3.value='删除文章';")
Case "PICTURESEARCH"
.Write (" document.all.Button1.disabled=true;")
.Write (" document.all.Button2.value='编辑图片';")
.Write (" document.all.Button3.value='删除图片';")
Case "DOWNSEARCH"
.Write (" document.all.Button1.disabled=true;")
.Write (" document.all.Button2.value='编辑下载';")
.Write (" document.all.Button3.value='删除下载';")
Case "FLASHSEARCH"
.Write (" document.all.Button1.disabled=true;")
.Write (" document.all.Button2.value='编辑Flash';")
.Write (" document.all.Button3.value='删除Flash';")
Case "EDITORPAGE"
.Write (" document.all.Button1.value='新增责任';")
.Write (" document.all.Button2.value='修改责任';")
.Write (" document.all.Button3.value='删除责任';")
Case "EDITORADDSAVE", "AUTHORADDSAVE", "ORIGINADDSAVE", "KEYWORDADDSAVE", "JSADD", "ANNOUNCEADDSAVE","VOTEADDSAVE", "INNERADDSAVE", "FILTERSADD"
.Write (" document.all.Button1.value='确定增加';")
.Write (" document.all.Button2.value='取消返回';")
.Write (" document.all.Button3.disabled=true;")
Case "MODIFYUSERARTICLE","MODIFYUSERPICTURE","MODIFYUSERDOWN","MODIFYUSERFLASH","EDITOREDIT", "AUTHOREDIT", "ORIGINEDIT", "KEYWORDEDIT", "ANNOUNCEEDIT","VOTEEDIT", "DOWNSERVEREDIT", "INNEREDIT", "FILTERSEDIT"
.Write (" document.all.Button1.value='确定修改';")
.Write (" document.all.Button2.value='取消返回';")
.Write (" document.all.Button3.disabled=true;")
Case "AUTHORPAGE", "PICTUREAUTHORPAGE", "DOWNAUTHORPAGE", "FLASHAUTHORPAGE"
.Write (" document.all.Button1.value='新增作者';")
.Write (" document.all.Button2.value='修改作者';")
.Write (" document.all.Button3.value='删除作者';")
Case "ORIGINPAGE", "PICTUREORIGINPAGE", "DOWNORIGINPAGE", "FLASHORIGINPAGE"
.Write (" document.all.Button1.value='新增来源';")
.Write (" document.all.Button2.value='修改来源';")
.Write (" document.all.Button3.value='删除来源';")
Case "KEYWORDPAGE", "PICTUREKEYWORDPAGE", "DOWNKEYWORDPAGE", "FLASHKEYWORDPAGE"
.Write (" document.all.Button1.value='增关键字';")
.Write (" document.all.Button2.value='改关键字';")
.Write (" document.all.Button3.value='删关键字';")
Case "VIEWSPECIALARTICLE"
.Write ("document.all.Button1.value='删除文章';")
.Write ("document.all.Button2.disabled=true;")
.Write ("document.all.Button3.disabled=true;")
Case "FREELABEL", "FUNCTIONLABEL"
.Write ("document.all.Button1.value='新建标签';")
.Write ("document.all.Button2.value='修改标签';")
.Write ("document.all.Button3.value='删除标签';")
Case "SYSLABELSEARCH", "FREELABELSEARCH"
.Write ("document.all.Button1.disabled=true;")
.Write ("document.all.Button2.value='修改标签';")
.Write ("document.all.Button3.value='删除标签';")
Case "LABELADD"
.Write ("document.all.Button1.value=""保存标签"";")
.Write ("document.all.Button2.disabled=true;")
.Write ("document.all.Button3.disabled=true;")
Case "LABELFOLDERADD"
.Write ("document.all.Button1.value='保存目录';")
.Write ("document.all.Button2.disabled=true;")
.Write ("document.all.Button3.disabled=true;")
Case "SETSYSTEM", "SETDOWNPARAM"
.Write ("document.all.Button1.value='保存设置';")
.Write ("document.all.Button2.disabled=true;")
.Write ("document.all.Button3.disabled=true;")
Case "SETPOWER"
.Write ("document.all.Button1.value='保存设置';")
.Write ("document.all.Button2.value='取消返回';")
.Write ("document.all.Button3.disabled=true;")
Case "SYSJSLIST", "FREEJSLIST"
.Write ("document.all.Button1.value='新建 JS';")
.Write ("document.all.Button2.value='修改 JS';")
.Write ("document.all.Button3.value='删除 JS';")
Case "SYSJSSEARCH", "FREEJSSEARCH"
.Write ("document.all.Button1.disabled=true;")
.Write ("document.all.Button2.value='修改 JS';")
.Write ("document.all.Button3.value='删除 JS';")
Case "JSEDIT"
.Write (" document.all.Button1.value='确定修改';")
.Write (" document.all.Button2.disabled=true;")
.Write (" document.all.Button3.disabled=true;")
Case "SPECIALSEARCH"
.Write (" document.all.Button1.value='编辑专题';")
.Write (" document.all.Button2.value='删除专题';")
.Write (" document.all.Button3.disabled=true;")
Case "VIEWMANAGER"
.Write ("document.all.Button1.value='添管理员';")
.Write ("document.all.Button2.value='改管理员';")
.Write ("document.all.Button3.value='删管理员';")
Case "MANAGERSEARCH"
.Write ("document.all.Button1.disabled=true;")
.Write ("document.all.Button2.value='改管理员';")
.Write ("document.all.Button3.value='删管理员';")
Case "ANNOUNCELIST"
.Write ("document.all.Button1.value='添加公告';")
.Write ("document.all.Button2.value='编辑公告';")
.Write ("document.all.Button3.value='删除公告';")
Case "VOTELIST"
.Write ("document.all.Button1.value='添加主题';")
.Write ("document.all.Button2.value='编辑主题';")
.Write ("document.all.Button3.value='删除主题';")
Case "INNERLINKLIST"
.Write ("document.all.Button1.value='添加链接';")
.Write ("document.all.Button2.value='编辑链接';")
.Write ("document.all.Button3.value='删除链接';")
Case "LOGLIST"
.Write ("document.all.Button1.value='删除日志';")
.Write ("document.all.Button2.value='全部清除';")
.Write (" document.all.Button3.disabled=true;")
Case "VIEWLINK"
.Write ("document.all.Button1.value='添加链接';")
.Write ("document.all.Button2.value='编辑链接';")
.Write ("document.all.Button3.value='删除链接';")
Case "LINKSEARCH"
.Write (" document.all.Button1.disabled=true;")
.Write (" document.all.Button2.value='编辑链接';")
.Write (" document.all.Button3.value='删除链接';")
Case "ADDPICTURE"
.Write (" document.all.Button1.value='保存图片';")
.Write (" document.all.Button2.value='取消返回';")
.Write (" document.all.Button3.disabled=true;")
Case "ADDDOWN"
.Write (" document.all.Button1.value='保存下载';")
.Write (" document.all.Button2.value='取消返回';")
.Write (" document.all.Button3.disabled=true;")
Case "ADDFLASH"
.Write (" document.all.Button1.value='保存Flash';")
.Write (" document.all.Button2.value='取消返回';")
.Write (" document.all.Button3.disabled=true;")
Case "FARSERVERPAGE"
.Write ("document.all.Button1.value='添服务器';")
.Write ("document.all.Button2.value='改服务器';")
.Write ("document.all.Button3.value='删服务器';")
Case "DOWNSERVERADDSAVE"
.Write (" document.all.Button1.value='确定增加';")
.Write (" document.all.Button2.value='取消返回';")
.Write (" document.all.Button3.disabled=true;")
Case "COLLECTHISTORY"
.Write (" document.all.Button1.value='删除记录';")
.Write (" document.all.Button2.value='全部清除';")
.Write (" document.all.Button3.disabled=true;")
Case "DATACOLLECT"
.Write (" document.all.Button1.value='开始采集';")
.Write (" document.all.Button2.disabled=true;")
.Write (" document.all.Button3.disabled=true;")
End Select
.Write (" } ")
.Write ("</SCRIPT>")
End With
End Sub
Function GetLabelFolderName(FolderID)
Dim FolderRS
Set FolderRS = Conn.Execute("Select FolderName From KS_LabelFolder Where ID='" & FolderID & "'")
If Not FolderRS.EOF Then
GetLabelFolderName = FolderRS(0)
Else
GetLabelFolderName = ""
End If
FolderRS.Close
Set FolderRS = Nothing
End Function
Function GetFolderName(FolderID)
Dim FolderRS, I, TSArr, TempFolderName
Set FolderRS = Conn.Execute("Select TS,FolderName From KS_Class Where ID='" & FolderID & "'")
If Not FolderRS.EOF Then
TSArr = Split(FolderRS(0), ",")
For I = LBound(TSArr) To UBound(TSArr) - 1
If I = 0 Then
TempFolderName = GetSubFolderName(TSArr(I))
Else
TempFolderName = TempFolderName & " >> " & GetSubFolderName(TSArr(I))
End If
Next
GetFolderName = TempFolderName
Else
GetFolderName = ""
End If
FolderRS.Close
Set FolderRS = Nothing
End Function
Function GetSubFolderName(FolderID)
Dim FolderRS
Set FolderRS = Conn.Execute("Select FolderName From KS_Class Where ID='" & FolderID & "'")
If Not FolderRS.EOF Then
GetSubFolderName = FolderRS(0)
Else
GetSubFolderName = ""
End If
FolderRS.Close
Set FolderRS = Nothing
End Function
End Class
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -