Forgot Password ??

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

	Registered : 109,038

HOME > ASP > ASP Forum > อยากได้โค้ดที่ใช้แก้ขอมูลของสมาชิกเวลาที่สมาชิกเข้ามาแล้วต้องการแก้ข้อมูลของตัวเองอะครับ

อยากได้โค้ดที่ใช้แก้ขอมูลของสมาชิกเวลาที่สมาชิกเข้ามาแล้วต้องการแก้ข้อมูลของตัวเองอะครับ

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

Guest

ผมทำอย่างนี้แต่มันไม่ได้ ผิดตรงไหนก็ไม่รู้สิ ใครรู้ช่วยบอกหน่อย
หน้าแรกชื่อ edit_profile05.asp
<%@ Language=VBScript %>
<HTML>
<HEAD><TITLE>::::::::::::แก้ไขประวัติ:::::::::::::</TITLE></HEAD>
<BODY bgcolor="#3399FF" align="center" border="1">
<TABLE bgcolor="#3399FF" align="center" border="1">
<TR>
<%
user_id=Session("User_Id")
Set Conn=Server.CreateObject("Adodb.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("DB/TRAIMIT05.mdb")
Set rs=Server.CreateObject("Adodb.Recordset")
mySql="Select * From TRegister05 WHERE ID="&User_id
rs.Open mySql, Conn,1,3
%>
<TD>ประวัติส่วนตัว</TD>
</TR>
<TR>
<TD><FORM action=edit_profile05_action.asp method=post NAME="Register05">
<TABLE bgcolor="#3399FF" align="center" border="1">
<TR><TD><B><FONT SIZE="" COLOR="red">*</FONT>SNAME</B></TD>
<TD><INPUT TYPE="text" NAME=sname size="26" MAXLENGTH="30"
value='<%=rs("SNAME")%>'></TD></TR>
<TR><TD><B><FONT SIZE="" COLOR="red">*</FONT>LASTNAME</B></TD>
<TD><INPUT TYPE="text" NAME=lname size="26" MAXLENGTH="30"
value='<%=rs("LASTNAME")%>'></TD></TR>
<TR><TD><B>GENDER</B></TD>
<TD><INPUT TYPE="radio" NAME="gender" VALUE="Male"<% if rs("gender")="Male" Then response.write"checked"end if%> >Male 
<INPUT TYPE="radio" NAME="gender" VALUE="Female" <% if rs("gender")="Female" Then response.write"checked"end if%> >Female</TD></TR>
<TR><TD><B><FONT SIZE="" COLOR="red">*</FONT>E-MAIL</B></TD>
<TD><INPUT TYPE="text" NAME=email SIZE="26" value='<%=rs("EMAIL")%>'></TD>
</TR>
<TR><TD><B>ADDRESS</B></TD><TD><textarea name=address cols="27" rows="4"
value='<%=rs("ADDRESS")%>'></textarea></TD></TR>
<TR><TD><B><FONT SIZE="" COLOR="red">*</FONT>USERNAME</B></TD>
<TD><INPUT TYPE="text" NAME="username "SIZE="26" value='<%=rs("USERNAME")%>'>
</TD></TR>
<TR><TD> <INPUT name="submit" type=submit class=button onclick="return CheckForm();" value=Submit></TD>
<TD><INPUT name="reset" type=reset class=button value=Reset></TD></TR>
</TABLE></TD></TR>
<TR><TD><%
rs.Close: Set rs=Nothing
Conn.Close : Set Conn=Nothing
%></TD></TR></TABLE>
</FORM>
</BODY>
</HTML>
หน้าที่ 2 ชื่อ edit_profile05_action.asp
<%@ Language=VBScript %>
<HTML>
<HEAD><TITLE>::::::::::::แก้ไขข้อมูล:::::::::::::</TITLE></HEAD>
<BODY ><table align=center ><tr> <td>¼Å¡ÒÃ¡ÒÃá¡éä¢¢éÍÁÙÅÊèÇ¹µÑÇ</td></tr>
<TR> <TD bgcolor="#0000FF">
<%
user_id=Session("User_Id")
Set Conn=Server.CreateObject("Adodb.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("DB/TRAIMIT05.mdb")
Set rs=Server.CreateObject("Adodb.Recordset")
mySql="Select * From TRegister05 WHERE ID="&User_id
rs.Open mySql, Conn,1,3
%>
<TABLE align=center border=0>
<TR> <TD bgColor=#fefefe valign="top">
<%
rs("USERNAME")=Request.form("username")
rs("SNAME")=Request.form("sname")
rs("LASTNAME")=Request.form("lname")
rs("GENDER")=Request.form("gender")
rs("EMAIL")=Request.form("email")
rs("ADDRESS")=Request.form("address")
rs.Update
response.write"<p align=center><font size=2><b>แก้ไขข้อมูลเสร็จเรียบร้อย<a href=edit_profile05.asp>กลับไปยังหน้าแก้ข้อมูล</a>เพื่อดูข้อมูลที่แก้ไข</b></font></p>"
rs.Close:Set rs=Nothing
Conn.Close:Set Conn=Nothing
%> </TD></TR></TABLE></TD></TR></TABLE>
</BODY>
</HTML>
ใครทราบว่าผมทำผิดตรงไหน คุณตูน หรือคุณ มักกะโรนีหมากเก็บหรือผู้รู้ช่วยแก้ให้หน่อยนะครับ

Tag : - - - -

Date : 5 ต.ค. 2549 12:34:21

By : yoyonok

View : 1926

Reply : 3

No. 1

มะโดด

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

Post Error มาให้ดูได้ไหมครับ ?

Date : 5 ต.ค. 2549 13:43:47

By : madoadza

No. 2

Guest

ตอนนี้แก้ได้แล้วเพราะไม่ได้ใส่ ' ตรง ID นะครับเราก็งงตั้งนานกว่าจะหาเจอ
เป็น ' ID=' นะครับ แต่ที่นี้เกิดปัญหาใหม่ที่ว่าเราดูข้อมูลประวัติส่วนตัวได้แค่ไอดีที่ 1 เท่านั้นอะครับไม่ว่าจะใส่
Username อื่นก็ยังเป็นประวัติของ Username ที่เป็นของไอดี 1เหมือนเดิมอะครับไม่ทราบว่าเป็นเพราะอะไรครัยพอที่จะทราบบ้างช่วยบอกด้วยครับ

Date : 5 ต.ค. 2549 17:15:37

By : yoyonok

No. 3

Guest

จากฐานข้อมูลนี้นะ
http://www.wbi.msu.ac.th/user_file/47011220205_37_ESME2000.MDB
เราทำ3ไฟล์แบบนี้อะ

show_edit.asp
---------------------------
<html>
<a href="Login.asp">Log in</a> <br><br><a href="Insert.asp">Register</a> <br><br> <a href="show.asp">SHOW_delete</a> <br><br> <a href="show_edit.asp">SHOW_edit</a> <br><br>

<head><title> Show </title></head>
<TABLE name="RegisShow" border="1">
<TR>
<td width="20%">Cid </td>
<td width="20%">CName </td>
<td width="25%">CSurname</td>
<td width="20%">Ccompany </td>
<td width="15%">Caddress</td>
<td width="20%">CSubdistrict</td>
<td width="20%">CDistrict</td>
<td width="20%">CProvince</td>
<td width="25%">CCountry</td>
<td width="20%">CZip </td>
<td width="15%">CTel</td>
<td width="20%">CFax</td>
<td width="20%">CEmil</td>
<td width="20%">CPassword </td>
<td width="25%">CRegDateTime</td>

<td bgcolor="red"width="10%">Edit</td>
</TR>

<%
Set dbconn=Server.CreateObject("ADODB.Connection")
dbconn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.mappath("ESME2000.MDB")
dim x
sql = "select * from Customers"
Set rst =Server.CreateObject("ADODB.Recordset")
rst.open sql,dbconn,1,3
x = rst.recordcount
if x>0 then
dim y
y = 0
do while not(rst.eof)
y = y + 1
%>
<TR>
<TD><%=rst("Cid")%></TD>
<TD><%=rst("CName")%></TD>
<TD><%=rst("CSurname")%></TD>
<TD><%=rst("Ccompany")%></td>
<TD><%=rst("CAddress")%></td>
<td><%=rst("CSubdistrict")%></TD>
<TD><%=rst("CDistrict")%></TD>
<TD><%=rst("CProvince")%></TD>
<TD><%=rst("CCountry")%></TD>
<TD><%=rst("CZip")%></TD>
<TD><%=rst("CTel")%></td>
<td><%=rst("CFax")%></TD>
<TD><%=rst("CEmail")%></TD>
<TD><%=rst("CPassword")%></TD>
<TD><%=rst("CRegDateTime")%></TD>

<td><a href="testedit.asp?Cid=<%=Rst("Cid")%>">Edit</a></td>

</TR>

<%
rst.movenext
loop
end if
%>

</html>

-----------------------------------
testedit.asp

<html>
<head>
<title>á¡éä¢¢éÍÁÙÅ</title>
<body bgcolor="#FFFFFF">
<form name="form1" method="post" action="edit1.asp">
á¡éä¢¢éÍÁÙÅ <br>
<%
Set Conn=Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("ESME2000.MDB"),"" , ""
'ËÃ×Í¨Ðãªéà»ç¹ Conn.Open "product","",""
sql ="Select * From customers where cid="&Request.QueryString("Cid")
Set Rst = Conn.Execute(sql)
%>
<input type="hidden" name="Cid" value="<%=Rst("Cid")%>">
<br>
<table width="80%" border="1" cellspacing="0" cellpadding="3" align="center" bordercolor="#CCCCCC">
<tr bgcolor="#FFCC99">
<td colspan="2"><b>Your billing information</b></td>
</tr>
<tr>
<td width="39%">CName </td>
<td width="61%">
<input type="text" name="na1" size="30" value="<%=session("CName")%>">
<font color="#FF0000"><b></b></font> </td>
</tr>
<tr>
<td width="39%">CSurname </td>
<td width="61%">
<input type="text" name="na2" size="30" value="<%=session("CSurname")%>">
<font color="#FF0000"><b></b></font> </td>
</tr>

<tr>
<td width="39%">Ccompany</td>
<td width="61%">
<input type="text" name="company1" size="40"value="<%=session("Ccompany")%>">
<font color="#FF0000"><b></b></font> </td>
</tr>
<tr>
<td width="39%">CAddress</td>
<td width="61%">
<input type="text" name="add1" size="40"value="<%=session("CAddress")%>">
<font color="#FF0000"><b></b></font> </td>
</tr>
<tr>
<td width="39%">CSubdistrict </td>
<td width="61%">
<input type="text" name="sub1" size="30" value="<%=session("CSubdistrict")%>">
<font color="#FF0000"><b></b></font> </td>
</tr>
<tr>
<td width="39%">CDistrict </td>
<td width="61%">
<input type="text" name="dis1" size="30" value="<%=session("CDistrict")%>">
<font color="#FF0000"><b></b></font> </td>
</tr>

<tr>
<td width="39%">CProvince</td>
<td width="61%">
<input type="text" name="prov1" size="40"value="<%=session("CProvince")%>">
<font color="#FF0000"><b></b></font> </td>
</tr>
<tr>
<td width="39%">CCountry</td>
<td width="61%">
<input type="text" name="count1" size="40"value="<%=session("CCountry<")%>">
<font color="#FF0000"><b></b></font> </td>
</tr>
<tr>
<td width="39%">Czip</td>
<td width="61%">
<input type="text" name="zip1" size="40"value="<%=session("Czip")%>">
<font color="#FF0000"><b></b></font> </td>
</tr>
<tr>
<td width="39%">Ctel</td>
<td width="61%">
<input type="text" name="tel1" size="40"value="<%=session("Ctel")%>">
<font color="#FF0000"><b></b></font> </td>
</tr>
<tr>
<td width="39%">Cfax</td>
<td width="61%">
<input type="text" name="fax1" size="40"value="<%=session("Cfax")%>">
<font color="#FF0000"><b></b></font> </td>
</tr>

</table><br>
<table width="80%" border="1" cellspacing="0" cellpadding="3" align="center" bordercolor="#CCCCCC">
<tr bgcolor="#FFCC99">
<td colspan="2"><b>Your login information</b></td>
</tr>

<tr>
<td width="39%">CEmail</td>
<td width="61%">
<input type="text" name="email1" size="30"value="<%=session("CEmail")%>">
<font color="#FF0000"><b></b></font> </td>
</tr>
<tr>
<td width="39%">CPassword</td>
<td width="61%">
<input type="text" name="pass1" size="30"value="<%=session("CPassword")%>">
<font color="#FF0000"><b></b></font> </td>
</tr>

</table>

<center><br>
<input type="submit" value="Submit">
<input type="reset" value="Reset"><br>
</center>

</form>
<br>

</body>
</html>

------------------------------------

edit1.asp

<%

Set Conn=Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("ESME2000.MDB"),"" , ""
'ËÃ×Í¨Ðãªéà»ç¹ Conn.Open "product","",""
sql ="Select * From customers where Cid="&Request.Form("Cid")
Set rst =Server.CreateObject("ADODB.Recordset")
rst.open Sql,Conn,1,3

rst("CName")=Request.Form("na1")
rst("CSurname")=Request.Form("na2")
rst("Ccompany")=Request.Form("company1")
rst("CAddress")=Request.Form("add1")
rst("CSubdistrict")=Request.Form("sub1")
rst("CDistrict")=Request.Form("dis1")
rst("CProvince")=Request.Form("prov1")
rst("CCountry")=Request.Form("count1")
rst("CZip")=Request.Form("zip1")
rst("CTel")=Request.Form("tel1")
rst("CFax")=Request.Form("fax1")
rst("CEmail")=Request.Form("email1")
rst("CPassword")=Request.Form("pass1")

rst.Update
Conn.Close
response.write("á¡éä¢¢éÍÁÙÅàÃÕÂºÃéÍÂáÅéÇ")
response.redirect("show_edit.asp")

%>

Date : 17 ต.ค. 2549 13:05:36

By : กิกิ

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : อยากได้โค้ดที่ใช้แก้ขอมูลของสมาชิกเวลาที่สมาชิกเข้ามาแล้วต้องการแก้ข้อมูลของตัวเองอะครับ

รายละเอียด

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

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

Notice

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

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

โดย

อีเมล์

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

<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)

Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 04

Registered : 109,038

No. 1

No. 2

No. 3

ค้นหาข้อมูล

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

Notice