مشکل در محاسبه عددی در ASP [بایگانی]

sahe

شنبه 20 فروردین 1384, 19:40 عصر

سلام به همه
من یه صفحه asp نوشتم .
hazz=meghd*1000*gheym
این کد رو تو اون گذاشتم
ولی وقتی که اطلاعات این صفحه رو برای یه صفحه دیگه submit میکنم
hazz رو 0 قرار میده
اینم بگم که meghd رو از یه form میگیره .gheum رو از یهtable میخونه

mer30

سعیدیوسفی

شنبه 20 فروردین 1384, 22:24 عصر

ممکن است در نامگذاری فرم و بازخوانی آن دقت نکرده باشی
مثلا اسم فرم را x گذاشته باشی اما مقع بازخوانی اون تو صفحه دیگر y را فرخوانی کنی

علیرضا جاوید

شنبه 20 فروردین 1384, 23:05 عصر

برای اطمینان از typecasting استفاده کنید CInt()
2 تا پیشنهاد:
اولی اینکه اینجور مواقع که یک مقدار گم میشه قبل از عبارت محاسباتی با response.write و یا msgbox تکتک متغیرهایی دخیل در عبارت رو چک کنید.
دوم اینکه Option Explicit اینجورمواقع خیلی کمکتون میکنه و از بهم ریختگی برنامه جلوگیری کرده و خوانایی برنامه رو بالا میبره

sahe

چهارشنبه 24 فروردین 1384, 15:48 عصر

<%@ Language=VBScript %>
<% Option Explicit %>

<HTML>
<BODY BGcolor="#CEE0FB">

<%
const adLockOptimistic=3
const adCmdTable=2

Dim objRS
Dim fname
Dim lname
Dim uname
Dim pass
Dim hast
Dim maahsool
Dim kiind
Dim meghd
Dim hazz
Dim objRSS
Dim gheym
fname = Request.Form("firstname")
lname= Request.Form("lastname")
uname = Request.Form("username")
pass = Request.Form("password")
maahsool = Request.Form("mahsool")
kiind = Request.Form("kind")
meghd = Request.Form("meghdar")
If((Request.Form("firstname")="") OR (Request.Form("lastname")="")_
OR (Request.Form("username")="") OR (Request.Form("password")="")_
OR (Request.Form("mahsool")="") OR (Request.Form("kind")="") OR (Request.Form("meghdar")="")) Then
Response.Write "<A HREF='C:\Inetpub\wwwroot\Pages\sabad.htm'>"
Response.Write "it's not full. full it maaaaaaan!"
Response.Write "</A>"
Else
hast=False

Dim objConn
set objConn=Server.CreateObject("ADODB.Connection")
objConn.Provider="Microsoft.Jet.OLEDB.4.0"
objConn.Open server.mappath("table.mdb")

Set objRS=Server.CreateObject("ADODB.Recordset")
objRS.Open "form",objConn, ,adLockOptimistic,adCmdTable

Do While Not (objRS.EOF OR hast)
If ((StrComp(objRS("Username"),uname,vbTextCompare)=0)_
AND (StrComp(objRS("Password"),pass,vbTextCompare)=0)_
AND (StrComp(objRS("Firstname"),fname,vbTextCompare)=0)_
AND (StrComp(objRS("Lastname"),lname,vbTextCompare)=0)) Then
hast=True
End If
objRS.MoveNext
Loop

If Not hast Then
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
Response.Write "<A HREF= 'C:\Inetpub\wwwroot\Pages\sabad.htm'>"
Response.Write "inter it again"
Response.Write "</A>"
End If

Dim objConnn
set objConnn=Server.CreateObject("ADODB.Connection")
objConnn.Provider="Microsoft.Jet.OLEDB.4.0"
objConnn.Open server.mappath("table.mdb")

Dim strSQL
strSQL="SELECT ghey FROM mahsool WHERE noy='kiind'"

Set objRSS=Server.CreateObject("ADODB.Recordset")
objRSS.Open strSQL,objConnn

Do While Not objRSS.EOF

gheym=objRSS("ghey")
objRSS.MoveNext

Loop

hazz=meghd*1000*gheym

objRSS.Close
Set objRSS = Nothing

objConnn.Close
Set objConnn = Nothing

%>

&nbsp;

&nbsp;&nbsp;&nbsp;&nbsp; در صورتی
که اطلاعاتی که مشاهده می نمایید درست می باشد
روی خرید
از سایت&nbsp; کلیک کنید 

در غیر اینصورت دوباره فرم
<a href="Pages/sabad.htm" style="text-decoration: none">خرید از سایت</a> را&nbsp; پر کنید

&nbsp;
سبد خرید
نام
<form method="POST" action="kharidan.asp">

<input type="text" name="firstname" value="<%= fname %>" size="20">
نام خانوادگی
<input type="text" name="lastname" value="<%= lname %>"size="20">
محصول موردنظر شما
<input type="text" name="mahsool" value="<%= maahsool %>"size="20">
نوع محصول
<input type="text" name="kind" value="<%= kiind %>"size="20">
مقدار
<input type="text" name="meghdar" value="<%= meghd %>"size="20">
هزینه
<input type="text" name="hazine" value="<%= hazz %>" size="20">
&nbsp;

<input type="Submit" value="خرید از سایت" name="B3" style="font-size: 24pt">
</form>

<%

End If
%>

</BODY>
</HTML>

sahe

جمعه 26 فروردین 1384, 14:56 عصر

دوم اینکه Option Explicit اینجورمواقع خیلی کمکتون میکنه و از بهم ریختگی برنامه جلوگیری کرده و خوانایی برنامه رو بالا میبره

منظورت چیه؟

Nightbat

پنج شنبه 01 اردیبهشت 1384, 08:57 صبح

اگه از متغییری اشتباه استفاده کرده باشی یا مثلا یه چیز دیگه تعریف کرده باشی و یه چیز دیگه استفاده کرده باشی بهت میگه !!! :sunglass: