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 > <ได้แล้วครับขอบคุณครับ>รันไม่ผ่านเลยครับ รบกวนทุกท่านชี้แนะทีคับ



 

<ได้แล้วครับขอบคุณครับ>รันไม่ผ่านเลยครับ รบกวนทุกท่านชี้แนะทีคับ

 



Topic : 130646



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



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




รันไม่ผ่านเลยครับ รบกวนทุกท่านชี้แนะทีคับ

output

2

2

3

page_form.asp
Code (ASP)
<% Option Explicit %>
<html>
<head>

</head>
<body>
<!--#include file="bar.asp"-->
<!--#include file="config.asp"-->
<%
	Dim Conn,strSQL,objRec
	
	strSQL = "SELECT * FROM School  "
	Set objRec = Server.CreateObject("ADODB.Recordset")
	objRec.Open strSQL, Conn, 1,3
%>
<table width="600" border="1">
  <tr>
     <th width="180"> <div align="center">Code </div></th>
      <th width="100%"> <div align="center">SchoolName </div></th>
      <th width="198"> <div align="center">Amphur </div></th>
      <th width="200"> <div align="center">Zone </div></th>
      <th width="70"> <div align="center">CourseStatus </div></th>
      <th width="70"> <div align="center">RegStatus </div></th>
    <th width="71"> <div align="center">Edit </div></th>
  </tr>
<%
	While Not objRec.EOF
%>
  <tr>
		<td><div align="center"><%=objRec.Fields("Code").Value%></div></td>
		<td><%=objRec.Fields("SchoolName").Value%></td>
		<td><%=objRec.Fields("Amphur").Value%></td>
		<td><div align="center"><%=objRec.Fields("Zone").Value%></div></td>
		<td align="right"><%=objRec.Fields("CourseStatus").Value%></td>
		<td align="right"><%=objRec.Fields("RegStatus").Value%></td>
    <td align="center"><a href="AspAccessEditRecordForm.asp?CusID=<%=objRec.Fields("Code").Value%>">Edit</a></td>
  </tr>
<%
	objRec.MoveNext
	Wend
%>
</table>
<%
	objRec.Close()
	Conn.Close()
	Set objRec = Nothing
	Set Conn = Nothing
%>
</body>
</html>



AspAccessEditRecordForm.asp
Code (ASP)
<% Option Explicit %>
<html>
<head>

</head>
<body>
<!--#include file="bar.asp"-->
<!--#include file="config.asp"-->
<form action="AspAccessEditRecordSave.asp?CusID=<%=Request.QueryString("CusID")%>" name="frmEdit" method="post">
<%
	Dim Conn,strSQL,objRec
	Set Conn = Server.Createobject("ADODB.Connection")
	strSQL = "SELECT * FROM School WHERE Code = '"&Request.QueryString("CusID")&"'  "
	Set objRec = Conn.Execute(strSQL)
	If objRec.EOF Then
		Response.write("Not found Code="&Request.QueryString("CusID"))
	Else
%>
<table width="600" border="1">
  <tr>
    	
	 <th width="180"> <div align="center">Code </div></th>
      <th width="100%"> <div align="center">SchoolName </div></th>
      <th width="198"> <div align="center">Amphur </div></th>
      <th width="200"> <div align="center">Zone </div></th>
      <th width="70"> <div align="center">CourseStatus </div></th>
      <th width="70"> <div align="center">RegStatus </div></th>
  </tr>
  <tr>
    <td><div align="center"><input type="text" name="txtCode" size="5" value="<%=objRec.Fields("Code")%>"></div></td>
    <td><input type="text" name="txtSchoolName" size="20" value="<%=objRec.Fields("SchoolName")%>"></td>
    <td><input type="text" name="txtAmphur" size="20" value="<%=objRec.Fields("Amphur")%>"></td>
    <td><div align="center"><input type="text" name="txtZone" size="2" value="<%=objRec.Fields("Zone")%>"></div></td>
    <td align="right"><input type="text" name="txtCourseStatus" size="5" value="<%=objRec.Fields("CourseStatus")%>"></td>
    <td align="right"><input type="text" name="txtRegStatus" size="5" value="<%=objRec.Fields("RegStatus")%>"></td>
  </tr>
  </table>
  <input type="submit" name="submit" value="submit">
  <%
	End IF
	objRec.Close()
	Conn.Close()
	Set objRec = Nothing
	Set Conn = Nothing
  %>
  </form>
