長年コンピューターを使って仕事をしてきましたが、オンラインで記事を書くのはこれが初めてです。
プログラムの目的: 仕事の必要で
会社の登録情報を問い合わせる友人が多すぎるため、トラブルを避けるために Web サイトに問い合わせ機能が追加されました。コンピューターを持っていない場合は、携帯電話を持っている必要があります。携帯電話を使用して、いつでもどこでもクエリを実行でき、すべてメモ帳で記述して WAP クエリを作成できます。
データベース構造は次のとおりです。
ライブラリ名: data.mdb
テーブル名: 情報
フィールド: ID、会社名、居住地、法定代理人... (この省略記号は、などを意味します)
1.
フィードバック ページ hello.asp のソース コードは次のとおりです:
<%@ Language=VBScript%>
<% Response.ContentType="text/vnd.wap.wml" %>
<?xml version="1.0"coding="gb2312"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" " http://www.wapforum.org/DTD/wml_1.1 .xml">
<wml>
<card id="qycx" title="上饒工商情報ネットワーク">
<p>
クエリ情報を入力してください<input name="qycx" type="text" maxlength="16" />
<anchor title="OK">OK
<go href="qycx.asp" method="post">
<postfield name="qycx" value="$qycx"/>
</go>
</アンカー>
<br/><br/>
上饒工業商業情報ネットワーク
</p>
</card>
</wml>
2.
情報受信ページ qycx.asp のソースコードは次のとおりです。
<%@ Language=VBScript %>
<% Response.ContentType = "text/vnd.wap.wml" %>
<?xml バージョン="1.0" エンコーディング="gb2312"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" " http://www.wapforum.org/DTD/wml_1.1.xml ">
<wml>
<card id="qycx2" title="上饒工商情報ネットワーク">
<p>
<%
qycx=request.FORM("qycx")
cx="会社名 like '%"&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
rs.eof ではないときに実行します
%>
<%qymc=rs("会社名")
id=rs("id")
%>
<a href="qycx2.asp?id=<%Response.write id%>" ><%Response.write qymc%></a>
<br/>
<%
rs.movenext
ループ
rs.close
%>
<br/><br/>
上饒工業商業情報ネットワーク
</p>
</card>
</wml>
<% 関数 uni(中国語)
For i = 1 to Len (中国語)
a=Mid(中国語, i, 1)
uni=uni & "&#x" & Hex(Ascw(a)) & ";"
次
終了機能
%>
================================================
2 番目のコメント: これを見たとき、最初はキーワードとして「会社名」を使用して送信しましたが、後で漢字を送信する問題を避けるためにキーワードとして ID を使用することを考えました。実はこのような基本的な疑問について、私は長い間考えてきました。ここでは、hello.asp によって送信された「会社名」キーワード クエリに基づいて、[会社名] フィールドにこのキーワードを含むすべての会社の正式名を取得し (重複を避けるため)、リストを作成し、クリックして入力します。 ３ページ目は会社資料の詳細でございます。
3.
qycx2.asp のソース コードは次のとおりです。
<%@ Language=VBScript %>
<% Response.ContentType = "text/vnd.wap.wml" %>
<?xml バージョン="1.0" エンコーディング="gb2312"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" " http://www.wapforum.org/DTD/wml_1.1.xml ">
<%
set conn=Server.CreateObject("adodb.connection")
'conn.Open "dsn=qycxsjk;uid=;pwd=;database=data.mdb"
conn.open "driver={Microsoft アクセス ドライバー (*.mdb)};dbq="&server.mappath("qycx.mdb")
%>
<wml>
<card id="qycx3" title="上饒工商情報ネットワーク">
<p>
<%
名前=リクエスト.クエリ文字列("id")
sql="select * from info where id="&name&""
set rs=server.createobject("adodb.recordset")
rs.open SQL,conn,1,1
rs.eof ではないときに実行します
%>
<%qymc=rs("会社名")%>
会社名: <%Response.write qymc%>
<br/>
<%zs=rs("レジデンス")%>
居住地:<%Response.write zs%>
<br/>
<%fddb=rs("法定代理人")%>
法定代理人:<%Response.write fddb%>
<br/>
<%zczb=rs("登録資本金")%>
登録資本金:<%
左(zczb,1)=の場合。"
応答。「0」を書き込みます
それ以外
終了する場合
Response.write zczb%>10,000元
<br/>
<%qylx=rs("エンタープライズ タイプ")%>
エンタープライズ タイプ:<%Response.write qylx%>
<br/>
<%jyfw=rs("事業範囲")%>
業務範囲:<%Response.write jyfw%>
<br/>
<%zcrq=rs("設立日")%>
登録日:<%Response.write zcrq%>
<br/>
<%
rs.movenext
ループ
%>
<br/><br/>
上饒産業商業情報ネットワーク終端
<br/>
<a href="hello.asp">戻る</a>
</p>
</card>
</wml>
=====================
OK、クエリを完了して会社の詳細を表示します。
私の文章がうまくなくても、叱らないでください。ふふ、WAP が好きな友達は私とコミュニケーションを取って指導してくれることを歓迎します! QQ:18185813