استفاده از یک متغیر قبل از مقدار دهی

[mehdi_25]

من یه متغیر دارم که لازمه اونو اول صفحه نمایش بدم . مشکل اینجاست که اون متغیر آخر صفحه مقدار دهی میشه .:blink:
حالا چطوری میتونم مقدار اونو اول صفحه چاپ کنم ؟

 

[shervin]

خب شما واسه اون چاپ مقدار یه روال درست کن بعد از درست شدن مقدار بفرست به اون روال
البته شما خودت استادی حتما مشکل بزرگتر از این حرفاس

 

[mehdi_25]

ببخشید من یادم رفت بگم که این با ASP یه کلاسیکه .

استاد !؟!؟ نه عزیزم . به اساتید توهین نکنید لطفاً.

راستی اینو هم بگم که از کد های جاوا نمیتونم استفاده کنم

 

[mazoolagh]

گیج شدم:wacko:

این اول و آخر از نظر اجرای کد هست یا موقعیت در صفحه؟

 

[mehdi_25]

موقعیت در صفحه .
مثلاً خط 23 باید مقدار متغیر چاپ بشه ولی همون متغیر در خط 85 مقدار دهی میشه و من باید همون مقداری که در خط 85 به متغیر نصبت داده شده رو چاپ کنم .

 

[Y2K]

موقعیت در صفحه .
مثلاً خط 23 باید مقدار متغیر چاپ بشه ولی همون متغیر در خط 85 مقدار دهی میشه و من باید همون مقداری که در خط 85 به متغیر نصبت داده شده رو چاپ کنم .

خوب این یخورده غیر منطقیه

چیزی رو که وجود نداره نمیشه چاپش کرد
مگر اینکه کارت رو خط 23 انجام بدی و نتیجه رو نگهش داری خط 85 ازش استفاده کنی

 

[Y2K]

اینو یادم رفت شاید بشه بریزیش توی یه دونه لیبل و اونو بعدا با یه کد جاوااسکریپت عوض کنی
استاد مازولاق حتما روشش رو میدونه

 

[mehdi_25]

یکم محدودیت دارم . در این صورت دوباره بالای صفحه باید بریزمش تو یه متغیر دیگه که یه سری بلا باید سرش در بیارم بعد تیکه تیکه چاپ کنم

 

[mazoolagh]

من صبحی اینجا یک پست نداشتم؟؟

بگذریم - مهدی خان کدت رو بگذار ببینیم موضوع چیه. من هنوز هم چیزی متوجه نشدم.

 

[m3hrz4d]

چون ای اس پی خط به خط اجرا میشه چاره ای نداری جز اینکه یا از جاوااسکریپت استفاده کنی یا اینکه کل کد ای اس پی ت رو به صورت فانکشن فانکشن در بیاری(که بتونی اول کد ها فاکنشنی که با مقدار مورد نظرت کار داره رو فراخوانی کنی - کلا این جور قسمت بندی برنامه خیلی بهتر از اینه که کد برنامه یک تیکه باشه...) یا اینکه اصلا روش کارت رو عوض کنی یعنی مساله رو از راه دیگه ای حل کنی....اگه کدت رو میگذاشتی بهتر بود.

 

[mehdi_25]

آقایون دست شما درد نکنه .

plus جان به صورت فانکشن نمیشه در بیارم . آخه یه تعداد رکورد های دیتابیس رو که مثلاً فیلد Name اونا ALI هست رو باید در صفحه نمایش بدم و همینطور تعداد آنها رو .

بهر حال حلقه رو یه بار اول صفحه برای تعداد اجرا می کنم بهد برای نمایش دوباره یه حلقه دیگه گذاشتم .

 

[mazoolagh]

مهدی خان - احتمالا" انتظار نداری که بدون کد بشه فهمید دقیقا" چی میگی

با این وجود میتونی با شماره فیلد بجای اسم فیلد هم کار کنی (اگر مشکلت ندونستن اسم فیلد هست)

 

[H_R]

سلام ،
مهدی جان اگه قضیه فقط چاپ کردن تعداد رکورد هاست که خیلی کار پیچیده ای نیست از ته یه صفحه html یه چیزی رو بالای اون نوشتن ! از innerHtml و یه div استفاده کن و مشکلت حل میشه !

 

[mehdi_25]

این هم کد برنامه من

<%=x_CounterMSG %>
<form method="post">
<%

