论坛支持HTML的修改!

首先保证你添加了EWEBEDITOR编辑器(不添加其实也可以,添加了功能更强)
原帖的地址:http://www.joekoe.com/forum_view.asp?forum_id=7&view_id=38227

这次修改感谢莫天的鼓励,一心一的协助,二分之一的测试,MARCO的提醒

好了开始修改:
首先我们在FORUM_REPLY.ASP FORUM_EDIT.ASP FORUM_WRITE.ASP中加入HTML编辑器的选项
和新闻系统的一样,参考我上面给的地址!每个文件的开头都要有
<!--#include file = "eWebEditor/Include/DeCode.asp"-->
<!-- #include file="include/sy_put.asp" -->

在BBS_DATA表中加入COD表,内容为数值,1表示UBB 2表示HTML
在上面三个文件中写入数据库的一段下加入
rs("cod")=cod_type()
然后主要修改FORUM_VIEW.ASP
找到
for i=0 to ubound(vdim,2)
if replyid=0 then replyid=vdim(0,i)
rnum=cint(joekoe_cms.rand_num(2))
把下面的
word=ubbtst(code_jk(joekoe_cms.code_js(vdim(3,i),1)))
word=replace(word,"","<br>")
删掉
加入
'--------BY CMGS---------------------------------------
sql="select cod,id from bbs_data where id="&vdim(0,i)
set rs=joekoe_cms.exec(sql,1)
if rs.eof then
rs.close
call format_redirect("forum_list.asp?forum_id="&forumid)
end if
cod=rs("cod")
rs.close
if int(cod)=1 then
word=ubbtst(code_jk(joekoe_cms.code_js(vdim(3,i),1)))
word=replace(word,"","<br>")
end if
if int(cod)=2 then
word=ubbtst(joekoe_cms.code_js(vdim(3,i),1))
word=replace(word,"","<br>")
end if
'--------BY CMGS---------------------------------------
就可以了
打开FORUM_EDIT.ASP
找到
dim topic,icon,word,word_edit,found_err,nistop,nisgood,nislock,nsql
在后面加一个变量COD
再找到
if found_err<>"" then
response.write found_error(found_err,320)
exit sub
end if
在下面添加一个
cod=cod_type()
然后找到
if not(int(login_modep)=1 and trim(request.form("edit_info"))<>"yes") then
word_edit=vbcrlf&vbcrlf&"
[本贴已被 "
if cstr(login_username)=cstr(username) then
word_edit=word_edit&"作者"
else
word_edit=word_edit&login_username
end if
word_edit=word_edit&" 于 "&joekoe_cms.time_type(joekoe_cms.now_time,2)&" 编辑过]
"
end if
在前面添加个
if int(cod)=1 then
后面添加个
else
if not(int(login_modep)=1 and trim(request.form("edit_info"))<>"yes") then
word_edit=vbcrlf&vbcrlf&"<br><font COLOR=#000066>[本贴已被 "
if cstr(login_username)=cstr(username) then
word_edit=word_edit&"作者"
else
word_edit=word_edit&login_username
end if
word_edit=word_edit&" 于 "&joekoe_cms.time_type(joekoe_cms.now_time,2)&" 编辑过]</font>"
end if
end if

文章来自: Original
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志: