无组件上传图片到数据库中，最完整解决方案

作者：Eve Cole 更新时间：2009-06-23 16:59:05

up.htm

<html>
<头>
<标题><% =网站名称%></标题>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="main.css" type="text/css">
<样式类型=“文本/css”>
<!--
.tx1 { 高度：20px;宽度：30px；字体大小：9pt；边框：1px实线；边框颜色：黑色黑色

#000000；颜色：#0000FF}
-->
</风格>

<脚本语言=“JavaScript”>
<!--
var bgc_on=新数组("#74D738","#FF9C17","#3278AB","#486177","#078C00","#007ECA")
var bgc_off=new Array("#4CAD12","FFB859","5F9FD0","577590","08A700","009FFF")

函数turnon(obj1,id){
obj1.style.background=bgc_on[id];
}
函数关闭（obj1，id）{
obj1.style.background=bgc_off[id];
}

//-->
</脚本>
<脚本语言=javascript>
函数 check_input()
{
if (Frm.pic.value=="")
{alert("请选择要上传的图片");
返回假；
}
if (Frm.type.value=="")
{alert("请选择图片类型");
返回假；
}
if (Frm.thetext.value=="")
{alert("请输入照片说明");
返回假；
}
返回真；
}
</脚本>
</head>

<表格宽度=755 cellpadding=0 cellspacing=0 border=0 bgcolor=#ffffffalign=“center”bordercolor=#000000>
<tr>
<td height=400 width=180 bgcolor=#D1E9D5 style="border-right: 1px #0E801Esolid">
<表格宽度=100% 高度=100% cellpadding=0 cellspacing=0 border=0align="center" bordercolor=#000000>
<tr><td height=30align="center"class=L15><font color=#E96D08>欢迎你：<%=username%>管理中心</font>
<tr><td height=23 align="center" class=L15 bgcolor=#4CAD12 style="border-top:0px #0E801Esolid; border-bottom:1px #0E801Esolid;"><font color=#C2F009 类=yinying>管理中心</font>
<tr><td 高度=20 等级=L13>

<tr><td高度=5>
<tr><td>
</表>
<td>
<%
设置 rs=server.createobject("adodb.recordset")
sql="从照片中选择*，其中作者='"&用户名&"'"
rs.open sql,conn,1,1
%>
<表格cellpadding=0 cellspacing=0 border=0 宽度=100% 高度=100%>
<tr><td 高度=3>
<tr><td height=3 bgcolor=#ffffff 背景=img/bj3.gif>
<tr><td height=20 valign="bottom" bgcolor=#eeeeee> 现在位置： 98243班 - 管理中心 - 添加新闻
<tr><td height=3 bgcolor=#eeeeee style="border-bottom: 1px #cccccc Solid"><p style="font-size:1pt">
<tr><td height=20 valign="bottom"> <font color=green><% =username %>：您总共上传了<font color=red><% =rs.recordcount %></font> 张照片</font> <a href="adminphoto.asp"><font color=red><u>管理以前上传的照片</u></font></a>
<tr><td bgcolor=#ffffff valign=top>
<table cellpadding=0 cellspacing=0 border=0 width=95% height=100%align="center">
<form action=addphoto.asp method=post name=Frm onSubmit="return check_input()" enctype="multipart/form-data">
<tr><td 高度=20 colspan=2>
<tr><td height=25 width=15%align="right" class=L13>选择照片： <td> <input NAME="pic" TYPE="FILE" class="tx1" style="width:300 "> <font color=red>拒绝色情、写真图等</font>

<tr><td height=25 width=20%align="right" class=L13>照片分类： <td> <select name="类型">
<option selected value="">选择类型</option>
<option value=“监护人合影”>监护人合影</option>
<option value="个人照片">个人照片</option>
<option value="恩师照片">恩师照片</option>
<option value="情人照片">情人照片</option>
<option value="友人照片">友人照片</option>
<option value="其他照片">其他照片</option>
</select>

</表>

</正文>
</html>

fupload.inc

<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
'限制上传图片大小
Dim UploadSizeLimit

'************************************ 得到上传数据 ********** **********************
函数 GetUpload()
暗淡结果
设置结果=无
If Request.ServerVariables("REQUEST_METHOD") = "POST" then '请求方法必须是“POST”
昏暗 CT、PosB、边界、长度、PosE
CT = Request.ServerVariables("HTTP_Content_Type") '读取 Content-Type 标头
如果 LCase(Left(CT, 19)) = "multipart/form-data" 那么 'Content-Type 标头必须是“multipart/form-data”
'这是上传请求。
'从Content-Type header中获取边界和长度
PosB = InStr(LCase(CT), "boundary=") '找到边界
If PosB > 0 then Boundary = Mid(CT, PosB + 9) '分隔边界
Length = CLng(Request.ServerVariables("HTTP_Content_Length")) '获取 Content-Length 标头
如果 "" & UploadSizeLimit<>"" 那么
上传大小限制 = clng(上传大小限制)
如果长度 > UploadSizeLimit 那么
' 出错时恢复下一步 ' 清除输入缓冲区
'response.AddHeader“连接”，“关闭”
' 出错时转到 0
请求.BinaryRead(长度)
Err.Raise 2, "GetUpload", "上传大小" & FormatNumber(Length,0) & "B 超出限制" & FormatNumber(UploadSizeLimit,0) & "B"
退出功能
结束如果
end if

If Length > 0 And Boundary <> "" then '是否有关于上传的必需信息？
边界=“--”&边界
昏暗的头，二进制
Binary = Request.BinaryRead(Length) '从客户端读取二进制数据

'从二进制数据中检索上传字段
设置结果=SeparateFields(Binary, Boundary)
Binary = Empty '清除变量
别的
Err.Raise 10，“GetUpload”，“零长度请求。”
结束如果
别的
Err.Raise 11，“GetUpload”，“未发送文件。”
结束如果
别的
Err.Raise 1，“GetUpload”，“错误的请求方法。”
结束如果
设置获取上传=结果
结束功能

函数SeparateFields（二进制，边界）
Dim PosOpenBoundary、PosCloseBoundary、PosEndOfHeader、isLastBoundary
昏暗的田野
边界 = StringToBinary(边界)

PosOpenBoundary = InstrB(二进制，边界)
PosCloseBoundary = InstrB(PosOpenBoundary + LenB(Boundary), Binary, Boundary, 0)

Set Fields = CreateObject("Scripting.Dictionary")

Do While (PosOpenBoundary > 0 且 PosCloseBoundary > 0 并且不是 isLastBoundary)
'标题和文件/源字段数据
昏暗标题内容、字段内容
'标头字段
昏暗的 Content_Disposition、FormFieldName、SourceFileName、Content_Type
'帮助变量
昏暗字段，TwoCharsAfterEndBoundary
'获取标题末尾
PosEndOfHeader = InstrB(PosOpenBoundary + Len(Boundary), Binary, StringToBinary(vbCrLf + vbCrLf))

'分隔字段标头
HeaderContent = MidB(Binary, PosOpenBoundary + LenB(Boundary) + 2, PosEndOfHeader - PosOpenBoundary - LenB(Boundary) - 2)

'分隔字段内容
FieldContent = MidB(Binary, (PosEndOfHeader + 4), PosCloseBoundary - (PosEndOfHeader + 4) - 2)

'将标头字段与标头分开
GetHeadFields BinaryToString(HeaderContent), Content_Disposition, FormFieldName, SourceFileName, Content_Type

'创建一个字段并分配参数
设置字段 = CreateUploadField()
字段名称 = 表单字段名称
字段.ContentDisposition = Content_Disposition
字段.文件路径 = 源文件名
字段.文件名 = GetFileName(源文件名)
字段.ContentType = Content_Type
字段.值 = 字段内容
字段.长度 = LenB(字段内容)

Fields.Add FormFieldName, Field

'这是结束边界吗？
TwoCharsAfterEndBoundary = BinaryToString(MidB(Binary, PosCloseBoundary + LenB(边界), 2))
'Binary.Mid(PosCloseBoundary + Len(边界), 2).String
isLastBoundary = TwoCharsAfterEndBoundary = "--"
如果不是 isLastBoundary 那么 '这不是结束边界 - 转到下一个表单字段。
PosOpenBoundary = PosCloseBoundary
PosCloseBoundary = InStrB(PosOpenBoundary + LenB(边界)，二进制，边界 )
结束如果
环形
设置分离字段 = 字段
结束功能

'************************************ 实用程序 ************ **********************
函数 BinaryToString(str)
strto=“”
对于 i=1 到 lenb(str)
如果 AscB(MidB(str, i, 1)) > 127 那么
strto = strto & chr(Ascb(MidB(str, i, 1))*256+Ascb(MidB(str, i+1, 1)))
我=我+1
别的
strto = strto & Chr(AscB(MidB(str, i, 1)))
结束如果
下一个
BinaryToString=strto
结束函数

Function StringToBinary(String)
昏暗的我，B
对于 I=1 到 len(字符串)
B = B & ChrB(Asc(Mid(String,I,1)))
下一个
字符串转二进制 = B
End Function

'将标头字段与上传标头分开
函数 GetHeadFields(ByVal Head、Content_Disposition、名称、文件名、Content_Type)
Content_Disposition = LTrim(SeparateField(Head, "内容处置：", ";"))
名称 = (SeparateField(Head, "name=", ";")) 'ltrim
如果 Left(Name, 1) = """" 那么 Name = Mid(Name, 2, Len(Name) - 2)
文件名 = (SeparateField(Head, "filename=", ";")) 'ltrim
如果 Left(FileName, 1) = """" 那么 FileName = Mid(FileName, 2, Len(FileName) - 2)
Content_Type = LTrim(SeparateField(Head, "内容类型：", ";"))
End Function

'在 sStart 和 sEnd 之间分隔一个字段
函数SeparateField(From、ByVal sStart、ByVal sEnd)
调暗 PosB、PosE、sFrom
sFrom = LCase(来自)
PosB = InStr(sFrom, sStart)
如果 PosB > 0 则
PosB = PosB + Len(sStart)
PosE = InStr(PosB, sFrom, sEnd)
如果 PosE = 0 则 PosE = InStr(PosB, sFrom, vbCrLf)
如果 PosE = 0 则 PosE = Len(sFrom) + 1
分离字段 = Mid(From, PosB, PosE - PosB)
别的
分离字段 = 空
结束如果
End Function

'将文件名与文件的完整路径分开
函数 GetFileName(完整路径)
暗淡 Pos、PosF
正F = 0
对于 Pos = Len(FullPath) 到 1 步骤 -1
选择案例中（FullPath，Pos，1）
情况“/”、“”：PosF = Pos + 1：Pos = 0
结束选择
下一个
如果 PosF = 0 则 PosF = 1
GetFileName = Mid(完整路径, PosF)
结束功能
</脚本>
<SCRIPT RUNAT=服务器语言=JSCRIPT>
//该函数创建Field对象。
函数 CreateUploadField(){ 返回新的 uf_Init() }
函数 uf_Init(){
这个.Name = null
this.ContentDisposition = null
this.FileName = null
this.FilePath = null
this.ContentType = null
this.Value = null
this.Length = null
}
</SCRIPT>

addphoto.asp



<%
如果 Request.ServerVariables("REQUEST_METHOD") = "POST" 那么
昏暗的田野
上传大小限制=100000
设置字段 = GetUpload()
昏暗的场
对于 Fields.Items 中的每个字段
选择案例 Field.name
案例“thetext” sss=BinaryToString(Field.value)
案例“类型”fff=BinaryToString(Field.value)
案例“提交”submit=BinaryToString(Field.value)
案例“图片”
文件名=字段.文件名
文件内容类型=字段.内容类型
文件值=字段.值
结束选择
下一个
'----------------
如果 filename<>"" 和 fileContentType<>"image/gif" 和

fileContentType<>"image/pjpeg" 那么
%>
<中心>
<br><br>
<font color=red size=3>上传的照片应该为GIF或JPG文件！</font><br><br>
<input type="button" value="重填" onclick="history.go( -1 );return

true;">
</中心>
<%
别的
'------------
'开始输入
'------------
响应.write sss
响应.write"<br>"
响应.write fff
设置 rs=server.createobject("ADODB.recordset")
sql = "从 tb 中选择 *，其中 id 为空"
rs.打开sql,conn,3,3
rs.addnew
rs("作者")=用户名
rs("文本")=sss
rs("类型")=fff
rs("点击数")=1
rs("posttime")=now()
rs("photo").appendchunk 文件值

rs.update
rs.close
%>
<br><br>
<center><font color=red

size=3>成功输入个人基本档案！</font><br><br><form method="post"

action="personinf.asp"><input type="submit"值=“返回”></形式>
</中心>
<%
结束如果
结束如果
%>

显示图片.asp

<%
id=请求（“id”）
设置 rs=server.CreateObject("adodb.recordset")
sql="SELECT * FROM tb where theid="&id
rs.打开sql,conn,1,3
响应.contenttype =“图像/gif”
Response.BinaryWrite rs(“照片”)
%>