动易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>
以实现简单的换行和分段。请问在字段这页页如何修改。请各位大侠赐教!万分感谢。
看来没人再研究这个东东了,也懒得研究这过去的东西了,唉 展开
我想把在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>
以实现简单的换行和分段。请问在字段这页页如何修改。请各位大侠赐教!万分感谢。
看来没人再研究这个东东了,也懒得研究这过去的东西了,唉 展开
1个回答
展开全部
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
要注意,我是用的商城模块,如果你用其他模块,方法一样。
。在最下面,有自定义字段,我们这里把多行文本加上编辑器。自定义字段有两个,上面是添加,下面是修改,两个同时改就行了。
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
要注意,我是用的商城模块,如果你用其他模块,方法一样。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询