Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,038

HOME > ASP > ASP Forum > error <%@LANGUAGE="VBSCRIPT" CODEPAGE="874"%> Set UploadRequest = CreateObject("Scripting.Dictionary")

error <%@LANGUAGE="VBSCRIPT" CODEPAGE="874"%> Set UploadRequest = CreateObject("Scripting.Dictionary")

เริ่มหัวข้อใหม่

Guest

<%@LANGUAGE="VBSCRIPT" CODEPAGE="874"%>
<%
Response.Expires=0
Response.Buffer = TRUE
Response.Clear
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin

fname= UploadRequest.Item("name").Item("Value")
topic= UploadRequest.Item("topic").Item("Value")
note= UploadRequest.Item("note").Item("Value")
email= UploadRequest.Item("email").Item("Value")

contentType = UploadRequest.Item("blob").Item("ContentType")
filepathname = UploadRequest.Item("blob").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
response.Write(filename)
'filename1 =Right(filename,4)
at=instr(filename,".")
lenstr=len(filename)
filename1=Mid(filename,at,lenstr)
response.Write("<br>"& at )
response.Write("<br>"& lenstr )
response.Write("<br>"& filename1)

if filename="" then
hip=Request.ServerVariables("REMOTE_ADDR")
hdate=now()
else
'mdate=replace(date(),"/","")
'mtime=replace(time(),":","")
'ntime=left(mtime,5)
'newname=mdate+ntime

TimeNow=Replace(Time, ":", "")
' จะได้เวลาปัจจบันมาแทนชื่อไฟล์ครับเช่น 154400filename.gif
newname=TimeNow&Mid(filename,pos_filebegin+1,pos_fileend-pos_filebegin)

value = UploadRequest.Item("blob").Item("Value")
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
'Set MyFile = ScriptObject.CreateTextFile(Server.mappath("\image\"&newname&filename1))
Set MyFile = ScriptObject.CreateTextFile(Server.mappath("images_upload/"&newname&filename1))
For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close

Sub BuildUploadRequest(RequestBin)
'Get the boundary
PosBeg = 1
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
boundaryPos = InstrB(1,RequestBin,boundary)
'Get all data inside the boundaries
Do until (boundaryPos=InstrB(RequestBin,boundary & getByteString("--")))
'Members variable of objects are put in a dictionary object
Dim UploadControl
Set UploadControl = CreateObject("Scripting.Dictionary")
'Get an object name
Pos = InstrB(BoundaryPos,RequestBin,getByteString("Content-Disposition"))
Pos = InstrB(Pos,RequestBin,getByteString("name="))
PosBeg = Pos+6
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
Name = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
PosFile = InstrB(BoundaryPos,RequestBin,getByteString("filename="))
PosBound = InstrB(PosEnd,RequestBin,boundary)
'Test if object is of file type
If PosFile<>0 AND (PosFile<PosBound) Then
'Get Filename, content-type and content of file
PosBeg = PosFile + 10
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
FileName = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
'Add filename to dictionary object
UploadControl.Add "FileName", FileName
Pos = InstrB(PosEnd,RequestBin,getByteString("Content-Type:"))
PosBeg = Pos+14
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
'Add content-type to dictionary object
ContentType = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
UploadControl.Add "ContentType",ContentType
'Get content of object
PosBeg = PosEnd+4
PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
Value = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
Else
'Get content of object
Pos = InstrB(Pos,RequestBin,getByteString(chr(13)))
PosBeg = Pos+4
PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
Value = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
End If
'Add content to dictionary object
UploadControl.Add "Value" , Value
'Add dictionary object to main dictionary
UploadRequest.Add name, UploadControl
'Loop to next object
BoundaryPos=InstrB(BoundaryPos+LenB(boundary),RequestBin,boundary)
Loop

End Sub

'String to byte string conversion
Function getByteString(StringStr)
For i = 1 to Len(StringStr)
char = Mid(StringStr,i,1)
getByteString = getByteString & chrB(AscB(char))
Next
End Function

'Byte string to string conversion
Function getString(StringBin)
getString =""
For intCount = 1 to LenB(StringBin)
getString = getString & chr(AscB(MidB(StringBin,intCount,1)))
Next
End Function
newfilename=newname+filename1
if newfilename="" then
newfilename="no"
end if
hdate=date()
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>www.acmeculture.com</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874">
<style type="text/css">

