📄 selecttemplate.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<!--#include file="../../Conn.asp"-->
<!--#include file="../../SysCls/KS_CommonCls.asp"-->
<!--#include file="../Inc/Session.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 SelectTemplate
KSCls.Execute()
Set KSCls = Nothing
Class SelectTemplate
Private KSCMS
Private Sub Class_Initialize()
Set KSCMS=New CommonCls
End Sub
Private Sub Class_Terminate()
Call KSCMS.CloseConn()
Set KSCMS=Nothing
End Sub
Function Execute()
Dim CurrPath
CurrPath = Request("CurrPath")
Response.Write "<html><head><meta http-equiv='Content-Type' content='text/html; charset=gb2312'>"
Response.Write "<title>选择模板文件</title><link href='../Inc/Admin_Style.CSS' rel='stylesheet' type='text/css'></head>"
Response.Write "<script language='JavaScript' src='../JS/Public.js'></script>"
Response.Write "<body leftmargin='0' topmargin='0' marginwidth='0' marginheight='0' class='sort'>"
Response.Write "<table style=""width:100%;height:100%"" border='0' cellspacing='0' cellpadding='0' align='right' class='sort'>"
Response.Write " <tr><td style=""width:100%""><select onChange='ChangeFolder(this.value);' id='FolderSelectList' style='width:100%;' name='select'>"
Response.Write " <option selected value='" & CurrPath & "'>" & CurrPath & "</option>"
Response.Write " </select></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td style=""width:100%;height:100%""><iframe id=""FolderList"" width='100%' height='100%' frameborder='1' src='FolderList.asp?CurrPath=" & CurrPath & "'></iframe></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td height='25' width='100%'><table width='60%' height='100%' border='0' align='center' cellpadding='0' cellspacing='0'>"
Response.Write " <tr>"
Response.Write " <td height='25' align='center'> <div align='center'>"
Response.Write " <input type='button' onClick='SelectFile();' name='Submit' value=' 确 定 '>"
Response.Write " </div></td>"
Response.Write " <td>"
Response.Write " <div align='left'></div>"
Response.Write " <div align='center'>"
Response.Write " <input onClick='window.close();' type='button' name='Submit3' value=' 取 消 '>"
Response.Write " </div></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 "function ChangeFolder(CurrPath)"
Response.Write "{"
Response.Write " frames[""FolderList""].location='FolderList.asp?CurrPath='+CurrPath;"
Response.Write "}"
Response.Write "function SelectFile()"
Response.Write "{ "
Response.Write " if (frames[""FolderList""].FileName!='')"
Response.Write " {"
Response.Write " window.returnValue=document.all.FolderSelectList.value+'/'+frames[""FolderList""].FileName;"
Response.Write " window.close();"
Response.Write " }"
Response.Write " else"
Response.Write " Alert ('操作提示:\n\n请先选择模板文件!')"
Response.Write "}"
Response.Write "window.onunload=SetReturnValue;"
Response.Write "function SetReturnValue()"
Response.Write "{"
Response.Write " if (typeof(window.returnValue)!='string') window.returnValue='';"
Response.Write "}"
Response.Write "</script>"
End Function
End Class
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -