亚洲欧洲日产国码无码,少妇把腿扒开让我添69式漫画,粗暴被双龙灌满两根堵住,成人片色情影院www成全影视

51網(wǎng)絡(luò)科技專業(yè)提供

香港空間

、

美國(guó)空間

、

PHP空間

、

國(guó)內(nèi)免備案空間

、

月付空間

、

免備案虛擬主機(jī)

，支持試用30天！
售前客服
在線咨詢
在線咨詢
售后服務(wù)
在線咨詢
微信咨詢
免備案空間咨詢
 
推薦產(chǎn)品
    300M國(guó)內(nèi)免備案空間
    300M網(wǎng)站空間，送60M數(shù)據(jù)庫(kù)!
    現(xiàn)價(jià)只要：22元/月
    500M國(guó)內(nèi)免備案空間
    500M網(wǎng)站空間，送100M數(shù)據(jù)庫(kù)!
    現(xiàn)價(jià)只要：29元/月
    1G國(guó)內(nèi)免備案空間
    1G網(wǎng)站空間，送300M數(shù)據(jù)庫(kù)!
    現(xiàn)價(jià)只要：39元/月
    500M香港免備案空間
    500M網(wǎng)站空間，送160M數(shù)據(jù)庫(kù)!
    現(xiàn)價(jià)只要：26元/月
    1G香港免備案空間
    1G網(wǎng)站空間，送300M數(shù)據(jù)庫(kù)!
    現(xiàn)價(jià)只要：36元/月
    100M美國(guó)空間
    100M網(wǎng)站空間，送30M數(shù)據(jù)庫(kù)!
    現(xiàn)價(jià)只要：12.8元/月
 
您的當(dāng)前位置：首頁(yè) > 常見問(wèn)題 > 建站常見問(wèn)題 > 正文
如何使用AspUpload組件上傳文件
文章來(lái)源：51網(wǎng)絡(luò)科技  點(diǎn)擊數(shù)：  更新時(shí)間：2012/12/20 17:08:43
購(gòu)買國(guó)內(nèi)免備案空間購(gòu)買香港空間【不限iis】寬屏網(wǎng)站制作【還送手機(jī)網(wǎng)站】
香港云主機(jī)/99元/月國(guó)內(nèi)空間【免費(fèi)備案】 特價(jià)網(wǎng)站空間
.Net專用空間網(wǎng)站快速排名 游戲空間【支持月付】
使用AspUpload組件上傳文件，使用范例代碼如下：

AspUpload組件上傳測(cè)試
<form method="POST" enctype="multipart/form-data" action="?act=upload">
 <input type="file" size="40" name="file1"><br>
 <!--<input type="file" size="40" name="file2"><br>
 <input type="file" size="40" name="file3"><br>-->
 <br>其他表單項(xiàng)<input type="text" name="uploadText" value=""><br>
 <br><input type="submit" value="上傳文件">
</form>
<% 
if request("act") = "upload" then

 AllowExt = "jpg,png,gif,zip,rar,sql,txt,bak"
 On Error Resume Next

 ' 新建AspUpload對(duì)象
 Set Upload = Server.CreateObject("Persits.Upload")

 ' 限制文件大小
 Upload.SetMaxSize 4194304, True

 ' 上傳路徑--當(dāng)前目錄下的test目錄
 uploadDir = Server.MapPath("test")

 ' 嘗試創(chuàng)建路徑文件夾,true表示忽略目錄已存在錯(cuò)誤
 Upload.CreateDirectory uploadDir, true

 ' 先上傳文件至服務(wù)器內(nèi)存
 Count = Upload.Save()

 ' 檢測(cè)上傳錯(cuò)誤
 If Err.Number = 8 Then
  Response.Write chinese2unicode("錯(cuò)誤: 文件過(guò)大!")
  Response.end
 Else
  If Err <> 0 Then
   response.write chinese2unicode("發(fā)生錯(cuò)誤：")
   response.write chinese2unicode(Err.Description)
   response.end
  End If
 End If

 'Response.Write chinese2unicode("共 " & Count & " 個(gè)文件") & "<br><br>"

 ' 指定一個(gè)上傳的表單文件
 Set File = Upload.Files("file1")
 If Not File Is Nothing Then
  ' 獲取原本文件名
  Filename = File.Filename
  ' 獲取文件擴(kuò)展名
  Fileext = File.Ext

  ' 檢測(cè)文件格式是否合格
  ChkStr = ","&Lcase(AllowExt)&","
  If Instr(ChkStr,","&right(Fileext,3)&",") <= 0 Then
   Response.Write chinese2unicode("錯(cuò)誤: 文件類型不正確!")
   response.write "<br>"
   response.write chinese2unicode("只允許:"&AllowExt)
   ' 刪除內(nèi)存中的臨時(shí)文件，以釋放內(nèi)存或硬盤空間(還可用Copy、Move兩個(gè)指令)
   File.Delete
  ' 檢測(cè)是否存在文件
  elseif Upload.FileExists(uploadDir & "\\" & Filename) Then
   File.SaveAs uploadDir & "\\" & Filename
   Response.Write chinese2unicode("已覆蓋存在相同文件名的文件: ") & File.Path
  ' 保存文件
  else
   File.SaveAs uploadDir & "\\" & Filename
   Response.Write chinese2unicode("文件已保存到: ") & File.Path
  end If
 Else
  Response.Write chinese2unicode("錯(cuò)誤: 您并沒有選擇文件!")
 End If

 Response.Write "<br><br>"

 '' 批量上傳文件，去掉注釋即可用。
 For Each File in Upload.Files
   'File.SaveAs uploadDir & "\\" & File.FileName
   'Response.Write chinese2unicode("文件已保存到: ") & File.Path & "<br>"
 Next


'Response.Write "<br><br>Files:<br>"
For Each File in Upload.Files
 'Response.Write File.Name & "= " & File.Path & " (" & File.Size &" bytes)<br>"
Next

'' 列出其他表單內(nèi)容(必須執(zhí)行Upload.Save()后才有效)
For Each Item in Upload.Form
 Response.Write Item.Name & " = " & Item.Value & "<br>"
Next

'列出指定的表單內(nèi)容
Response.Write "<br>"&chinese2unicode("列出指定內(nèi)容uploadText:"&Upload.Form("uploadText").value)

 

end if

 

' gb2312轉(zhuǎn)unicode，解決中文亂碼問(wèn)題
function chinese2unicode(Str) 
 dim i 
 dim Str_one 
 dim Str_unicode 
 for i=1 to len(Str) 
  Str_one=Mid(Str,i,1) 
  Str_unicode=Str_unicode&chr(38) 
  Str_unicode=Str_unicode&chr(35) 
  Str_unicode=Str_unicode&chr(120) 
  Str_unicode=Str_unicode& Hex(ascw(Str_one)) 
  Str_unicode=Str_unicode&chr(59) 
 next 
 Response.Write Str_unicode 
end function     
%>

國(guó)內(nèi)、香港、美國(guó)、全免備案hnscxh.com－－51網(wǎng)絡(luò)科技，專業(yè)免備案空間提供商！
本文網(wǎng)址：http://hnscxh.com/question_4/149.html
相關(guān)文章