</style></head>
<body >

<table width="790" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="3"><img src="../image/head.gif" width="790" height="116"></td>
</tr>
<tr>
<td width="30" bgcolor="#CCFF00"> </td>
<td width="730" height="300" valign="middle" background="../image/bg_gray.gif">

<%

fname=replace(replace(fname,"<","<"),">",">")
topic=replace(replace(topic,"<","<"),">",">")
note=replace(replace(note,"<","<"),">",">")
note=replace(note,chr(13),"<br>")
ip=request.ServerVariables("REMOTE_ADDR")
sdate=DateAdd("h", 6, now())
response.Write(fname & "<br>")
response.Write(topic & "<br>")
response.Write(note & "<br>")
response.Write(email & "<br>")
response.Write(ip & "<br>")
response.Write(sdate& "<br>")

set conn=server.CreateObject("ADODB.Connection")
conn.provider="Microsoft.Jet.OLEDB.4.0"
conn.open server.MapPath("webboard2002-97.mdb")

'sql="select * from questions where qname= '"&names&"' AND qnote= '"&note&"' order by qnumber desc"
'set rs = server.CreateObject("ADODB.Recordset")
'rs.open sql,conn,1,3
'if rs.recordcount =0 then
status=1
sql="select * from questions order by qnumber desc"
set rs=server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
if rs.recordcount=0 then
id=0
else
id=rs("qnumber")
end if

rs.addnew
rs("qnumber")=id+1
rs("qtopic")=topic
rs("qname")=fname
rs("qnote")=note
rs("qdate")=sdate
rs("qpicture")=newfilename
rs("nanswer")=0
rs("read")=0
rs("qip")=ip
if email ="" then
rs("email")="ไม่ระบุ"
else
rs("email")=email
end if
rs.update

%>
<meta http-equiv="refresh" content="5; url=aspboard2.asp">
<div align="center" class="style2">ขอบคุณมากครับ กระทู้ของท่านได้บันทึกเสร็จเรียบร้อยแล้วครับ<a href="ASPBOARD2.asp">คลิกที่นี่ </a>หรือรออีก 5 วินาที เพี่อกลับไปหน้ากระทู้หลัก</div>

</td>
<td width="30" bgcolor="#CCFF00"> </td>
</tr>
<tr>
<td bgcolor="#CCFF00"> </td>
<td bgcolor="#CCFF00"> </td>
<td bgcolor="#CCFF00"> </td>
</tr>
</table>

<p> </p>
</body>
</html>
สวัสดีครับ ผู้รู้ คือว่าตอนนี้ทำทำการเขียนการ upload รูปครับ แต่มันมีปัญหา คือว่า บางครั้งผมทดสอบดู ก็ upload ผ่านแต่บางครั้งก็ไม่ผ่านครับ แต่ถ้าไม่ผ่านมันจะฟ้องบรรทัดที่มีคำส่ง
filename1=Mid(filename,at,lenstr) และ
MyFile.Write chr(AscB(MidB(value,i,1)))

ผมควรจะต้องแก้ไขอะไรตรงไหนบ้างครับ

Tag : - - - -

Date : 5 ก.พ. 2548 17:28:30

By : nature_life19

View : 3175

Reply : 1

No. 1

นายกระจอก007

โพสกระทู้ ( 422 )
บทความ ( 0 )

มันฟ้องว่ายังไงละครับ..ช่วยแจงด้วยอ่ะ

Date : 6 ก.พ. 2548 16:56:12

By : นายกระจอก

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : error <%@LANGUAGE="VBSCRIPT" CODEPAGE="874"%> Set UploadRequest = CreateObject("Scripting.Dictionary")

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก

<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)

Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 01

Registered : 109,038

document.write("<font color=996600>[ASP]</font>"); error <%@LANGUAGE="VBSCRIPT" CODEPAGE="874"%> Set UploadRequest = CreateObject("Scripting.Dictionary")

No. 1

ค้นหาข้อมูล

อัพโหลดแทรกรูปภาพ

Notice

error <%@LANGUAGE="VBSCRIPT" CODEPAGE="874"%> Set UploadRequest = CreateObject("Scripting.Dictionary")