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

Registered : 107,810

HOME > ASP > ASP Forum > ผมไม่แน่ใจว่าเขียนถูกรึป่าว บรรทัดที่40 Dim Conn,strSQL,objRec strSQL = "SELECT * FROM Schoo





 

ผมไม่แน่ใจว่าเขียนถูกรึป่าว บรรทัดที่40 Dim Conn,strSQL,objRec strSQL = "SELECT * FROM Schoo

 



Topic : 130701



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



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




ผมไม่แน่ใจว่าเขียนถูกรึป่าว บรรทัดที่40
test
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="200"> <div align="center">Zone </div></th>
      <th width="198"> <div align="center">Amphur </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
%>
<%


If objRec.Fields("RegStatus").Value=="1"
 Then
response.write("เปิด")
Else
response.write("ปิด")

End If




	
%>
  <tr>
		<td><div align="center"><%=objRec.Fields("Code").Value%></div></td>
		<td><%=objRec.Fields("SchoolName").Value%></td>
		
		<td><div align="center"><%=objRec.Fields("Zone").Value%></div></td>
        <td><%=objRec.Fields("Amphur").Value%></td>
		<!--<td align="right">%=myNum.Fields("").Value%></td>-->
		<td align="right"><%=objRec.Fields("RegStatus").Value%></td>
    <td align="center"><a href="AspAccessEditRecordForm.asp?CusID=<%=objRec.Fields("Code").Value%>">แก้ไข</a></td>
  </tr>
<%
	objRec.MoveNext
	Wend
%>
</table>

	
<%
	objRec.Close()
	Conn.Close()
	Set objRec = Nothing
	Set Conn = Nothing
%>
</body>
</html>




Tag : ASP









ประวัติการแก้ไข
2018-03-29 13:55:13
2018-03-29 13:55:39
2018-03-29 13:56:09
2018-03-29 16:43:07
2018-03-30 09:59:25
Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2018-03-29 12:56:07 By : shiowa View : 492 Reply : 5
 

 

No. 1



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

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

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

ถ้าไม่มี Error ก็น่าจะถูกนะครับ






แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-03-30 09:12:41 By : mr.win
 


 

No. 2



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



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


ตอบความคิดเห็นที่ : 1 เขียนโดย : mr.win เมื่อวันที่ 2018-03-30 09:12:41
รายละเอียดของการตอบ ::
Internal Server Error
The server encountered an internal error or misconfiguration and was unable to complete your request.
Please contact the server administrator to inform of the time the error occurred and of anything you might have done that may have caused the error.

More information about this error may be available in the server error log.

แต่เอาบรรทัดที่40 ออก ปกติคับ



ประวัติการแก้ไข
2018-03-30 09:52:43
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-03-30 09:50:59 By : shiowa
 

 

No. 3



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



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


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

ผมลอง

<%

If (objRec.Fields("RegStatus").Value=="1") Then
Response.write("open")
ElseIf (objRec.Fields("RegStatus").Value=="0") Then
Response.write("closed")

End If
%>
และ

If (objRec.Fields("RegStatus").Value==1) Then

และ

If (objRec.Fields("RegStatus").Value=="True") Then

และ

If (objRec.Fields("RegStatus").Value==True) Then
และ

If (objRec.Fields("RegStatus").true) Then
และ

If (objRec.Fields("RegStatus").checked) Then
และ
If (objRec.Fields("RegStatus")=="checked") Then
และ
If (objRec.Fields("RegStatus")==checked) Then


ผลลัพธ์ เหมือนเดิมไม่มีบอกว่าeror ตรงไหนบรรทัดไหน ว่าจะเขียนasp เป็นครั้งสุดท้าย แล้วกลับไปใช้ php เหมือนเดิมดีกว่าคับ

พี่ดูช่วยที่คับ







ประวัติการแก้ไข
2018-03-30 12:44:31
2018-03-30 12:46:31
2018-03-30 12:49:39
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-03-30 12:37:58 By : qas
 


 

No. 4



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



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





ประวัติการแก้ไข
2018-03-30 16:35:42
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-03-30 15:28:25 By : shiowa
 


 

No. 5

Guest


ถ้าเป็น vb.net น่าจะใช่ เท่ากับตัวเดียวครับ จะใช้ = แค่นี้พอ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2019-06-06 15:25:23 By : ดอน
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : ผมไม่แน่ใจว่าเขียนถูกรึป่าว บรรทัดที่40 Dim Conn,strSQL,objRec strSQL = "SELECT * FROM Schoo
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ 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: Voake, Comcube, รับทำเว็บไซต์ รับเขียนโปรแกรม , โปรแกรมเจ้ามือหวย

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