不错,谢谢楼主!

这个程序是我修改人家的,我昨一天没事又看看了程序,感觉程序可以简化好多的东西,改天没事的时候在把它简化一下,哪位兄弟如果简化别望了给我看看啊!对了还有哪位兄弟如果有把图片上传到数据库里的程序帮帮忙也给我看看吧!发到我的邮箱里也行,先谢谢了啊!那个程序我看来看去都不懂写的是什么,唉没有办法.
<%
dim name,text,src,lb
rs.open "select * from img",cn,1,3
rs.addnew
name=request.form("name")
text=request.form("text")
src=request.form("src")
If Not Instr(src,"[uploadimg]") Or Not Instr(src,"[/uploadimg]") Then
src = ""
End If
lb=request.form("lb")
rs("name")=name
rs("text")=text
rs("src")=src
rs("lb")=lb
rs("dat")=now
rs.update
rs.close
response.write"<script>alert('图片添加成功');this.location.href='upload.asp';</SCRIPT>"
response.end
%>
按楼主的思路完善一点!