为动易的自定义字段加上HTML编辑器

May 20, 2010 | tags | views
Comments 0

我是在后台加的。用的商城模块,同样可以加在会员中心。

 

1。找到后台 Admin_CommonCode_Content.asp 这个文件 。在最下面,有自定义字段,我们这里把多行文本加上编辑器。自定义字段有两个,上面是添加,下面是修改,两个同时改就行了。
2。下载这个编辑器代码 eWebEditor简体中文精简版,然后在多行文本的字段下面,加上编辑器,方法很简单,编辑器里有说明。
Response.Write "<textarea name='" & FieldName & "' cols='80' rows='10' style='display:none; ' >" & strValue & "</textarea>" & strEnableNull
Response.Write "<iframe ID='eWebEditor1' 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

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

 

我只测试了文本的颜色,大小,链接和图片,其他的没测试,不过,也应该一样的。


    相关文章:



发表评论:

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。