อัปโหลดรูปภาพไปยังฐานข้อมูลโดยไม่มีส่วนประกอบ ถือเป็นโซลูชั่นที่สมบูรณ์ที่สุด

ผู้เขียน：Eve Cole เวลาอัปเดต：2009-06-23 16:59:05

up.htm

<html>
<หัว>
<title><% =ชื่อเว็บ %></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 { ความสูง: 20px; ความกว้าง: 30px; ขนาดตัวอักษร: 9pt; เส้นขอบ: 1px ทึบ; ขอบสี: สีดำ สีดำ

#000000; สี: #0000FF}
-
</style>

ฟังก์ชันเปิด (obj1,id){
obj1.style.พื้นหลัง=bgc_on[id];
-
ฟังก์ชั่นปิด (obj1, id) {
obj1.style.พื้นหลัง=bgc_off[id];
}

//-->
</สคริปต์>
<ภาษาสคริปต์=จาวาสคริปต์>
ฟังก์ชั่น check_input()
-
ถ้า (Frm.pic.value=="")
{ alert("请选择要上传的文字");
กลับเท็จ;
-
ถ้า (Frm.type.value=="")
{ alert("请选择上类型");
กลับเท็จ;
-
ถ้า (Frm.thetext.value=="")
{ alert("请输入foto说明");
กลับเท็จ;
-
กลับเป็นจริง;
-
</สคริปต์>
</head>

<ความกว้างของตาราง=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 ทึบ">
<ความกว้างของตาราง=100% ความสูง=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 คลาส =yinying>管理中 heart</font>
<tr><td ความสูง=20 คลาส=L13>

<tr><td ความสูง=5>
<tr><td>
</ตาราง>
<td>
-
ตั้งค่า rs=server.createobject("adodb.recordset")
sql = "เลือก * จากรูปภาพโดยที่ author ='"&ชื่อผู้ใช้&"'"
rs.open sql,conn,1,1
-
<เซลล์ตาราง = 0 ช่องว่าง = 0 เส้นขอบ = 0 ความกว้าง = 100% ความสูง = 100%>
<tr><td ความสูง=3>
<tr><td height=3 bgcolor=#ffffff background=img/bj3.gif>
<tr><td height=20 valign="bottom" bgcolor=#eeeeee> 现在位置： 98243班 - 管理中จิตวิญญาณ - 添加新闻
<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>管理以前上传的前上传的foto</u></font></a>
<tr><td bgcolor=#ffffff valign=top>
<table cellpadding=0 cellspacing=0 border=0 width=95% height=100% align="center">
<การกระทำของแบบฟอร์ม=addphoto.asp method=ชื่อโพสต์=Frm onSubmit="return check_input()" enctype="multipart/form-data">
<tr><td ความสูง=20 โคลสแปน=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>

<tr><td height=25 width=20% align="right" class=L13>ภาพถ่าย分类： <td> <select name=" พิมพ์">
<option select value="">选择类型</option>
<option value="班级合影">班级合影</option>
<option value="个人foto">个人foto</option>
<option value="恩师Photo">恩师Photo</option>
<option value="情人fotograf">情人Photo</option>
<option value="友人foto">友人foto</option>
<option value="其他Photo">其他foto</option>
</select>

<tr><td height=25 width=20% align="right" class=L13>ภาพถ่าย说明： <td> <textarea name="thetext" cols="46" rows="7" style= "border:1px double rgb(88,88,88);font:9pt">
</textarea> <font color=red>最多20个字符</font>
<tr><td ความสูง=5 โคลสแปน=2>
<tr><td height=25 colspan=2 align="center">
<input type="submit" name="Submit" value=" 提交 " style="border:1px double rgb(88,88,88);font:9pt">
<input type="reset" name="Reset" value=" 重写 " style="border:1px double rgb(88,88,88);font:9pt">
<tr><td โคลสแปน=2>
</tr></รูปแบบ>
</ตาราง>
</ตาราง> </

ตาราง>

</ร่างกาย>
</html>

fupload.inc

<SCRIPT RUNAT=ภาษาเซิร์ฟเวอร์=VBSCRIPT>
'限制上传上用
Dim UploadSizeLimit

'************************************ 得到上传数据 ******** ************************
ฟังก์ชัน GetUpload()
ผลลัพธ์สลัว
กำหนดผลลัพธ์ = ไม่มีเลย
ถ้า Request.ServerVariables("REQUEST_METHOD") = "POST" ดังนั้น 'วิธีการร้องขอต้องเป็น "POST"
Dim CT, PosB, ขอบเขต, ความยาว, PosE
CT = Request.ServerVariables("HTTP_Content_Type") 'อ่านส่วนหัวของประเภทเนื้อหา
ถ้า LCase(Left(CT, 19)) = "multipart/form-data" ดังนั้น 'Content-Type header must be "multipart/form-data"
'นี่คือคำขออัปโหลด
'รับขอบเขตและความยาวจากส่วนหัว Content-Type
PosB = InStr(LCase(CT), "boundary=") 'ค้นหาขอบเขต
ถ้า PosB > 0 ดังนั้น ขอบเขต = กลาง(CT, PosB + 9) 'แยกขอบเขต
ความยาว = CLng (Request.ServerVariables ("HTTP_Content_Length")) 'รับส่วนหัวความยาวเนื้อหา
ถ้า "" & UploadSizeLimit<>"" แล้ว
UploadSizeLimit = clng(UploadSizeLimit)
ถ้าความยาว > UploadSizeLimit แล้ว
' ในข้อผิดพลาดดำเนินการต่อ ถัดไป 'ล้างบัฟเฟอร์อินพุต
' response.AddHeader "การเชื่อมต่อ", "ปิด"
' บนข้อผิดพลาดไปที่ 0
คำขอ BinaryRead (ความยาว)
Err.Raise 2, "GetUpload", "ขนาดอัพโหลด" & FormatNumber(Length,0) & "B เกินขีดจำกัดของ" & FormatNumber(UploadSizeLimit,0) & "B"
ฟังก์ชั่นทางออก
สิ้นสุดถ้า
สิ้นสุดถ้า

If ความยาว > 0 และขอบเขต <> "" แล้ว 'มีข้อมูลที่จำเป็นเกี่ยวกับการอัพโหลดหรือไม่?
ขอบเขต = "--" & ขอบเขต
ดิมเฮด, ไบนารี่
Binary = Request.BinaryRead(Length) 'อ่านข้อมูลไบนารี่จากไคลเอนต์

'ดึงฟิลด์อัพโหลดจากข้อมูลไบนารี
กำหนดผลลัพธ์ = SeparateFields(ไบนารี, ขอบเขต)
ไบนารี = ว่าง 'ล้างตัวแปร
อื่น
Err.Raise 10, "GetUpload", "คำขอความยาวเป็นศูนย์ "
สิ้นสุดถ้า
อื่น
ข้อผิดพลาดยก 11, "GetUpload", "ไม่มีไฟล์ที่ส่ง"
สิ้นสุดถ้า
อื่น
Err.Raise 1, "GetUpload", "วิธีการร้องขอไม่ถูกต้อง"
สิ้นสุดถ้า
ตั้งค่า GetUpload = ผลลัพธ์
ฟังก์ชันสิ้นสุด

ฟังก์ชั่น SeparateFields (ไบนารี, ขอบเขต)
Dim PosOpenBoundary, PosCloseBoundary, PosEndOfHeader, isLastBoundary
ทุ่งสลัว
ขอบเขต = StringToBinary(ขอบเขต)

PosOpenBoundary = InstrB(Binary, ขอบเขต)
PosCloseBoundary = InstrB(PosOpenBoundary + LenB(Boundary), Binary, Boundary, 0)

Set Fields = CreateObject("Scripting.Dictionary")

Do While (PosOpenBoundary > 0 และ PosCloseBoundary > 0 และไม่ใช่ isLastBoundary)
'ข้อมูลฟิลด์ส่วนหัวและไฟล์/แหล่งที่มา'
Dim HeaderContent, FieldContent
'ฟิลด์ส่วนหัว
Dim Content_Disposition, FormFieldName, SourceFileName, Content_Type
'ช่วยตัวแปร
ฟิลด์ติ่มซำ, TwoCharsAfterEndBoundary
'รับส่วนท้ายของส่วนหัว
PosEndOfHeader = InstrB(PosOpenBoundary + Len(Boundary), Binary, StringToBinary(vbCrLf + vbCrLf))

'แยกส่วนหัวของฟิลด์
HeaderContent = MidB(Binary, PosOpenBoundary + LenB(Boundary) + 2, PosEndOfHeader - PosOpenBoundary - LenB(Boundary) - 2)

'แยกเนื้อหาฟิลด์
FieldContent = MidB(Binary, (PosEndOfHeader + 4), PosCloseBoundary - (PosEndOfHeader + 4) - 2)

'แยกฟิลด์ส่วนหัวออกจากส่วนหัว
GetHeadFields BinaryToString (HeaderContent), Content_Disposition, FormFieldName, SourceFileName, Content_Type

'สร้างหนึ่งฟิลด์และกำหนดพารามิเตอร์
ตั้งค่าฟิลด์ = CreateUploadField()
Field.Name = FormFieldName
Field.ContentDisposition = Content_Disposition
Field.FilePath = SourceFileName
Field.FileName = GetFileName(SourceFileName)
Field.ContentType = Content_Type
Field.Value = เนื้อหาฟิลด์
Field.Length = LenB(เนื้อหาภาคสนาม)

Fields.Add FormFieldName, Field

'นี่คือขอบเขตสิ้นสุดหรือไม่?
TwoCharsAfterEndBoundary = BinaryToString(MidB(Binary, PosCloseBoundary + LenB(ขอบเขต), 2))
'Binary.Mid(PosCloseBoundary + Len (ขอบเขต), 2).String
isLastBoundary = TwoCharsAfterEndBoundary = "--"
หากไม่ใช่ isLastBoundary ดังนั้น 'นี่ไม่ใช่ขอบเขตที่สิ้นสุด - ไปที่ฟิลด์แบบฟอร์มถัดไป
PosOpenBoundary = PosCloseBoundary
PosCloseBoundary = InStrB(PosOpenBoundary + LenB(ขอบเขต), ไบนารี, ขอบเขต )
สิ้นสุดถ้า
วนซ้ำ
ตั้งค่า SeparateFields = ฟิลด์
สิ้นสุดฟังก์ชั่น

'************************************ ยูทิลิตี้ ************ **********************
ฟังก์ชั่น BinaryToString(str)
strto = ""
สำหรับ i=1 ถึง lenb(str)
ถ้า AscB(MidB(str, i, 1)) > 127 แล้ว
strto = strto & chr(Ascb(MidB(str, i, 1))*256+Ascb(MidB(str, i+1, 1)))
ฉัน = ฉัน + 1
อื่น
strto = strto & Chr(AscB(MidB(str, i, 1)))
สิ้นสุดถ้า
ต่อไป
BinaryToString=strto
ฟังก์ชันสิ้นสุด

ฟังก์ชัน StringToBinary(String)
ดิม ไอ, บี
สำหรับ I=1 ถึง len(String)
B = B & ChrB(Asc(กลาง(สตริง,I,1)))
ต่อไป
StringToBinary = B
ฟังก์ชันสิ้นสุด

'แยกฟิลด์ส่วนหัวออกจากส่วนหัวการอัปโหลด
ฟังก์ชัน GetHeadFields (ByVal Head, Content_Disposition, ชื่อ, ชื่อไฟล์, Content_Type)
Content_Disposition = LTrim(SeparateField(Head, "การจัดการเนื้อหา:", ";"))
Name = (SeparateField(Head, "name=", ";")) 'ltrim
ถ้า ซ้าย(ชื่อ, 1) = """" ดังนั้น ชื่อ = กลาง(ชื่อ, 2, เลน(ชื่อ) - 2)
FileName = (SeparateField(Head, "filename=", ";")) 'ltrim
ถ้าซ้าย (ชื่อไฟล์, 1) = """" จากนั้นชื่อไฟล์ = กลาง (ชื่อไฟล์, 2, Len (ชื่อไฟล์) - 2)
Content_Type = LTrim(SeparateField(Head, "content-type:", ";"))
ฟังก์ชั่นสิ้นสุด

'แยกหนึ่งไฟล์ระหว่าง sStart และ sEnd
ฟังก์ชั่น SeparateField (จาก, ByVal sStart, ByVal sEnd)
Dim PosB, PosE, sFrom
sFrom = LCase(จาก)
PosB = InStr(sจาก, sStart)
ถ้า PosB > 0 แล้ว
PosB = PosB + Len(sStart)
PosE = InStr(PosB, sFrom, sEnd)
ถ้า PosE = 0 ดังนั้น PosE = InStr(PosB, sFrom, vbCrLf)
ถ้า PosE = 0 ดังนั้น PosE = Len(sFrom) + 1
SeparateField = กลาง (จาก, PosB, PosE - PosB)
อื่น
SeparateField = ว่างเปล่า
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด

'แยกชื่อไฟล์ออกจากเส้นทางแบบเต็มของไฟล์
ฟังก์ชัน GetFileName(FullPath)
ดิม โพส, โพสเอฟ
PosF = 0
สำหรับ Pos = Len(FullPath) ถึง 1 ขั้นตอน -1
เลือกกรณีกลาง (FullPath, Pos, 1)
กรณี "/", "": PosF = Pos + 1: Pos = 0
สิ้นสุดการเลือก
ต่อไป
ถ้า PosF = 0 ดังนั้น PosF = 1
GetFileName = กลาง (FullPath, PosF)
ฟังก์ชันสิ้นสุด
</สคริปต์>
<SCRIPT RUNAT=ภาษาเซิร์ฟเวอร์=JSCRIPT>
//ฟังก์ชันสร้างวัตถุ Field
ฟังก์ชั่น CreateUploadField(){ ส่งคืน uf_Init() ใหม่ }
ฟังก์ชั่น uf_Init(){
นี้.ชื่อ = null
this.ContentDisposition = null
this.FileName = null
this.FilePath = null
this.ContentType = null
this.Value = null
นี่ความยาว = null
-
</SCRIPT>

เพิ่มรูปภาพ.asp



-
ถ้า Request.ServerVariables("REQUEST_METHOD") = "POST" จากนั้น
ทุ่งสลัว
ขนาดอัพโหลดจำกัด=100000
ตั้งค่าฟิลด์ = GetUpload()
สนามสลัว
สำหรับแต่ละฟิลด์ในฟิลด์รายการ
เลือกกรณี Field.name
กรณี "thetext" sss = BinaryToString (Field.value)
กรณี "ประเภท" fff = BinaryToString (Field.value)
กรณี "ส่ง" ส่ง = BinaryToString (Field.value)
กรณี "รูป"
ชื่อไฟล์=field.FileName
fileContentType=field.ContentType
filevalue=field.value
สิ้นสุดการเลือก
ต่อไป
-
ถ้าชื่อไฟล์<>"" และ fileContentType<>"image/gif" และ

fileContentType<>"image/pjpeg" แล้ว
-
<ศูนย์>
<br><br>
<font color=red size=3>上传的应该为GIF或JPG文件！</font><br><br>
<input type="button" value="重填" onclick="history.go( -1 );return

true;">
</ศูนย์>
-
อื่น
-
'เริ่มต้น始输入
-
ตอบกลับเขียน sss
ตอบกลับเขียน"<br>"
ตอบกลับเขียน fff
ตั้งค่า rs=server.createobject("ADODB.recordset")
sql = "เลือก * จาก tb โดยที่ ID เป็นโมฆะ"
rs.เปิด sql,conn,3,3
rs.เพิ่มใหม่
rs("ผู้เขียน")=ชื่อผู้ใช้
rs("thetext")=sss
rs("ประเภท")=fff
rs("ฮิต")=1
rs("เวลาโพสต์")=now()
rs("photo").appendchunk filevalue

rs.update
฿.ปิด
-
<br><br>
<center><font color=red

size=3>成功输入个人基本档案!</font><br><br><form method="post"

action="personinf.asp"><input type="submit" value="返回"></form>
</ศูนย์>
-
สิ้นสุดถ้า
สิ้นสุดถ้า
-

showpic.asp

-
id=คำขอ("id")
ตั้งค่า rs=server.CreateObject("adodb.recordset")
sql = "เลือก * จาก tb โดยที่ theid = "&id
rs.เปิด sql,conn,1,3
response.contenttype="รูปภาพ/gif"
Response.BinaryWrite rs("ภาพถ่าย")
-