Forgot Password ??

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

	Registered : 109,038

HOME > ASP > ASP Forum > โค้ดอัพโหลดตัวนี้ ทีแรกอัพโหลดได้ไม่มีปัญหา พอสองวันต่อมาทำไมมัน error อ่ะครับ

โค้ดอัพโหลดตัวนี้ ทีแรกอัพโหลดได้ไม่มีปัญหา พอสองวันต่อมาทำไมมัน error อ่ะครับ

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

Guest

โค้ดอัพโหลดตัวนี้ ทีแรกอัพโหลดได้ไม่มีปัญหา พอสองวันต่อมาทำไมมัน error อ่ะครับ
ทั้งๆที่ไม่ได้แก้อะไรเลย
แต่ error มันก็เปลี่ยนๆ ไปมีหลายแบบอ่ะครับ
Error Type:
Server.MapPath(), ASP 0173 (0x80004005)
An invalid character was specified in the Path parameter for the MapPath method.
/alumnus/act_add_member.asp, line 53

Error Type:
Microsoft VBScript runtime (0x800A0034)
Bad file name or number
/alumnus/act_add_member.asp, line 53

เป็นเพราะอะไรเหรอครับ

add_member.asp



<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874">
</head>

<body background="picture/bg.jpg" bgproperty="fixed">
<form action="act_add_member.asp" method="post" enctype="multipart/form-data" name="form1">
<table width="779" border="0" align="center" bgcolor="#FFFFFF">
<tr>
<td width="185">ชื่อ</td>
<td width="578"><input name="name" type="text" id="name"></td>
</tr>
<tr>
<td>นามสกุล</td>
<td><input name="surname" type="text" id="surname"></td>
</tr>
<tr>
<td>ที่อยู่</td>
<td><textarea name="address" id="address"></textarea></td>
</tr>
<tr>
<td>จังหวัด</td>
<td><font size="2">
<%
Sql="Select * From province"
Set Rs1=conn.execute(sql)
%>
<select name="province" id="province" >
<option>เลือกจังหวัด</option>
<%while Not Rs1.EOF%>
<option value=<% =Rs1("province_id")%>>
<% =Rs1("province_name")%>
</option>
<%
Rs1.MoveNext
wend
rs1.close
%>
</select>
</font><font color="#FF0000" size="2">*</font></td>
</tr>
<tr>
<td>รหัสไปรษณีย์</td>
<td><font color="#FF0000" size="2">
<input name="zip_code" type="text" id="zip_code">
</font></td>
</tr>
<tr>
<td>เบอร์โทรศัพท์</td>
<td><input name="phone" type="text" id="phone"></td>
</tr>
<tr>
<td>เบอร์โทรศัพท์มือถือ</td>
<td><input name="mobile" type="text" id="mobile"></td>
</tr>
<tr>
<td>สาขาการศึกษา</td>
<td><font size="2">
<%
Sql="Select * From branch_spu"
Set Rs1=conn.execute(sql)
%>
<select name="branch_spu" id="select" >
<option>เลือกสาขา</option>
<%while Not Rs1.EOF%>
<option value=<% =Rs1("branch_spu_id")%>>
<% =Rs1("branch_spu_name")%>
</option>
<%
Rs1.MoveNext
wend
rs1.close
%>
</select>
</font></td>
</tr>
<tr>
<td>e-mail</td>
<td><input name="mail" type="text" id="mail"></td>
</tr>
<tr>
<td>รูปภาพ</td>
<td><input name="blob" type="file" id="blob"></td>
</tr>
<tr>
<td>ีusername</td>
<td><input name="username" type="text" id="username"></td>
</tr>
<tr>
<td>password</td>
<td><input name="password" type="text" id="password"></td>
</tr>
<tr>
<td>คำถาม</td>
<td><font size="2">
<select name="question" text="กรุณาเลือกคำถาม">
<option selected>กรุณาเลือกคำถาม</option>
<option value="ชื่อสัตว์ลี้ยง">ชื่อสัตวEลี้ยง</option>
<option value="สีที่ชอบ">สีที่ชอบ</option>
<option value="ชื่อคนรัก">ชื่อคนรัก</option>
<option value="ดารานักร้องที่ชื่นชอบ">ดารานักร้องที่ชื่นชอบ</option>
</select>
</font></td>
</tr>
<tr>
<td>คำตอบ</td>
<td><input name="answer" type="text" id="answer"></td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
</table>
<p align="center">
<input name="submit" type = submit value = "บันทึกข้อมูล" class="input_button3" >
  
<input name="reset" type = reset value = "ลบข้อมูล" class="input_button3">
</p>
</form>
<div align="center"></div>
</body>
</html>

act_add_member.asp



<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874">
</head>

