editor_customlistlabel.asp

江西旅行网整站源码下载 希望对大家有用 经过测试 安全可用

    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$SoftVersion}')"" title=""软件版本"">{$SoftVersion}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$SoftProperty}')"" title=""软件属性（固顶、推荐等）"">{$SoftProperty}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$SoftSize}')"" title=""软件大小"">{$SoftSize}</a></td>" & vbCrLf
    Response.write "          </tr>" & vbCrLf
    Response.write "          <tr>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$UpdateTime}')"" title=""更新时间"">{$UpdateTime}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$CopyrightType}')"" title=""版权类型"">{$CopyrightType}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$Stars}')"" title=""评分等级"">{$Stars}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$SoftIntro}')"" title=""软件简介"">{$SoftIntro}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$OperatingSystem}')"" title=""运行平台"">{$OperatingSystem}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$SoftType}')"" title=""软件类型"">{$SoftType}</a></td>" & vbCrLf
    Response.write "          </tr>" & vbCrLf
    Response.write "          <tr>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$Hits}')"" title=""点击数"">{$Hits}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$DayHits}')"" title=""显示每日点击数"">{$DayHits}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$WeekHits}')"" title=""显示每周点击数"">{$WeekHits}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$MonthHits}')"" title=""显示每月点击数"">{$MonthHits}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$SoftPoint}')"" title=""显示下载软件时所需的点数"">{$SoftPoint}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$SoftAuthor}')"" title=""软件作者"">{$SoftAuthor}</a></td>" & vbCrLf
    Response.write "          </tr>" & vbCrLf
    Response.write "          <tr>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$SoftLanguage}')"" title=""语言种类"">{$SoftLanguage}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$AuthorEmail}')"" title=""作者Email"">{$AuthorEmail}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$DemoUrl}')"" title=""软件演示地址"">{$DemoUrl}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$RegUrl}')"" title=""软件注册地址"">{$RegUrl}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$SoftPic(130,90)}')"" title=""显示图片软件，width为图片宽度，height为图片高度"">{$SoftPic(130,90)}</a></td>" & vbCrLf
    Response.write "           <td valign='top'></td>" & vbCrLf
    Response.write "          </tr>" & vbCrLf
ElseIf ModuleType = 3 Then
    Response.write "          <tr>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$PhotoID}')"" title=""图片ID"">{$PhotoID}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$PhotoUrl}')"" title=""图片地址"">{$PhotoUrl}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$UpdateTime}')"" title=""更新时间"">{$UpdateTime}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$Stars}')"" title=""评分等级"">{$Stars}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$Author}')"" title=""图片作者"">{$Author}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$CopyFrom}')"" title=""图片来源"">{$CopyFrom}</a></td>" & vbCrLf
    Response.write "          </tr>" & vbCrLf
    Response.write "          <tr>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$Hits}')"" title=""点击数"">{$Hits}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$Inputer}')"" title=""图片的录入作者"">{$Inputer}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$Editor}')"" title=""图片的编辑者"">{$Editor}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$InfoPoint}')"" title=""查看点数"">{$InfoPoint}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$Keyword}')"" title=""关键字"">{$Keyword}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$Keyword}')"" title=""关键字"">{$Keyword}</a></td>" & vbCrLf
    Response.write "          </tr>" & vbCrLf
    Response.write "          <tr>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$Property}')"" title=""图片属性（固顶，热门，推荐等）"">{$Property}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$Top}')"" title=""显示固顶"">{$Top}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$Elite}')"" title=""显示推荐"">{$Elite}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$Hot}')"" title=""显示热门"">{$Hot}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$PhotoName}')"" title=""显示图片名称"">{$PhotoName}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$PhotoName}')"" title=""显示图片名称"">{$PhotoName}</a></td>" & vbCrLf
    Response.write "          </tr>" & vbCrLf
    Response.write "          <tr>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$PhotoIntro}')"" title=""显示图片介绍"">{$PhotoIntro}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$PhotoThumb}')"" title=""显示图片的缩略图"">{$PhotoThumb}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$DayHits}')"" title=""显示当日点击数"">{$DayHits}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$WeekHits}')"" title=""显示本周点击数"">{$WeekHits}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$MonthHits}}')"" title=""显示本月点击数"">{$MonthHits}</a></td>" & vbCrLf
    Response.write "           <td valign='top'></td>" & vbCrLf
    Response.write "          </tr>" & vbCrLf
