sqlserver 数据库编程的绝好脚本

				'==================================================================--
				'
				'		用ASP实现无组件上传/下载文件
				'
				' 功能简介	
				' 将上传的文件数据保存到数据库中,可以处理表单中的多个上传文件的情况
				' 适用于各种数据库,使用ADO的方法连接数据库
				' 本示例中使用的是ACCESS数据库:zj.mdb
				' 表:tb_img(id int(自增列),path text(255) 保存上传文件的目录
				'	,fname text(250) 保存上传的文件名,img ole对象 保存上传的文件内容
				'   ,type text(250)  保存上传的文件类型
				'
				' 邹建  2003.10
				'==================================================================
				
				
				'==================================================================
				'
				'	上传文件的HTML页: zj_up.htm
				'
				'==================================================================
				
				
				文件上传保存到数据库中
				
				
				
				  
				    
				    
				  
				
				
				
				
				
				'==================================================================
				'
				'		上传文件保存到数据库的ASP页: zj_up.asp
				'
				'==================================================================
								Response.Expires=0
				Function f_Bin2Str(ByVal sBin)
				    Dim iI, iLen, iChr, iRe       
				    iRe = ""
				    If Not IsNull(sBin) Then
				        iLen = LenB(sBin)
				        For iI = 1 To iLen
				            iChr = MidB(sBin, iI, 1)
				            If AscB(iChr) > 127 Then
				                iRe = iRe & Chr(AscW(MidB(sBin, iI + 1, 1) & iChr))
				                iI = iI + 1
				            Else
				                iRe = iRe & Chr(AscB(iChr))
				            End If
				        Next
				    End If    
				    f_Bin2Str = iRe
				End Function
				iConcStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _ 
					";Data Source=" & server.mappath("zj.mdb")
				iSql="tb_img"
				set iRe=Server.CreateObject("ADODB.Recordset")
				iRe.Open iSql,iConcStr,1,3
				iLen=Request.TotalBytes
				sBin=Request.BinaryRead(iLen)
				iCrlf1 = ChrB(13) & ChrB(10)
				iCrlf2 = iCrlf1 & iCrlf1
				iLen = InStrB(1, sBin, iCrlf1) - 1
				iSpc = LeftB(sBin, iLen)
				sBin = MidB(sBin, iLen + 34)
				iPos1 = InStrB(sBin, iCrlf2) - 1
				While iPos1 > 0
					iStr = f_Bin2Str(LeftB(sBin, iPos1))
					iPos1 = iPos1 + 5
					iPos2 = InStrB(iPos1, sBin, iSpc)
					
					iPos3 = InStr(iStr, "; filename=""") + 12
					If iPos3 > 12 Then
						iStr = Mid(iStr, iPos3)
						iPos3 = InStr(iStr, Chr(13) & Chr(10) & "Content-Type: ") - 2
						iFn = Left(iStr, iPos3)
						If iFn  "" Then
							iRe.AddNew
							ire("path")=left(iFn,instrrev(iFn,"\"))	
							iRe("fname") = mid(iFn,instrrev(iFn,"\")+1)
							iRe("type") = Mid(iStr, iPos3 + 18)
							iRe("img").AppendChunk MidB(sBin, iPos1, iPos2 - iPos1)
							iRe.Update
						End If
					End If
					
					sBin = MidB(sBin, iPos2 + iLen + 34)
					iPos1 = InStrB(sBin, iCrlf2) - 1
				Wend
				iRe.close
				set iRe=Nothing
				%>
				
				'==================================================================
				'
				'		下载数据的ASP页: zj_down.asp
				'
				'==================================================================
								Response.Buffer=true
				Response.Clear
				
				iConcStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _ 
					";Data Source=" & server.mappath("zj.mdb")
				set iRe=server.createobject("adodb.recordset")
				iSql="tb_img"
				iRe.open iSql,iconcstr,1,1
				Response.ContentType=ire("type")
				Response.BinaryWrite iRe("img")
				
				iRe.close
				set iRe=Nothing
				%>
				
				
				 a.html
				 _____________________________________________