Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 109,038

HOME > ASP > ASP Forum > ช่วยดูให้ทีครับ Microsoft VBScript runtime error '800a0005' Invalid procedure call or argument: 'Asc'



 

ช่วยดูให้ทีครับ Microsoft VBScript runtime error '800a0005' Invalid procedure call or argument: 'Asc'

 



Topic : 004217

Guest




Microsoft VBScript runtime error '800a0005'

Invalid procedure call or argument: 'Asc'

/mis/getuploaddata.asp, line 6



Tag : - - - -






Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 1 มิ.ย. 2548 18:20:52 By : กรรมกรบริษัท View : 3980 Reply : 4
 

 

No. 1

Guest


มีโค๊ดให้ดูปะ





Date : 1 มิ.ย. 2548 22:13:53 By : nugul
 


 

No. 2

Guest


<%
'---
Function TextToBinary(text)
For i = 1 to Len(text)
character = Mid(text,i,l)
TextToBinary=TextToBinary & ChrB(Asc(character))
Next
End Function
'------------------
Function BinaryToText(Binary)
BinaryToText=""
For i=1 to LenB(Binary)
character=MidB(binary,i,l)
BinaryToText=BinaryToText & Chr(AscB(character))
Next
End Function
'-----------------------------------------------
Set uploaddata=CreateObject("Scripting.Dictionary")
'-----------------------------------------------------------------------------------------
data=Request.BinaryRead(Request.TotalBytes)
posend=InstrB(l,data,TextToBinary(chr(13)))
header=MidB(data,l,posend-1)
'---------------------------------------------------------------------------------------------
endheader=header&TextToBinary("--")
pos_header=1
pos_endheader=InStrB(l,data,endheader)
'-----------------------------------------------------------------------------------------
Do While pos_header<>pos_endheader
'-------------------------------------------------------------------------------------------
Set sub_uploaddata=CreateObject("Scripting.Dictionary")
'---------------------------------------------------------------------------------------------&micro;&Ntilde;&acute;&ordf;&times;&egrave;&Iacute;&cent;&Iacute;&sect;&ordf;&egrave;&Iacute;&sect;&iexcl;&Atilde;&Iacute;&iexcl;&cent;&eacute;&Iacute;&Aacute;&Ugrave;&Aring;
pos_name=InStrB(pos_header,data,TextToBinary("name="))
pos_namebegin=pos_name+6
pos_nameend=InStrB(pos_namebegin,data,TextToBinary(Chr(34)))
name=BinaryToText(MidB(data,pos_namebegin,pos_nameend-pos_namebegin))
'-----------------------------------------------&agrave;&ordf;&ccedil;&curren;&Ccedil;&egrave;&Ograve;&Aacute;&Otilde;&cent;&eacute;&Iacute;&Aacute;&Ugrave;&Aring;&Euml;&Atilde;&times;&Iacute;&agrave;&raquo;&Aring;&egrave;&Ograve;
pos_file=InStrB(pos_nameend,data,TextToBinary("filename="))
enddata=InStrB(pos_nameeend,data,header)
if (pos_file<>0) And (pos_file < enddata)Then
'--------------------&para;&eacute;&Ograve;&atilde;&ordf;&eacute;
pos_filebegin=pos-file + 10
pos_fileend=InStrB(pos_filebegin,data,TextToBinary(Chr(34)))
filename=BinaryToText(MidB(data,pos_filebegin,pos_fileend-pos_filebegin))
'-------------------------------------------------------------------------------------
sub_uploaddate.Add "filename",filename
'------------------------------------------------------------------------------------
pos_content=InStrB(pos_fileend,data,TextToBinary("Content-Type:"))
pos_contentbegin=pos_content + 14
pos_contentend=InStrB(pos_contentbegin,data,TextToBinary(Chr(13)))
contenttype=BinaryToText(MidB(data,pos_contentbegin,pos_contentend-pos_contentbegin))
'----------------------------------------------------------------------------------------------------------------------------
Sub_uploaddate.Add "contenttype",contenttype
'---------------------------------------------------------------------------------------------------
pos_valuebegin=pos_contentend + 4
pos_valueend=InStrB(pos_valuebegin,data,header)-2
Value=BinaryToText(MidB(data,pos_valuebegin,pos_valueend-pos_valuebegin))
'-----------------------------------------------------------------------------------------------------------------------------------
sub_uploaddata.Add "value",value
'------------------------------------------------------------------------------------------------------------------------------------------&auml;&Aacute;&egrave;&atilde;&ordf;&egrave;
Else
pos_valuebegin=pos_nameend + 4
pos_valueend=InStrB(pos_valuebegin,data,header)-2
Value=BinaryToText(MidB(data,pos_valuebegin,pos_valueend-pos_valuebegin))
'-----------------------------------------------------------------------------------------------------------------------------------------
sub_uploaddata.Add "value",value
End if
'---------------------------------------------------------------------
uploaddata.Add name,sub_uploaddata
'-----------------------------------------------------------------------
pos_header=InStrB(pos_header+LenB(header),data,header)
Loop
%>
Date : 2 มิ.ย. 2548 08:29:02 By : กรรมกรบริษัท
 

 

No. 3

Guest


character = Mid(text,i,l)===>ผิดครับ
มันต้อ้ง เป็นเลข 1 ที่ถูกคือ
character = Mid(text,i,1)
Date : 2 มิ.ย. 2548 18:51:09 By : nugul
 


 

No. 4

Guest


สวัสดีครับ

คุณ nugul นี่สุดยอดเลยนะครับ ผมมองดูยังตาลาย เลย

แซวเล่นนะครับ

555
Date : 4 มิ.ย. 2548 10:55:38 By : K.Wiwat
 

   

ค้นหาข้อมูล
   
 

แสดงความคิดเห็น
Re : ช่วยดูให้ทีครับ Microsoft VBScript runtime error '800a0005' Invalid procedure call or argument: 'Asc'
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
 Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

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

Notice

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

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







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

Load balance : Server 05
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2025 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่