الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مساعده في asp & wml

مغلق
بدأه جروح الهمس في 28 مارس 2004 · 0 رد · 560 مشاهدة · في منتدى تصميم صفحات الويب
مشاركة: واتساب X فيسبوك تيليجرام
#1

السلام عليكم

الصراحة المشكله في asp

انا اشتغل على مشروع تخرج student's grade through wap based client

يعني مووقع واب

المشكله اني لما اجي اغير الباسورد

اواجه مشكله

انه لازم اختار في البدايه رقم الطالب والباسورد وبعدين اعمل تحديث للباسورد

فما اعرف هل يجب ان اعمل 2 recordset

or 2 sql commands

وهذا هو الكود :

<% Response.ContentType = "text/vnd.wap.wml" 
Response.Expires = 0 %>  
<?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<card id="CPWD" title="change Password">
 <p align="center"> 
     	 Please enter your <b>Student ID</b>: <input type="text" name="SID" maxlength="8"/>
     	 Please enter your <b> Old Password</b>: <input type="text" name="Password" maxlength="8"/>
        Please enter your <b> New Password</b>: <input type="text" name="nPassword" maxlength="8"/>
 </p>
 <do type="accept" label="Login">
     <go method="post" href="newpwd.asp">

        <postfield name="SID" value="$SID" />
        <postfield name="Password" value="$Password" />
	<postfield name="nPassword" value="$nPassword" />

     </go>
  
  </do>
   
</card>
</wml>

هذا كود الصفحه ومثل ما تشوفون ادخل رقم الطالب والباسورد القديم والباسورد الجديد

ومن ثم ينتقل لصفحة asp

وهذا كود صفحة newpwd.asp

<% Response.ContentType = "text/vnd.wap.wml"%> 
<?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">

   <wml>
   <card id="PWD" title="Password">
      <p>
      <%
      Dim conn, rs,sql

   

      Set conn = Server.CreateObject("ADODB.Connection")
      Set rs   = Server.CreateObject("ADODB.Recordset")
      Set rsupdate   = Server.CreateObject("ADODB.Recordset")
     
      conn.Provider="Microsoft.Jet.OLEDB.4.0"
      conn.Open Server.MapPath("Database.mdb")	

      
      sql = "SELECT * FROM Student WHERE SID='" & Request("SID") & "' AND Password='" & Request("Password") & "'"
	rs.open sql,conn
      
      
      if (Request("SID") = rs("SID").value) AND (Request("Password") = rs("Password").value) Then
      sql = "Update Student SET Password='" & Request("nPassword") & "' Where SID='" & Request("SID") & "'"

        Response.Write "<b> wrong</b><br/>"
      else 
        Response.Write "<b> wrong</b><br/>"

      end if

      rs.close
      conn.Close
      Set rs=Nothing
      Set conn = Nothing
      %>
  
      
   </p>
   </card>
</wml>

فالمشكلة مثل ما قلت

how can i select record the i update through asp

ارجوا حل المشكلة

وشكرا

تحياتي

هذا الموضوع مغلق.

مواضيع مشابهة