ElseIf ModuleType = 5 Then
    Response.write "         <tr>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$ClassUrl}')"" title=""栏目链接"">{$ClassUrl}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$ClassID}')"" title=""栏目ID"">{$ClassID}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$ClassName}')"" title=""栏目名称"">{$ClassName}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$ParentDir}')"" title=""父目录"">{$ParentDir}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$ClassDir}')"" title=""栏目目录"">{$ClassDir}</a></td>" & vbCrLf
    Response.write "          </tr>" & vbCrLf
    Response.write "          <tr>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$ProductUrl}')"" title=""商品链接"">{$ProductUrl}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$ProductID}')"" title=""商品ID"">{$ProductID}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$ProductNum}')"" title=""商品数"">{$ProductNum}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$ProductModel}')"" title=""商品型号"">{$ProductModel}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$ProductStandard}')"" title=""商品规格"">{$ProductStandard}</a></td>" & vbCrLf
    Response.write "          </tr>" & vbCrLf
    Response.write "          <tr>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$Top}')"" title=""固顶"">{$Top}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$Elite}')"" title=""推荐"">{$Elite}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$Hot}')"" title=""热门"">{$Hot}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$UpdateTime}')"" title=""更新时间"">{$UpdateTime}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$Stars}')"" title=""评分等级"">{$Stars}</a></td>" & vbCrLf
    Response.write "          </tr>" & vbCrLf
    Response.write "          <tr>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$ProductName}')"" title=""商品名称"">{$ProductName}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$ProductTypeName}')"" title=""商品类别"">{$ProductTypeName}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$ProductIntro}')"" title=""商品简介"">{$ProductIntro}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$ProductExplain}')"" title=""显示商品说明"">{$ProductExplain}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$ProductThumb(130,90)}')"" title=""显示商品图片，width为图片宽度，height为图片高度"">{$ProductThumb(130,90)}</a></td>" & vbCrLf
    Response.write "          </tr>" & vbCrLf
    Response.write "          <tr>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$BeginDate}')"" title=""显示优惠开始日期"">{$BeginDate}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$EndDate}')"" title=""显示优惠结束日期"">{$EndDate}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$Discount}')"" title=""降价折扣"">{$Discount}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$LimitNum}')"" title=""限够数量"">{$LimitNum}</a></td>" & vbCrLf
    Response.write "          </tr>" & vbCrLf
    Response.write "          <tr>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$Price_Original}')"" title=""原始零售价"">{$Price_Original}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$Price_Market}')"" title=""显示市场价"">{$Price_Market}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$Price_Member}')"" title=""显示会员价"">{$Price_Member}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$Price}')"" title=""显示商城价"">{$Price}</a></td>" & vbCrLf
    Response.write "          </tr>" & vbCrLf
    Response.write "          <tr>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$ProducerName}')"" title=""生 产 商"">{$ProducerName}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$TrademarkName}')"" title=""品牌商标"">{$TrademarkName}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$PresentExp}')"" title=""购物积分"">{$PresentExp}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$PresentPoint}')"" title=""赠送的点数"">{$PresentPoint}</a></td>" & vbCrLf
    Response.write "          </tr>" & vbCrLf
    Response.write "          <tr>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$PresentMoney}')"" title=""返还的现金券"">{$PresentMoney}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$PointName}')"" title=""点券的名称"">{$PointName}</a></td>" & vbCrLf
    Response.write "           <td valign='top'><a href=""javascript:insertLabel('{$PointUnit}')"" title=""点券的单位"">{$PointUnit}</a></td>" & vbCrLf
    Response.write "           <td valign='top'></td>" & vbCrLf
    Response.write "          </tr>" & vbCrLf