<body>
<%
name1=uploaddata.Item("name").Item("value")
surname = uploaddata.Item("surname").Item("value")
address = uploaddata.Item("address").Item("value")
province_id = uploaddata.Item("province").Item("value")
zip_code = uploaddata.Item("zip_code").Item("value")
phone = uploaddata.Item("phone").Item("value")
mobile = uploaddata.Item("mobile").Item("value")
branch_spu = uploaddata.Item("branch_spu").Item("value")
mail = uploaddata.Item("mail").Item("value")
picture = uploaddata.Item("blob").Item("value")
username = uploaddata.Item("username").Item("value")
password = uploaddata.Item("password").Item("value")
question = uploaddata.Item("question").Item("value")
answer = uploaddata.Item("answer").Item("value")

if name1 ="" or _
surname ="" or _
address ="" or _
province_id ="" or _
zip_code ="" or _
phone ="" or _
mobile ="" or _
branch_spu ="" or _
mail ="" or _
picture ="" or _
username ="" or _
password ="" or _
question="" or _
answer="" then

response.write "กรุณากรอกข้อมูลให้ครบ"

else

filename = picture '--อ้างถึงชื่อของ ช่องรับส่งข้อมูลแล้วตามด้วย ค่า value หรือ filename(ถ้าหากข้อมูลเป็นช่องส่งรูปภาพ)--
pos_filebegin = InStrRev(filename,"\")
pos_fileend = Len(filename)
filename_new = Mid(filename,pos_filebegin+1,pos_fileend - pos_filebegin)
set fs = Server.CreateObject("Scripting.FileSystemObject")
set uploadfile = fs.CreateTextFile(Server.MapPath("file/"&filename_new))
uploadfile.write picture

uploadfile.close

filename_new="file\"&filename_new
userid = session("id")
sql2 = "Select * from member where username ='"&uploaddata.Item("username").Item("value")&"'"
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.Open sql2, conn, 1,3
if (Rs1.EOF) Then
sql="select * from member"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 1,3
if rs.recordcount <> 0 then
rs.addnew
rs("name")=uploaddata.Item("name").Item("value")
rs("surname")=uploaddata.Item("surname").Item("value")
rs("address")=uploaddata.Item("address").Item("value")
rs("province_id")=uploaddata.Item("province_id").Item("value")
rs("zip_code")=uploaddata.Item("zip_code").Item("value")
rs("phone")=uploaddata.Item("phone").Item("value")
rs("mobile")=uploaddata.Item("mobile").Item("value")
rs("mail")=uploaddata.Item("mail").Item("value")
rs("branch_spu_id")=uploaddata.Item("branch_spu_id").Item("value")
rs("picture")=filename_new
rs("username")=uploaddata.Item("usename").Item("value")
rs("password")=uploaddata.Item("password").Item("value")
rs("question")=uploaddata.Item("question").Item("value")
rs("password")=uploaddata.Item("password").Item("value")
rs.Update
rs.close
response.write "บันทึกข้อมูลแล้ว"
end if
else
response.write "รหัสนี้ได้ทำการสมัครแล้ว"
rs1.close
end if
end if
%>

</body>
</html>

Tag : - - - -

Date : 11 ก.พ. 2548 14:32:20

By : gototon

View : 2998

Reply : 2

No. 1

gototon

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

บางทีก็เป็นแบบนี้
Error Type:
Microsoft VBScript runtime (0x800A0005)
Invalid procedure call or argument
/alumnus/postteacher.asp, line 54

แล้วก็ยังมีอย่างอื่นอีก มันเป็นเพราะอะไรแน่ครับ
ทั้งๆที่ มันได้ตั้งหลายทีแล้ว

Date : 11 ก.พ. 2548 14:35:50

By : gototon

No. 2

TC Admin

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

การ Error แบบนี้บางครั้ง Script ที่เราเขียนเมื่อมีการ Error โปรแกรมจะทำการเก็บ Buffer ของ
Report Error ใว้ครับ ซึ่งจะไม่มีการ Clear แต่วิธีซึ่งโปรแกรมจะนำค่านี้มาใช้ในการ Process ครั้งต่อไป
ให้ทำการ Clear Object ที่เกี่ยวข้องด้วยครับ

เช่น Set name=Nothing

แต่ถ้าโปรแกรมไม่ Error การทำงานจะไม่ผิดพลาดครับ

Date : 13 ก.พ. 2548 01:05:23

By : @W_IN

ค้นหาข้อมูล

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

Re : โค้ดอัพโหลดตัวนี้ ทีแรกอัพโหลดได้ไม่มีปัญหา พอสองวันต่อมาทำไมมัน error อ่ะครับ

รายละเอียด

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

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

Notice

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

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

โดย

อีเมล์

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

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

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

Load balance : Server 04