ผิดตรงใหนช่วยดูทีนะ คือว่าจะดึงข้อมูลจาก ดาต้าเบสมาแก้ไข แต่มันไม่โชว์ข้อมูลเลย ขึ้นมาเป็นกระดาษเปล่า
คือว่าจะดึงข้อมูลจาก ดาต้าเบสมาแก้ไข แต่มันไม่โชว์ข้อมูลเลย ขึ้นมาเป็นกระดาษเปล่า ลองเช็ค ฟิลด์ดูก็ไม่น่าจะผิด เอาโค้ดมาจากบทเรียนที่นี่แหละ
=====================
หน้าแรก
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">
¡ÓÅѧá¡é䢢éÍÁÙÅ<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">ª×èÍʶҹ·Õè</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">ª×èͼÙéºÑ­ªÒ¡Òà à¨éҢͧ ¼Ùé¨Ñ´¡ÒÃ</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">µÓá˹è§</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">·ÕèÍÂÙè</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">·ÕèÍÂÙè</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">àÁ×ͧ</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">ÃÑ°/¨Ñ§ËÇÑ´</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">ÃËÑÊä»ÃɳÕÂì</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">»ÃÐà·È</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">â·Ã</font><br>Phone:</td>
<td bgcolor="#C5DCFE"><input type="text" name="txtph1" value="<%=Rs("Phone1")%>"> , <input type="text" name="txtph2" value="<%=Rs("Phone2")%>"></td>
</tr>
<tr>
<td bgcolor="#C5DCFE" align="right"><font color="yellow" size="-1">á¿¡«ì</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">ÍÕàÁÅì</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">àÇçºä«µì</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">à»Ô´·Ó¡ÒÃ</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">à»Ô´àÇÅÒ</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">»Ô´·Ó¡ÒÃ</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">àËÅéÒáÅÐäǹì</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">à»ç¹ÃéҹẺ</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">¤ÓºÃÃÂÒÂ</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 : - - - -
Date :
6 ก.ย. 2548 12:48:35
By :
Nimbo
View :
2390
Reply :
2
เห้อ..ตั้งนานแล้วยังไม่ไปถึงไหนอีกเหรอ
ลอง 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">ª×èÍʶҹ·Õè</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 :
นายกระจอก
1.เทอนี่ใจยังว่าไฟล์โค้ดนั้น เซฟนามสกุล asp แล้ว
2.ถ้าแน่ใจข้อ 1 แล้ว คงเพราะ เทอลากไฟล์ไปเปิดกับ ie ละสิ อย่าทำแบบนั้น ให้ทำแบบนี้
พิมพ์ http://localhost/แล้วต่อด้วย พาธ ที่ไปถึงไฟล์นั้น ใน ie/ แล้วมานถึง จะรัน cgiสคริป asp ให้มาโชว์
Date :
16 ก.ย. 2548 14:32:21
By :
เพชรHolyTyrael
Load balance : Server 05