smhzkk61
سه شنبه 15 تیر 1389, 17:33 عصر
با سلام به دوستان عزيزم.... فرض كنيد در Form1.html چند تا Textbox براي مشخصات دانشجو داريم.مقدار Textbox مربوط به تعداد دروس بايد براي Form2.asp ارسال شود.در Form2.asp برحسب عدد موردنظر در قسمت تعداد دروس Table طراحي مي شود كه تو هر خونه از اين Table ها بايد Texebox باشه جهت قرار دادن مقادير.مثلا جدولي كه ستون هاش به صورت رديف-نام درس-تعداد واحد-نمره باشه و باتوجه به تعداد درسي كه در فرم قبلي تعيين كرديم سطر ايجاد كنه و در خونه هاي مربوط به هر سطر Textbox در نظر گرفته بشه. در فرم Form3.asp جدول مربوط به نمراتي كه در Form2 براي دروس يه دانشجو نوشتيم بايد به نمايش در بياد.... مشكل من برمي گرده به اين مطلب كه من به چه صورت به Name اين Textbox هاي مربوط به فرم 2 دسترسي داشته باشم كه در فرم 3 از اونها براي نمايش اطلاعاتم استفاده كنم.
كدي كه خودم طراحي كردم:
براي Form2.asp
<%
dim i,j,x
x=Request.Form("T5")
dim array(1000,4)
If x<>"" Then
for i=1 to x
Response.Write("<tr>")
for j=1 to 3
array(i,j)=Response.Write("<td bgcolor=#FFEFE8>"&"<input type='text' name='T6' size='20'>"&"</td>")
array(i,j)=Request.Form("T6")
next
for j=4 to 4
array(i,j)=Response.Write("<td bgcolor=#FFEFE8>"&i&"</td>")
next
Response.Write("</tr>")
next
End If
Response.Write("<input type='submit' name='B4' size='20' value='ارسال'>")
Response.Write("<input type='reset' name='B5' size='20' value='جديد' >")
%>
براي Form3.asp
<%
dim i,j,x,u
u=Request.Form("T6")
dim array(1000,4)
for i=1 to x
Response.Write("<tr>")
for j=1 to 3
Response.Write("<td bgcolor=#FFEFE8>"&array(i,j)&"</td>")
next
for j=4 to 4
array(i,j)=Response.Write("<td bgcolor=#FFEFE8>"&i&"</td>")
next
Response.Write("</tr>")
next
%>
كدي كه خودم طراحي كردم:
براي Form2.asp
<%
dim i,j,x
x=Request.Form("T5")
dim array(1000,4)
If x<>"" Then
for i=1 to x
Response.Write("<tr>")
for j=1 to 3
array(i,j)=Response.Write("<td bgcolor=#FFEFE8>"&"<input type='text' name='T6' size='20'>"&"</td>")
array(i,j)=Request.Form("T6")
next
for j=4 to 4
array(i,j)=Response.Write("<td bgcolor=#FFEFE8>"&i&"</td>")
next
Response.Write("</tr>")
next
End If
Response.Write("<input type='submit' name='B4' size='20' value='ارسال'>")
Response.Write("<input type='reset' name='B5' size='20' value='جديد' >")
%>
براي Form3.asp
<%
dim i,j,x,u
u=Request.Form("T6")
dim array(1000,4)
for i=1 to x
Response.Write("<tr>")
for j=1 to 3
Response.Write("<td bgcolor=#FFEFE8>"&array(i,j)&"</td>")
next
for j=4 to 4
array(i,j)=Response.Write("<td bgcolor=#FFEFE8>"&i&"</td>")
next
Response.Write("</tr>")
next
%>