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

HOME > ASP > ASP Forum > ผิดตรงใหนช่วยดูทีนะ คือว่าจะดึงข้อมูลจาก ดาต้าเบสมาแก้ไข แต่มันไม่โชว์ข้อมูลเลย ขึ้นมาเป็นกระดาษเปล่า



 

ผิดตรงใหนช่วยดูทีนะ คือว่าจะดึงข้อมูลจาก ดาต้าเบสมาแก้ไข แต่มันไม่โชว์ข้อมูลเลย ขึ้นมาเป็นกระดาษเปล่า

 



Topic : 005370

Guest




คือว่าจะดึงข้อมูลจาก ดาต้าเบสมาแก้ไข แต่มันไม่โชว์ข้อมูลเลย ขึ้นมาเป็นกระดาษเปล่า ลองเช็ค ฟิลด์ดูก็ไม่น่าจะผิด เอาโค้ดมาจากบทเรียนที่นี่แหละ

=====================
หน้าแรก
edtplc2.asp

<% @codepage=874%>
<% Response.Buffer=True%>
<html>
<head>
<title>Update Place</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874">
<meta http-equiv="Content-Type" content="text/html; charset=TIS-620">
<meta http-equiv="Content-Language" content="th">
</head>
<body>
<form name="edt" method="post" action="mngplc2.asp">
&iexcl;&Oacute;&Aring;&Ntilde;&sect;&aacute;&iexcl;&eacute;&auml;&cent;&cent;&eacute;&Iacute;&Aacute;&Ugrave;&Aring;<br>

<!-- #include file="file\adovbs.inc" -->
<%
'Get the product ID
'pcID = TRIM(Request("pid"))
' Open the Database Connection
Set Con = Server.CreateObject( "ADODB.Connection" )
Con.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db\Addlst.mdb"),"",""
sql ="Select * From Added where Place='"& Request.QueryString("Place") &"'"
'sql ="Select * From Added where Place='"& pcID &" ' "
'request.querystring sqlString
response.write sql
response.end
Set Rs = Con.Execute(sql)
If Rs.EOF Then
%>
No records.
<%Else%>

%>
<input type="hidden" name="Place" value='"<%=Rs("Place")%>"'">
<table border="0" width="100%" bgcolor="#ffffff" cellspadding="0" cellspacing="0">
<tr>
<td bgcolor="#C5DCFE">Place</td>
<td bgcolor="#C5DCFE"><input type="radio" name="mode" value='"<%=Rs("Place")%>"'">
</tr>
<tr>
<td bgcolor="#C5DCFE" align="right"><font color="yellow" size="-1">&ordf;&times;&egrave;&Iacute;&Ecirc;&para;&Ograve;&sup1;&middot;&Otilde;&egrave;</font><br>Place's Name:</td>
<td bgcolor="#C5DCFE"><input type="text" name="fname" value='"<%=Rs("PlaceName")%>"'"></td>
</tr>
<tr>
<td bgcolor="#C5DCFE" align="right"><font color="yellow" size="-1">&ordf;&times;&egrave;&Iacute;&frac14;&Ugrave;&eacute;&ordm;&Ntilde;&shy;&ordf;&Ograve;&iexcl;&Ograve;&Atilde; &agrave;&uml;&eacute;&Ograve;&cent;&Iacute;&sect; &frac14;&Ugrave;&eacute;&uml;&Ntilde;&acute;&iexcl;&Ograve;&Atilde;</font><br>President/Owner/<br>Manager's Name:</td>
<td bgcolor="#C5DCFE"><input type="text" name="fmgr" value='"<%=Rs("Manager")%>"'"></td>
</tr>
<tr>
<td bgcolor="#C5DCFE" align="right"><font color="yellow" size="-1">&micro;&Oacute;&aacute;&Euml;&sup1;&egrave;&sect;</font><br>Position:</td>
<td bgcolor="#C5DCFE"><input type="text" name="fpos" value='"<%=Rs("Position")%>"'"></td>
</tr>