End If
Response.write "          <tr>" & vbCrLf
Set rs = Conn.Execute("select * from PE_Field where ChannelID=" & ChannelID & "")
If rs.bof And rs.EOF Then
Else
    Do While Not rs.EOF
        Response.write "    <td valign='top'><a href=""javascript:insertLabel('" & rs("LabelName") & "')"" title=""" & rs("title") & """>" & rs("LabelName") & "</a></td>" & vbCrLf
        rs.movenext
    Loop
End If
Set rs = Nothing
Response.write "          </tr>" & vbCrLf
Response.write "        </table>" & vbCrLf
Response.write "    </td>" & vbCrLf
Response.write "    </tr>" & vbCrLf
Response.write "    <tr class='tdbg'>" & vbCrLf
Response.write "        <td width=""130""  class='tdbg5' align=right height=25><STRONG>请输入循环标签Html代码：</STRONG>" & vbCrLf
Response.write "        <br>" & vbCrLf

If TemplateID <> 0 Then
    sql = "select * from PE_Template where TemplateID=" & TemplateID
    Set rs = Conn.Execute(sql)
    If rs.bof And rs.EOF Then
        Template = ""
    Else
        Dim regEx, Match, Matches
        Dim StrBody, arrContent
        Set regEx = New RegExp
        regEx.IgnoreCase = True
        regEx.Global = True
            
        Template = rs("TemplateContent")
        If InStr(Template, "<body") > 0 Then
            regEx.Pattern = "(\<body)(.[^\<]*)(\>)"
            Set Matches = regEx.Execute(Template)
            For Each Match In Matches
                StrBody = Match.Value
            Next
        Else
            StrBody = "<body>"
        End If
        arrContent = Split(Template, StrBody)
        If UBound(arrContent) <> 0 Then
            Template = Replace(Replace(arrContent(1), "</body>", ""), "</html>", "")
        End If
        Set regEx = Nothing
    End If
    rs.Close
    Set rs = Nothing
End If

Dim rs, sql
sql = "select * from PE_Template where ChannelID=0 and TemplateType=101"
Set rs = Conn.Execute(sql)
Response.write "<select name='TemplateID' onChange='document.myform.submit();'>" & vbCrLf
If rs.bof And rs.EOF Then
    Response.write "<option value=""0"" selected>还没有列表模板！</option> " & vbCrLf
Else
    Response.write "<option value=""0"" selected>选择调用的模板样式</option>" & vbCrLf
    Do While Not rs.EOF
        Response.write "<option value=" & rs("TemplateID") & ">" & rs("TemplateName") & "</option>" & vbCrLf
        rs.movenext
    Loop
End If
Response.write "</select>" & vbCrLf
rs.Close
Set rs = Nothing

Response.write "        </td>" & vbCrLf

Response.write "        <td>" & vbCrLf
Response.write "        <textarea NAME='Content'  style='width:550px;height:200px'>" & Template & "</TEXTAREA>     " & vbCrLf
'Response.Write "        <textarea name='Content' id='Content' style='display:none' ></textarea>"
'Response.Write "        <iframe ID='editor' src='../editor.asp?ChannelID=1&ShowType=2&tContentid=Content' frameborder='1' scrolling='no' width='550' height='280' ></iframe>"
Response.write "        </td>" & vbCrLf
Response.write "    </tr>" & vbCrLf
Response.write "    <tr class='tdbg'>" & vbCrLf
Response.write "      <td height='10' colspan='2' align='center'>" & vbCrLf
Response.write "        <input name='Title' type='hidden' id='Title' value='" & Title & "'>" & vbCrLf
Response.write "        <input name='Action' type='hidden' id='Action' value='" & Action & "'>" & vbCrLf
Response.write "        <input name='editLabel' type='hidden' id='editLabel' value='" & editLabel & "'>" & vbCrLf
Response.write "        <input name='dChannelID' type='hidden' id='dChannelID' value='" & dChannelID & "'> " & vbCrLf