aspx圖片上傳
⑴ ASP如何上傳圖片，並且可以添加圖片說明
用ASP編寫網站應用程序時間長了，難免會遇到各式各樣的問題，其中關於如何上傳文件到服
務器恐怕是遇見最多的問題了，尤其是上傳圖片，比如你想要在自己的社區裡面實現類似網易
虛擬社區 提供的「每日一星」的功能，就要提供給網友上傳照片的功能。上傳圖片文件到服務
器可以使用各種免費的文件上傳組件，使用起來功能雖然很強大，但是由於很多情況下，我們
只能使用免費的支持ASP的空間或者租用別人的虛擬空間，對於第一種情況，我們根本就沒
有可能來使用文件上傳組件；至於第二種情況，我們也要付出不少的「銀子」才可以。除非你
擁有自己的虛擬主機，你就可以隨便的在伺服器上面安裝自己所需要的組件，這種情況對於大
多數人來說是可望而不可及的。那我們就沒有辦法了嗎？呵呵，答案是肯定的（當然是肯定的
了，要不然我也沒法寫出這篇文章啊）。下面就讓我們一起來使用純ASP代碼來實現圖片的
上傳以及保存到資料庫的功能（順便也實現顯示資料庫中的圖片到網頁上的功能）。
首先我們先來熟悉一下將要使用的對象方法。我們用來獲取上一個頁面傳遞過來的數據一
般是使用Request對象。同樣的，我們也可以使用Request對象來獲取上傳上來的文件數據，使
用的方法是Request.BinaryRead()。而我們要從資料庫中讀出來圖片的數據顯示到網頁上面要
用到的方法是：
Request.BinaryWrite()。在我們得到了圖片的數據，要保存到資料庫中的時候，不可以直接
使用Insert語句對資料庫進行操作，而是要使用ADO的AppendChunk方法，同樣的，讀出資料庫
中的圖片數據，要使用GetChunk方法。各個方法的具體語法如下：
*Request.BinaryRead語法：
variant=Request.BinaryRead(count)
參數
variant
返回值保存著從客戶端讀取到數據。
count
指明要從客戶端讀取的數據量大小，這個值小於或者等於使用方法Request.TotalBytes得到的
數據量。
*Request.BinaryWrite語法：
Request.BinaryWritedata
參數
data
要寫入到客戶端瀏覽器中的數據包。
*Request.TotalBytes語法：
variant=Request.TotalBytes
參數
variant
返回從客戶端讀取到數據量的位元組數。
*AppendChunk語法
將數據追加到大型文本、二進制數據Field或Parameter對象。
object.AppendChunkData
參數
objectField或Parameter對象
Data變體型，包含追加到對象中的數據。
說明
使用Field或Parameter對象的AppendChunk方法可將長二進制或字元數
據填寫到對象中。在系統內存有限的情況下，可以使用AppendChunk方法對長整型值進行
部分而非全部的操作。
*GetChunk語法
返回大型文本或二進制數據Field對象的全部或部分內容。
variable=field.GetChunk(Size)
返回值
返回變體型。
參數
Size長整型表達式，等於所要檢索的位元組或字元數。
說明
使用Field對象的GetChunk方法檢索其部分或全部長二進制或字元數據。在系統內存有限
的情況下，可使用GetChunk方法處理部分而非全部的長整型值。
GetChunk調用返回的數據將賦給「變數」。如果Size大於剩餘的數據，則
GetChunk僅返回剩餘的數據而無需用空白填充「變數」。如果欄位為空，則
GetChunk方法返回Null。
每個後續的GetChunk調用將檢索從前一次GetChunk調用停止處開始的數據。但是，如果從
一個欄位檢索數據然後在當前記錄中設置或讀取另一個欄位的值，ADO將認為已從第一個欄位
中檢索出數據。如果在第一個欄位上再次調用GetChunk方法，ADO將把調用解釋為新的GetChu
nk操作並從記錄的起始處開始讀取。如果其他Recordset對象不是首個Recordset對象的副本，
則訪問其中的欄位不會破壞GetChunk操作。
如果Field對象的Attributes屬性中的adFldLong位設置為True，則可以對該欄位使用GetChun
k方法。
如果在Field對象上使用Getchunk方法時沒有當前記錄，將產生錯誤3021（無當前記錄）。
接下來，我們就要來設計我們的資料庫了，作為測試我們的資料庫結構如下（Access200
0）：
欄位名稱 類型 描述
id 自動編號 主鍵值
img OLE對象 用來保存圖片數據
對於在MSsqlServer7中，對應的結構如下：
欄位名稱 類型 描述
id int(Identity) 主鍵值
img image 用來保存圖片數據
現在開始正式編寫我們的純ASP代碼上傳部分了，首先，我們有一個提供給用戶的上傳界面
，可以讓用戶選擇要上傳的圖片。代碼如下
（upload.htm）：
＜html>
＜body>
＜center>
＜form name="mainForm" enctype="multipart/form-data" action="process.asp" method=p
ost>
＜inputtype=filename=mefile>＜br>
＜inputtype=submitname=okvalue="OK">
＜/form>
＜/center>
＜/body>
＜/html>
注意enctype="multipart/form-data"，一定要在Form中有這個屬性，否則，將無法得到上傳
上來的數據。接下來，我們要在process.asp中對從瀏覽器中獲取的數據進行必要的處理，因
為我們在process.asp中獲取到的數據不僅僅包含了我們想要的上傳上來的圖片的數據，也包
含了其他的無用的信息，我們需要剔除冗餘數據，並將處理過的圖片數據保存到資料庫中，這
里我們以access2000為例。具體代碼如下（process.asp）：
＜%
response.buffer=true
formsize=request.totalbytes
formdata=request.binaryread(formsize)
bncrlf=chrB(13)&chrB(10)
divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)
datastart=instrb(formdata,bncrlf&bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
mydata=midb(formdata,datastart,dataend)
setconnGraph=server.CreateObject("ADODB.connection")
connGraph.ConnectionString="driver={MicrosoftAccessDriver(*.mdb)};DBQ="&server.Ma
pPath("images.mdb")&";uid=;PWD=;"
connGraph.Open
setrec=server.createobject("ADODB.recordset")
rec.Open"SELECT*FROM[images]whereidisnull",connGraph,1,3
rec.addnew
rec("img").appendchunkmydata
rec.update
rec.close
setrec=nothing
setconnGraph=nothing
%>
好了，這下我們就把上傳來的圖片保存到了名為images.mdb的資料庫中了，剩下的工作就是要
將資料庫中的圖片數據顯示到網頁上面了。一般在HTML中，顯示圖片都是使用＜IMG>標簽
，也就是＜IMGSRC="圖片路徑">，但是我們的圖片是保存到了資料庫中，「圖片路徑」是什麼
呢？呵呵，其實這個SRC屬性除了指定路徑外，也可以這樣使用哦：
＜IMGSRC="showimg.asp?id=xxx">
所以，我們所要做的就是在showimg.asp中從資料庫中讀出來符合條件的
數據，並返回到SRC屬性中就可以了，具體代碼如下（showimg.asp）：
＜%
setconnGraph=server.CreateObject("ADODB.connection")
connGraph.ConnectionString="driver={MicrosoftAccessDriver(*.mdb)};DBQ="&
server.MapPath("images.mdb")&";uid=;PWD=;"
connGraph.Open
setrec=server.createobject("ADODB.recordset")
strsql="selectimgfromimageswhereid="&trim(request("id"))
rec.openstrsql,connGraph,1,1
Response.ContentType="image/*"
Response.BinaryWriterec("img").getChunk(7500000)
rec.close
setrec=nothing
setconnGraph=nothing
%>
注意在輸出到瀏覽器之前一定要指定Response.ContentType="image/*"，
以便正常顯示圖片。
最後要注意的地方是，我的process.asp中作的處理沒有考慮到第一頁(upload.htm)中還有其
他數據，比如＜INPUT type=tesxt name=userid>等等，如果有這些項目，你的process.asp就
要注意處理掉不必要的數據。
⑵ asp中上傳圖片的組件,
4個文件實現無組件上傳4個文件實現無組件上傳
嵌套式調用：
<iframe name="ad" frameborder=0 width=100% height=50 scrolling=no src=uploada.asp></iframe>
直接鏈接：uploada.asp
文件保存路徑：upload
上傳文件類型和大小自己設置
===========================================
第一個文件：inc/confing.asp（inc為文件夾名稱）
<%
Const EnableUploadFile="Yes" '是否開放文件上傳
Const MaxFileSize=200 '上傳文件大小限制
Const UpFileType="gif|jpg|bmp|png|swf|doc|txt|rar|zip" '允許的上傳文件類型
%>
===========================================
第二個文件：inc/upload.asp
dim oUpFileStream
Class upload_file
dim Form‚File‚Version
Private Sub Class_Initialize
'定義變數
dim RequestBinDate‚sStart‚bCrLf‚sInfo‚iInfoStart‚iInfoEnd‚tStream‚iStart‚oFileInfo
dim iFileSize‚sFilePath‚sFileType‚sFormvalue‚sFileName
dim iFindStart‚iFindEnd
dim iFormStart‚iFormEnd‚sFormName
'代碼開始
Version="無組件上傳類 Version 0.96"
set Form = Server.CreateObject("scripting.Dictionary")
set File = Server.CreateObject("scripting.Dictionary")
if Request.TotalBytes < 1 then Exit Sub
set tStream = Server.CreateObject("adodb.stream")
set oUpFileStream = Server.CreateObject("adodb.stream")
oUpFileStream.Type = 1
oUpFileStream.Mode = 3
oUpFileStream.Open
oUpFileStream.Write Request.BinaryRead(Request.TotalBytes)
oUpFileStream.Position=0
RequestBinDate = oUpFileStream.Read
iFormEnd = oUpFileStream.Size
bCrLf = chrB(13) & chrB(10)
'取得每個項目之間的分隔符
sStart = MidB(RequestBinDate‚1‚ InStrB(1‚RequestBinDate‚bCrLf)-1)
iStart = LenB (sStart)
iFormStart = iStart+2
'分解項目
Do
iInfoEnd = InStrB(iFormStart‚RequestBinDate‚bCrLf & bCrLf)+3
tStream.Type = 1
tStream.Mode = 3
tStream.Open
oUpFileStream.Position = iFormStart
oUpFileStream.CopyTo tStream‚iInfoEnd-iFormStart
tStream.Position = 0
tStream.Type = 2
tStream.Charset ="gb2312"
sInfo = tStream.ReadText
'取得表單項目名稱
iFormStart = InStrB(iInfoEnd‚RequestBinDate‚sStart)-1
iFindStart = InStr(22‚sInfo‚"name="""‚1)+6
iFindEnd = InStr(iFindStart‚sInfo‚""""‚1)
sFormName = Mid (sinfo‚iFindStart‚iFindEnd-iFindStart)
'如果是文件
if InStr (45‚sInfo‚"filename="""‚1) > 0 then
set oFileInfo= new FileInfo
'取得文件屬性
iFindStart = InStr(iFindEnd‚sInfo‚"filename="""‚1)+10
iFindEnd = InStr(iFindStart‚sInfo‚""""‚1)
sFileName = Mid (sinfo‚iFindStart‚iFindEnd-iFindStart)
oFileInfo.FileName = GetFileName(sFileName)
oFileInfo.FilePath = GetFilePath(sFileName)
oFileInfo.FileExt = GetFileExt(sFileName)
iFindStart = InStr(iFindEnd‚sInfo‚"Content-Type: "‚1)+14
iFindEnd = InStr(iFindStart‚sInfo‚vbCr)
oFileInfo.FileType = Mid (sinfo‚iFindStart‚iFindEnd-iFindStart)
oFileInfo.FileStart = iInfoEnd
oFileInfo.FileSize = iFormStart -iInfoEnd -2
oFileInfo.FormName = sFormName
file.add sFormName‚oFileInfo
else
'如果是表單項目
tStream.Close
tStream.Type = 1
tStream.Mode = 3
tStream.Open
oUpFileStream.Position = iInfoEnd
oUpFileStream.CopyTo tStream‚iFormStart-iInfoEnd-2
tStream.Position = 0
tStream.Type = 2
tStream.Charset = "gb2312"
sFormvalue = tStream.ReadText
form.Add sFormName‚sFormvalue
end if
tStream.Close
iFormStart = iFormStart+iStart+2
'如果到文件尾了就退出
loop until (iFormStart+2) = iFormEnd
RequestBinDate=""
set tStream = nothing
End Sub
Private Sub Class_Terminate
'清除變數及對像
if not Request.TotalBytes<1 then
oUpFileStream.Close
set oUpFileStream =nothing
end if
Form.RemoveAll
File.RemoveAll
set Form=nothing
set File=nothing
End Sub
'取得文件路徑
Private function GetFilePath(FullPath)
If FullPath <> "" Then
GetFilePath = left(FullPath‚InStrRev(FullPath‚ "\"))
Else
GetFilePath = ""
End If
End function
'取得文件名
Private function GetFileName(FullPath)
If FullPath <> "" Then
GetFileName = mid(FullPath‚InStrRev(FullPath‚ "\")+1)
Else
GetFileName = ""
End If
End function
'取得擴展名
Private function GetFileExt(FullPath)
If FullPath <> "" Then
GetFileExt = mid(FullPath‚InStrRev(FullPath‚ ".")+1)
Else
GetFileExt = ""
End If
End function
End Class
'文件屬性類
Class FileInfo
dim FormName‚FileName‚FilePath‚FileSize‚FileType‚FileStart‚FileExt
Private Sub Class_Initialize
FileName = ""
FilePath = ""
FileSize = 0
FileStart= 0
FormName = ""
FileType = ""
FileExt = ""
End Sub
'保存文件方法
Public function SaveToFile(FullPath)
dim oFileStream‚ErrorChar‚i
SaveToFile=1
if trim(fullpath)="" or right(fullpath‚1)="/" then exit function
set oFileStream=CreateObject("Adodb.Stream")
oFileStream.Type=1
oFileStream.Mode=3
oFileStream.Open
oUpFileStream.position=FileStart
oUpFileStream.to oFileStream‚FileSize
oFileStream.SaveToFile FullPath‚2
oFileStream.Close
set oFileStream=nothing
SaveToFile=0
end function
End Class
%>
========================================
第三個文件:uploada.asp
<!--#include file="Inc/config.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
BODY{
BACKGROUND-COLOR: #f5feed;
font-size:9pt
}
.tx1 { height: 20px;font-size: 9pt; border: 1px solid; border-color: #000000; color: #0000FF}
-->
</style>
<link href="Manage/Inc/ManageMent.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0">
<%
if EnableUploadFile="Yes" then
%>
<form action="upfilea.asp" method="post" name="form1" enctype="multipart/form-data">
<input name="FileName" type="FILE" class="tx1" size="20">
<input type="submit" name="Submit" value="上傳" style="border:1px double rgb(88‚88‚88);font:9pt">
</form>
<%
end if
%>
</body>
</html>
============================
第四個文件：upfilea.asp
<!--#include file="Inc/config.asp"-->
<!--#include file="Inc/upload.asp"-->
<%
const upload_type=0 '上傳方法：0=無懼無組件上傳類，1=FSO上傳 2=lyfupload，3=aspupload，4=chinaaspupload
dim upload‚file‚formName‚SavePath‚filename‚fileExt
dim upNum
dim EnableUpload
dim Forumupload
dim ranNum
dim uploadfiletype
dim msg‚founderr
msg=""
founderr=false
EnableUpload=false
SavePath = "Upload" '存放上傳文件的目錄
if right(SavePath‚1)<>"/" then SavePath=SavePath&"/" '在目錄後加(/)
%>
<%
ComeinSTR=lcase(request.servervariables("HTTP_HOST"))
Url=split(ComeinSTR)
yourthing=Url(0)
%>
<html>
<head>
<link href="Manage/Inc/ManageMent.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<%
if EnableUploadFile="NO" then
response.write "系統未開放文件上傳功能"
else
select case upload_type
case 0
call upload_0() '使用化境無組件上傳類
case else
end select
end if
%>
</body>
</html>
<%
sub upload_0() '使用化境無組件上傳類
set upload=new upload_file '建立上傳對象
for each formName in upload.file '列出所有上傳了的文件
set file=upload.file(formName) '生成一個文件對象
if file.filesize<100 then
msg="請先選擇你要上傳的文件！"
founderr=true
end if
if file.filesize>(MaxFileSize*1024) then
msg="文件大小超過了限制，最大隻能上傳" & CStr(MaxFileSize) & "K的文件！"
founderr=true
end if
fileExt=lcase(file.FileExt)
Forumupload=split(UpFileType‚"|")
for i=0 to ubound(Forumupload)
if fileEXT=trim(Forumupload(i)) then
EnableUpload=true
exit for
end if
next
if fileEXT="asp" or fileEXT="asa" or fileEXT="aspx" then
EnableUpload=false
end if
if EnableUpload=false then
'msg="這種文件類型不允許上傳！\n\n只允許上傳這幾種文件類型：" & UpFileType
response.write"<script language=javascript>alert('這種文件類型不允許上傳！\n\n只允許上傳這幾種文件類型：" &
UpFileType & "');"
response.write"javascript:history.go(-1)</script>"
founderr=true
end if
strJS="<script language=javascript>" & vbcrlf
if founderr<>true then
randomize
ranNum=int(900*rnd)+100
filename=SavePath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&"."&fileExt
file.SaveToFile Server.mappath(FileName) '保存文件
msg="上傳文件成功！"
FileType=right(fileExt‚3)
select case FileType
case "jpg"‚"gif"‚"png"‚"bmp"
case "swf"
case else
strJS=strJS & "range.text=' 點擊瀏覽該文件';" & vbcrlf
end select
end if
strJS=strJS & "alert('" & msg & "');" & vbcrlf
strJS=strJS & "</script>"
response.write strJS
response.write "圖片上傳成功!文件路徑是 /" & filename & "<br>"
response.write "http://";; & yourthing & "/" & filename & "<br>"
set file=nothing
next
set upload=nothing
end sub
%>
⑶ ASP網站中，怎樣把本地文件中的圖片，上傳到網站中的image文件夾中
Asp.Net上傳文件示例（保存文件路徑到資料庫）
把下面的代碼保存為Upload.aspx即可運行（事先在同目錄下建立一個Upload文件夾保存上傳的文件，再建立一個資料庫、表Upload，欄位ID：自動編號，FilePath：文本型）：
<%@Import Namespace =Namespace="System.Data"%>
<%'@Import Namespace="System.Data.OleDb"%> <!--Access資料庫用這個-->
<%@Import Namespace =Namespace="System.Data.SqlClient"%> <!--SQL Server資料庫用這個-->
<script language="VB" runat="server">
Sub UploadFile()Sub UploadFile(sender As Object, e As EventArgs)
Dim FileExt
FileExt = LCase(Right(Trim(FileUp.Value),3))
If FileExt = "gif" Or FileExt = "jpg" Or FileExt = "bmp" Or FileExt = "png" Or FileExt = "tif" Or LCase(Right(Trim(FileUp.Value),4)) = "jpeg" Then
If FileUp.PostedFile.ContentLength = 0 Then
FileInfo.Visible = False
Exit Sub
Else
FileInfo.Visible = True
End If
FSize.Text = CStr(FileUp.PostedFile.ContentLength)
FName.Text = FileUp.PostedFile.FileName
Dim FileSplit() As String = Split( FileUp.PostedFile.FileName, "\" )
Dim FileName As String = FileSplit(FileSplit.Length-1)
FileUp.PostedFile.SaveAs( Server.MapPath(".") & "\Upload\" & FileName )
'把文件路徑寫入資料庫 By Dicky 2005-7-12 9:26:29
' Access資料庫用這個
' Dim objCommand As OleDbCommand
' Dim objConnection As OleDbConnection
' objConnection = New OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;Data Source="+Server.MapPath("Upload.mdb"))
' objCommand = New OleDbCommand("Insert Into Upload (FilePath) Values ('Upload/"+FileName+"')" , objConnection)
' Access資料庫用這個
' SQL Server資料庫用這個
Dim objCommand As SqlCommand
Dim objConnection As SqlConnection
objConnection = New SqlConnection("Server=localhost;Uid=sa;Pwd=;Database=Shat_edg")
objCommand = New SqlCommand("Insert Into Upload (FilePath) Values ('Upload/"+FileName+"')" , objConnection)
' SQL Server資料庫用這個
objConnection.Open()
objCommand.ExecuteNonQuery()
objConnection.Close()
'把文件路徑寫入資料庫 By Dicky 2005-7-12 9:26:29
Dim Exts() As String = Split( FileName, "." )
Dim Ext As String = LCase(Exts(Exts.Length-1))
If Ext <> "jpg" And Ext <> "jpeg" And Ext <> "gif" And Ext <> "txt" And Ext <> "htm" And Ext <> "html" Then
FDisplay.Visible = False
Else
FDisplay.Text = "<A Target='_blank' HREF='Upload/" & _
FileName & "'>上傳文件</A>"
End If
Response.Write("上傳成功！")
Else
' Msgbox("對不起，只能上傳擴展名為gif、jpg、bmp、png、tif或jpeg等圖片文件！",65,"a")
Response.Write("對不起，只能上傳擴展名為gif、jpg、bmp、png、tif或jpeg等圖片文件！")
End If
End Sub
</script>
<Html>
<head>
<title>文件上傳</title>
</head>
<Body BgColor=White>
<H3>上傳文件<Hr></H3>
<Form Name="Form1" Enctype="multipart/form-data" runat="server">
上傳文件
<Input Type="File" id="FileUp" runat="server"><P>
<Asp:button id="Upload" OnClick="UploadFile" Text="Upload"
runat="server"/>
</form><Hr>
<Div id="FileInfo" Visible="False" runat="server">
上傳文件名 <Asp:Label id="FName" runat="server"/><br>
上傳文件大小 <Asp:Label id="FSize" runat="server"/><br>
<Asp:Label id="FDisplay" runat="server"/>
</Div>
</Body>
</Html>
⑷ aspx網站 怎麼將用戶所選的圖片上傳資料庫並返回
<appSettings>
<add key="ConnectionString" value="server=localhost;uid=sa;pwd=;database=pubs"/>
</appSettings>
using System.Configuration;
下面是獲取連接
SqlConnection myConn=new SqlConnection(ConfigurationSettings.AppSettings["ConnectionString"]);
⑸ asp.net如何上傳圖片
上傳用控制項啊
aspx頁
<asp:FileUpload id="fuImage" runat="server"/>
Code頁
//提交按鈕的點擊事件
protected void btnSubmit_Click(object sender, EventArgs e)
{
string virpath="my.jpg";//這是存到伺服器上的虛擬路徑
string mappath=Server.MapPath(virpath);//轉換成伺服器上的物理路徑
fuImage.PostedFile.SaveAs(mappath);//保存圖片
//然後就是把這個路徑信息錄入到資料庫里，我一般都會有個圖片表
}
⑹ 誰能告訴我怎樣在ASP CKEditor 中實現上傳圖片功能
1、項目先新建Lbrary文件夾跟js文件夾（js小寫）並在js文件夾下，在簡歷ckeditor和ckfinder文件夾，壓縮包找到其中/bin/Debug下的CKEditor.NET.dll考到新建的文件夾下，如後在引用中右鍵添加對剛才的CKEditor.NET.dll的引用，如圖：
⑺ ASP裡面如何上傳圖片
1.如果伺服器裝了文件上傳組件,可查閱一下該組件的相關屬性和方法,不過現在很多伺服器空間都不支持這類組件.暫不在這里討論.
2.若伺服器不支持文件上傳組件,可以考慮自己寫個無組件上傳程序,網上有一個"化境無組件上傳"比較經典,也比較好用.地址:http://www.5xsoft.com/Down.aspx?id=2.
你可以下載一個參考,裡面的說明很詳細.
不過可能有的伺服器也不會支持,因為該組件可能會被視為木馬之類而被清除.
3.利用伺服器的FSO組件可實現文本文件之類的在線讀寫,但要實現上傳圖片估計不能,我還沒見過.
4.以上辦法都不行時,我們可以考慮將圖片上傳到資料庫.下面以Access為例,看一個簡單的代碼:
首先建一個資料庫,假設為(img.mdb).在其中建一表(pic),表中有兩個欄位(id,img),id數據類型為"自動編號",img的類型為"OLE對象".
下面用三個文件用來實現圖片功能,conn.asp是定義資料庫連接函數的,up.asp用來上傳圖片,show.asp用來從資料庫讀取圖片.
-------------conn.asp--------------
<%
dim conn,rs
function getdata(sql)
dbpath="img.mdb"
set conn=server.CreateObject("ADODB.connection")
connstr="provider=Microsoft.jet.oledb.4.0;data source="&server.MapPath(dbpath)
conn.open connstr
set rs=server.CreateObject("ADODB.recordset")
rs.open sql,conn,3,2
end function
sub rsclose()
rs.close()
set rs=nothing
conn.close()
set conn=nothing
end sub
%>
---------------up.asp---------------
<html>
<body>
<form action="up.asp" method="post" enctype="multipart/form-data" >
<input type="file" size="12" name="imgurl" id="imgurl">
<input type="submit" value="upload">
</form>
</body>
</html>
<%
if (request.totalbytes)>0 then '如果有數據提交,則進行下面的處理
%>
<!--#include file="conn.asp"-->
<%
formsize=request.totalbytes
formdata=request.binaryread(formsize)
bncrlf=chrB(13)&chrB(10)
divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)
datastart=instrb(formdata,bncrlf&bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
mydata=midb(formdata,datastart,dataend)
sql="select * from pic"
getdata(sql)
rs.addnew
rs("img").AppendChunk myData
rs.update
rsclose()
response.clear
response.write "success!"
end if
%>
-------------show.asp--------------
<!--#include file="conn.asp"-->
<%
id=trim(request("id"))
sql="select * from pic where id="&id
getdata(sql)
Response.ContentType="image/*"
Response.BinaryWrite rs("img").getChunk(8000000)
rsclose()
%>
圖片上傳後就可以通過show.asp?id=*來讀取了,你也可以直接將圖片用<img>標簽插入其他頁面中,如<img src="show.asp?id=1" />
不好意思,未做注釋,有不懂的先到網上搜一下,不行再聯系我吧
⑻ asp.net上傳圖片到伺服器路徑的問題
應該這樣寫：
filepath = Server.MapPath("~")&"/image/"& dl1.SelectedValue & "/" & filename '上傳路徑 ，這樣即使是把網站放在虛擬目錄下頁沒問題
你只要記住一點：Server.MapPath()方法是獲取你伺服器上你存放文件的物理地址，假如你把網站根目錄指向d:\wwwroot\fqueen,那麼就可以通過 Server.MapPath("~")的方法獲得你的這個根目錄。
當然也可以用HttpContext.Current.Request.MapPath()的方法，不過要注意路徑。
補充：
======================================
即使你的upload.aspx在web_eng下(web_eng/upload.aspx)，使用上面的方法也一樣的，因為filepath = Server.MapPath("~")&"/image/" 就是指向你的伺服器物理地址：d:\wwwroot\fqueen\images 的，所以無論你將upload.aspx文件放在什麼目錄下，上傳文件的路徑都是正確的。
⑼ ASP上傳圖片代碼，最簡單的
無懼無組件上傳：
這是放到前面讓選擇圖片的代碼和上傳按鈕 <form action="Upfile_ProctPic.asp?Act=index" method="post" name="form2" onSubmit="return check()" enctype="multipart/form-data">
<input name="FileName" type="FILE" class="tx1" size="22">
<input type="submit" name="Submit1" value="上傳" style="border:1px double rgb(88,88,88);font:9pt">
</form>
這是Upfile_ProctPic.asp文件，修改下存儲路徑和數據表
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"><%@language=vbscript codepage=936 %>
<!--#include file="config.asp"-->
<!--#include file="upfile_class.asp"-->
<!--#include virtual="/config/config.asp"-->
<%
picname=Requesta("Act")
const upload_type=0 '上傳方法：0=無懼無組件上傳類，1=FSO上傳 2=lyfupload，3=aspupload，4=chinaaspupload
'const SaveUpProctPicPath="UploadProctPic"
'const UpProctPicType="jpg|gif|png|bmp"
'const MaxProctPicSize=20480000
dim upload,oFile,formName,SavePath,FileName,fileExt,oFileSize
dim EnableUpload
dim arrUpFileType
dim ranNum
dim msg,FoundErr
msg=""
FoundErr=false
EnableUpload=false
SavePath = "upfiles/" '存放上傳文件的目錄
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body leftmargin="2" topmargin="5" marginwidth="0" marginheight="0">
<%
if EnableUploadFile="No" then
response.write "系統未開放文件上傳功能"
else
select case upload_type
case 0
call upload_0() '使用化境無組件上傳類
case else
'response.write "本系統未開放插件功能"
'response.end
end select
end if
%>
</body>
</html>
<%
sub upload_0() '使用化境無組件上傳類
set upload=new upfile_class ''建立上傳對象
upload.GetData(20480000) '取得上傳數據,限制最大上傳500K
if upload.err > 0 then '如果出錯
select case upload.err
case 1
response.write "請先選擇你要上傳的文件！"
case 2
response.write "你上傳的文件總大小超出了最大限制（20M）"
end select
response.end
end if
for each formName in upload.file '列出所有上傳了的文件
EnableUpload=False
set ofile=upload.file(formName) '生成一個文件對象
oFileSize=ofile.filesize
if oFileSize<10 then
msg="請先選擇你要上傳的文件!！"
FoundErr=True
elseif ofilesize>(MaxProctPicSize*1024) then
msg="文件大小超過了限制，最大隻能上傳" & CStr(MaxProctPicSize) & "K的文件！"
FoundErr=true
end if
fileExt=lcase(ofile.FileExt)
arrUpFileType=split(UpProctPicType,"|")
for i=0 to ubound(arrUpFileType)
if fileEXT=trim(arrUpFileType(i)) then
EnableUpload=true
exit for
end if
next
if fileEXT="asp" or fileEXT="asa" or fileEXT="aspx" or fileEXT="cer" or fileEXT="cdx" then
EnableUpload=false
end if
if EnableUpload=false then
msg="這種文件類型不允許上傳！\n\n只允許上傳這幾種文件類型：" & UpProctPicType
FoundErr=true
end if
strJS="<SCRIPT language=javascript>" & vbcrlf
if FoundErr<>true then
randomize
ranNum=int(900*rnd)+100
FileName="../../"&SavePath&picname&"."&fileExt
ofile.SaveToFile Server.mappath(FileName) '保存文件
conn.open constr
sql="update indexPic set p_picture='"&picname&"."&fileExt&"' where p_name='"&picname&"'"
conn.execute(sql)
conn.close
Alert_reDirect "上傳成功！","indexPic.asp"
end if
next
set upload=nothing
end sub
%>
這是upfile_class.asp文件，不用更改。
<%
Dim oUpFileStream
'----------------------------------------------------------------------
'文件上傳類
Class UpFile_Class
Dim Form,File,Version,Err
Private Sub Class_Initialize
Version = "無懼上傳類 Version V1.2"
Err = -1
End Sub
Private Sub Class_Terminate
'清除變數及對像
If Err < 0 Then
Form.RemoveAll
Set Form = Nothing
File.RemoveAll
Set File = Nothing
oUpFileStream.Close
Set oUpFileStream = Nothing
End If
End Sub
Public Sub GetData (MaxSize)
'定義變數
Dim RequestBinDate,sSpace,bCrLf,sInfo,iInfoStart,iInfoEnd,tStream,iStart,oFileInfo
Dim iFileSize,sFilePath,sFileType,sFormValue,sFileName
Dim iFindStart,iFindEnd
Dim iFormStart,iFormEnd,sFormName
'代碼開始
If Request.TotalBytes < 1 Then '如果沒有數據上傳
Err = 1
Exit Sub
End If
If MaxSize > 0 Then '如果限制大小
If Request.TotalBytes > MaxSize Then
Err = 2 '如果上傳的數據超出限制
Exit Sub
End If
End If
Set Form = Server.CreateObject ("Scripting.Dictionary")
Form.CompareMode = 1
Set File = Server.CreateObject ("Scripting.Dictionary")
File.CompareMode = 1
Set tStream = Server.CreateObject ("ADODB.Stream")
Set oUpFileStream = Server.CreateObject ("ADODB.Stream")
oUpFileStream.Type = 1
oUpFileStream.Mode = 3
oUpFileStream.Open
oUpFileStream.Write Request.BinaryRead (Request.TotalBytes)
oUpFileStream.Position = 0
RequestBinDate = oUpFileStream.Read
iFormEnd = oUpFileStream.Size
bCrLf = ChrB (13) & ChrB (10)
'取得每個項目之間的分隔符
sSpace = MidB (RequestBinDate,1, InStrB (1,RequestBinDate,bCrLf)-1)
iStart = LenB (sSpace)
iFormStart = iStart+2
'分解項目
Do
iInfoEnd = InStrB (iFormStart,RequestBinDate,bCrLf & bCrLf)+3
tStream.Type = 1
tStream.Mode = 3
tStream.Open
oUpFileStream.Position = iFormStart
oUpFileStream.CopyTo tStream,iInfoEnd-iFormStart
tStream.Position = 0
tStream.Type = 2
tStream.CharSet = "gb2312"
sInfo = tStream.ReadText
'取得表單項目名稱
iFormStart = InStrB (iInfoEnd,RequestBinDate,sSpace)-1
iFindStart = InStr (22,sInfo,"name=""",1)+6
iFindEnd = InStr (iFindStart,sInfo,"""",1)
sFormName = Trim(Mid (sinfo,iFindStart,iFindEnd-iFindStart))
'如果是文件
If InStr (45,sInfo,"filename=""",1) > 0 Then
Set oFileInfo = new FileInfo_Class
'取得文件屬性
iFindStart = InStr (iFindEnd,sInfo,"filename=""",1)+10
iFindEnd = InStr (iFindStart,sInfo,"""",1)
sFileName = Trim(Mid(sinfo,iFindStart,iFindEnd-iFindStart))
oFileInfo.FileName = Mid (sFileName,InStrRev (sFileName, "\")+1)
oFileInfo.FilePath = Left (sFileName,InStrRev (sFileName, "\"))
oFileInfo.FileExt = Mid (sFileName,InStrRev (sFileName, ".")+1)
iFindStart = InStr (iFindEnd,sInfo,"Content-Type: ",1)+14
iFindEnd = InStr (iFindStart,sInfo,vbCr)
oFileInfo.FileType = Mid (sinfo,iFindStart,iFindEnd-iFindStart)
oFileInfo.FileStart = iInfoEnd
oFileInfo.FileSize = iFormStart -iInfoEnd -2
oFileInfo.FormName = sFormName
file.add sFormName,oFileInfo
else
'如果是表單項目
tStream.Close
tStream.Type = 1
tStream.Mode = 3
tStream.Open
oUpFileStream.Position = iInfoEnd
oUpFileStream.CopyTo tStream,iFormStart-iInfoEnd-2
tStream.Position = 0
tStream.Type = 2
tStream.CharSet = "gb2312"
sFormValue = tStream.ReadText
If Form.Exists (sFormName) Then
Form (sFormName) = Form (sFormName) & ", " & sFormValue
else
form.Add sFormName,sFormValue
End If
End If
tStream.Close
iFormStart = iFormStart+iStart+2
'如果到文件尾了就退出
Loop Until (iFormStart+2) >= iFormEnd
RequestBinDate = ""
Set tStream = Nothing
End Sub
End Class
'----------------------------------------------------------------------------------------------------
'文件屬性類
Class FileInfo_Class
Dim FormName,FileName,FilePath,FileSize,FileType,FileStart,FileExt
'保存文件方法
Public Function SaveToFile (Path)
if lcase((right(Path,3))<>lcase(FileExt)) then '經典的上傳漏洞^_^
response.Write ("<script language=javascript>alert('警告:不允許上傳這種文件!');</script>")
response.end
end if
On Error Resume Next
Dim oFileStream
Set oFileStream = CreateObject ("ADODB.Stream")
oFileStream.Type = 1
oFileStream.Mode = 3
oFileStream.Open
oUpFileStream.Position = FileStart
oUpFileStream.CopyTo oFileStream,FileSize
oFileStream.SaveToFile Path,2
oFileStream.Close
Set oFileStream = Nothing
End Function
'取得文件數據
Public Function FileData
oUpFileStream.Position = FileStart
FileData = oUpFileStream.Read (FileSize)
End Function
End Class
'**************************************************
'函數名：IsObjInstalled
'作 用：檢查組件是否已經安裝
'參 數：strClassString ----組件名
'返回值：True ----已經安裝
' False ----沒有安裝
'**************************************************
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
'-------------根據指定名稱生成目錄---------
Function MakeNewsDir(foldername)
dim fso,f
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateFolder(foldername)
MakeNewsDir = True
Set fso = nothing
End Function
%>