从上一页传递包含 6 位数字的 asp 变量后，HTML 输入未更新

Question

我正在尝试将变量从一个 asp 网页传递到另一个网页，但是当我传递超过 5 位数字的变量时，它会导致我的 html 输入无法更新。

这是创建可变期权价格的页面

索引.asp

<%@ Language="VBScript" CodePage=65001 %>
<%
plan = Request("plan")
If plan = "" Then plan = "1"
modelid = Request("modelid")
If modelid = "" Then modelid = "0"
optionprice = Request("optionprice")
If optionprice = "" Then optionprice = "0"
'Responce.Write("optionprice=" & optionprice)
'plan = Request.Form("plan")
'If plan = "" Then plan = "1"
'modelid = Request.Form("modelid")
'If modelid = "" Then modelid = "0"
'Response.Write("plan= " & plan)
'Response.Write("modelid= " & modelid)
dpop = Request.QueryString("dpop")
If dpop = "on" Then dpop = "on"
' Response.Write("dpop= " & dpop)
%>

结果页面是result_ct.asp

optionprice = Request.Form("optionprice")
    If optionprice <> "" Then optionprice = optionprice * 1
    optionprice_2 = optionprice

这是 html 表单和输入

索引.asp

<form NAME="form1" action="result_ct.asp" method="post" style="margin:0;">
<dl class="downpaymentform">
                <dt>諸費用・オプション代など</dt>
                <dd><div class="input"><input type="text" name="optionprice" maxlength="7" class="blue" value="<%= optionprice %>"><p>円</p></div></dd>
            </dl>
</form>

我把头撞在墙上，任何帮助都非常感谢！

Answer 1

我会

说问题可能出在这个代码中

If optionprice <> "" Then optionprice = optionprice * 1
optionprice_2 = optionprice

而不是这个，有以下内容并使用CLng(转换为长函数(

If optionprice <> ""
   optionprice_2 = CLng(optionprice)
else
   optionprice_2 = 0
end if

如果是小数，请改用CDbl。

它失败的原因是您尝试通过乘以 1 将其转换为

数字，这意味着您将其乘以整数，因此它将尝试将其转换为范围为 -32,768 到 32,767 的整数。 因此，任何大于 32,767 的东西都会失败。

Long 可以是介于 -2,147,483,648

到 2,147,483,647 之间的整数。

双精度是双精度浮点数，范围为 -1.79769313486232E308 到 -4.94065645841247E-324

(负值(;正值为 4.94065645841247E-324 到 1.79769313486232E308。