Después de trabajar con computadoras durante tantos años, ¡esta es la primera vez que escribo un artículo en línea!
Propósito del programa:Por
necesidades laborales, hay demasiados amigos que preguntan sobre la información de registro de la empresa. Para evitar problemas, se ha agregado una función de consulta al sitio web. Algunas personas realmente dijeron que si no tiene una computadora, puede hacerlo. Deberías tener un teléfono móvil si no tienes una computadora. Puede utilizar su teléfono móvil para realizar consultas en cualquier momento y en cualquier lugar. Simplemente hágalo y realice una consulta WAP, todo escrito en el Bloc de notas.
La estructura de la base de datos es la siguiente:
Nombre de la biblioteca: data.mdb
Nombre de la tabla:
campo de información: identificación, nombre de la empresa, residencia, representante legal... (Estos puntos suspensivos significan etc.)
1.
El código fuente de la página de comentarios hello.asp es el siguiente:
<%@ Idioma=VBScript%>
<% Response.ContentType="text/vnd.wap.wml" %>
<?xml versión="1.0" codificación="gb2312"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//ES" " http://www.wapforum.org/DTD/ wml_1.1 .xml">
<wml>
<card id="qycx" title="Red de información industrial y comercial de Shangrao">
<p>
Ingrese la información de la consulta<input name="qycx" type="text" maxlength="16" />
<anchor title="Aceptar">Aceptar
<go href="qycx.asp" método="publicación">
<postfield nombre="qycx" valor="$qycx"/>
</go>
</anchor>
<br/>><br/>
Red de información industrial y comercial de Shangrao
</p>
</card>
</wml>
2.
El código fuente de la página de recepción de información qycx.asp es el siguiente:
<%@ Language=VBScript %>
<% Response.ContentType = "texto/vnd.wap.wml" %>
<?xml versión="1.0" codificación="gb2312"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//ES" " http://www.wapforum.org/DTD/ wml_1.1.xml">
<wml>
<card id="qycx2" title="Red de información industrial y comercial de Shangrao">
<p>
<%
qycx=solicitud.FORM("qycx")
cx="Nombre de la empresa como '%"&qycx&"%' "
Establecer conn=Server.CreateObject("adodb.connection")
'conn.Open "dsn=qycxsjk;uid=;pwd=;database=data.mdb"
conn.open "driver={controlador de acceso de Microsoft (*.mdb)};dbq="&server.mappath("qycx.mdb")
sql="seleccione * de información donde "&cx&""
establecer rs=servidor.createobject("adodb.recordset")
rs.open sql, conexión, 1,1
hacer mientras no rs.eof
%>
<%qymc=rs("Nombre de la empresa")
id=rs("id")
%>
<a href="qycx2.asp?id=<%Response.write id%>" ><%Response.write qymc%></a>
<br/>
<%
rs.movenext
bucle
rs.cerrar
%>
<br/>><br/>
Red de información industrial y comercial de Shangrao
</p>
</card>
</wml>
<% Función uni(chino)
Para i = 1 a Len (chino)
a=Medio(chino, i, 1)
uni=uni & "&#x" & Hex(Ascw(a)) & ";"
próximo
Función final
%>
==================================================
Segundo comentario: Estaba un poco sudado cuando vi esto. Primero usé "nombre de la empresa" como palabra clave para enviar, pero luego pensé en usar ID como palabra clave para evitar el problema de enviar caracteres chinos. De hecho, pensé en una pregunta tan básica durante mucho tiempo. Aquí, según la consulta de palabras clave "Nombre de la empresa" enviada por hello.asp, obtenemos los nombres completos de todas las empresas que contienen esta palabra clave en el campo "Nombre de la empresa" (para evitar duplicaciones), hacemos una lista y hacemos clic para ingresar. la tercera página, que son los detalles del material de la empresa.
3.
El código fuente de qycx2.asp es el siguiente:
<%@ Language=VBScript %>
<% Response.ContentType = "texto/vnd.wap.wml" %>
<?xml versión="1.0" codificación="gb2312"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//ES" " http://www.wapforum.org/DTD/ wml_1.1.xml">
<%
Establecer conexión=Server.CreateObject("adodb.conexión")
'conn.Open "dsn=qycxsjk;uid=;pwd=;database=data.mdb"
conn.open "driver={controlador de acceso de Microsoft (*.mdb)};dbq="&server.mappath("qycx.mdb")
%>
<wml>
<card id="qycx3" title="Red de información industrial y comercial de Shangrao">
<p>
<%
nombre=solicitud.querystring("id")
sql="seleccione * de información donde id="&nombre&""
establezca rs=server.createobject("adodb.recordset")
rs.open sql, conexión, 1,1
hacer mientras no rs.eof
%>
<%qymc=rs("Nombre de la empresa")%>
Nombre de la empresa: <%Response.write qymc%>
<br/>
<%zs=rs("residencia")%>
Residencia:<%Response.write zs%>
<br/>
<%fddb=rs("Representante Legal")%>
Representante legal:<%Response.write fddb%>
<br/>
<%zczb=rs("Capital registrado")%>
Capital registrado:<%
si queda(zczb,1)="." entonces
Respuesta.escribir "0"
demás
terminar si
Respuesta.escribir zczb%>10.000 yuanes
<br/>
<%qylx=rs("Tipo de empresa")%>
Tipo de empresa:<%Response.write qylx%>
<br/>
<%jyfw=rs("Alcance del negocio")%>
Alcance del negocio:<%Response.write jyfw%>
<br/>
<%zcrq=rs("Fecha de establecimiento")%>
Fecha de registro:<%Response.write zcrq%>
<br/>
<%
rs.movenext
bucle
%>
<br/>><br/>
Fin de la red de información industrial y comercial de Shangrao
<br/>
<a href="hola.asp">Regresar</a>
</p>
</tarjeta>
</wml>
===================== ¡
OK, completa la consulta y muestra los detalles de la empresa!
Si mi escritura no es buena, no me regañes. Jeje, los amigos a los que les guste WAP pueden comunicarse conmigo y darme alguna orientación. Pregunta: 18185813