Après avoir travaillé avec des ordinateurs pendant tant d’années, c’est la première fois que j’écris un article en ligne !
Objectif du programme :Pour
des besoins professionnels, il y a trop d'amis qui se renseignent sur les informations d'enregistrement de l'entreprise. Pour éviter les ennuis, une fonction de requête a été ajoutée au site Web. Certaines personnes ont en fait dit que si vous n'avez pas d'ordinateur, vous n'avez pas d'ordinateur. vous devriez avoir un téléphone portable si vous n'avez pas d'ordinateur. Vous pouvez utiliser votre téléphone mobile pour effectuer une requête à tout moment et n'importe où. Faites-le simplement et effectuez une requête WAP, le tout écrit dans le Bloc-notes.
La structure de la base de données est la suivante :
Nom de la bibliothèque : data.mdb
Nom de la table :
champ d'information : identifiant, nom de l'entreprise, résidence, représentant légal... (Ces points de suspension signifient etc.)
1.
Le code source de la page de feedback hello.asp est la suivante :
<%@ 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="qycx" title="Réseau d'information industrielle et commerciale de Shangrao">
<p>
Veuillez saisir les informations de la requête<input name="qycx" type="text" maxlength="16" />
<anchor title="OK">OK
<go href="qycx.asp" method="post">
<nom du champ de publication="qycx" value="$qycx"/>
</go>
</ancre>
<br/><br/>
Réseau d'information industrielle et commerciale de Shangrao
</p>
</carte>
</wml>
2.
Le code source de la page de réception d'informations qycx.asp est le suivant :
<%@ 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="Réseau d'information industrielle et commerciale de Shangrao">
<p>
<%
qycx=request.FORM("qycx")
cx="Nom de l'entreprise comme '%"&qycx&"%' "
Set conn=Server.CreateObject("adodb.connection")
'conn.Open "dsn=qycxsjk;uid=;pwd=;database=data.mdb"
conn.open "driver={pilote d'accès Microsoft (*.mdb)};dbq="&server.mappath("qycx.mdb")
sql="sélectionnez * à partir des informations où "&cx&""
set rs=server.createobject("adodb.recordset")
rs.open sql, conn, 1,1
faire sans rs.eof
%>
<%qymc=rs("Nom de la société")
id=rs("id")
%>
<a href="qycx2.asp?id=<%Response.write id%>" ><%Response.write qymc%></a>
<br/>
<%
rs.movenext
boucle
rs.fermer
%>
<br/><br/>
Réseau d'information industrielle et commerciale de Shangrao
</p>
</carte>
</wml>
<% Fonction uni (chinois)
Pour i = 1 à Len (chinois)
a = Milieu (chinois, i, 1)
uni=uni & "&#x" & Hex(Ascw(a)) & ";"
suivant
Fonction de fin
%>
==================================================
Deuxième commentaire : j'étais un peu en sueur quand j'ai vu cela. J'ai d'abord utilisé « nom de l'entreprise » comme mot-clé à soumettre, mais plus tard j'ai pensé à utiliser ID comme mot-clé pour éviter le problème de la soumission des caractères chinois. En fait, j’ai longuement réfléchi à une question aussi fondamentale. Ici, sur la base de la requête de mot-clé « Nom de l'entreprise » soumise par hello.asp, nous obtenons les noms complets de toutes les entreprises qui contiennent ce mot-clé dans le champ « Nom de l'entreprise » (pour éviter les duplications), dressons une liste et cliquons pour entrer. la troisième page, qui contient les détails du matériel de l'entreprise.
3.
Le code source de qycx2.asp est le suivant :
<%@ 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">
<%
Définir conn=Server.CreateObject("adodb.connection")
'conn.Open "dsn=qycxsjk;uid=;pwd=;database=data.mdb"
conn.open "driver={pilote d'accès Microsoft (*.mdb)};dbq="&server.mappath("qycx.mdb")
%>
<wml>
<card id="qycx3" title="Réseau d'information industrielle et commerciale de Shangrao">
<p>
<%
nom=request.querystring("id")
sql="select * from infowhere id="&name&""
set rs=server.createobject("adodb.recordset")
rs.open sql, conn, 1,1
faire sans rs.eof
%>
<%qymc=rs("Nom de la société")%>
Nom de l’entreprise : <%Response.write qymc%>
<br/>
<%zs=rs("residence")%>
Résidence :<%Response.write zs%>
<br/>
<%fddb=rs("Représentant légal")%>
Représentant légal :<%Response.write fddb%>
<br/>
<%zczb=rs("Capital enregistré")%>
Capital social :<%
si gauche(zczb,1)=" alors
Réponse.écrire "0"
autre
finir si
Réponse.write zczb%>10 000 yuans
<br/>
<%qylx=rs("Type d'entreprise")%>
Type d'entreprise :<%Response.write qylx%>
<br/>
<%jyfw=rs("Business Scope")%>
Périmètre de l'activité :<%Response.write jyfw%>
<br/>
<%zcrq=rs("Date d'établissement")%>
Date d'inscription :<%Response.write zcrq%>
<br/>
<%
rs.movenext
boucle
%>
<br/><br/>
Fin du réseau d’information industrielle et commerciale de Shangrao
<br/>
<a href="hello.asp">Retour</a>
</p>
</carte>
</wml>
=====================
OK, complétez la requête et affichez les détails de l'entreprise !
Si mon écriture n’est pas bonne, ne me grondez pas. Héhé, les amis qui aiment le WAP sont invités à communiquer avec moi et à me donner des conseils ! QQ:18185813