</body>
</html>


AspAccessEditRecordSave.asp
Code (ASP)
<% Option Explicit %>
<html>
<head>

</head>
<body>

<!--#include file="bar.asp"-->
<!--#include file="config.asp"-->


 

<%
	Dim Conn,strSQL,objExec
	Set Conn = Server.Createobject("ADODB.Connection")
	
	strSQL = "UPDATE School SET "
	strSQL = strSQL&"Code = '"&Request.Form("txtCode")&"' "
	strSQL = strSQL&",SchoolName = '"&Request.Form("txtSchoolName")&"' "
	strSQL = strSQL&",Amphur = '"&Request.Form("txtAmphur")&"' "
	strSQL = strSQL&",Zone = '"&Request.Form("txtZone")&"' "
	strSQL = strSQL&",CourseStatus = '"&Request.Form("txtCourseStatus")&"' "
	strSQL = strSQL&",RegStatus = '"&Request.Form("txtRegStatus")&"' "
	strSQL = strSQL&"WHERE Code = '"&Request.QueryString("CusID")&"' "
	Set objExec = Conn.Execute(strSQL)
	If Err.Number = 0 Then
		Response.write("Save Done.")
	Else
		Response.write("Error Save ["&strSQL&"] ("&Err.Description&")")
	End IF
	Conn.Close()
	Set objExec = Nothing
	Set Conn = Nothing
%>

</body>
</html>




Tag : ASP









ประวัติการแก้ไข
2018-03-23 11:07:07
2018-03-23 11:07:49
2018-03-23 11:09:27
2018-03-23 11:11:25
2018-03-23 11:15:56
2018-03-23 11:17:30
2018-03-23 11:19:14
2018-03-23 11:21:18
2018-03-23 11:26:01
2018-03-23 11:52:01
Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2018-03-23 10:09:54 By : หฟฟกด View : 2065 Reply : 5
 

 

No. 1



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



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


ขอดู Error หน่อยครับ






แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-03-23 11:03:36 By : cre_kiwsan
 


 

No. 2



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



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


ตอบความคิดเห็นที่ : 1 เขียนโดย : cre_kiwsan เมื่อวันที่ 2018-03-23 11:03:36
รายละเอียดของการตอบ ::
error

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-03-23 11:06:03 By : shiowa
 

 

No. 3



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



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


ตอบความคิดเห็นที่ : 2 เขียนโดย : shiowa เมื่อวันที่ 2018-03-23 11:06:03
รายละเอียดของการตอบ ::

ลองรันบนเครื่อง localhost แล้วแสดง error ออกมาเพื่อดูว่า error line ไหนครับ

Code
https://www.thaicreate.com/asp/forum/039209.html



แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-03-23 11:18:59 By : cre_kiwsan
 


 

No. 4



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



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


ตอบความคิดเห็นที่ : 3 เขียนโดย : cre_kiwsan เมื่อวันที่ 2018-03-23 11:18:59
รายละเอียดของการตอบ ::
<ได้แล้วครับขอบคุณครับ> สรุปคือประกาศSet Conn = Server.Createobject("ADODB.Connection")
มันไปชนกับ Set Conn = Server.Createobject("ADODB.Connection") ที่อยู่ใน config ที่include เข้าไป
**ผมก็เพิ่งรู้ว่าประกาศ2ครั้งไม่ได้

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-03-23 11:54:11 By : shiowa
 


 

No. 5



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

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

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


แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-03-23 13:22:45 By : mr.win
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : <ได้แล้วครับขอบคุณครับ>รันไม่ผ่านเลยครับ รบกวนทุกท่านชี้แนะทีคับ
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ 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 03
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 อัตราราคา คลิกที่นี่