¡Urgente! Espere a que los maestros de programación en línea consulten la base de datos MDB en asp

1. El código del programa que desees. Esto no requiere el archivo conn.asp. Para facilitar la depuración, agregué el contenido del archivo conn.asp al siguiente archivo.

Además, esto debe colocarse en el mismo directorio que la base de datos.

lt;style type="text/css"gt;

lt;!--

cuerpo, td, th {

tamaño de fuente: 12px;

}

--gt;

lt;/stylegt

lt; "form1" método="post" action=""gt;

Ingrese el número de guía de embarque:

lt; input type="text" name="p_sort_txt"gt;

p>

lt; tipo de entrada="enviar" nombre="Enviar" valor="consulta"gt;

lt;/formgt;

lt;

if request.form("Submit")lt;gt;"" entonces

Establecer conn=Server.CreateObject("ADODB.Connection")

conn.open " DRIVER={Controlador de Microsoft Access (*.mdb)}; DBQ=" amp; server.mappath("8x9.mdb")amp ";" * de 56770_product donde p_sort= '" amp; request.form("p_sort_txt") amp; "'"

set rs=server.CreateObject("adodb.recordset")

rs.open sql, conn , 1, 1

si rs.eof entonces

response.Write("¡No se encontraron registros relevantes!")

else

gt;

lt;table width="700" border="1"gt;

lt;trgt;

lt; td width="30 " height="25" bgcolor="#D9F2FF"gt;IDlt;/tdgt;

lt;td height="25" bgcolor="#D9F2FF"gt;número de guía de portelt; /tdgt;

lt;td height="25" bgcolor="#D9F2FF"gt;Ubicación de envíolt;/tdgt;

lt;td height="25" bgcolor=" #D9F2FF" "gt; Destino < height="25" bgcolor="#D9F2FF"gt;Persona firmantelt;/tdgt;

lt;td height="25" bgcolor="#D9F2FF"gt; Unidad de firmalt;/tdgt;

lt;td height="25" bgcolor="#D9F2FF"gt;La ubicación actual de la mercancíalt;/tdgt;

lt;td height ="25" bgcolor="# D9F2

FF"gt; commentslt;/tdgt;

lt;/trgt;

lt;

mientras no rs.eof

gt ;

lt;trgt;

lt;td width="30" height="25"gt;lt;=rs("p_id")gt;lt;/tdgt ;

lt;td height="25"gt;lt;=rs("p_sort")gt;lt;/tdgt;

lt;td height="25"gt ; lt;=rs("p_name")gt;lt;/tdgt;

lt;td height="25"gt;lt;=rs("p_bianma")gt;lt;/tdgt; /p>

lt;td height="25"gt;lt;=rs("p_chandi")gt;lt;/tdgt;

lt;td height="25"gt; ;=rs("p_guige")gt;lt;/tdgt;

lt;td height="25"gt;lt;=rs("p_danwei")gt;lt;/tdgt;< / p>

lt;td height="25"gt;lt;=rs("p_yaochang")gt;lt;/tdgt;

lt;td height="25"gt;lt ; =rs("p_jinhuoshang")gt;lt;/tdgt;

lt;/trgt;

lt;

rs.movext

wend

rs.close

set rs=nada

conn.close

set conn=nada

gt;

lt;/tablegt;

lt;

finalizar si

finalizar si

gt；