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

HOME > ASP > ASP Forum > เออเรอ Invalid procedure call or argument ตอนอัพโหลดไฟล์จะแก้ยังไงครับ



 

เออเรอ Invalid procedure call or argument ตอนอัพโหลดไฟล์จะแก้ยังไงครับ

 



Topic : 076573



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



สถานะออฟไลน์




คือผมทำตัวอัพโหลดไฟล์ขึ้นมาจะเก็บลงฐานข้อมูล
แต่มันขึ้นเออเรอว่า

Microsoft VBScript runtime error '800a0005'

Invalid procedure call or argument

/medicines1/guest/insertwork.asp, line 76

ผมแก้ไม่ถูกแล้วอ่ะ
และถ้าจะให้ไปใช้ Component ก็ใช้ไม่ได้ เนื่องจากศูนย์คอมที่ทำงานเขาไม่ยินยอมให้ใช้ตัว Component อ่ะครับ เลยต้องใช้อัพแบบไม่ใช้ Component

หน้าแรก(ASP)
<%
Session.Codepage="65001"
If Session("user")="" Then
	Response.Redirect("../login.asp")
End If 
%>
<html>
<head>
	<title>ภาควิชาอายุรศาสตร์ คณะแพทย์ศาสตร์ศิริราชพยาบาล </title>
    <meta http-equiv="Content-Type" content="text/html; charset=utf-8">

	<script type="text/javascript">
	 function checkeng() {
		  var obj=frmMain.file1
		  var str="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890_-." //กำหนดอักษรอังกฤษส่วนนี้ครับ
		  var val=obj.value
		  var valOK = true;
		  
		 for (i=0; i<val.length & valOK; i++){
				valOK = (str.indexOf(val.charAt(i))!= -1) 
		 }
		  
		 if (!valOK) {
				alert("กรุณาอัพไฟล์ชื่อภาษาอังกฤษเท่านั้น")
				obj.focus()
				return false
		  } return true

		  if (document.frmMain.txtname.value == "")
			{
				alert('กรุณาใส่หัวข้อด้วย');
				document.frmMain.txtname.focus();
				return false;
			}
		  if (document.frmMain.file1.value == "")
			{
				alert('กรุณาเลือกไฟล์ด้วย');
				document.frmMain.file1.focus();
				return false;
			}
	 } 
	</script>

</head>

<body>
<form method="post" action="insertwork.asp" name="frmMain" enctype="multipart/form-data" onsubmit="return checkeng();">
<input type="hidden" name="username" value="<%=Session("user")%>">
	<table align="center" border="0">
		<tr>
			<td>ชื่องาน</td>
			<td><input type="text" name="txtname"></td>
		</tr>
		<tr>
			<td>ตัวเอกสาร</td>
			<td><input type="file" name="file1">***ชื่อไฟล์เอกสารต้องเป็นชื่อภาษาอังกฤษเท่านั้น</td>
		</tr>
		<tr>
			<td colspan="2"><input type="submit" value="ตกลง"></td>
		</tr>
		</table>	
</form>
</body>
</html>


อัพโหลด(ASP)
<!--#include file=upload.asp-->
<%
Session.Codepage="65001"
	len1=Len(request("url"))-InstrRev(request("url"),"/") 
	pathinfo=Server.mappath(Request.ServerVariables("PATH_INFO"))
	pathEnd = Len(pathinfo)-len1
	filepath=left(pathinfo,pathEnd) & "work/"
	
	Response.Expires=0
	Response.Buffer = TRUE
	Response.Clear
	
	byteCount = Request.TotalBytes
	
	RequestBin = Request.BinaryRead(byteCount)
	Dim UploadRequest
	Set UploadRequest = CreateObject("Scripting.Dictionary")
	
	BuildUploadRequest  RequestBin
	
	other_name = UploadRequest.Item("txtname").Item("Value")
		
	'****************** file1 ******************
	filepathname = UploadRequest.Item("file1").Item("FileName")
	if filepathname <> "" then
		filename = lcase(Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\")))

		'response.write(filename & "<br>")
		'response.write(len1 & "<br>")
		'response.write(filepathname & "<br>")
		'response.write("Other File" & other_name)
		'response.write(filepath & "<br>")

		value = UploadRequest.Item("file1").Item("Value")

		'response.write(UploadRequest.Item("file1").Item("Value") & "<br>")
		'response.write(value & "<br>")
		
		limitSize = 200000 * 1024   ' 2000 kByte
		if lenB(value) > limitSize  then 
		   response.write "<b>File ใหญ่เกิน " & _
		   formatNumber(limitSize / 1024) & _
		   " kB  คลิก Back กลับไปเลือกใหม่"
		   response.end
		end if
		if Instr(filename,".doc")<>0  then
			ty=".doc"
		elseif Instr(filename,".xls")<>0  then
			ty=".xls"
		elseif Instr(filename,".ppt")<>0  then
			ty=".ppt"
		elseif Instr(filename,".pdf")<>0  then
			ty=".pdf"
		else
%>
			<p align="center"><font color="#FF0000">อนุญาติให้ Upload เฉพาะ .doc, .xls, .ppt, .pdf, .zip, .rar, .swf เท่านั้น</font></p>
			<p align="center"><a href="javascript:history.back();">กลับไปแก้ไข</a></p>
<%
			response.end
		end if
		if lenB(value) = 0 then
%>
			<p align="center"><font color="#FF0000">ไม่มีไฟล์นี้</font></p>
			<p align="center"><a href="javascript:history.back();">กลับไปแก้ไข</a></p>
<%
			response.end
		end if
	
		file1=filename
		'-------------------- upload to server ------------------------
		 Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
		
		Set fileObj = ScriptObject.CreateTextFile(filepath & file1)
		
		For i = 1 to LenB(value)
			 fileObj.Write chr(AscB(MidB(value,i,1)))
		Next
		'Session("a")=file1
		'fileObj.Close

		dim con
		set con=Server.CreateObject("ADODB.Connection")
		con.open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=1234; Initial Catalog=med;Data Source=PANICHA-PC"
		Dim sql,rec,sql1,rec1,d
		sql1="select max(wid) as wid from work"
		Set rec1=con.execute(sql1)
		If Not rec1.EOF Then
			Session("w")=rec1.fields("wid").value
		End If 
		
		d=Date()

		If Session("w")="" Then
			sql="insert into work values(1,'" & other_name & "','" & file1 & "','" & d & "','" & Session("user") & "')"
			Set rec=con.execute(sql)
			response.redirect("work.asp")
		Else 
			sql="insert into work values(" & Session("w") & ",'" & other_name & "','" & file1 & "','" & d & "','" & Session("user") & "')"
			Set rec=con.execute(sql)
			response.redirect("work.asp")
		End If 
	end if
%>




Tag : ASP, Ms SQL Server 2008







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2012-04-03 11:10:40 By : Clamore View : 3777 Reply : 1
 

 

No. 1



โพสกระทู้ ( 74,058 )
บทความ ( 838 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook

ถ้าไม่ใช้ component ปัญหาก็ไม่จบครับ อันที่จริงเป็นความจำเป็นของระบบที่จะต้องใช้ครับ ลองอธิบายให้เค้าเข้าใจครับ

หรือไม่คุรก็เปลี่ยนไปใช้ ASP.NET แทนครับ






แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-04-04 10:21:19 By : webmaster
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : เออเรอ Invalid procedure call or argument ตอนอัพโหลดไฟล์จะแก้ยังไงครับ
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ 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 00
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2024 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่