|
#2
hams2010-04-23 11:38
|
程序代码：<!--#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
%>
Microsoft VBScript 运行时错误 错误 '800a0005' <%
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
%>
无效的过程调用或参数: 'mid'
请版主帮忙...........