' Avoid starting record > total records
If CLng(nStartRec) > CLng(nTotalRecs) Then
	nStartRec = nTotalRecs
End If

' Set the last record to display
nStopRec = nStartRec + nDisplayRecs - 1

' Move to first record directly for performance reason
nRecCount = nStartRec - 1
If Not rs.Eof Then
	rs.MoveFirst
	rs.Move nStartRec - 1
End If
nRecActual = 0
Do While (Not rs.Eof) And (nRecCount < nStopRec)
	nRecCount = nRecCount + 1
	If CLng(nRecCount) >= CLng(nStartRec) Then
		nRecActual = nRecActual + 1

	' Set row color
	sItemRowClass = " class=""ewTableRow"""
	sListTrJs = " onmouseover='ew_mouseover(this);' onmouseout='ew_mouseout(this);' onclick='ew_click(this);'"

	' Display alternate color for rows
	If nRecCount Mod 2 <> 1 Then
		sItemRowClass = " class=""ewTableAltRow"""
	End If
	x_ID = rs("ID")
	x_T_From_Username = rs("T_From_Username")
	x_T_To_Username = rs("T_To_Username")
	x_TSubject = rs("TSubject")
	x_TDate = rs("TDate")
	x_TTime = rs("TTime")
	x_Tbody = rs("Tbody")
	x_TView = rs("TView")
If x_T_To_Username = Session("MM_Username") Then
x_CounterMSG = x_CounterMSG + 1

%>
<table id="ewlistmain" class="ewTablemsg" DIR="RTL" width="80%" border="1" cellpadding="0" cellspacing="1" height="55">
	<!-- Table body -->
        <tr>
		<!-- ID -->
		<!-- T_From_Username -->
            <td style="border-width:1; border-style:none;" bgcolor="#CDCDFF" valign="middle">                <div Style="float:right;">
<span><a href="<% If Not IsNull(x_ID) Then Response.Write "javascript:ajaxpage('Users_Contact_View_True.asp?ID=" & Server.URLEncode(x_ID)&"&x_TView=Yes&a_edit=u', 'main');" Else Response.Write "javascript:alert('Invalid Record! Key is null');" End If %>"><% If x_TView = False Then %><b><% Response.Write x_TSubject %></b><% Else 
Response.Write x_TSubject 
End If %></a><br>
</span><font color="#FF7174">[</font> <font size="2"><% Response.Write x_T_From_Username %>
</font> <font color="#FF7174">]</font>
                </div>
<div Style="float:left;"><font size="2"><% Response.Write x_TDate %>
</font><font size="2"><br></font><font size="2"><% Response.Write x_TTime %></font></div></td>
<td width="50" style="border-width:1; border-style:none;" bgcolor="#CDCDFF" valign="middle"><span class="aspmaker"><a href="<% If Not IsNull(x_ID) Then Response.Write "javascript:ajaxpage('TblUsers_Countactdelete.asp?ID=" & Server.URLEncode(x_ID)&"', 'main');" Else Response.Write "javascript:alert('Invalid Record! Key is null');" End If %>">Delete</a></span></td>
<%
End If
	End If
	rs.MoveNext
Loop
%>
</table>
</form><%=x_CounterMSG%>
<% End If %>
<%

' Close recordset and connection
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>

اینجا یه x_CounterMSG دارم که تعداد حلقه رو در میاره . آخر حلقه اونو چاپ کردم ولی همون رو قبل از حلقه نمیشه .
آخه منطقی هم نیست که بتونیم چاپش کنیم دیگه .

 

[mazoolagh]

<html>
<head>
<body>
<span id="msg"></span>
<form method="post">
<%
' Avoid starting record > total records
If CLng(nStartRec) > CLng(nTotalRecs) Then
	nStartRec = nTotalRecs
End If

' Set the last record to display
nStopRec = nStartRec + nDisplayRecs - 1

' Move to first record directly for performance reason
nRecCount = nStartRec - 1
If Not rs.Eof Then
	rs.MoveFirst
	rs.Move nStartRec - 1
