📄 getcorrelativedownload.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<!--#include file="../../../Conn.asp"-->
<!--#include file="../../../SysCls/KS_CommonCls.asp"-->
<!--#include file="../../Inc/Session.asp"-->
<%
'===================================================================================================================
'软件名称：科汛网站管理系统
'当前版本：科汛网站管理系统 V2.2 0628 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 GetCorrelativeDownLoad
KSCls.Execute()
Set KSCls = Nothing
Class GetCorrelativeDownLoad
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()
Dim TempClassList, InstallDir, CurrPath, FolderID, LabelContent, LabelContentArr, Action, LabelID, Str, Descript
Dim OpenType, CorrelativeDownLoadNumber, RowHeight, TitleLen, ColNumber, NavType, Navi, SplitPic, DateRule, DateAlign, TitleCss
FolderID = Request("FolderID")
CurrPath = KSCMS.GetConfig("UpFilesDir")
InstallDir = KSCMS.GetConfig("InstallDir")
CurrPath = Left(CurrPath, Len(CurrPath) - 1)
If InstallDir = "/" Then CurrPath = "/" & CurrPath
'判断是否编辑
LabelID = Trim(Request.QueryString("LabelID"))
If LabelID = "" Then
Action = "Add"
Else
Action = "Edit"
Dim LabelRS, LabelName
Set LabelRS = Server.CreateObject("Adodb.Recordset")
LabelRS.Open "Select * From KS_Label Where ID='" & LabelID & "'", Conn, 1, 1
If LabelRS.EOF And LabelRS.BOF Then
LabelRS.Close
Set LabelRS = Nothing
Response.Write ("<Script>alert('参数传递出错!');window.close();</Script>")
Response.End
End If
LabelName = Replace(Replace(LabelRS("LabelName"), "{LB_", ""), "}", "")
FolderID = LabelRS("FolderID")
Descript = LabelRS("Description")
LabelContent = LabelRS("LabelContent")
LabelRS.Close
Set LabelRS = Nothing
LabelContent = Replace(Replace(LabelContent, "{$GetCorrelativeDownLoad(", ""), ")}", "")
LabelContent = Replace(LabelContent, """", "") '注:去除左右双引号"
LabelContentArr = Split(LabelContent, ",")
CorrelativeDownLoadNumber = LabelContentArr(1)
RowHeight = LabelContentArr(2)
TitleLen = LabelContentArr(3)
ColNumber = LabelContentArr(4)
OpenType = LabelContentArr(5)
NavType = LabelContentArr(6)
Navi = LabelContentArr(7)
SplitPic = LabelContentArr(8)
DateRule = LabelContentArr(9)
DateAlign = LabelContentArr(10)
TitleCss = LabelContentArr(11)
End If
If CorrelativeDownLoadNumber = "" Then CorrelativeDownLoadNumber = 10
If RowHeight = "" Then RowHeight = 20
If TitleLen = "" Then TitleLen = 30
If ColNumber = "" Then ColNumber = 1
Response.Write "<html>"
Response.Write "<head>"
Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"
Response.Write "<link href=""../../Inc/ModeWindow.css"" rel=""stylesheet"">"
Response.Write "<script src=""../LabelJS/GetCorrelativeDownLoad.JS"" language=""JavaScript""></script>"
Response.Write "<script src=""../../JS/Common.js"" language=""JavaScript""></script>"
Response.Write "</head>"
Response.Write "<body topmargin=""0"" leftmargin=""0"" scroll=no>"
Response.Write "<div align=""center"">"
Response.Write " <form method=""post"" name=""myform"" action=""AddLabelSave.asp"">"
Response.Write " <input type=""hidden"" name=""LabelContent"">"
Response.Write " <input type=""hidden"" name=""LabelFlag"" value=""0"">"
Response.Write " <input type=""hidden"" name=""Action"" value=""" & Action & """>"
Response.Write " <input type=""hidden"" name=""LabelID"" value=""" & LabelID & """>"
Response.Write " <input type=""hidden"" name=""FileUrl"" value=""GetCorrelativeDownLoad.asp"">"
Response.Write KSCMS.ReturnLabelInfo(LabelName, FolderID, Descript)
Response.Write " <br>"
Response.Write " <table width=""96%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
Response.Write " <tr>"
Response.Write " <td> <FIELDSET align=center>"
Response.Write " <LEGEND align=left>相关下载列表标签属性设置</LEGEND>"
Response.Write " <table width=""96%"" border=""0"" cellpadding=""0"" cellspacing=""0"">"
Response.Write " <tr>"
Response.Write " <td width=""50%"" height=""28"">下载数量"
Response.Write " <input name=""CorrelativeDownLoadNumber"" class=""textbox"" type=""text"" id=""CorrelativeDownLoadNumber"" style=""width:70%;"" onBlur=""CheckNumber(this,'下载数量');"" value=""" & CorrelativeDownLoadNumber & """></td>"
Response.Write " <td height=""28"">下载行距"
Response.Write " <input name=""RowHeight"" class=""textbox"" type=""text"" id=""RowHeight2"" style=""width:70%;"" onBlur=""CheckNumber(this,'下载行距');"" value=""" & RowHeight & """></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td width=""50%"" height=""28"">标题字数"
Response.Write " <input name=""TitleLen"" class=""textbox"" onBlur=""CheckNumber(this,'标题字数');"" type=""text"" style=""width:70%;"" value=""" & TitleLen & """>"
Response.Write " </td>"
Response.Write " <td height=""28""><font color=""#FF0000"">一个汉字=两个英文字符</font></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td width=""50%"" height=""28"">排列列数"
Response.Write " <input type=""text"" class=""textbox"" onBlur=""CheckNumber(this,'排列列数');"" style=""width:70%;"" value=""" & ColNumber & """ name=""ColNumber"">"
Response.Write " </td>"
Response.Write " <td height=""28"">"
Response.Write KSCMS.ReturnOpenTypeStr(OpenType)
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td width=""50%"" height=""28"">导航类型"
Response.Write " <select name=""NavType"" style=""width:70%;"" onchange=""SetNavStatus()"">"
If LabelID = "" Or CStr(NavType) = "0" Then
Response.Write ("<option value=""0"" selected>文字导航</option>")
Response.Write ("<option value=""1"">图片导航</option>")
Else
Response.Write ("<option value=""0"">文字导航</option>")
Response.Write ("<option value=""1"" selected>图片导航</option>")
End If
Response.Write " </select></td>"
Response.Write " <td height=""28"">"
If LabelID = "" Or CStr(NavType) = "0" Then
Response.Write ("<div align=""left"" id=""NavWord""> ")
Response.Write ("<input type=""text"" class=""textbox"" name=""TxtNavi"" style=""width:70%;"" value=""" & Navi & """>支持HTML语法")
Response.Write ("</div>")
Response.Write ("<div align=""left"" id=NavPic style=""display:none""> ")
Response.Write ("<input type=""text"" class=""textbox"" readonly style=""width:120;"" id=""NaviPic"" name=""NaviPic"">")
Response.Write ("<input type=""button"" onClick=""OpenThenSetValue('../../Dialog/SelectPic.asp?CurrPath=" & CurrPath & "&ShowVirtualPath=true',550,290,window,document.myform.NaviPic);"" name=""Submit3"" value=""选择图片..."">")
Response.Write (" <span style=""cursor:hand;color:green;"" onclick=""javascript:document.myform.NaviPic.value='';"" onmouseover=""this.style.color='red'"" onMouseOut=""this.style.color='green'"">清除</span>")
Response.Write ("</div>")
Else
Response.Write ("<div align=""left"" id=""NavWord"" style=""display:none""> ")
Response.Write ("<input type=""text"" class=""textbox"" name=""TxtNavi"" style=""width:70%;"">支持HTML语法")
Response.Write ("</div>")
Response.Write ("<div align=""left"" id=NavPic> ")
Response.Write ("<input type=""text"" class=""textbox"" readonly style=""width:120;"" id=""NaviPic"" name=""NaviPic"" value=""" & Navi & """>")
Response.Write ("<input type=""button"" onClick=""OpenThenSetValue('../../Dialog/SelectPic.asp?CurrPath=" & CurrPath & "&ShowVirtualPath=true',550,290,window,document.myform.NaviPic);"" name=""Submit3"" value=""选择图片..."">")
Response.Write (" <span style=""cursor:hand;color:green;"" onclick=""javascript:document.myform.NaviPic.value='';"" onmouseover=""this.style.color='red'"" onMouseOut=""this.style.color='green'"">清除</span>")
Response.Write ("</div>")
End If
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td height=""28"" colspan=""2"">分隔图片"
Response.Write " <input name=""SplitPic"" class=""textbox"" type=""text"" id=""SplitPic"" style=""width:61%;"" value=""" & SplitPic & """ readonly>"
Response.Write " <input name=""SubmitPic"" onClick=""OpenThenSetValue('../../Dialog/SelectPic.asp?CurrPath=" & CurrPath & "&ShowVirtualPath=true',550,290,window,document.myform.SplitPic);"" type=""button"" id=""SubmitPic2"" value=""选择图片..."">"
Response.Write " <span style=""cursor:hand;color:green;"" onclick=""javascript:document.myform.SplitPic.value='';"" onmouseover=""this.style.color='red'"" onMouseOut=""this.style.color='green'"">清除</span>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td height=""28"">日期格式"
Response.Write " <select class=""textbox"" style=""width:70%;"" name=""DateRule"" id=""select2"">"
Response.Write KSCMS.ReturnDateFormat(DateRule)
Response.Write " </select>"
Response.Write " </td>"
Response.Write " <td>日期对齐"
Response.Write " <select class=""textbox"" name=""DateAlign"" id=""select3"" style=""width:70%;"">"
If LabelID = "" Or CStr(DateAlign) = "left" Then
Str = " selected"
Else
Str = ""
End If
Response.Write ("<option value=""left""" & Str & ">左对齐</option>")
If CStr(DateAlign) = "center" Then
Str = " selected"
Else
Str = ""
End If
Response.Write ("<option value=""center""" & Str & ">居中对齐</option>")
If CStr(DateAlign) = "right" Then
Str = " selected"
Else
Str = ""
End If
Response.Write ("<option value=""right""" & Str & ">右对齐</option>")
Response.Write " </select>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td height=""28"">标题样式"
Response.Write " <input name=""TitleCss"" type=""text"" id=""TitleCss"" class=""textbox"" style=""width:70%;"" value=""" & TitleCss & """></td>"
Response.Write " <td height=""28""><font color=""#FF0000"">已定义的CSS ,要有一定的网页设计基础</font></td>"
Response.Write " </tr>"
Response.Write " </table>"
Response.Write " </FIELDSET></td>"
Response.Write " </tr>"
Response.Write " </table>"
Response.Write " <br>"
Response.Write " <table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
Response.Write " <tr>"
Response.Write " <td> </td>"
Response.Write " <td width=""100""> <div align=""center"">"
Response.Write " <input name=""SubmitBtn"" type=""button"" onClick=""InsertScriptFun()"" id=""SubmitBtn"" value="" 确 定 "">"
Response.Write " </div></td>"
Response.Write " <td width=""100""> <div align=""center"">"
Response.Write " <input type=""button"" onClick=""window.close();"" name=""Submit2"" value="" 取 消 "">"
Response.Write " </div></td>"
Response.Write " <td> </td>"
Response.Write " </tr>"
Response.Write " </table>"
Response.Write " <div align=""left""><br>"
Response.Write " <table width=""92%"" height=""15"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"
Response.Write " <tr>"
Response.Write " <td height=""25""><strong>附加说明：</strong>1<strong>.</strong>此标签作用：根据下载关键字列出相关的下载"
Response.Write " <a href=""#"" onclick=""javascript:open('../View/ViewCorrelativeDownLoad.htm','new','left=250,top=50,width=450,height=280')"">点此预览</a></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td height=""25""> 2.作用范围：下载内容页</td>"
Response.Write " </tr>"
Response.Write " </table>"
Response.Write " </div>"
Response.Write " </form>"
Response.Write "</div>"
Response.Write "</body>"
Response.Write "</html>"
End Sub
End Class
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -