📄 selectpic.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<!--#include file="../../Conn.asp"-->
<!--#include file="../../SysCls/KS_CommonCls.asp"-->
<!--#include file="../Inc/Session1.asp"-->
<%
'===================================================================================================================
'软件名称：科汛网站管理系统
'当前版本：科汛网站管理系统 V2.2 SP2 Free
'Copyright (C) 2006-2008 Kesion.Com All rights reserved.
'产品咨询QQ：9537636,41904294
'技术支持QQ：111394,54004407
'程序版权：科汛网络
'程序开发：科汛网络开发组（总策划：林文仲）
'E-Mail :kesioncms@hotmail.com webmaster@kesion.com
'官方网站：http://www.kesion.com
'演示站点：http://test.kesion.com
'郑重声明:
' ①、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
' ②、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
' ③、科汛网络保留此软件的法律追究权利
'===================================================================================================================
Dim KSCls
Set KSCls = New SelectPic
KSCls.Execute()
Set KSCls = Nothing
Class SelectPic
Private KSCMS
Private Sub Class_Initialize()
Set KSCMS=New CommonCls
End Sub
Private Sub Class_Terminate()
Call KSCMS.CloseConn()
Set KSCMS=Nothing
End Sub
Public Sub Execute()
If Request.Cookies(KSCMS.SiteSn)("AdminName") = "" Then
Response.Write ("<script>alert('对不起，权限不足!');window.close();</script>")
Exit Sub
End If
Dim ChannelID, CurrPath, ShowVirtualPath
Dim InstallDir
Dim LimitUpFileFlag '上传权限 值yes无上传权限
InstallDir = KSCMS.GetConfig("InstallDir")
ChannelID = KSCMS.G("ChannelID")
CurrPath = KSCMS.G("CurrPath")
ShowVirtualPath = KSCMS.G("ShowVirtualPath")
If ChannelID = "" Or Not IsNumeric(ChannelID) Then ChannelID = 0
Select Case (ChannelID)
Case 1 '文章中心上传权限
If KSCMS.ReturnChannelAllowUpFilesTF(1) = False Then
LimitUpFileFlag = "yes"
End If
If KSCMS.ReturnPowerResult(1, "KMA10016") = False Then
LimitUpFileFlag = "yes"
End If
Case 2 '图片中心上传权限
If KSCMS.ReturnChannelAllowUpFilesTF(2) = False Then
LimitUpFileFlag = "yes"
End If
If KSCMS.ReturnPowerResult(2, "KMP10016") = False Then
LimitUpFileFlag = "yes"
End If
Case 3 '下载中心上传权限
If KSCMS.ReturnChannelAllowUpFilesTF(3) = False Then
LimitUpFileFlag = "yes"
End If
If KSCMS.ReturnPowerResult(3, "KMD10016") = False Then
LimitUpFileFlag = "yes"
End If
Case 43 'Flash中心上传权限
If KSCMS.ReturnChannelAllowUpFilesTF(4) = False Then
LimitUpFileFlag = "yes"
End If
If KSCMS.ReturnPowerResult(4, "KMF10016") = False Then
LimitUpFileFlag = "yes"
End If
End Select
If InstallDir <> "/" Then
CurrPath = InstallDir & CurrPath
Else
CurrPath = CurrPath
End If
'IF Right(CurrPath,1)="/" THEN CurrPath=Left(CurrPath,Len(CurrPath)-1)
Response.Write "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"">"
Response.Write "<html>"
Response.Write "<head>"
Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"
Response.Write "<title>选择文件</title>"
Response.Write "<style type=""text/css"">" & vbCrLf
Response.Write "<!--" & vbCrLf
Response.Write ".PreviewStyle {" & vbCrLf
Response.Write " border: 2px outset #CCCCCC;"
Response.Write "}"
Response.Write ".ImgOver {"
Response.Write " cursor: default;"
Response.Write " border-top-width: 1px;"
Response.Write " border-right-width: 1px;"
Response.Write " border-bottom-width: 1px;"
Response.Write " border-left-width: 1px;"
Response.Write " border-top-style: solid;"
Response.Write " border-right-style: solid;"
Response.Write " border-bottom-style: solid;"
Response.Write " border-left-style: solid;"
Response.Write " border-top-color: #FFFFFF;"
Response.Write " border-right-color: #999999;"
Response.Write " border-bottom-color: #999999;"
Response.Write " border-left-color: #FFFFFF;"
Response.Write "}"
Response.Write " BODY {border: 0; margin: 0; background: buttonface; cursor: default; font-family:宋体; font-size:9pt;}"
Response.Write " BUTTON {width:5em}" & vbCrLf
Response.Write " TABLE {font-family:宋体; font-size:9pt}"
Response.Write " P {text-align:center}" & vbCrLf
Response.Write "-->" & vbCrLf
Response.Write "</style>"
Response.Write "</head>"
Response.Write "<script language=""JavaScript"" src=""../JS/Common.js""></script>"
Response.Write "<body leftmargin=""0"">"
Response.Write "<table width=""99%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"
Response.Write " <tr>"
Response.Write " <td colspan=""2""><table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
Response.Write " <tr>"
Response.Write " <td width=""80"" align=""center"" nowrap>选择目录： </td>"
Response.Write " <td width=""649""><select onChange=""ChangeFolder(this.value);"" id=""FolderSelectList"" style=""width:100%;"" name=""select"">"
Response.Write " <option selected value=""" & CurrPath & """>"
Response.Write CurrPath
Response.Write " </option>"
Response.Write " </select></td>"
Response.Write " <td width=""279"" height=""26"" valign=""middle"">"
Response.Write " <table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">"
Response.Write " <tr align=""center"">"
Response.Write " <td width=""25""> </td>"
Response.Write " <td width=""25"" onMouseOver=""this.className='ImgOver'"" onMouseOut=""this.className=''""><img src=""../Images/Folder/R.gif"" align=""absmiddle"" onClick=""ChangeViewArea(this);"" id=""Img1"" title=""关闭预览区""></td>"
Response.Write " <td width=""25"" onMouseOver=""this.className='ImgOver'"" onMouseOut=""this.className=''""><img src=""../Images/Folder/Back.gif"" width=""21"" height=""22"" align=""absmiddle"" onClick=""frames['FolderList'].OpenParentFolder();"" title=""返回上一级目录""></td>"
Response.Write " <td width=""25"" onMouseOver=""this.className='ImgOver'"" onMouseOut=""this.className=''""><img src=""../Images/Folder/AddFolder.gif"" width=""19"" height=""17"" align=""absmiddle"" onClick=""frames['FolderList'].AddFolderOperation();"" title=""添加新目录""></td>"
Response.Write " <td width=""25"" onMouseOver=""this.className='ImgOver'"" onMouseOut=""this.className=''""><img src=""../Images/Folder/Upfiles.gif"" width=""21"" height=""22"" align=""absmiddle"""
If LimitUpFileFlag <> "yes" Then
Response.Write ("onClick=UpFile();")
Else
Response.Write ("onclick='alert(""系统设定此模块不允许上传文件或你没有上传文件的权限"");'")
End If
Response.Write " title=""上传新文件""></td>"
Response.Write " <td width=""25""> </td>"
Response.Write " <td width=""25""> </td>"
Response.Write " <td width=""25""> </td>"
Response.Write " <td width=""25""> </td>"
Response.Write " <td width=""25""> </td>"
Response.Write " </tr>"
Response.Write " </table>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " </table>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td width=""70%"" align=""center""> <iframe name=""FolderList"" id=""FolderList"" width=""100%"" height=""290"" frameborder=""1"" src=""FolderFileList.asp?ChannelID=" & ChannelID & "&CurrPath=" & CurrPath & "&ShowVirtualPath=" & ShowVirtualPath & """ scrolling=""yes""></iframe>"
Response.Write " </td>"
Response.Write " <td width=""30%"" align=""center"" valign=""middle"" ID=""ViewArea""> <iframe id=""PreviewArea"" scrolling=""yes"" width=""100%"" height=""290"" frameborder=""1"" src=""Preview.asp""></iframe>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td height=""35"" colspan=""2""> <table width=""100%"" height=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">"
Response.Write " <tr>"
Response.Write " <td width=""80"" height=""40""> <div align=""center"">URL地址：</div></td>"
Response.Write " <td><input style=""width:65%"" type=""text"" name=""FileUrl""> <input type=""button"" onClick=""SetFileUrl();"" name=""Submit"" value="" 确 定 "">"
Response.Write " <input onClick=""window.close();"" type=""button"" name=""Submit3"" value="" 取 消 "">"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " </table></td>"
Response.Write " </tr>"
Response.Write "</table>"
Response.Write "</body>"
Response.Write "</html>"
Response.Write "<script language=""JavaScript"">"
Response.Write "var ChannelID=" & ChannelID & ";"
Response.Write "function ChangeFolder(FolderName)"
Response.Write "{"
Response.Write " frames[""FolderList""].location='FolderFileList.asp?CurrPath='+FolderName;"
Response.Write "}"
Response.Write "function UpFile()"
Response.Write "{"
Response.Write " OpenWindow('Frame.asp?ChannelID='+ChannelID+'&PageTitle=上传文件&FileName=UpFileForm.asp&Path='+frames[""FolderList""].CurrPath,400,200,window);"
Response.Write " frames[""FolderList""].location='FolderFileList.asp?CurrPath='+frames[""FolderList""].CurrPath;"
Response.Write "}"
Response.Write "function SetFileUrl()"
Response.Write "{"
Response.Write " if (document.all.FileUrl.value=='') alert('请填写Url地址');"
Response.Write " else"
Response.Write " {"
Response.Write " window.returnValue=document.all.FileUrl.value;"
Response.Write " window.close();"
Response.Write " }"
Response.Write "}"
Response.Write "window.onunload=CheckReturnValue;"
Response.Write "function CheckReturnValue()"
Response.Write "{"
Response.Write " if (typeof(window.returnValue)!='string') window.returnValue='';"
Response.Write "}"
Response.Write "var displayBar=true;"
Response.Write "function ChangeViewArea(obj) {"
Response.Write " if (displayBar) {"
Response.Write " ViewArea.style.display='none';"
Response.Write " displayBar=false;"
Response.Write " obj.src='../Images/Folder/L.gif';"
Response.Write " obj.title='打开预览区';"
Response.Write " } else {"
Response.Write " ViewArea.style.display='';"
Response.Write " displayBar=true;"
Response.Write " obj.src='../Images/Folder/R.gif';"
Response.Write " obj.title='关闭预览区';"
Response.Write " }"
Response.Write "}"
Response.Write "</script>"
End Sub
End Class
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -