求助,怎么实现论坛发图片,上传图片,文件,等功能(在DW中)

[此贴子已经被作者于2005-10-16 19:01:18编辑过]

做梦

即便是ASP手写，也不简单哦

如果要在论坛发贴中支持UBB代码,怎么添加代码?

有专门的 UBB 文件，你可以拿来 include 一下。如果打算自己写，就要研究下 vbscript  里面几个字符函数，利用循环，instring ，replace 等函数，是可以实现 UBB 转换的，关键是自己要找到好的算法。

用 instring 检索 UBB 关键字，然后再替换成相应的 HTML 代码就可以了。

这么难啊

楼主还是先把流言本写会再说吧

我想在留言中添加图片

请说一下具体步奏吧,我想在发表留言中插入这个功能

我当初是这么写的 function ubb_img(string) 定义搜索的起始点 dim start start=1

do while(start<=len(string)) 定义两个点，pnt1 是 【IMG】 标签的点，pnt2 是 【/IMG】 标签的点 dim pnt1,pnt2,str 检索 【IMG】 标签 pnt1=instr(string,start,"【IMG】") if pnt1>0 then 如果检索到 【IMG】 标签，就在其后继续检索 【/IMG】 标签 pnt2=instr(string,pnt1+5,"【/IMG】") if pnt2>0 then 如果又找到 【/IMG】 标签，则将中间的 URLl 提取出来 str=mid(string,pnt1+5,pnt2-pnt1-5) 替换为合法的 HTML 代码 string=replace(string,"【IMG】"&str&"【/IMG】","<IMG src='"&str&"' border='0'>") 替换结束之后，将起始点 start 设定为 pnt2 之后，继续搜索下面的标签 start=pnt2+6 else 如果见搜不到和 【IMG】 对应的 【/IMG】，则退出循环 exit do end if else 全文检索不到 【IMG】，则退出循环 exit do end if loop

全文检索完毕，返回替换以后的文章，函数结束 ubb_img=string end function 我这里为了防止和论坛的 UBB 码混了（整个论坛没有紧用 UBB 的功能），所以全部用了全角，你自己改吧

[此贴子已经被作者于2005-10-18 18:02:23编辑过]