📄 getsupplylist.asp
字号:
.Write "</select>"
.Write " </td>"
.Write " <td width=""50%"" height=""24"">"
.Write "<div id=""TableArea"""
If PrintType=2 Then .Write "style=""display:none"""
.Write "><font color=blue>请选择系统支持的输出格式</font></div><span id=""DivArea"""
If PrintType<>2 and PrintType<>4 Then .Write "style=""display:none"""
.Write "><div id=" <input name=""divid"" type=""text"" value=""" & Divid &""" id=""divid"" size=""6"" style=""border-top-width: 0px;border-right-width: 0px;border-bottom-width: 1px;border-left-width:0px;border-bottom-color: #000000"" class='textbox' title=""DIV调用的ID号，必须在CSS中预先定义且不能为空!"">" class=" <input name=""divclass"" class='textbox' type=""text"" value=""" & Divclass &""" id=""divclass"" size=""6"" style=""border-top-width: 0px; border-right-width: 0px;border-bottom-width: 1px;border-left-width: 0px;border-bottom-color: #000000"" title=""DIV调用的Class名称，请在CSS中预先定义,可以为空!""> "><br> <ul id=" <input value=""" & ulid &""" name=""ulid"" type=""text"" id=""ulid"" class='textbox' size=""6"" style=""border-top-width: 0px;border-right-width: 0px;border-bottom-width: 1px;border-left-width: 0px;border-bottom-color: #000000"" title=""生成ul调用的ID，请在CSS中预先定义,可以为空!""> " class=" <input class='textbox' value=""" & ulclass &""" name=""ulclass"" type=""text"" id=""ulclass"" size=""6"" style=""border-top-width: 0px;border-right-width: 0px;border-bottom-width: 1px;border-left-width: 0px;border-bottom-color: #000000"" title=""生成ul调用的class名称，请在CSS中预先定义。可以为空!"">"><br><li id=" <input value=""" & liid &""" name=""liid"" type=""text"" id=""liid"" size=""6"" class='textbox' style=""border-top-width: 0px; border-right-width: 0px;border-bottom-width: 1px;border-left-width: 0px;border-bottom-color: #000000"" title=""生成li调用的ID，请在CSS中预先定义。可以为空!"">" class=" <input value=""" & liclass &""" name=""liclass"" class='textbox' type=""text"" id=""liclass"" size=""6"" style=""border-top-width: 0px;border-right-width: 0px;border-bottom-width: 1px;border-left-width: 0px;border-bottom-color: #000000"" title=""生成li调用的class名称，请在CSS中预先定义。可以为空!""> "></div></td>"
.Write " </tr>"
.Write " <tr id=""ClassArea"" class=tdbg>"
.Write " <td width=""50%"" height=""24"">所属栏目"
.Write " <select class=""textbox"" style=""width:70%;"" name=""ClassList"" id=""select"" onChange=""SetLabelFlag(this)"">"
.Write " <option selected value=""-1"" style=""color:red"">- 当前栏目(通用)-</option>"
If ClassID = "0" Then
.Write ("<option value=""0"" selected>- 不指定栏目 -</option>")
Else
.Write ("<option value=""0"">- 不指定栏目 -</option>")
End If
.Write Replace(KS.LoadSelectClass(ChannelID),"{ClassID=" & ClassID & "}","selected")
.Write "</select>"
.Write " </td>"
.Write " <td width=""50%"" height=""24"">"
.Write " <input name=""RecommendTF"" type=""checkbox"" value=""true"""
If RecommendTF = true Then .Write (" Checked")
.Write ">仅显示推荐" & KS.C_S(ChannelID,3) & ""
.Write " </td>"
.Write " </tr>"
.Write " <tr id=""ClassArea"" class=tdbg>"
.Write " <td width=""50%"" height=""24"">交易类型 "
.Write KS.ReturnGQType(TypeID,1)
.Write " </td>"
.Write " <td width=""50%"" height=""24"">显示样式"
.Write " <select class='textbox' name=""ShowStyle"" style=""width:70%;"">"
.Write KS.ReturnGQStyle(ShowStyle)
.Write " </select></td>"
.Write " </tr>"
.Write " <tr class=tdbg>"
.Write " <td height=""24"" width=""50%"">排序方法"
.Write " <select style=""width:70%;"" class='textbox' name=""InfoSort"">"
If InfoSort = "ID Desc" Then
.Write ("<option value='ID Desc' selected>" & KS.C_S(ChannelID,3) & "ID(降序)</option>")
Else
.Write ("<option value='ID Desc'>" & KS.C_S(ChannelID,3) & "ID(降序)</option>")
End If
If InfoSort = "ID Asc" Then
.Write ("<option value='ID Asc' selected>" & KS.C_S(ChannelID,3) & "ID(升序)</option>")
Else
.Write ("<option value='ID Asc'>" & KS.C_S(ChannelID,3) & "ID(升序)</option>")
End If
If InfoSort = "AddDate Asc" Then
.Write ("<option value='AddDate Asc' selected>更新时间(升序)</option>")
Else
.Write ("<option value='AddDate Asc'>更新时间(升序)</option>")
End If
If InfoSort = "AddDate Desc" Then
.Write ("<option value='AddDate Desc' selected>更新时间(降序)</option>")
Else
.Write ("<option value='AddDate Desc'>更新时间(降序)</option>")
End If
If InfoSort = "Hits Asc" Then
.Write ("<option value='Hits Asc' selected>点击数(升序)</option>")
Else
.Write ("<option value='Hits Asc'>点击数(升序)</option>")
End If
If InfoSort = "Hits Desc" Then
.Write ("<option value='Hits Desc' selected>点击数(降序)</option>")
Else
.Write ("<option value='Hits Desc'>点击数(降序)</option>")
End If
.Write " </select></td>"
.Write " <td height=""24"">" & KS.ReturnOpenTypeStr(OpenType) & "</td>"
.Write " </tr>"
.Write " <tr class=tdbg>"
.Write " <td width=""50%"" height=""24"">" & KS.C_S(ChannelID,3) & "数量"
.Write " <input name=""InfoListNumber"" class=""textbox"" type=""text"" id=""InfoListNumber2"" style=""width:70%;"" onBlur=""CheckNumber(this,'" & KS.C_S(ChannelID,3) & "数量');"" value=""" & InfoListNumber & """></td>"
.Write " <td width=""50%"" height=""24"">排列列数"
.Write " <input type=""text"" class=""textbox"" onBlur=""CheckNumber(this,'排列列数');"" style=""width:70%;"" value=""" & ColNumber & """ name=""ColNumber"">"
.Write " </tr>"
.Write " <tr class=tdbg>"
.Write " <td width=""50%"" height=""24"">标题字数"
.Write " <input name=""TitleLen"" class=""textbox"" onBlur=""CheckNumber(this,'标题字数');"" type=""text"" style=""width:70%;"" value=""" & TitleLen & """>"
.Write " </td>"
.Write " <td width=""50%"" height=""24"">介绍字数"
.Write " <input name=""ContentLen"" class=""textbox"" type=""text"" id=""ContentLen2"" style=""width:70%;"" onBlur=""CheckNumber(this,'介绍字数');"" value=""" & ContentLen & """></td>"
.Write " </td>"
.Write " </tr>"
.Write " <tr class=tdbg>"
.Write " <td width=""50%"" height=""24"">图片宽高"
.Write " 宽度<input name=""PicWidth"" class=""textbox"" onBlur=""CheckNumber(this,'图片宽度');"" type=""text"" size=""6"" value=""" & PicWidth & """>px 高度<input type=""text"" class=""textbox"" onBlur=""CheckNumber(this,'图片高度');"" size=""6"" value=""" & PicHeight & """ name=""PicHeight"">px "
.Write " </td>"
.Write " <td width=""50%"" height=""20""> 图片边框"
.Write " <select name=""ThumbsBorderType"" class=""textbox"" onchange=""SetThumbsBorder()"">"
If LabelID = "" Or CStr(ThumbsBorderType) = "0" Then
.Write ("<option value=""0"" selected>颜色</option>")
.Write ("<option value=""1"">透明</option>")
Else
.Write ("<option value=""0"">颜色</option>")
.Write ("<option value=""1"" selected>透明</option>")
End If
.Write " </select>"
If LabelID = "" Or CStr(ThumbsBorderType) = "0" Then
.Write ("<span align=""left"" id=""ThumbsBorderColor""> ")
.Write ("<input type=""text"" class=""textbox"" name=""ColorThumbsBorder"" style=""width:120;"" value=""" & ThumbsBorder & """>")
.Write (" <img border=0 id=""ColorThumbsBorderShow"" src=""../../images/rect.gif"" style=""cursor:pointer;background-Color:" & ThumbsBorder & ";"" onClick=""Getcolor(this,'../SelectColor.asp','ColorThumbsBorder');"" title=""选取颜色"">")
.Write ("</span>")
.Write ("<span align=""left"" id=ThumbsBorderPic style=""display:none""> ")
.Write ("<input type=""text"" class=""textbox"" readonly style=""width:80;"" id=""PicThumbsBorder"" name=""PicThumbsBorder"">")
.Write ("<input class='button' type=""button"" onClick=""OpenThenSetValue('../SelectPic.asp?CurrPath=" & CurrPath & "&ShowVirtualPath=true',550,290,window,document.myform.PicThumbsBorder);"" name=""Submit3"" value=""选择..."">")
.Write (" <span style=""cursor:hand;color:green;"" onclick=""javascript:document.myform.PicThumbsBorder.value='';"" onmouseover=""this.style.color='red'"" onMouseOut=""this.style.color='green'"">清除</span>")
.Write ("</span>")
Else
.Write ("<span align=""left"" id=""ThumbsBorderColor"" style=""display:none""> ")
.Write ("<input type=""text"" class=""textbox"" name=""ColorThumbsBorder"" style=""width:120;""> ")
.Write (" <img border=0 id=""ColorThumbsBorderShow"" src=""../../images/rect.gif"" style=""cursor:pointer;background-Color:" & ThumbsBorder & ";"" onClick=""Getcolor(this,'../SelectColor.asp','ColorThumbsBorder');"" title=""选取颜色"">")
.Write ("</span>")
.Write ("<span align=""left"" id=""ThumbsBorderPic"">")
.Write ("<input type=""text"" class=""textbox"" readonly style=""width:80;"" id=""PicThumbsBorder"" name=""PicThumbsBorder"" value=""" & ThumbsBorder & """>")
.Write ("<input class='button' type=""button"" onClick=""OpenThenSetValue('../SelectPic.asp?CurrPath=" & CurrPath & "&ShowVirtualPath=true',550,290,window,document.myform.PicThumbsBorder);"" name=""Submit3"" value=""选择..."">")
.Write (" <span style=""cursor:hand;color:green;"" onclick=""javascript:document.myform.PicThumbsBorder.value='';"" onmouseover=""this.style.color='red'"" onMouseOut=""this.style.color='green'"">清除</span>")
.Write ("</span>")
End If
.Write " </td>"
.Write " </tr>"
.Write " <tr class=tdbg>"
.Write " <td colspan=2 height=""30"">附加显示 "
If ShowClassName = True Then
.Write ("<input type=""checkbox"" value=""true"" name=""ShowClassName"" checked>显示栏目名称")
Else
.Write ("<input type=""checkbox"" value=""true"" name=""ShowClassName"">显示栏目名称")
End If
.Write " "
If ShowGQType = True Then
.Write ("<input type=""checkbox"" value=""true"" name=""ShowGQType"" checked>显示交易类别")
Else
.Write ("<input type=""checkbox"" value=""true"" name=""ShowGQType"">显示交易类别")
End If
.Write " "
If cbool(ShowNewFlag) = True Then
.Write ("<input type=""checkbox"" value=""true"" name=""ShowNewFlag"" checked>最新" & KS.C_S(ChannelID,3) & "标志")
Else
.Write ("<input type=""checkbox"" value=""true"" name=""ShowNewFlag"">最新" & KS.C_S(ChannelID,3) & "标志")
End If
.Write " </td>"
.Write " </tr>"
.Write " <tr class=tdbg>"
.Write " <td width=""50%"" height=""24"">导航类型"
.Write " <select name=""NavType"" style=""width:70%;"" class='textbox' onchange=""SetNavStatus()"">"
If LabelID = "" Or CStr(NavType) = "0" Then
.Write ("<option value=""0"" selected>文字导航</option>")
.Write ("<option value=""1"">图片导航</option>")
Else
.Write ("<option value=""0"">文字导航</option>")
.Write ("<option value=""1"" selected>图片导航</option>")
End If
.Write " </select></td>"
.Write " <td width=""50%"" height=""24"">"
If LabelID = "" Or CStr(NavType) = "0" Then
.Write ("<div align=""left"" id=""NavWord""> ")
.Write ("<input type=""text"" class=""textbox"" name=""TxtNavi"" style=""width:70%;"" value=""" & Navi & """> 支持HTML语法")
.Write ("</div>")
.Write ("<div align=""left"" id=NavPic style=""display:none""> ")
.Write ("<input type=""text"" class=""textbox"" readonly style=""width:120;"" id=""NaviPic"" name=""NaviPic"">")
.Write ("<input class='button' type=""button"" onClick=""OpenThenSetValue('../SelectPic.asp?CurrPath=" & CurrPath & "&ShowVirtualPath=true',550,290,window,document.myform.NaviPic);"" name=""Submit3"" value=""选择图片..."">")
.Write (" <span style=""cursor:hand;color:green;"" onclick=""javascript:document.myform.NaviPic.value='';"" onmouseover=""this.style.color='red'"" onMouseOut=""this.style.color='green'"">清除</span>")
.Write ("</div>")
Else
.Write ("<div align=""left"" id=""NavWord"" style=""display:none""> ")
.Write ("<input type=""text"" class=""textbox"" name=""TxtNavi"" style=""width:70%;""> 支持HTML语法")
.Write ("</div>")
.Write ("<div align=""left"" id=NavPic> ")
.Write ("<input type=""text"" class=""textbox"" readonly style=""width:120;"" id=""NaviPic"" name=""NaviPic"" value=""" & Navi & """>")
.Write ("<input class='button' type=""button"" onClick=""OpenThenSetValue('../SelectPic.asp?CurrPath=" & CurrPath & "&ShowVirtualPath=true',550,290,window,document.myform.NaviPic);"" name=""Submit3"" value=""选择图片..."">")
.Write (" <span style=""cursor:hand;color:green;"" onclick=""javascript:document.myform.NaviPic.value='';"" onmouseover=""this.style.color='red'"" onMouseOut=""this.style.color='green'"">清除</span>")
.Write ("</div>")
End If
.Write " </td>"
.Write " </tr>"
.Write " <tr class=tdbg id=""MoreLinkArea"""
' If RecommendTF <> "0" Then .Write (" style=""display:none""")
.Write ">"
.Write " <td width=""50%"" height=""24"">更多链接"
.Write " <select name=""MoreLinkType"" style=""width:70%;"" class='textbox' onchange=""SetMoreLinkStatus()"">"
If LabelID = "" Or CStr(MoreLinkType) = "0" Then
.Write ("<option value=""0"" selected>文字链接</option>")
.Write ("<option value=""1"">图片链接</option>")
Else
.Write ("<option value=""0"">文字链接</option>")
.Write ("<option value=""1"" selected>图片链接</option>")
End If
.Write " </select></td>"
.Write " <td width=""50%"" height=""24"">"
If LabelID = "" Or CStr(MoreLinkType) = "0" Then
.Write ("<div align=""left"" id=""LinkWord""> ")
.Write (" <input type=""text"" class=""textbox"" name=""MoreLinkWord"" style=""width:70%;"" value=""" & MoreLink & """>")
.Write ("</div>")
.Write ("<div align=""left"" id=""LinkPic"" style=""display:none""> ")
.Write ("<input type=""text"" class=""textbox"" readonly style=""width:120;"" id=""MoreLinkPic"" name=""MoreLinkPic"">")
.Write ("<input class='button' type=""button"" onClick=""OpenThenSetValue('../SelectPic.asp?CurrPath=" & CurrPath & "&ShowVirtualPath=true',550,290,window,document.myform.MoreLinkPic);"" name=""Submit3"" value=""选择图片..."">")
.Write (" <span style=""cursor:hand;color:green;"" onclick=""javascript:document.myform.MoreLinkPic.value='';"" onmouseover=""this.style.color='red'"" onMouseOut=""this.style.color='green'"">清除</span>")
.Write ("</div>")
Else
.Write ("<div align=""left"" id=""LinkWord"" style=""display:none""> ")
.Write ("<input type=""text"" class=""textbox"" name=""MoreLinkWord"" style=""width:70%;"">")
.Write ("</div>")
.Write ("<div align=""left"" id=""LinkPic""> ")
.Write ("<input type=""text"" class=""textbox"" readonly style=""width:120;"" id=""MoreLinkPic"" name=""MoreLinkPic"" value=""" & MoreLink & """>")
.Write ("<input class='button' type=""button"" onClick=""OpenThenSetValue('../SelectPic.asp?CurrPath=" & CurrPath & "&ShowVirtualPath=true',550,290,window,document.myform.MoreLinkPic);"" name=""Submit3"" value=""选择图片..."">")
.Write (" <span style=""cursor:hand;color:green;"" onclick=""javascript:document.myform.MoreLinkPic.value='';"" onmouseover=""this.style.color='red'"" onMouseOut=""this.style.color='green'"">清除</span>")
.Write ("</div>")
End If
.Write " </td>"
.Write " </tr>"
.Write " <tr class=tdbg>"
.Write " <td height=""24"" colspan=""2"">分隔图片"
.Write " <input name=""SplitPic"" class=""textbox"" type=""text"" id=""SplitPic"" style=""width:61%;"" value=""" & SplitPic & """ readonly>"
.Write " <input class='button' name=""SubmitPic"" class='button' onClick=""OpenThenSetValue('../SelectPic.asp?CurrPath=" & CurrPath & "&ShowVirtualPath=true',550,290,window,document.myform.SplitPic);"" type=""button"" id=""SubmitPic2"" value=""选择图片..."">"
.Write " <span style=""cursor:hand;color:green;"" onclick=""javascript:document.myform.SplitPic.value='';"" onmouseover=""this.style.color='red'"" onMouseOut=""this.style.color='green'"">清除</span>"
.Write " <div align=""left""> </div></td>"
.Write " </tr>"
.Write " <tr class=tdbg>"
.Write " <td height=""24"">日期格式"
.Write " <select class='textbox' style=""width:70%;"" name=""DateRule"" id=""select2"">"
.Write KS.ReturnDateFormat(DateRule)
.Write " </select> </td>"
.Write " <td height=""24"">"
.Write " <div align=""left"">标题样式<input name=""TitleCss"" class=""textbox"" type=""text"" id=""TitleCss"" style=""width:70%;"" value=""" & TitleCss & """>"
.Write " </div></td>"
.Write " </tr>"
.Write " <tr class=tdbg>"
.Write " <td height='35' align='center' colspan=2>"
.Write " <input name=""SubmitBtn"" class='button' type=""button"" onClick=""InsertScriptFun()"" id=""SubmitBtn"" value="" 确 定 ""> <input type=""button"" onClick=""window.close();"" name=""Submit2"" class='button' value="" 取 消 "">"
.Write " </td>"
.Write " </tr>"
.Write " </table>"
.Write " </form>"
.Write "</div>"
.Write "</body>"
.Write "</html>"
End With
End Sub
End Class
%>
<%
'==================================================
'邮箱: zxzyw@126.com
'网站: www.zxzyw.cn
'==================================================
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -