怎么实现论坛发图片,上传图片,文件等功能 - ASP技术论坛

不妥协の乌鸦

等　级：新手上路
帖　子：97
专家分：0
注　册：2005-10-18

第 11 楼

得分:0

呵呵也许可能不过那样QQ就赚不到钱咯~因为好多论坛只有会员才可以发图等等！
不过有一点我想知道！即使可以发图但是好象不可以一次性多发几张啊？是吧？这个问题可以实现吗？

多学习多学习

2005-10-18 19:16

andrew518

等　级：新手上路
帖　子：144
专家分：0
注　册：2005-10-5

第 13 楼

得分:0

这是我发表留言的页面，如果我只要定仪一个发表留言的文本域，是不是该这么添加？ <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <title>无标题文档</title> </head>

<body> <form name="form1" id="form1" method="post" action=""> <table width="760" border="1"> <tr> <td width="91">您的大名</td> <td width="653"><input name="name" type="text" id="name" /></td> </tr> <tr> <td>E_Mail</td> <td><input name="email" type="text" id="email" /></td> </tr> <tr> <td>个人主页</td> <td><input name="homepage" type="text" id="homepage" /></td> </tr> <tr> <td height="20">文章标题</td> <td><input name="title" type="text" id="title" /></td> </tr> <tr> <td height="161">文章内容</td> <td><textarea name="content" cols="70" rows="10" id="content"></textarea></td> </tr> </table> <table width="760" border="1"> <tr> <td> </td> <td> </td> </tr> </table> <p> </p> <% function ubb_img(string) dim start start=1

do while(start<=len(string)) dim pnt1,pnt2,str pnt1=instr(string,start,"【IMG】") if pnt1>0 the pnt2=instr(string,pnt1+5,"【/IMG】") if pnt2>0 then str=mid(string,pnt1+5,pnt2-pnt1-5) string=replace(string,"【IMG】"&str&"【/IMG】","<IMG src='"&str&"' border='0'>") start=pnt2+6 else exit do end if else exit do end if loop ubb_img=string end function %>

</form> </body> </html>

2005-10-18 22:40

皮蛋粥

等　级：新手上路
帖　子：129
专家分：0
注　册：2005-8-22

第 15 楼

得分:0

往数据库里面添加数据的时候不需要做任何修改的，你把要常用的几个函数保存在一个 function.asp 文件里面，要用的时候，就用在文件头部使用  将这个文件包含进来。

然后读取数据，并将留言内容显示出来
dim rs
set rs=server.createobject("adodb.recordset")
rs.open "select *** from *** ",conn,1,1
然后显示数据
response.write (ubb_img(rs("message"))
rs.close
set rs=nothing

也就是只在显示的时候用 ubb_img 函数讲留言过滤一遍，数据库的原数据我们不去动它的。

,\'\'\',\'\'\', ,\'\'\',\'\'\', \',波波 ,\' \',荟荟 ,\' \' , \' \' , \'

2005-10-19 01:48

皮蛋粥

等　级：新手上路
帖　子：129
专家分：0
注　册：2005-8-22

第 17 楼

得分:0

还需要什么相应函数啊？replace 和 instr 都是 vbscript 自己的函数，ubb_img 我也写给你了啊

,\'\'\',\'\'\', ,\'\'\',\'\'\', \',波波 ,\' \',荟荟 ,\' \' , \' \' , \'

2005-10-20 18:03