Ayúdame a hacer una tarea de ASP. Inventa una calculadora.
& lt% @ LANGUAGE = " VBSCRIPT " página de códigos = " 936 " % & gt
& lt%
Función GetNum(Índice)
p>
Temp = trim(request.table(index))
Si no es IsEmpty(Temp) y IsNumeric(Temp), entonces
GetNum = Clng(temporal)
ElseIf InStr(Temp, " ' ")gt entonces 0
GetNum = 0
Otro
GetNum; = 0
Finalizar si...
Finalizar función
Si se solicita. QueryString("action")="save "Luego
Atenuar p1, p2, p3, p4
Dimensiones n1, n2, n3, n4
Atenuar s
p1 = ObtenerNum("p1 ")
p2 = ObtenerNum("p2 ")
p3 = ObtenerNum("p3 ")
p4 = ObtenerNum("p4 ")
n1 = ObtenerNum("n1 ")
n2 = ObtenerNum("n2 ")
n3 = ObtenerNum ("n3 ")
n4 = ObtenerNum("n4 ")
s = p 1 * n 1+p2 * N2+P3 * n3+P4 * n4
Si s=0, entonces
responde. Escribe "¡Por favor ingresa la cantidad!"
Otra
respuesta. Escribe "Fruta total = " & p1. "X" y. n1. "+" y p2 y "X" y. Nitrógeno y Nitrógeno. "+" y p3 y "X" y. n3 & amp"+" & amp;p4 & amp" X "suma. n4 & amp" = " & amps
Terminará si...
Respuesta. Escribe " & ltbr & gt[& lt;a href= '?'& gtVolver a la página anterior
Respuesta. End()
Terminará si...
% & gt
& lthtml & gt
& lthead & gt
& ltmeta " & gt
& ltmeta http-equiv = " Content-Type " Content = " text/html; charset=gb2312 "
& lttitle & gtcálculo de frutas
& lt/head & gt;
p>
& ltbody & gt
& ltform método="POST" acción=? action = save " & gt
& lttable width = " 500 " border = " 0 " cell padding = " 1 " cellpacing = " 0 " bgcolor = " # CCCCCC " & gt；
& lttr & gt
& lttd width="97" bgcolor="#FFFFFF" >.
Tipo de fruta
& ltTD width = " 105 " bgcolor = " # FFFFFF " >Precio unitario
& ltTD width = " 292 " bgcolor = " # FFFFFF " & gt. Importe
& lt/tr & gt;
& lttr & gt
& lttd bgcolor = " #FFFFFF " & gtApple Inc. & lt/TD & gt;
& lttd bgcolor = " # FFFFFF " & gt& ltinput name = " n 1 " tipo = " n 1 " id = " n 1 " tamaño = " 20 "/>& lt/TD & gt;
& lt/tr & gt;
& lttr & gt
& lttd bgcolor = " #FFFFFF " & gt pera & lt/TD & gt;
& lttd bgcolor = " # FFFFFF " & gt& ltinput name = " N2 " tipo = " N2 " id = " N2 " tamaño = " 20 "/>& lt/TD & gt;
& lt/tr & gt;
& lttr & gt
& lttd bgcolor = " #FFFFFF " & gtFresa& lt/TD & gt;
& lttd bgcolor = " #FFFFFF " & gt& ltinput name = " n3 " tipo = " n3 " id = " n3 " tamaño = " 20 "/>& lt/TD & gt;
& lt/tr & gt;
& lttr & gt
& lttd bgcolor = " #FFFFFF " & gtbanana;
& lttd bgcolor = " # FFFFFF " & gt& ltinput nombre = " P4 " tipo = " texto " valor = " 400 " tamaño = " 20 "/>& lt/TD & gt;
& lttd bgcolor = " #FFFFFF " & gt& ltinput nombre = " n4 " tipo = " n4 " id = " n4 " tamaño = " 20 "/>& lt/TD & gt;
& lt/tr & gt;
p>
& lttr & gt
& lttd bgcolor = "#FFFFFF" & gt? & lt/TD & gt;
& lttd bgcolor = " #FFFFFF " & gt? & lt/TD & gt;
& lttd bgcolor = " #FFFFFF " & gt? & lt/TD & gt;
& lt/tr & gt;
& lttr & gt
& lttd bgcolor = " #FFFFFF " & gt? & lt/TD & gt;
& ltTD colspan = " 2 " bgcolor = " #FFFFFF " & gt.
& ltinput type = " enviar " valor = " enviar " nombre = " b 1 "/>
& ltinput tipo = " restablecer " valor = " reescribir todo " nombre = " B2 "/& gt;& lt/TD & gt;
& lt/tr & gt;
& lt/table & gt;
& lt/form & gt;
p>
& lt/body & gt;
& lt/html & gt;