日韩欧美舔,超碰人人做人人爱,美女美妹逼逼

無組件上傳圖片到數(shù)據(jù)庫中，最完整解決方案

當(dāng)前位置：點(diǎn)晴教程→知識管理交流 →『技術(shù)文檔交流』

admin

2010年7月24日 8:28 本文熱度 5900

up.htm

<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>

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("請選擇要上傳的圖片");
return false;
}
if (frm.type.value=="")
{ alert("請選擇圖片類型");
return false;
}
if (frm.thetext.value=="")
{ alert("請輸入照片說明");
return false;
}
return true;
}
</script>
</head>

<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>

<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>拒絕色情、寫真圖等</font>

</table>

</body>
</html>

fupload.inc

'********************************** 得到上傳數(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ān)鍵字查詢

相關(guān)文章

正在查詢...

點(diǎn)晴ERP是一款針對中小制造業(yè)的專業(yè)生產(chǎn)管理軟件系統(tǒng),系統(tǒng)成熟度和易用性得到了國內(nèi)大量中小企業(yè)的青睞。

點(diǎn)晴PMS碼頭管理系統(tǒng)主要針對港口碼頭集裝箱與散貨日常運(yùn)作、調(diào)度、堆場、車隊(duì)、財(cái)務(wù)費(fèi)用、相關(guān)報(bào)表等業(yè)務(wù)管理，結(jié)合碼頭的業(yè)務(wù)特點(diǎn)，圍繞調(diào)度、堆場作業(yè)而開發(fā)的。集技術(shù)的先進(jìn)性、管理的有效性于一體，是物流碼頭及其他港口類企業(yè)的高效ERP管理信息系統(tǒng)。

點(diǎn)晴WMS倉儲管理系統(tǒng)提供了貨物產(chǎn)品管理,銷售管理,采購管理,倉儲管理,倉庫管理,保質(zhì)期管理,貨位管理,庫位管理,生產(chǎn)管理,WMS管理系統(tǒng),標(biāo)簽打印,條形碼,二維碼管理,批號管理軟件。

點(diǎn)晴免費(fèi)OA是一款軟件和通用服務(wù)都免費(fèi)，不限功能、不限時間、不限用戶的免費(fèi)OA協(xié)同辦公管理系統(tǒng)。

日韩欧美人妻无码精品白浆,www.大香蕉久久网,狠狠的日狠狠的操,日本好好热在线观看

無組件上傳圖片到數(shù)據(jù)庫中，最完整解決方案