- 1PS提示：因為圖層已鎖定，無法編輯圖層的處理方法
- 2picacg蘋果版怎么找不到|picacg ios版是不是下架了介紹
- 3Adobe Illustrator CS5 序列號大全
- 4ACDsee注冊碼免費分享（含ACDsee18、ACDsee10等版本）
- 5Potato(土豆聊天)怎么換頭像|Potato app更改頭像方法介紹
- 6PDF瀏覽器能看3D文件嗎？PDF瀏覽器看3D文件圖文詳細教程
- 7Potato(馬鈴薯聊天)怎么注冊不了|Potato不能注冊處理方法介紹
- 8最新的Adobe Illustrator CS4序列號大全
- 9Intel i7-9700K性能跑分曝光：同代提升約12%
- 10qq郵件是否已讀怎么看 QQ郵箱已經發出去的郵件怎么知道對方是否已經查看
- 11XP系統怎么清除緩存？
- 12Intel Z390主板有望10月8日公布：8核9代酷睿隨后登場
[摘要]一:前言 首先，沒有料到圖片與文本的上傳會引起這么大的注意。上一篇貼子(Id=435906)貼出后，有不少人來信說看不懂。或是仍然不能實現。我就以一種完全簡單的手法。完成無組件的文本與圖片上傳數...
一:前言首先，沒有料到圖片與文本的上傳會引起這么大的注意。上一篇貼子(Id=435906)貼出后，有不少人來信說看不懂。或
是仍然不能實現。我就以一種完全簡單的手法。完成無組件的文本與圖片上傳數據庫所有過程。希望能幫助所有對此有疑
問的網友。
二：準備工作
按照慣例，我先將我的測試環境告訴大家。
系統：Win98se + pws + asp
編程環境：Visual Interdev 6.0
數據庫：Access2000 （因為網友問的最多的都是Access2000的問題。）
建一個庫：access2000中，先建好一個Test.mdb的數據庫。具體有四個字段。
id text1 text2 img
自動編號 文本 文本 OLE對象 ’如果是sql server 則選擇(image即可)
三：Are you ready ,Go!!!
3-1.建上傳表單：
我們知道，圖像與文本是兩種不同制式的文件（二進制，流式文本）而如果要同一表單提交的話，(file格式提交)則
我們獲取時就不能用原來的方法request.form而必須用equest.TotalBytes來獲得所有的提交資料。但這時兩種格式的文件
混合在一起比較難分。我的上一貼已經告訴大家用二進制的方法來分開這些資料。但十分麻煩，要用到許多二進值的函
數，所以許多網友來信問我有沒有更簡單的方法,好。我可以告訴大家，有！而且保證下面的方法保證一學就會。（這種方
法很另類但偉人說過白貓，黑貓。能上網的就是好貓！）
upload.asp(具體代碼如下)
<% @ language=vbscript %>
<html>
<head>
<meta name="VI60_defaultClientScript" content="VBScript">
<title> File Upload </title>
<script ID="clientEventHandlersVBS" LANGUAGE="vbscript">
<!--
Sub form2_onsubmit //** 這里是關鍵，當form2在提交的過程中時，即活form1的提交
form1.submit //**所以我們這里用了兩個表單，但只用一個提交就可以了。
End Sub
-->
</script>
</head>
<body>
<form name="form1" ENCTYPE="multipart/form-data" ACTION="upimage.asp" METHOD="POST" target="_blank">
Please choose a picture to upload: <br>
<input NAME="picture" TYPE="FILE"> <br>
</form>
<form name="form2" action="uptext.asp" method="post">
<input type="text" name="text1"><br>
<input type="text" name="text2"><br>
<input type="submit" value="提交">
</form>
</body>
</html>
3-2 兵分兩路來處理數據。
首先，文本很簡單。
uptext.asp (代碼如下)
<% @ language=vbscript %>
<%
strconn="driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("test.mdb")
text1=request.form("text1")
text2=request.form("text2")
response.write text1
response.write text2
set rs=Server.CreateObject("adodb.recordset")
sql="SELECT top 1 * FROM imgtable ORDER BY id DESC" ’這里的意思是選擇最后一個Id,既剛剛被改動
rs.Open sql,strconn,1,3 ’就是你上傳的圖像的兩個文本字段。
rs("text1")=text1 ’注意，這里是改動不是添加，所以不用addnew。
rs("text2")=text2
rs.Update
rs.Close
%>
接著，來處理圖像。
upimage.asp (具體代碼如下)
<%
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")
strconn="driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("test.mdb")
sql="SELECT * FROM imgtable"
rs.Open sql,strconn,1,3
rs.AddNew ’因為表單二在表單一提交的過程中下提交了。
rs("img").appendchunk Image ’所以這里是添加。
rs.Update
rs.Close
response.contenttype="image/gif"
response.binarywrite imageup(formsize,formdata) ’這里是顯示圖像。表示成功！
%>
啊？！？！原來如此簡單！
四：“顯示，我要同頁顯示”
終于完成了圖文同步提交。（真的是同步嗎？不是嗎？是嗎？ 唉，我們只是為了解決問題。何必當真哪？不
是 嗎？）
現在我們還要讓他同頁顯示出來。其實，這是同樣的思路。我們也用兩頁來完成。
主頁面：show.asp
<%@ Language=VBScript %>
<%
strconn="driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("test.mdb")
set rs=Server.CreateObject("adodb.recordset")
sql="SELECT top 1 * FROM imgtable ORDER BY id DESC"
rs.Open sql,strconn,1,3
%>
<html>
<body>
以下是你的上傳資料。<br>
文本一：<% Response.Write rs("text1") %><br>
文本二：<% Response.Write rs("text2") %><br>
你的圖像：
<img src=showimg.asp?id=<%=rs("id")%>> ’注意這里，這才是關鍵。他可以實現網頁圖像與文本
</body> ’共存。
</html>
幕后頁面：showimg.asp （說他是幕后的頁面，因為他潛伏在主頁面里。看上是一個頁面一樣）
<%@ Language=VBScript %>
<%
strconn="driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("test.mdb")
id=Request("id")
set rs=server.CreateObject("adodb.recordset")
sql="SELECT * FROM imgtable where id="&id
rs.Open sql,strconn,1,3
response.contenttype="image/gif"
Response.BinaryWrite rs("img")
%>
（全文完：希望本文能幫助那些急于想解決本類問題的網友。）
推薦資訊 總人氣榜
最新教程 本月人氣
- 1新官上任，轉貼一篇：Java做一個最容易的通話程序
- 2使用API創建窗體（類似VC的創建過程）
- 3PHP編程：探索字串的奧秘
- 4asp.net高級圖文詳細教程（3）---對象
- 5Java平臺上的CRM系統
- 6釘釘怎么創建企業群組 創建企業群圖文說明教程
- 7美圖秀秀怎么做剪影 美圖秀秀制作剪影圖文說明教程
- 8酷我k歌怎么錄歌 酷我k歌錄歌圖文說明教程
- 9美圖秀秀怎么導入場景 美圖秀秀場景導入圖文說明教程
- 10花生地鐵wifi連不上怎么辦 花生地鐵wifi不能連接處理方法
- 11企業微信公費電話怎么收費 企業微信公費電話收費規范
- 12愛奇藝視頻截圖文件保存在什么地方 愛奇藝視頻截圖保存位置
- 1獵豹瀏覽器搶票不受12306新版驗證碼影響
- 2ios9不越獄怎么恢復短信與照片 ios9不越獄恢復短信與照片圖文說明教程
- 310天學會php之首天
- 4抱抱app怎么玩 抱抱app使用圖文說明教程圖
- 5360手機助手紅包怎么提現 360手機助手紅包提現設置流程
- 6160wifi遠程桌面怎么連接 160wifi遠程桌面連接設置方法
- 7微信PC版1.0.7.33官方下載公布 修好bug優化軟件
- 8手機登12306驗證碼總是出錯處理方法介紹
- 9Linux內核4.2優化了哪一些地方？
- 10linux系統使用命令維護RHCS的方法
- 113天學好ADO之首天
- 12小米note公布會視頻完整版 2015小米note公布會視頻直播
