'************************************************ * ***************
' การทำงาน
' ฟังก์ชั่น: ใช้สตรีมเพื่อบันทึกไฟล์
'พารามิเตอร์: จาก (ที่อยู่ไฟล์ระยะไกล), tofile (บันทึกตำแหน่งไฟล์)
'************************************************ * ***************
ฟังก์ชั่นส่วนตัว SaveFiles (byref จาก, byref tofile)
ข้อมูลสลัว
ข้อมูล=GetData(จาก,0)
Response.Write บันทึกเรียบร้อยแล้ว: &formatnumber(len(Datas)/1024*2,2)&Kb
การตอบสนองฟลัช
ถ้า formatnumber(len(Datas)/1024*2,2)>1 แล้ว
ADOS.ประเภท = 1
ADOS.โหมด =3
ADOS.เปิด
ADOS.เขียนข้อมูล
ADOS.SaveToFile server.mappath(tofile),2
ADOS.ปิด()
อื่น
การตอบสนองการเขียนล้มเหลวในการบันทึก: ขนาดไฟล์&หมายเลขรูปแบบ(len(imgs)/1024*2,2)&Kb, น้อยกว่า 1K
การตอบสนองฟลัช
สิ้นสุดถ้า
ฟังก์ชั่นสิ้นสุด
'************************************************ * ***************
' ฟังก์ชั่น (ส่วนตัว)
' ฟังก์ชั่น: ใช้ fso เพื่อตรวจสอบว่าไฟล์มีอยู่จริงหรือไม่ หากไม่มีก็จะคืนค่าเท็จ
'พารามิเตอร์: filespes (ตำแหน่งไฟล์)
'************************************************ * ***************
ฟังก์ชั่นส่วนตัวมีอยู่ (byref filespec)
ถ้า (FSO.FileExists(server.MapPath(filespec))) จากนั้น
มีอยู่แล้ว = จริง
อื่น
IsExists = เท็จ
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
'************************************************ * ***************
' ฟังก์ชั่น (ส่วนตัว)
' ฟังก์ชั่น: ใช้ fso เพื่อตรวจสอบว่ามีโฟลเดอร์อยู่หรือไม่ ถ้ามี ก็จะคืนค่าเป็นเท็จ
'พารามิเตอร์: โฟลเดอร์ (ตำแหน่งโฟลเดอร์)
'************************************************ * ***************
ฟังก์ชั่นส่วนตัว IsFolder (โฟลเดอร์ byref)
ถ้า FSO.FolderExists(server.MapPath(Folder)) แล้ว
IsFolder = จริง
อื่น
IsFolder = เท็จ
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
'************************************************ * ***************
' ฟังก์ชั่น (ส่วนตัว)
' ฟังก์ชั่น: ใช้ fso เพื่อสร้างโฟลเดอร์
'พารามิเตอร์: fldr (ตำแหน่งโฟลเดอร์)
'************************************************ * ***************
ฟังก์ชั่นส่วนตัว CreateFolder (byref fldr)
ฉ
ตั้งค่า f = FSO.CreateFolder (Server.MapPath (fldr))
CreateFolder = f.Path
ตั้งค่า f=ไม่มีอะไร
ฟังก์ชันสิ้นสุด
'************************************************ * ***************
' ฟังก์ชั่น (สาธารณะ)
' ฟังก์ชั่น: บันทึกไฟล์และสร้างโฟลเดอร์หลายระดับโดยอัตโนมัติ
'พารามิเตอร์: fromurl (ที่อยู่ไฟล์ระยะไกล), tofiles (บันทึกตำแหน่ง)
'************************************************ * ***************
ฟังก์ชั่นสาธารณะ SaveData (byref FromUrl, byref ToFiles)
ToFiles=trim (แทนที่ (ToFiles,//,/))
flName=ToFiles
fdr=
ถ้า IsExists(flName)=false แล้ว
GetNewsFold=split(flName,/)
สำหรับ i=0 ถึง Ubound(GetNewsFold)-1
ถ้า fldr= แล้ว
fldr=GetNewsFold(i)
อื่น
fldr=fldr&/&GetNewsFold(i)
สิ้นสุดถ้า
ถ้า IsFolder(fldr)=false แล้ว
สร้างโฟลเดอร์ fldr
จบถ้า
ต่อไป
บันทึกไฟล์ FromUrl,flName
จบถ้า
สิ้นสุดฟังก์ชัน
'************************************************ * ***************
' ฟังก์ชั่น (สาธารณะ)
' ฟังก์ชั่น: รับข้อมูลระยะไกล
'พารามิเตอร์: url (ที่อยู่ไฟล์ระยะไกล), getmode (โหมด: 0 เป็นไบนารี่, 1 คือการเข้ารหัสภาษาจีน)
'************************************************ * ***************
ฟังก์ชั่นสาธารณะ GetData (byref url, byref GetMode)
'เมื่อเกิดข้อผิดพลาดให้ดำเนินการต่อต่อไป
SourceCode = OXML.open (GET,url,false)
OXML.ส่ง()
ถ้า OXML.readystate<>4 ให้ออกจากฟังก์ชัน
ถ้า GetMode=0 แล้ว
GetData = OXML.responseBody
อื่น
GetData = BytesToBstr(OXML.responseBody)
สิ้นสุดถ้า
ถ้า err.number<>0 แล้ว err.Clear
ฟังก์ชันสิ้นสุด
'************************************************ * ***************
' ฟังก์ชั่น (สาธารณะ)
' ฟังก์ชั่น: จัดรูปแบบที่อยู่รูปภาพระยะไกลเป็นตำแหน่งท้องถิ่น
'พารามิเตอร์: imgurl (ที่อยู่รูปภาพระยะไกล), imgfolder (ไดเรกทอรีรูปภาพในเครื่อง), ชื่อ (เพิ่มชื่อคำนำหน้า)
'************************************************ * ***************
ฟังก์ชั่นสาธารณะ FormatImgPath (byref ImgUrl, byref ImgFolder, byref FristName, byref noimg)
สเตรพาธ=
ImgUrl=ImgUrl
ถ้า instr(ImgUrl,Nophoto) หรือ lenb(GetData(ImgUrl,0))<=0 แล้ว
strpath=noimg
Response.Write &strpath& &vbcrlf
อื่น
ถ้า Instr(ImgUrl,.asp) แล้ว
strpath=FristName&_&Mid(ImgUrl, InStrRev(ImgUrl, =)+1)&.jpg
อื่น
strpath=FristName&_&Mid(ImgUrl, InStrRev(ImgUrl, /)+1)
สิ้นสุดถ้า
strpath = ImgFolder&/&strpath
strpath = แทนที่ (strpath, //,/)
ถ้าซ้าย(strpath,1)=/ แล้ว strpath=right(strpath,len(strpath)-1)
strpath = ตัด (strpath)
Response.Write &strpath& &vbcrlf
savedataImgUrl,strpath
สิ้นสุดถ้า
FormatImgPath = strpath
สิ้นสุดฟังก์ชัน