| |
| |
| 附： |
| 无组件上传代码（例如：学院荣誉榜中上传照片） |
| 注意：无组件上传，即将文件以二进制形式，写入数据库存储。数据库字段属性要设置为OLE对象，如图所示。
|
| 发完此条信息的文字内容后，进入页面1.asp，开始发图片（在数据库中，文字内容与图片内容同处一条记录） |
| 1.asp |
<!--#include file="conn.asp"-->
<%
set rs2 = createobject("ADODB.recordset")
sql2="select top 1 id from 学生荣誉榜 order by id desc"
rs2.open sql2,db,1,1
if not rs2.eof then
Response.Redirect "2.asp?id="&rs2("id")&""
response.end()
end if
rs2.close
set rs2=nothing
%>
|
| 说明：此页面是获得刚发的文字内容在数据库中的记录ID号 |
| 2.asp |
<%id=request.QueryString("id")%>
<form name="form1" ENCTYPE="multipart/form-data" ACTION="3.asp?id=<%=id%>" METHOD="POST" >
<input NAME="zbig" TYPE="FILE" size="40">
<input type="submit" value="OK">
</form> |
说明：这只是一个表单，用于选择要上传的图片文件，见图：
|
| 3.asp |
<!--#include file="conn.asp"-->
<%
id=request.QueryString("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 学生荣誉榜 where id="&id
rs.open sql,db,3,3
rs("相片").appendchunk Image
rs.Update
%>
<script language="javascript">
alert("上传图片成功")
</script> |
| 说明：图片文件以二进制形式存储于数据库中 |
| 4.asp |
<!--#include file="conn.asp"-->
<%
id=request.QueryString("id")
set rs=server.CreateObject("adodb.recordset")
sql="SELECT * FROM 学生荣誉榜 where ID =" & id
rs.Open sql,db,1,1
response.contenttype="image/jpeg"
Response.BinaryWrite rs("相片")
Rs.Close
Set rs=Nothing
db.Close
Set db=Nothing
%>
|
| 说明：显示图片 |
|
教学前言
相关的基础知识
Web的基本概念及相关知识