250807.



Este es un ejemplo donde usamos una funcion para que nos haga las cuentas automaticamente. Son dos archivos, donde se ingresan dos datos, se selecciona la operación que se desea realizar, y nos devuelve el resultado. Vemoas el código abajo:

Archivo: cuenta.asp

<FORM METHOD="GET" ACTION="hacercuenta.asp">
Dato 1: <INPUT NAME="d1" SIZE="4" MAXLENGTH="4"><BR>
operacion a realizar:<SELECT NAME="operador">
<option VALUE="+">+ (sumar)
<option VALUE="-">- (restar)
<option VALUE="*">* (multiplicar)
<option VALUE="/">/ (dividir)
</SELECT><BR>
Dato 2: <INPUT NAME="d2" SIZE="4" MAXLENGTH="4"><BR>
<INPUT TYPE="Submit" VALUE="Hacer la cuenta"><BR>
</FORM>

Archivo: hacercuenta.asp

<%
'Creamos la funcion.
Function cuenta(operador, dato1, dato2)
select case operador
case "+":
cuenta = dato1 + dato2
case "-":
cuenta = dato1 - dato2
case "*":
cuenta = dato1 * dato2
case "/":
cuenta = dato1 / dato2
end select

'Pedimos el operador.
oper = Request.QueryString("operador")
'Nos fijamos que ambos campos tengan números.
if request.QueryString("d1") = "" OR request.QueryString("d2") = "" then
'Si se cumple esa condición, redireccionamos.
Response.Redirect ("cuenta.asp")
Else
'Pedimos al queryString los números.
num1 = Cint(Request.QueryString("d1"))
num2 = Cint(Request.QueryString("d2"))
'guardamos en la variable hacer la operacion que hace la función.
hacer = cuenta(oper, num1, num2)
'Mostramos el resultado...
Response.Write hacer
End If
%>