No coincide el tipo: 'CInt' ¿Cómo modificarlo?
Categoría: Computadora/Red gt; Programación gt; Otros lenguajes de programación
Descripción de la pregunta:
[url=zhidao.baidu/ question /lt;=mainCls.UrlFilegt;]Error de tiempo de ejecución de Microsoft VBScript '800a000d'
Error de coincidencia de tipos: 'CInt'
\Member\Myacc_Info_Buy, línea 18
El código es el siguiente:
Función getWord(byval Val)
num = CInt(Val)
Si num = 0 Entonces
getWord = "Confidencial"
ElseIf num = 1 Entonces
getWord = "Public"
Else
Finalizar si
Función final
Response.Expires = 0
Const PageSize = 12 'Número de registros por página
Página = request("Página" )
Si no es numérico (página) Entonces página = 1
Si Pagelt; = 0 Entonces página = 1
''''''''' ''' '''
Título tenue, Abajo, Medio, TitleInfo, sql, rs, u1, text1, text2, wxl, ID
wxl = Solicitud("wxl")
Si wxl = "del" Entonces
ID = mainCls.DelStr(Request("ID"))
Si Id = "" Entonces llame a mainCls. BackWithUrl(" El sistema espera un parámetro ilegal", "/Member/Myacc_Info_buy")
Si no es Numeric(ID), llame a mainCls.BackWithUrl("El sistema espera que el parámetro sea un número", " /Member/Myacc_Info_buy")
ID = CLng(ID)
Sql = "Eliminar de M Donde M1="amp;IDamp;" Y M2='"amp;LoginNameamp; "'"
Conn.Execute(Sql)
Llamar a mainCls.AddLog(LoginName, mainCls.Cur_Url, "Se eliminó un mensaje", "1")
gt;
lt;script language='javascript'gt;
alert('¡Mensaje eliminado!');
window.location.href = "lt;=mainCls.UrlFilegt ;";
lt;/scriptgt;
lt;
Respuesta.E
nd
Finalizar si
Análisis:
[/url]Función getWord(byval Val)
Cuando se utiliza esta función, el parámetros Debe ser un número, de lo contrario generará un error.
De lo contrario, cambie la oración "num = CInt(Val)"
a
if isnumeric(val) then
num=cint(val) 'Si el parámetro es un número, asigna un valor
else
num=0 'De lo contrario, el valor predeterminado no es público Parámetro 0
end if
----
Call Head("Respuesta de mensaje")
Esto El error del mensaje puede estar relacionado con La definición de la función HTMLHEAD está relacionada
Compruébalo y envía el código de esta función