不知道怎么回事?
我在上传图片时,点提交后居然提示我是否下载该页面
代码:
NewsUpload.asp
<%id=request("id")%>
<html>
<head>
<meta name="VI60_defaultClientScript" content="VBScript">
<link href="Images/style.css" rel="stylesheet" type="text/css">
<title></title>
</head>
<body topmargin="0" leftmargin="0" bgcolor="#E3E3E3">
<form name="form1" ENCTYPE="multipart/form-data" ACTION="UpNewsImage.Asp?ID=<%=ID%>" METHOD="POST" >
<input NAME="picture" TYPE="FILE" size="20"> <input type="submit" value="Ìá½»">
</form>
</body>
</html>
UpNewsImage.asp
<!--#include file="Admin_Check.Asp"-->
<!--#include file="Admin_Conn.Asp"-->
<%
id=request("id")
FormSize = Request.TotalBytes '得到数据
FormData = Request.BinaryRead( FormSize )
function ImageUp(formsize,formdata) '这个函数的功能是截取其中的图像部分。
bncrlf=chrb(13) & chrb(10) '做成函数后。以后你可以自己随意使用了。
divider=leftb(formdata,instrb(formdata,bncrlf)-1)
datastart=instrb(formdata,bncrlf&bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
imageup=midb(formdata,datastart,dataend)
end function
Image=ImageUp (FormSize,Formdata) '这里就是图像部分了。
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from News where id="&id
rs.open sql,conn,3,3
rs("pic").appendchunk Image '所以这里是添加。
rs.Update
rs.Close
response.contenttype="image/gif"
response.binarywrite imageup(formsize,formdata) '这里是显示图像。表示成功!
%>
提交以后,提示我是否下载UpNewsImage.gif,晕呀