Forgot Password ??

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

	Registered : 109,037

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

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

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

illustrator

โพสกระทู้ ( 241 )
บทความ ( 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

Date : 2018-03-29 12:56:07

By : shiowa

View : 1382

Reply : 5

No. 1

TC Admin

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

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

Date : 2018-03-30 09:12:41

By : mr.win

No. 2

illustrator

โพสกระทู้ ( 241 )
บทความ ( 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

illustrator

โพสกระทู้ ( 241 )
บทความ ( 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

illustrator

โพสกระทู้ ( 241 )
บทความ ( 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

รายละเอียด

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

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

Notice

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

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

โดย

อีเมล์

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