📄 getsupplylist.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<!--#include file="../../../Conn.asp"-->
<!--#include file="../../../KS_Cls/KS.PublicCls.asp"-->
<!--#include file="../Session.asp"-->
<%
Dim KSCls
Set KSCls = New GetSupplyList
KSCls.Kesion()
Set KSCls = Nothing
Class GetSupplyList
Private KS
Private Sub Class_Initialize()
Set KS=New PublicCls
End Sub
Private Sub Class_Terminate()
Call CloseConn()
Set KS=Nothing
End Sub
Public Sub Kesion()
Dim TempClassList, InstallDir, CurrPath, FolderID, LabelContent, L_C_A, Action, LabelID, Str, Descript, LabelFlag, ThumbsBorderType, ThumbsBorder
Dim ChannelID,ClassID, ShowClassName, OpenType, RecommendTF, InfoListNumber, ContentLen, TitleLen, InfoSort, ColNumber, ShowGQType, NavType, Navi, MoreLinkType, MoreLink, SplitPic, DateRule, DateAlign, TitleCss, ShowNewFlag,TypeID,ShowStyle,PicWidth,PicHeight, PrintType,DivID,DivClass,UlID,UlClass,LiID,LiClass
FolderID = Request("FolderID")
CurrPath = KS.Setting(91)
InstallDir = KS.Setting(3)
CurrPath = Left(CurrPath, Len(CurrPath) - 1)
If InstallDir = "/" Then CurrPath = "/" & CurrPath
ChannelID=KS.ChkCLng(Request("ChannelID"))
If ChannelID=0 Then ChannelID=8
With Response
'判断是否编辑
LabelID = Trim(Request.QueryString("LabelID"))
If LabelID = "" Then
ClassID = "0"
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
Conn.Close:Set Conn = Nothing
Set LabelRS = Nothing
.Write ("<Script>alert('参数传递出错!');window.close();</Script>")
Exit Sub
End If
LabelName = Replace(Replace(LabelRS("LabelName"), "{LB_", ""), "}", "")
FolderID = LabelRS("FolderID")
Descript = LabelRS("Description")
LabelContent = LabelRS("LabelContent")
LabelFlag = LabelRS("LabelFlag")
LabelRS.Close:Set LabelRS = Nothing
Conn.Close:Set Conn = Nothing
LabelContent = Replace(Replace(LabelContent, "{$GetSupplyList(", ""), ")}", "")
LabelContent = Replace(LabelContent, """", "") '注:去除左右双引号"
L_C_A = Split(LabelContent, ",")
ClassID = L_C_A(0)
TypeID = L_C_A(1)
ShowStyle=L_C_A(2)
PicWidth=L_C_A(3)
PicHeight=L_C_A(4)
ThumbsBorderType=L_C_A(5)
ThumbsBorder = L_C_A(6)
RecommendTF=Cbool(L_C_A(7))
OpenType = L_C_A(8)
InfoListNumber = L_C_A(9)
ContentLen = L_C_A(10)
TitleLen = L_C_A(11)
InfoSort = L_C_A(12)
ColNumber = L_C_A(13)
NavType = L_C_A(14)
Navi = L_C_A(15)
MoreLinkType = L_C_A(16)
MoreLink = L_C_A(17)
SplitPic = L_C_A(18)
DateRule = L_C_A(19)
TitleCss = L_C_A(20)
ShowClassName = CBool(L_C_A(21))
ShowGQType = CBool(L_C_A(22))
ShowNewFlag=L_C_A(23)
PrintType=L_C_A(24)
DivID=L_C_A(25)
divclass=L_C_A(26)
ulid=L_C_A(27)
ulclass=L_C_A(28)
LIID=L_C_A(29)
LIClass=L_C_A(30)
End If
If PrintType="" Then PrintType=1
If InfoListNumber = "" Then InfoListNumber = 10
If ContentLen = "" Then ContentLen = 200
If TitleLen = "" Then TitleLen = 30
If ColNumber = "" Then ColNumber = 1
If RecommendTF="" Then RecommendTF=False
If ShowNewFlag="" Then ShowNewFlag=False
If ShowGQType="" Then ShowGQType=True
If ShowStyle="" Then ShowStyle=1
If PicWidth="" Then PicWidth=130
If PicHeight="" Then PicHeight=90
.Write "<html>"
.Write "<head>"
.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"
.Write "<link href=""../ModeWindow.css"" rel=""stylesheet"">"
.Write "<script src=""../Common.js"" language=""JavaScript""></script>"
%>
<script>
function ChangeOutArea(Val)
{
if (Val==2||Val==4){
document.all.TableArea.style.display='none';
document.all.DivArea.style.display='';
}
else{
document.all.TableArea.style.display='';
document.all.DivArea.style.display='none';
}
}
function SetThumbsBorder()
{if (document.all.ThumbsBorderType.value==0)
{document.all.ThumbsBorderColor.style.display="";
document.all.ThumbsBorderPic.style.display="none";}
else
{
document.all.ThumbsBorderColor.style.display="none";
document.all.ThumbsBorderPic.style.display="";}
}
function SetStatus(Obj)
{
if (Obj.value=='0')
{
document.all.MoreLinkArea.style.display="";
}
else
document.all.MoreLinkArea.style.display="none";
}
function SetNavStatus()
{
if (document.all.NavType.value==0)
{document.all.NavWord.style.display="";
document.all.NavPic.style.display="none";}
else
{
document.all.NavWord.style.display="none";
document.all.NavPic.style.display="";}
}
function SetMoreLinkStatus()
{
if (document.all.MoreLinkType.value==0)
{document.all.LinkWord.style.display="";
document.all.LinkPic.style.display="none";}
else
{
document.all.LinkWord.style.display="none";
document.all.LinkPic.style.display="";}
}
function SetLabelFlag(Obj)
{
if (Obj.value=='-1')
document.myform.LabelFlag.value=1;
else
document.myform.LabelFlag.value=0;
}
function InsertScriptFun()
{ if (document.myform.LabelName.value=='')
{
alert('请输入标签名称');
document.myform.LabelName.focus();
return false
}
var ClassList=document.myform.ClassList.value;
var TypeID=document.myform.TypeID.value;
var ShowStyle=document.myform.ShowStyle.value;
var NavType=1;
var ShowClassName,ShowGQType,ShowNewFlag,RecommendTF;
var OpenType='"'+document.myform.OpenType.value+'"';
var InfoListNumber=document.myform.InfoListNumber.value;
var ContentLen=document.myform.ContentLen.value;
var TitleLen=document.myform.TitleLen.value;
var InfoSort='"'+document.myform.InfoSort.value+'"';
var ColNumber=document.myform.ColNumber.value;
var Nav,NavType=document.myform.NavType.value;
var MoreLink,MoreLinkType=document.myform.MoreLinkType.value;
var SplitPic='"'+document.myform.SplitPic.value+'"';
var DateRule=document.myform.DateRule.value;
var TitleCss='"'+document.myform.TitleCss.value+'"';
var PicWidth=document.myform.PicWidth.value;
var PicHeight=document.myform.PicHeight.value;
var PrintType=document.myform.PrintType.value;
var divid=document.myform.divid.value;
var divclass=document.myform.divclass.value;
var ulid=document.myform.ulid.value;
var ulclass=document.myform.ulclass.value;
var liid=document.myform.liid.value;
var liclass=document.myform.liclass.value;
var ThumbsBorder,ThumbsBorderType=document.myform.ThumbsBorderType.value;
if (ThumbsBorderType==0) ThumbsBorder='"'+document.myform.ColorThumbsBorder.value+'"'
else ThumbsBorder='"'+document.myform.PicThumbsBorder.value+'"';
if (document.myform.RecommendTF.checked)
RecommendTF = true
else
RecommendTF =false;
if (document.myform.ShowClassName.checked)
ShowClassName = true
else
ShowClassName =false;
if (document.myform.ShowGQType.checked)
ShowGQType= true
else
ShowGQType=false;
if (document.myform.ShowNewFlag.checked)
ShowNewFlag= true
else
ShowNewFlag=false;
if (InfoListNumber=='') InfoListNumber=10;
if (ContentLen=='') ContentLen=20
if (TitleLen=='') TitleLen=30;
if (ColNumber=='') ColNumber=1;
if (NavType==0) Nav='"'+document.myform.TxtNavi.value+'"'
else Nav='"'+document.myform.NaviPic.value+'"';
if (MoreLinkType==0) MoreLink='"'+document.myform.MoreLinkWord.value+'"'
else MoreLink='"'+document.myform.MoreLinkPic.value+'"';
document.myform.LabelContent.value= '{$GetSupplyList("'+ClassList+'",'+TypeID+','+ShowStyle+','+PicWidth+','+PicHeight+','+ThumbsBorderType+','+ThumbsBorder+','+RecommendTF+','+OpenType+','+InfoListNumber+','+ContentLen+','+TitleLen+','+InfoSort+','+ColNumber+','+NavType+','+Nav+','+MoreLinkType+','+MoreLink+','+SplitPic+','+DateRule+','+TitleCss+','+ShowClassName+','+ShowGQType+','+ShowNewFlag+','+PrintType+','+divid+','+divclass+','+ulid+','+ulclass+','+liid+','+liclass+')}';
document.myform.submit();
}
</script>
<%
.Write "</head>"
.Write "<body topmargin=""0"" leftmargin=""0"">"
.Write "<div align=""center"">"
.Write "<form method=""post"" name=""myform"" action=""AddLabelSave.asp"">"
.Write " <input type=""hidden"" name=""LabelContent"">"
.Write " <input type=""hidden"" name=""LabelFlag"" value=""" & LabelFlag & """>"
.Write " <input type=""hidden"" name=""Action"" value=""" & Action & """>"
.Write " <input type=""hidden"" name=""LabelID"" value=""" & LabelID & """>"
.Write " <input type=""hidden"" name=""FileUrl"" value=""GetSupplyList.asp"">"
.Write KS.ReturnLabelInfo(LabelName, FolderID, Descript)
.Write " <tr class=tdbg>"
.Write " <td width=""50%"" height=""24"">输出格式"
.Write " <select class='textbox' style='width:70%' name=""PrintType"" id=""PrintType"" onChange=""ChangeOutArea(this.options[this.selectedIndex].value);"">"
.Write " <option value=""1"""
If PrintType=1 Then .Write " selected"
.Write ">普通Table格式</option>"
.Write " <option value=""2"""
If PrintType=2 Then .Write " selected"
.Write ">DIV+CSS格式</option>"
.Write " <option value=""3"""
If PrintType=3 Then .Write " selected"
.Write ">Ajax->Table格式</option>"
.Write " <option value=""4"""
If PrintType=4 Then .Write " selected"
.Write ">Ajax->Div+CSS格式</option>"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -