Depois de tantos anos trabalhando com computadores, esta é a primeira vez que escrevo um artigo online!
Objetivo do programa:Para
necessidades de trabalho, há muitos amigos que perguntam sobre informações de registro da empresa. Para evitar problemas, uma função de consulta foi adicionada ao site. Algumas pessoas disseram que se você não tiver um computador, você. deve ter um telefone celular se não tiver um computador. Você pode usar seu celular para consultar a qualquer hora e em qualquer lugar. Basta fazer uma consulta WAP, tudo escrito no Bloco de Notas.
A estrutura do banco de dados é a seguinte:
Nome da biblioteca: data.mdb
Nome da tabela:
campo de informações: id, nome da empresa, residência, representante legal... (Estas reticências significam etc.)
1.
O código fonte da página de feedback hello.asp é o seguinte:
<%@ Linguagem=VBScript%>
<% Response.ContentType="text/vnd.wap.wml" %>
<?xml version="1.0" encoding="gb2312"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" " http://www.wapforum.org/DTD/ wml_1.1 .xml">
<wml>
<card id="qycx" title="Rede de Informação Industrial e Comercial Shangrao">
<p>
Insira as informações da consulta<input name="qycx" type="text" maxlength="16" />
<anchor title="OK">OK
<go href="qycx.asp" method="post">
<postfield name="qycx" value="$qycx"/>
</go>
</anchor>
<br/><br/>
Rede de Informação Industrial e Comercial Shangrao
</p>
</card>
</wml>
2.
O código fonte da página de recebimento de informações qycx.asp é o seguinte:
<%@ Language=VBScript %>
<% Response.ContentType = "text/vnd.wap.wml" %>
<?xml version="1.0" encoding="gb2312"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" " http://www.wapforum.org/DTD/ wml_1.1.xml">
<wml>
<card id="qycx2" title="Rede de informações industriais e comerciais de Shangrao">
<p>
<%
qycx=request.FORM("qycx")
cx="Nome da empresa como '%"&qycx&"%' "
Set conn=Server.CreateObject("adodb.connection")
'conn.Open "dsn=qycxsjk;uid=;pwd=;banco de dados=dados.mdb"
conn.open "driver={driver de acesso microsoft (*.mdb)};dbq="&server.mappath("qycx.mdb")
sql="select * from info where "&cx&""
definir rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
faça enquanto não rs.eof
%>
<%qymc=rs("Nome da empresa")
id=rs("id")
%>
<a href="qycx2.asp?id=<%Response.write id%>" ><%Response.write qymc%></a>
<br/>
<%
rs.movnext
laço
rs.fechar
%>
<br/><br/>
Rede de Informação Industrial e Comercial Shangrao
</p>
</card>
</wml>
<% Função uni (chinês)
Para i = 1 para Len (chinês)
a = Médio (chinês, i, 1)
uni=uni & "&#x" & Hex(Ascw(a)) & ";"
próximo
Função final
%>
================================================
Segundo comentário: fiquei um pouco suado quando vi isso. Primeiro usei "nome da empresa" como palavra-chave para enviar, mas depois pensei em usar ID como palavra-chave para evitar o problema de enviar caracteres chineses. Na verdade, pensei por muito tempo sobre uma questão tão básica. Aqui, com base na consulta de palavra-chave “Nome da empresa” enviada por hello.asp, obtemos os nomes completos de todas as empresas que contêm esta palavra-chave no campo “Nome da empresa” (para evitar duplicação), fazemos uma lista e clicamos para entrar a terceira página, que contém os detalhes do material da empresa.
3.
O código fonte de qycx2.asp é o seguinte:
<%@ Language=VBScript %>
<% Response.ContentType = "text/vnd.wap.wml" %>
<?xml version="1.0" encoding="gb2312"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" " http://www.wapforum.org/DTD/wml_1.1.xml ">
<%
Definir conn=Server.CreateObject("adodb.connection")
'conn.Open "dsn=qycxsjk;uid=;pwd=;banco de dados=dados.mdb"
conn.open "driver={driver de acesso microsoft (*.mdb)};dbq="&server.mappath("qycx.mdb")
%>
<wml>
<card id="qycx3" title="Rede de Informações Industriais e Comerciais de Shangrao">
<p>
<%
nome=request.querystring("id")
sql="select * from info where id="&name&""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
faça enquanto não rs.eof
%>
<%qymc=rs("Nome da Empresa")%>
Nome da empresa: <%Response.write qymc%>
<br/>
<%zs=rs("residência")%>
Residência:<%Response.write zs%>
<br/>
<%fddb=rs("Representante Legal")%>
Representante legal:<%Response.write fddb%>
<br/>
<%zczb=rs("Capital Registrado")%>
Capital registrado:<%
se esquerda(zczb,1)="." então
Resposta.escreva "0"
outro
terminar se
Resposta.write zczb%>10.000 yuans
<br/>
<%qylx=rs("Tipo de empresa")%>
Tipo de empresa:<%Response.write qylx%>
<br/>
<%jyfw=rs("Escopo do Negócio")%>
Escopo de negócios:<%Response.write jyfw%>
<br/>
<%zcrq=rs("Data de estabelecimento")%>
Data de registro:<%Response.write zcrq%>
<br/>
<%
rs.movnext
ciclo
%>
<br/><br/>
Fim da Rede de Informações Industriais e Comerciais Shangrao
<br/>
<a href="hello.asp">Retornar</a>
</p>
</card>
</wml>
=====================
OK, complete a consulta e exiba os detalhes da empresa!
Se minha escrita não for boa, não me repreenda. Hehe, amigos que gostam de WAP são bem-vindos para se comunicar comigo e me dar algumas orientações! PQ:18185813