無(wú)組件上傳圖片到數(shù)據(jù)庫(kù)中，最完整解決方案
當(dāng)前位置：點(diǎn)晴教程→知識(shí)管理交流
→『 技術(shù)文檔交流 』
up.htm
<!--#include file="inc/domin.asp"-->
<!--#include file="conn.asp"--> <html> <head> <title><% =webname %></title> <meta http-equiv="content-type" content="text/html; charset=gb2312"> <link rel="stylesheet" href="main.css" type="text/css"> <style type="text/css"> <!-- .tx1 { height: 20px; width: 30px; border: 1px solid; border-color: black black #000000; color: #0000ff}
--> </style> <script language="javascript">
<!-- var bgc_on=new array("#74d738","#ff9c17","#3278ab","#486177","#078c00","#007eca") var bgc_off=new array("#4cad12","ffb859","5f9fd0","577590","08a700","009fff") function turnon(obj1,id){
obj1.style.background=bgc_on[id]; } function turnoff(obj1,id){ obj1.style.background=bgc_off[id]; } //-->
</script> <script language=javascript> function check_input() { if (frm.pic.value=="") { alert("請(qǐng)選擇要上傳的圖片"); return false; } if (frm.type.value=="") { alert("請(qǐng)選擇圖片類(lèi)型"); return false; } if (frm.thetext.value=="") { alert("請(qǐng)輸入照片說(shuō)明"); return false; } return true; } </script> </head> <body bgcolor="#555555" text="#000000" leftmargin="0" topmargin="0">
<table width=755 cellpadding=0 cellspacing=0 border=0 bgcolor=#ffffff align="center"> <tr> <td height=100><img src="img/top.gif" align="top"> </table> <!--#include file="inc/mulu.asp"-->
<table width=755 cellpadding=0 cellspacing=0 border=0 bgcolor=#ffffff align="center" bordercolor=#000000> <tr> <td height=400 width=180 bgcolor=#d1e9d5 style="border-right: 1px #0e801e solid"> <table width=100% height=100% cellpadding=0 cellspacing=0 border=0 align="center" bordercolor=#000000> <tr><td height=30 align="center" class=l15><font color=#e96d08>歡迎你：<% =username %> 管理中心</font> <tr><td height=23 align="center" class=l15 bgcolor=#4cad12 style="border-top:0px #0e801e solid; border-bottom:1px #0e801e solid;"><font color=#c2f009 class=yinying>管 理 中 心</font> <tr><td height=20 class=l13> <!--#include file="inc/centermulu.asp"--> <tr><td height=5> <tr><td> </table> <td> <% set rs=server.createobject("adodb.recordset") sql="select * from photo where author='"&username&"'" rs.open sql,conn,1,1 %> <table cellpadding=0 cellspacing=0 border=0 width=100% height=100%> <tr><td height=3> <tr><td height=3 bgcolor=#ffffff background=img/bj3.gif> <tr><td height=20 valign="bottom" bgcolor=#eeeeee> 現(xiàn)在位置： ******班 - 管理中心 - 添加新聞 <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 height=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>拒絕色情、寫(xiě)真圖等</font> <tr><td height=25 width=20% align="right" class=l13>照片分類(lèi)： <td> <select name="type">
<option selected value="">選擇類(lèi)型</option> <option value="班級(jí)合影">班級(jí)合影</option> <option value="個(gè)人照片">個(gè)人照片</option> <option value="恩師照片">恩師照片</option> <option value="情人照片">情人照片</option> <option value="友人照片">友人照片</option> <option value="其他照片">其他照片</option> </select> <tr><td height=25 width=20% align="right" class=l13>照片說(shuō)明： <td> <textarea name="thetext" cols="46" rows="7" style="border:1px double rgb(88,88,88);font:14px">
</textarea> <font color=red>最多20個(gè)字符</font> <tr><td height=5 colspan=2> <tr><td height=25 colspan=2 align="center"> <input type="submit" name="submit" value=" 提 交 " style="border:1px double rgb(88,88,88);font:14px"> <input type="reset" name="reset" value=" 重 寫(xiě) " style="border:1px double rgb(88,88,88);font:14px"> <tr><td colspan=2> </tr></form> </table> </table> </table>
<!--#include file="inc/footer.asp"--> </body> </html> fupload.inc <script runat=server language=vbscript>
'限制上傳圖片大小 dim uploadsizelimit '********************************** 得到上傳數(shù)據(jù) **********************************
function getupload() dim result set result = nothing if request.servervariables("request_method") = "post" then 'request method must be "post" dim ct, posb, boundary, length, pose ct = request.servervariables("http_content_type") 'reads content-type header if lcase(left(ct, 19)) = "multipart/form-data" then 'content-type header must be "multipart/form-data" 'this is upload request. 'get the boundary and length from content-type header posb = instr(lcase(ct), "boundary=") 'finds boundary if posb > 0 then boundary = mid(ct, posb + 9) 'separetes boundary length = clng(request.servervariables("http_content_length")) 'get content-length header if "" & uploadsizelimit<>"" then uploadsizelimit = clng(uploadsizelimit) if length > uploadsizelimit then ' on error resume next 'clears the input buffer ' response.addheader "connection", "close" ' on error goto 0 request.binaryread(length) err.raise 2, "getupload", "upload size " & formatnumber(length,0) & "b exceeds limit of " & formatnumber(uploadsizelimit,0) & "b" exit function end if end if if length > 0 and boundary <> "" then 'are there required informations about upload ?
boundary = "--" & boundary dim head, binary binary = request.binaryread(length) 'reads binary data from client 'retrieves the upload fields from binary data
set result = separatefields(binary, boundary) binary = empty 'clear variables else err.raise 10, "getupload", "zero length request ." end if else err.raise 11, "getupload", "no file sent." end if else err.raise 1, "getupload", "bad request method." end if set getupload = result end function function separatefields(binary, boundary) dim posopenboundary, poscloseboundary, posendofheader, islastboundary dim fields boundary = stringtobinary(boundary) posopenboundary = instrb(binary, boundary)
poscloseboundary = instrb(posopenboundary + lenb(boundary), binary, boundary, 0) set fields = createobject("scripting.dictionary")
do while (posopenboundary > 0 and poscloseboundary > 0 and not islastboundary)
'header and file/source field data dim headercontent, fieldcontent 'header fields dim content_disposition, formfieldname, sourcefilename, content_type 'helping variables dim field, twocharsafterendboundary 'get end of header posendofheader = instrb(posopenboundary + len(boundary), binary, stringtobinary(vbcrlf + vbcrlf)) 'separates field header
headercontent = midb(binary, posopenboundary + lenb(boundary) + 2, posendofheader - posopenboundary - lenb(boundary) - 2) 'separates field content
fieldcontent = midb(binary, (posendofheader + 4), poscloseboundary - (posendofheader + 4) - 2) 'separates header fields from header
該文章在 2010/7/24 8:28:55 編輯過(guò) |
關(guān)鍵字查詢(xún)
相關(guān)文章
正在查詢(xún)... 
|
400 186 1886
