Nachdem ich so viele Jahre mit Computern gearbeitet habe, ist es das erste Mal, dass ich online einen Artikel schreibe!
Zweck des Programms:Für
geschäftliche Zwecke gibt es zu viele Freunde, die sich nach Unternehmensregistrierungsinformationen erkundigen. Einige Leute sagten tatsächlich, dass Sie, wenn Sie keinen Computer haben, keine Probleme haben Wenn Sie keinen Computer haben, sollten Sie ein Mobiltelefon haben. Sie können jederzeit und überall mit Ihrem Mobiltelefon Abfragen durchführen und eine WAP-Abfrage durchführen, alles in Notepad geschrieben.
Die Datenbankstruktur ist wie folgt:
Bibliotheksname: data.mdb
Tabellenname: Infofeld
: ID, Firmenname, Wohnort, gesetzlicher Vertreter ... (Diese Auslassungspunkte bedeuten usw.)
1.
Der Quellcode der Feedback-Seite hello.asp lautet wie folgt:
<%@ Language=VBScript%>
<% Response.ContentType="text/vnd.wap.wml" %>
<?xml version="1.0" binding="gb2312"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" " http://www.wapforum.org/DTD/ wml_1.1 .xml">
<wml>
<card id="qycx" title="Shangrao Industrial and Commercial Information Network">
<p>
Bitte geben Sie die Abfrageinformationen ein:<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/>
Shangrao Industrie- und Handelsinformationsnetzwerk
</p>
</card>
</wml>
2.
Der Quellcode der Informationsempfangsseite qycx.asp lautet wie folgt:
<%@ Language=VBScript %>
<% Response.ContentType = "text/vnd.wap.wml" %>
<?xml version="1.0"kodierung="gb2312"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" " http://www.wapforum.org/DTD/ wml_1.1.xml">
<wml>
<card id="qycx2" title="Shangrao Industrial and Commercial Information Network">
<p>
<%
qycx=request.FORM("qycx")
cx="Firmenname wie '%"&qycx&"%' "
Set conn=Server.CreateObject("adodb.connection")
'conn.Open "dsn=qycxsjk;uid=;pwd=;database=data.mdb"
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&server.mappath("qycx.mdb")
sql="select * from info where "&cx&""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
tun, während nicht rs.eof
%>
<%qymc=rs("Firmenname")
id=rs("id")
%>
<a href="qycx2.asp?id=<%Response.write id%>" ><%Response.write qymc%></a>
<br/>
<%
rs.movenext
Schleife
rs.close
%>
<br/><br/>
Shangrao Industrie- und Handelsinformationsnetzwerk
</p>
</card>
</wml>
<% Funktion uni (Chinesisch)
Für i = 1 bis Len (Chinesisch)
a=Mid(Chinesisch, i, 1)
uni=uni & "&#x" & Hex(Ascw(a)) & ";"
nächste
Funktion beenden
%>
==============================================
Zweiter Kommentar: Als ich das sah, war ich etwas verschwitzt. Ich habe zuerst „Firmenname“ als Schlüsselwort für die Übermittlung verwendet, aber später dachte ich daran, ID als Schlüsselwort zu verwenden, um das Problem der Übermittlung chinesischer Schriftzeichen zu vermeiden. Ich habe tatsächlich lange über eine so grundlegende Frage nachgedacht. Basierend auf der von hello.asp übermittelten Schlüsselwortabfrage „Firmenname“ erhalten wir hier die vollständigen Namen aller Unternehmen, die dieses Schlüsselwort im Feld „Firmenname“ enthalten (um Duplikate zu vermeiden), erstellen eine Liste und klicken zur Eingabe die dritte Seite, die die Details des Unternehmensmaterials enthält.
3.
Der Quellcode von qycx2.asp lautet wie folgt:
<%@ Language=VBScript %>
<% Response.ContentType = "text/vnd.wap.wml" %>
<?xml version="1.0"kodierung="gb2312"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" " http://www.wapforum.org/DTD/ wml_1.1.xml">
<%
Setze conn=Server.CreateObject("adodb.connection")
'conn.Open "dsn=qycxsjk;uid=;pwd=;database=data.mdb"
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&server.mappath("qycx.mdb")
%>
<wml>
<card id="qycx3" title="Shangrao Industrial and Commercial Information Network">
<p>
<%
name=request.querystring("id")
sql="select * from info where id="&name&""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
tun, während nicht rs.eof
%>
<%qymc=rs("Firmenname")%>
Firmenname: <%Response.write qymc%>
<br/>
<%zs=rs("residence")%>
Wohnort:<%Response.write zs%>
<br/>
<%fddb=rs("Gesetzlicher Vertreter")%>
Gesetzlicher Vertreter:<%Response.write fddb%>
<br/>
<%zccb=rs("Eingetragenes Kapital")%>
Stammkapital:<%
if left(zczb,1)=" dann
Response.write „0“
anders
Ende wenn
Response.write zczb%>10.000 Yuan
<br/>
<%qylx=rs("Enterprise Type")%>
Unternehmenstyp:<%Response.write qylx%>
<br/>
<%jyfw=rs("Business Scope")%>
Geschäftsumfang:<%Response.write jyfw%>
<br/>
<%zcrq=rs("Gründungsdatum")%>
Registrierungsdatum:<%Response.write zcrq%>
<br/>
<%
rs.movenext
Schleife
%>
<br/><br/>
Shangrao Industrial and Commercial Information Network-Ende
<br/>
<a href="hello.asp">Zurück</a>
</p>
</card>
</wml>
=====================
OK, schließen Sie die Abfrage ab und zeigen Sie die Firmendetails an!
Wenn mein Schreiben nicht gut ist, schimpfen Sie nicht mit mir. Hehe, Freunde, die WAP mögen, sind herzlich willkommen, mit mir zu kommunizieren und mir Ratschläge zu geben! QQ:18185813