程序代码：

<!--#include file="lianku.asp"-->

<%
title=request.form("title")
str=request.form("file")
response.write(str)
kname=mid(str,instrrev(str,"."))
if kname=".jpg" or kname=".gif" or kname=".bmp"then
response.write kname
response.write(str)
set obj=server.CreateObject("adodb.stream")
obj.Type=1
obj.open
obj.LoadFromFile str
d1=cstr(date())
d2=replace(cstr(time()),":","")
obj.SaveToFile "image/"&d1&d2&kname,2%>

<%
sql="select * from tb_img "
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
%>
<%
rs.addnew
rs("imguser")=request.Cookies("mingcheng")
rs("title")=title
rs("imgurl")=d1&d2&kname
rs.update
%>

<%response.write "<script> alert('上传成功');location.href='shuoming.asp';</script>"
else
response.Redirect("picshow1.asp")
end if 

%>