Problema de falta de coincidencia de tipos en la programación ASP, por favor ayuda.
Puntos de bonificación: 10 - 14 días y 23 horas hasta que se resuelva el problema
lt
Opción explícita
If session( "admin" )lt；gt; "ok" Entonces
response.redirect" index.asp"
Fin si
Dim Id, zdmingcheng, Dirección, Nombre, Título, Tel1, Tel2, khleixing, Demostración
Id=request.querystring("Id")
Si Id="admin" lt;gt "ok" Entonces
respuesta.Luego
Dim strJS
strJS=strJS "lt;script language='javascript'gt;"
strJS=strJS "alert( 'El parámetro de página es incorrecto, ¡devuélvalo! );"
strJS=strJS "location.href='main.asp';"
strJS=strJS "lt; /scriptgt; "
respuesta.write strJS
End If
gt;
lt;! --#include file="conn.asp"--gt;
lt
Dim objRS, strSQL
set objRS=Server.createobject(" adodb.recordset")
strSQL="seleccione * del cliente donde Id="&Id"
objRS.Open strSQL, objConn, 1, 3
zdmingcheng =objRS("zdmingcheng")
Dirección=objRS("Dirección")
Nombre=objRS("Nombre")
Título=objRS( "Título ")
Tel1=objRS("Tel1")
Tel2=objRS("Tel2") lt;headgt;
lt;meta http- equiv= "Tipo de contenido" content="text/html; charset=gb2312"gt;
lt; meta name="GENERADOR" contenido ="Microsoft FrontPage 6.0"gt; ; meta name="ProgId" content="FrontPage.
lt; titlegt; Sistema de gestión de relaciones con el cliente de Xingtai Harvest Brewery V1.0lt; /titlegt;
lt; style type =" text/css"gt;
td{font-size: 10pt; font-family: Canción; color: #000
000; altura: 30px}
lt; meta name="ProgId" content="FrontPage.
textarea, input{border-top: 1 sólido #cccccc; borde izquierdo: 1 sólido #cccccc;}
lt;/stylegt;
lt;script language="javascript"gt
función de verificación(f){
lt; p>
var f1=f.zdmingcheng.value;
if(!f1){
alert("Ingrese el nombre del cliente final!");
f.zdmingcheng.focus();
return false;
}
var f2=f .Tel1.value;
devuelve falso
}
var f2=f.Tel1.value
p>
alert("¡Ingrese el número de teléfono de contacto de este cliente!")
f.Tel1.focus()
<; p>devuelve falso;}
devuelve verdadero;
}
lt;/scriptgt; lt;
.
lt;/scriptgt;
lt;/headgt; p> Línea 105lt;td width="14" align="center" bgcolor="#D4D0C8"gt; Contacto Personaslt;/tdgt
Línea 106lt;td width="45" align="left; "gt; lt;input type="text" name="Nombre" estilo="ancho: 100px " value="lt;Namegt;" gt;lt;/tdgt;
107 líneaslt;td ancho ="16" align="center" bgcolor="#D4D0C8" height="45"gt ;Representante comerciallt;/tdgt
lt;td width="25" align="left"gt; lt;select size="1" name="D4"gt;lt./selectgt;lt ;/tdgt;
lt;/trgt
Informe de error:
Tipo de error:
Error de tiempo de ejecución de Microsoft VBScript (0x800A000D )
No coinciden los tipos
/editcustomer.asp, línea 106
Ayude a resolver la discrepancia de tipos en la programación ASP.
Puntos de bonificación: 10 - 14 días y 23 horas hasta que se resuelva el problema
lt
Opción explícita
Si sesión( "admin" )lt；gt; "ok" Entonces
response.redirect" index.asp"
Fin si
Dim Id, zdmingcheng, Dirección, Nombre, Título, Tel1, Tel2, khleixing, Demostración
Id=request.querystring("Id")
Si Id="admin" lt;gt "ok" Entonces
respuesta.Luego
Dim strJS
strJS=strJS "lt;script language='javascript'gt;"
strJS=strJS "alert( 'El parámetro de página es incorrecto, ¡devuélvalo! );"
strJS=strJS "location.href='main.asp';"
strJS=strJS "lt; /scriptgt; "
respuesta.write strJS
End If
gt;
lt;! --#include file="conn.asp"--gt;
lt
Dim objRS, strSQL
set objRS=Server.createobject(" adodb.recordset")
strSQL="seleccione * del cliente donde Id="&Id"
objRS.Open strSQL, objConn, 1, 3
zdmingcheng =objRS("zdmingcheng")
Dirección=objRS("Dirección")
Nombre=objRS("Nombre")
Título=objRS( "Título ")
Tel1=objRS("Tel1")
Tel2=objRS("Tel2") lt;headgt;
lt;meta http- equiv= "Tipo de contenido" content="text/html; charset=gb2312"gt;
lt; meta name="GENERADOR" contenido ="Microsoft FrontPage 6.0"gt; ; meta name="ProgId" content="FrontPage.
lt; titlegt; Sistema de gestión de relaciones con el cliente de Xingtai Harvest Brewery V1.0lt; /titlegt;
lt; style type =" text/css"gt;
td{font-size: 10pt; font-family: Canción; color: #000
000; altura: 30px}
lt; meta name="ProgId" content="FrontPage.
textarea, input{border-top: 1 sólido #cccccc; borde izquierdo: 1 sólido #cccccc;}
lt;/stylegt;
lt;script language="javascript"gt
función de verificación(f){
lt; p>
var f1=f.zdmingcheng.value;
if(!f1){
alert("Ingrese el nombre del cliente final!");
f.zdmingcheng.focus();
return false;
}
var f2=f .Tel1.value;
devuelve falso
}
var f2=f.Tel1.value
p>
alert("¡Ingrese el número de teléfono de contacto de este cliente!")
f.Tel1.focus()
<; p>devuelve falso;}
devuelve verdadero;
}
lt;/scriptgt; lt;
.
lt;/scriptgt;
lt;/headgt; p> Línea 105lt;td width="14" align="center" bgcolor="#D4D0C8"gt; Contacto Personaslt;/tdgt
Línea 106lt;td width="45" align="left; "gt; lt;input type="text" name="Nombre" estilo="ancho: 100px " value="lt;Namegt;" gt;lt;/tdgt;
107 líneaslt;td ancho ="16" align="center" bgcolor="#D4D0C8" height="45"gt ;Representante comerciallt;/tdgt
lt;td width="25" align="left"gt; lt;select size="1" name="D4"gt;lt./selectgt;lt ;/tdgt;
lt;/trgt
Informe de error:
Tipo de error:
Error de tiempo de ejecución de Microsoft VBScript (0x800A000D )
No coinciden los tipos
/editcustomer.asp, línea 106
Ayude a resolver la discrepancia de tipos en la programación ASP.
Puntos de bonificación: 10 - 14 días y 23 horas hasta que se resuelva el problema
lt
Opción explícita
Si sesión( "admin" )lt；gt; "ok" Entonces
response.redirect" index.asp"
Fin si
Dim Id, zdmingcheng, Dirección, Nombre, Título, Tel1, Tel2, khleixing, Demostración
Id=request.querystring("Id")
Si Id="admin" lt;gt "ok" Entonces
respuesta.luego
Dim strJS
strJS=strJS "lt;script language='javascript'gt;"
strJS=strJS "alert( 'El parámetro de página es incorrecto, ¡devuélvalo! );"
strJS=strJS "location.href='main.asp';"
strJS=strJS "lt; /scriptgt; "
respuesta.write strJS
End If
gt;
lt;! --#include file="conn.asp"--gt;
lt
Dim objRS, strSQL
set objRS=Server.createobject(" adodb.recordset")
strSQL="seleccione * del cliente donde Id="&Id"
objRS.Open strSQL, objConn, 1, 3
zdmingcheng =objRS("zdmingcheng")
Dirección=objRS("Dirección")
Nombre=objRS("Nombre")
Título=objRS( "Título ")
Tel1=objRS("Tel1")
Tel2=objRS("Tel2") lt;headgt;
lt;meta http- equiv= "Tipo de contenido" content="text/html; charset=gb2312"gt;
lt; meta name="GENERADOR" contenido ="Microsoft FrontPage 6.0"gt; ;meta name="ProgId" content="FrontPage.Editor.Document"gt;
lt;titlegt;Sistema de gestión de relaciones con el cliente de Xingtai Harvest Brewery V1.0lt;/titlegt; lt; estilo tipo="text/css"gt
td{font-size: 10pt;
ily: Canción; color: #000000; altura: 30px}
lt; meta name="ProgId" content="FrontPage.
textarea, input{border-top: 1 sólido #cccccc; borde izquierdo: 1 sólido #cccccc;}
lt;/stylegt;
lt;script language="javascript"gt
función. check(f){
var f1=f.zdmingcheng.value;
if(!f1){
alert("Ingrese el nombre del cliente final!");
f.zdmingcheng.focus();
return false;
}
var f2=f .Tel1.value;
if(!f2){
alert("¡Ingrese el número de teléfono de contacto de este cliente!")
f. Tel1.focus();
devuelve falso
}
devuelve falso.
devuelve verdadero
lt;
lt;/headgt;
lt;
lt;/headgt; p>lt;/headgt;
lt;trgt;
Línea 105lt;td width= "14" align="center" bgcolor="#D4D0C8"gt; /tdgt;
Línea 106lt; td ancho="45" align="left"gt; tipo de entrada="texto" nombre="Nombre" estilo="ancho": 100px" valor="lt ;Namegt;" gt;lt;/tdgt;
107 líneaslt;td width="16" align="center" bgcolor="#D4D0C8" height="45"gt;Representante comerciallt;/tdgt
lt;td width="25" align="left"gt;lt;seleccione tamaño="1" name="D4"gt;lt./selectgt;lt;/tdgt; p>
lt;/trgt;
Informe de error:
Tipo de error:
Error de tiempo de ejecución de Microsoft VBScript (0x800A000D)
No coinciden los tipos
/editcustomer.asp, línea 106
Ayúdenos a resolver el problema de los tipos no coincidentes en la programación ASP.
Puntos de bonificación: 10 - 14 días y 23 horas hasta que se resuelva el problema
lt
Opción explícita
If session( "admin" )lt；gt; "ok" Entonces
response.redirect" index.asp"
Fin si
Dim Id, zdmingcheng, Dirección, Nombre, Título, Tel1, Tel2, khleixing, Demostración
Id=request.querystring("Id")
Si Id="admin" lt;gt "ok" Entonces
respuesta.Luego
Dim strJS
strJS=strJS "lt;script language='javascript'gt;"
strJS=strJS "alert( 'El parámetro de página es incorrecto, ¡devuélvalo! );"
strJS=strJS "location.href='main.asp';"
strJS=strJS "lt; /scriptgt; "
respuesta.write strJS
End If
gt;
lt;! --#include file="conn.asp"--gt;
lt
Dim objRS, strSQL
set objRS=Server.createobject(" adodb.recordset")
strSQL="seleccione * del cliente donde Id="&Id"
objRS.Open strSQL, objConn, 1, 3
zdmingcheng =objRS("zdmingcheng")
Dirección=objRS("Dirección")
Nombre=objRS("Nombre")
Título=objRS( "Título ")
Tel1=objRS("Tel1")
Tel2=objRS("Tel2") lt;headgt;
lt;meta http- equiv= "Tipo de contenido" content="text/html; charset=gb2312"gt;
lt; meta name="GENERADOR" contenido ="Microsoft FrontPage 6.0"gt; ;meta name="ProgId" content="FrontPage.Editor.Document"gt;
lt;titlegt;Sistema de gestión de relaciones con el cliente de Xingtai Harvest Brewery V1.0lt;/titlegt; lt; estilo tipo="text/css"gt;
td{font-size: 10pt;
mily: Canción; color: #000000; altura: 30px}
lt; meta name="ProgId" content="FrontPage.
textarea, input{border-top: 1 sólido #cccccc; borde izquierdo: 1 sólido #cccccc;}
lt;/stylegt;
lt;script language="javascript"gt
función. check(f){
var f1=f.zdmingcheng.value;
if(!f1){
alert("Ingrese el nombre del cliente final!");
f.zdmingcheng.focus();
return false;
}
var f2=f .Tel1.value;
if(!f2){
alert("¡Ingrese el número de teléfono de contacto de este cliente!")
f. Tel1.focus();
devuelve falso
}
devuelve verdadero
}
lt; ;/scriptgt;
.
lt;
lt;/headgt; >
Línea 105lt;td width="14" align="center" bgcolor= "#D4D0C8"gt; Contactlt;/tdgt
Línea 106lt;td width="45" align=" left"gt; lt;input type="text" name="Nombre " estilo="ancho：100px" value="lt;Namegt;" gt;lt;/tdgt;
107 líneaslt;td width="16" align="center" bgcolor="#D4D0C8 " height="45"gt；Representante comerciallt;/tdgt
lt;td width="25" align="left"gt; ;lt;select size="1" name="D4"gt ;lt./selectgt;lt;/tdgt;
lt;/trgt
Informe de error:
Tipo de error:
Error de tiempo de ejecución de Microsoft VBScript (0x800A000D)
No coinciden los tipos
/editcustomer.asp línea 106
Por favor ayuda