End If
nRecActual = 0
Do While (Not rs.Eof) And (nRecCount < nStopRec)
	nRecCount = nRecCount + 1
	If CLng(nRecCount) >= CLng(nStartRec) Then
		nRecActual = nRecActual + 1

	' Set row color
	sItemRowClass = " class=""ewTableRow"""
	sListTrJs = " onmouseover='ew_mouseover(this);' onmouseout='ew_mouseout(this);' onclick='ew_click(this);'"

	' Display alternate color for rows
	If nRecCount Mod 2 <> 1 Then
		sItemRowClass = " class=""ewTableAltRow"""
	End If
	x_ID = rs("ID")
	x_T_From_Username = rs("T_From_Username")
	x_T_To_Username = rs("T_To_Username")
	x_TSubject = rs("TSubject")
	x_TDate = rs("TDate")
	x_TTime = rs("TTime")
	x_Tbody = rs("Tbody")
	x_TView = rs("TView")
If x_T_To_Username = Session("MM_Username") Then
x_CounterMSG = x_CounterMSG + 1

%>
<table id="ewlistmain" class="ewTablemsg" DIR="RTL" width="80%" border="1" cellpadding="0" cellspacing="1" height="55">
	<!-- Table body -->
        <tr>
		<!-- ID -->
		<!-- T_From_Username -->
            <td style="border-width:1; border-style:none;" bgcolor="#CDCDFF" valign="middle">                <div Style="float:right;">
<span><a href="<% If Not IsNull(x_ID) Then Response.Write "javascript:ajaxpage('Users_Contact_View_True.asp?ID=" & Server.URLEncode(x_ID)&"&x_TView=Yes&a_edit=u', 'main');" Else Response.Write "javascript:alert('Invalid Record! Key is null');" End If %>"><% If x_TView = False Then %><b><% Response.Write x_TSubject %></b><% Else 
Response.Write x_TSubject 
End If %></a><br>
</span><font color="#FF7174">[</font> <font size="2"><% Response.Write x_T_From_Username %>
</font> <font color="#FF7174">]</font>
                </div>
<div Style="float:left;"><font size="2"><% Response.Write x_TDate %>
</font><font size="2"><br></font><font size="2"><% Response.Write x_TTime %></font></div></td>
<td width="50" style="border-width:1; border-style:none;" bgcolor="#CDCDFF" valign="middle"><span class="aspmaker"><a href="<% If Not IsNull(x_ID) Then Response.Write "javascript:ajaxpage('TblUsers_Countactdelete.asp?ID=" & Server.URLEncode(x_ID)&"', 'main');" Else Response.Write "javascript:alert('Invalid Record! Key is null');" End If %>">Delete</a></span></td>
<%
End If
	End If
	rs.MoveNext
Loop
%>
</table>
</form>
<% End If %>
<%

' Close recordset and connection
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>
<script language="javascript">
document.getElementById("msg").innerHTML = "<%=x_CounterMSG%>" ;
</script>
</body>
</html>

 

[mehdi_25]

mazoolagh جان دستت درد نکنه . این مورد رو حسین هم بالا گفته بود . ولی من بالا می خواستم یه متغیر داشته باشم که روش بتونم تغییراتی بدم .

ولی ظاهراًچاره ای نیست و بهتره از این که دوبار دیتابیس رو چک کنیم . تا این عدد رو بدست بیاریم .

 

[mehdi_25]

آقا این جواب نداد

 

[mazoolagh]

مهدی جان - اون باید صد در صد جواب بده. به این دلیل:

<html>
<body>
<%
x_CounterMSG = 7
%>
<span id="msg"></span>
<script language="javascript">
document.getElementById("msg").innerHTML = "<%=x_CounterMSG%>" ;
</script>
</body>
</html>

 

[mazoolagh]

اما مشکل کجاست؟

ظاهرا" شما یک سری رکورد داری که میخوای اونها رو تو یک جدول چاپ کنی. تعداد رکوردها معلوم نیست و وقتی معلوم میشه که شما جدول رو چاپ کرده باشی. بالای جدول نیاز داری تعداد رکوردها رو چاپ کنی.

اگر تا اینجا درسته ادامه بدم.

 

[mehdi_25]

اما مشکل کجاست؟

ظاهرا" شما یک سری رکورد داری که میخوای اونها رو تو یک جدول چاپ کنی. تعداد رکوردها معلوم نیست و وقتی معلوم میشه که شما جدول رو چاپ کرده باشی. بالای جدول نیاز داری تعداد رکوردها رو چاپ کنی.

اگر تا اینجا درسته ادامه بدم.

آره درسته ....
راستی این که کار نکرد بخاطره اینه که من برای لود کردن صفحه از Ajax استفاده کردم و و اون هم از همین innerHTML .
دیگه اسکریپت های جاوا اسکریپت رو اجرا نمی کنه .