<tr>
<td bgcolor="#C5DCFE" align="right"><font color="yellow" size="-1">&middot;&Otilde;&egrave;&Iacute;&Acirc;&Ugrave;&egrave;</font><br>Address1:</td>
<td bgcolor="#C5DCFE"><input type="text" name="txtadd1" value='"<%=Rs("Address1")%>"'"></td>
</tr>
<tr>
<td bgcolor="#C5DCFE" align="right"><font color="yellow" size="-1">&middot;&Otilde;&egrave;&Iacute;&Acirc;&Ugrave;&egrave;</font><br>Address2:</td>
<td bgcolor="#C5DCFE"><input type="text" name="txtadd2" value='"<%=Rs("Address2")%>"'"></td>
</tr>
<tr>
<td bgcolor="#C5DCFE" align="right"><font color="yellow" size="-1">&agrave;&Aacute;&times;&Iacute;&sect;</font><br>City:</td>
<td bgcolor="#C5DCFE"><input type="text" name="txtcit" value='"<%=Rs("City")%>"'"></td>
</tr>
<tr>
<td bgcolor="#C5DCFE" align="right"><font color="yellow" size="-1">&Atilde;&Ntilde;&deg;/&uml;&Ntilde;&sect;&Euml;&Ccedil;&Ntilde;&acute;</font><br>State</td>
<td bgcolor="#C5DCFE">
<table bgcolor="#C5DCFE" border="0">
<tr><td><input type="text" name="txtstt" value='"<%=Rs("State")%>"'"></td>
<td align="right"><font color="yellow" size="-1">&Atilde;&Euml;&Ntilde;&Ecirc;&auml;&raquo;&Atilde;&Eacute;&sup3;&Otilde;&Acirc;&igrave;</font><br>Zip/Postal:</td>
<td><input type="text" name="txtzip" value="<%=Rs("Zip")%>"></td>
<tr>
</table>
</td>
</tr>
<tr>
<td bgcolor="#C5DCFE" align="right"><font color="yellow" size="-1">&raquo;&Atilde;&ETH;&agrave;&middot;&Egrave;</font><br>Country:</td>
<td bgcolor="#C5DCFE"><input type="text" name="txtcou" value='"<%=Rs("Country")%>"'"></td>
</tr>
<tr>
<td bgcolor="#C5DCFE" align="right"><font color="yellow" size="-1">&acirc;&middot;&Atilde;</font><br>Phone:</td>
<td bgcolor="#C5DCFE"><input type="text" name="txtph1" value="<%=Rs("Phone1")%>">&nbsp;,&nbsp;<input type="text" name="txtph2" value="<%=Rs("Phone2")%>"></td>
</tr>
<tr>
<td bgcolor="#C5DCFE" align="right"><font color="yellow" size="-1">&aacute;&iquest;&iexcl;&laquo;&igrave;</font><br>Fax:</td>
<td bgcolor="#C5DCFE"><input type="text" name="txtfax" value="<%=Rs("Fax")%>"></td>
</tr>
<tr>
<td bgcolor="#C5DCFE" align="right"><font color="yellow" size="-1">&Iacute;&Otilde;&agrave;&Aacute;&Aring;&igrave;</font><br>Email:</td>
<td bgcolor="#C5DCFE"><input type="text" name="txtema" value='"<%=Rs("Email")%>"'"></td>
</tr>
<tr>
<td bgcolor="#C5DCFE" align="right"><font color="yellow" size="-1">&agrave;&Ccedil;&ccedil;&ordm;&auml;&laquo;&micro;&igrave;</font><br>Website:</td>
<td bgcolor="#C5DCFE"><input type="text" name="txtweb" value='"<%=Rs("Website")%>"'"></td>
</tr>

<tr>
<td bgcolor="#C5DCFE" align="right"><font color="yellow" size="-1">&agrave;&raquo;&Ocirc;&acute;&middot;&Oacute;&iexcl;&Ograve;&Atilde;</font><br>Open Day:</td>
<td bgcolor="#C5DCFE"><input type="text" name="txtody" value='"<%=Rs("Day")%>"'"></td>
</tr>
<tr>
<td bgcolor="#C5DCFE" align="right"><font color="yellow" size="-1">&agrave;&raquo;&Ocirc;&acute;&agrave;&Ccedil;&Aring;&Ograve;</font><br>Open Time:</td>
<td bgcolor="#C5DCFE"><input type="text" name="txtotm" value="<%=Rs("Time")%>"></td>
</tr>
<tr>
<td bgcolor="#C5DCFE" align="right"><font color="yellow" size="-1">&raquo;&Ocirc;&acute;&middot;&Oacute;&iexcl;&Ograve;&Atilde;</font><br>Close Day:</td>
<td bgcolor="#C5DCFE"><input type="text" name="txtcls" value='"<%=Rs("Close")%>"'"></td>
</tr>

<tr>
<td bgcolor="#C5DCFE" align="right"><font color="yellow" size="-1">&agrave;&Euml;&Aring;&eacute;&Ograve;&aacute;&Aring;&ETH;&auml;&Ccedil;&sup1;&igrave;</font><br>Alcohol:</td>
<td bgcolor="#C5DCFE"><select name="alcStu" value='"<%=Rs("Alcohol")%>"'">
</tr>
<tr>
<td bgcolor="#C5DCFE" align="right"><font color="yellow" size="-1">&agrave;&raquo;&ccedil;&sup1;&Atilde;&eacute;&Ograve;&sup1;&aacute;&ordm;&ordm;</font><br>Status:</td>
<td bgcolor="#C5DCFE"><select name="plcStu" value="<%=Rs("Status")%>">
</tr>
<tr>
<td bgcolor="#C5DCFE" align="right"><font color="yellow" size="-1">&curren;&Oacute;&ordm;&Atilde;&Atilde;&Acirc;&Ograve;&Acirc;</font><br>Description:</td>
<td bgcolor="#C5DCFE" colspan="2"><textarea name="txtarea" value='"<%=Rs("Description")%>"'"></textarea></td>
</tr>
<tr>
<td bgcolor="#C5DCFE" colspan="2" align="right">
<input type="submit" name="submit" value="Submit" target="_top" style="background:00ccff">
<input type="reset" name="reset" value="Reset" style="background:99ccff">
</td>
</tr>
</form>
</table>
<%end if%>
</body>
</html>
============================
หน้าที่สอง
mngplc2.asp
<%
' Open the Database Connection

