您好,欢迎来到点滴吧! 手机版
点滴吧www.diandiba.com
记录点点滴滴,尽在点滴吧
  • 文章
  • 文章
  • 特效
  • 素材
  • 景点
您现在的位置:首页 > 动易 > 文章正文
为动易的自定义字段加上HTML编辑器
更新时间:2015/6/18 11:44:43   点击:3374次

1。找到后台Admin_CommonCode_Content.asp这个文件 。在最下面,有自定义字段,我们这里把多行文本加上编辑器。自定义字段有两个,上面是添加,下面是修改,两个同时改就行了。


2。下载这个编辑器代码


Response.Write "<textarea & FieldName & "' cols='80' rows='10' style='display:none; ' >" & strValue & "</textarea>" & strEnableNull

Response.Write "<iframe src='/a/ewebeditor.htm?id=" & FieldName & "&style=coolblue' frameborder='0' scrolling='no' width='500' HEIGHT='350'></iframe>" & strEnableNull


注意路径,ID后面的是字段名,可以直接写字段名。


3。到此,就可以把编辑器数据写入到数据库了,然后就是显示,正常的自定义字段显示,会被过虑,需要修改Include


文件夹下面的 PowerEasy.Product.asp 在这里搜索一下,MY 会直接到达。


If InStr(strHtml, "{$MY_") > 0 Then

        Dim rsField

        Set rsField = Conn.Execute("select * from PE_Field where ChannelID=-5 or ChannelID=" & ChannelID & "")

        Do While Not rsField.EOF

            strHtml = PE_Replace(strHtml, rsField("LabelName"), PE_HTMLEncode(rsProduct(Trim(rsField("FieldName")))))

            rsField.MoveNext

        Loop

        Set rsField = Nothing

    End If   


红色的字是HTML过虑 ,把这个字去掉,就可以了。


得到


If InStr(strHtml, "{$MY_") > 0 Then

        Dim rsField

        Set rsField = Conn.Execute("select * from PE_Field where ChannelID=-5 or ChannelID=" & ChannelID & "")

        Do While Not rsField.EOF

            strHtml = PE_Replace(strHtml, rsField("LabelName"), rsProduct(Trim(rsField("FieldName"))))

            rsField.MoveNext

        Loop

        Set rsField = Nothing

End If


要注意,我是用的商城模块,如果你用其他模块,方法一样。

相关文章
导航分类
热门文章
关于我们| 联系我们| 免责声明| 网站地图|
CopyRight 2012-2015 www.diandiba.com - 点滴吧 All Rights Reserved
滇ICP备09005765号-2