动易siteweaver6.8 自定义字段内容分段换行

因在做一个提案系统时,要答复委员的提案,并且委员还要回复一次,加上正文共需要三个字段内容能排版的格式。我利用动易siteweaver6.8自定义字段功能增加对内容的回复,...   因在做一个提案系统时,要答复委员的提案,并且委员还要回复一次,加上正文共需要三个字段内容能排版的格式。我利用动易siteweaver6.8 自定义字段功能增加对内容的回复,但设置的字段内容在正文中不能分段和换行,我想插入HTML组件,可是不知如何插入,请高手救急。
我想把在admin_Field.asp文件中第158行
if(FieldTypeValue=='3'){" & vbCrLf
Response.Write " trOptions.style.display='';" & vbCrLf
Response.Write " document.myform.DefaultValue.rows=1;" & vbCrLf
换成能排版内容的HTML组件形式,如添加新字段时,当选择字段类型为“3”时,如周添加新闻一样调用<iframe ID='editor' src='../editor.asp?ChannelID=" & ChannelID & "&ShowType=0&tContentid=Content' frameborder='1' scrolling='no' width='600' height='600' ></iframe>
以实现简单的换行和分段。请问在字段这页页如何修改。请各位大侠赐教!万分感谢。
看来没人再研究这个东东了,也懒得研究这过去的东西了,唉
展开
 我来答
百度网友0bd5e13
2014-10-07 · TA获得超过101个赞
知道答主
回答量:64
采纳率:0%
帮助的人:21.6万
展开全部
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

要注意,我是用的商城模块,如果你用其他模块,方法一样。
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式