Set Con=Server.CreateObject("ADODB.Connection")
openStr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/Addlst.mdb"),"",""
Con.Open openStr,"",""
sql="SELECT * FROM Added WHERE Place='" & Request.Form("fname") & "'"
Set rsReg=Server.CreateObject("ADODB.Recordset")
'rsReg.open sql, Con, adOpenDynamic, adLockPessimistic, adCmdText
rsReg.ActiveConnection = Con
rsReg.CursorType = 3
rsReg.open sql,Con,3,3
rsReg.Addnew
rsReg("Place")=Request.Form("mode")
rsReg("PlaceName")=Request.Form("fname")
rsReg("Manager")=Request.Form("fmgr")
rsReg("Position")=Request.Form("fpos")
rsReg("Address1")=Request.Form("txtadd1")
rsReg("Address2")=Request.Form("txtadd2")
rsReg("City")=Request.Form("txtcit")
rsReg("State")=Request.Form("txtstt")
rsReg("Zip")=Request.Form("txtzip")
rsReg("Country")=Request.Form("txtcou")
rsReg("Phone1")=Request.Form("txtph1")
rsReg("Phone2")=Request.Form("txtph2")
rsReg("Fax")=Request.Form("txtfax")
rsReg("Email")=Request.Form("txtema")
rsReg("Website")=Request.Form("txtweb")
rsReg("Day")=Request.Form("txtody")
rsReg("Time")=Request.Form("txtotm")
rsReg("Close")=Request.Form("txtcls")
rsReg("Alcohol")=Request.Form("alcStu")
rsReg("Status")=Request.Form("plcStu")
rsReg("Description")=Request.Form("txtarea")
rsReg.Update
rsReg.Close
Set rsReg=Nothing
Con.Close
Set Con=Nothing

%>
=====================================



Tag : - - - -






Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 6 ก.ย. 2548 12:48:35 By : Nimbo View : 2353 Reply : 2
 

 

No. 1



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



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


เห้อ..ตั้งนานแล้วยังไม่ไปถึงไหนอีกเหรอ
ลอง copy บรรทัดโค้ดข้างล่างนี้ไปแทนที่อันเดิมสิครับ...ดูสิว่ามันจะเป็นกระดาษเปล่าไหมครับ..
<!-- #include file="file\adovbs.inc" -->
<%
'Get the product ID
'pcID = TRIM(Request("pid"))
' Open the Database Connection
Set Con = Server.CreateObject( "ADODB.Connection" )
Con.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db\Addlst.mdb"),"",""
sql ="Select * From Added where Place='"& Request.QueryString("Place") &"'"
'sql ="Select * From Added where Place='"& pcID &" ' "
'request.querystring sqlString
'response.write sql '=============== จุดสังเกต ลบบรรทัดนี้ออกหรือไม่ก็ comment ไว้ซะ
'response.end '================== จุดสังเกต
Set Rs = Con.Execute(sql)
If Rs.EOF Then
%>
No records.
<%Else%>

%>==================== ตัวนี้มีไว้เพื่ออะไร
<input type="hidden" name="Place" value='"<%=Rs("Place")%>"'">
<table border="0" width="100%" bgcolor="#ffffff" cellspadding="0" cellspacing="0">
<tr>
<td bgcolor="#C5DCFE">Place</td>
<td bgcolor="#C5DCFE"><input type="radio" name="mode" value='"<%=Rs("Place")%>"'">
</tr>
<tr>
<td bgcolor="#C5DCFE" align="right"><font color="yellow" size="-1">&ordf;&times;&egrave;&Iacute;&Ecirc;&para;&Ograve;&sup1;&middot;&Otilde;&egrave;</font><br>Place's Name:</td>
<td bgcolor="#C5DCFE"><input type="text" name="fname" value='"<%=Rs("PlaceName")%>"'"></td>
</tr>
<tr>


Date : 6 ก.ย. 2548 15:34:09 By : นายกระจอก
 


 

No. 2

Guest


1.เทอนี่ใจยังว่าไฟล์โค้ดนั้น เซฟนามสกุล asp แล้ว
2.ถ้าแน่ใจข้อ 1 แล้ว คงเพราะ เทอลากไฟล์ไปเปิดกับ ie ละสิ อย่าทำแบบนั้น ให้ทำแบบนี้
พิมพ์ http://localhost/แล้วต่อด้วย พาธ ที่ไปถึงไฟล์นั้น ใน ie/ แล้วมานถึง จะรัน cgiสคริป asp ให้มาโชว์
Date : 16 ก.ย. 2548 14:32:21 By : เพชรHolyTyrael
 

   

ค้นหาข้อมูล
   
 

แสดงความคิดเห็น
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 04
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 อัตราราคา คลิกที่นี่