第一試験WAPのwml＋ASPクエリ

長年コンピューターをやっていますが、初めて文章をネットに書きます。プログラムの目的を見て笑いました。仕事が必要です。企業登録資料を調べている友達が多すぎます。面倒を省きます。インターネットで検索機能を追加しました。なんとパソコンがないという人もいます。携帯で調べてください。いつでもどこでもいいです。やると言ってください。WAPで調べてください。メモ帳で書いてあります。データベース構造は以下の通りです。倉庫名：data.mdb表名：infoフィールド：id 、企業名、住所、法定代表者…（この省略番号はなどの意味です）一、フィードバックページのhello.aspソースは以下の通りです。 Language=VB Script %> <% Reponse.C.tentType=「text/vnd.wap.wml」 %> <カード id=「qycx」 title=「上饒工商情報網」

検索資料を入力してください。 name="qycx" type=「text」 maxlength="16" /> <アンチョー title=「確定」確定 href=「qycx.asp」 method=「post」<「postfield」 name="qycx" value=「$qycx」

上饒工商情報網

二、情報受信ページ qycx.aspソースは以下の通りです。 Language=VB Script %> <% Reponse.C.tentType = "text/vnd.wap.wml" %> <カード id=「qycx 2」 title=「上饒工商情報網」<%qycx=request.FORM（「qycx」）cx=「企業名」 like '%"&qycx&「%」 " セット conn=Server.reat Object（「adodb.co nnection」）  'conn.Open "dsn=qycxsjk;uid=;pwd=;database=data.mdb"  conn.open "driver={microsoff} access driver (*.mdb)}dbq="&server.mappath("qycx.mdb")sql="select * from info where "&cx&"set rs=server.creat object(adodb.recordset)rs.open sql，conn，1,1 do while not s.eof%<%qymc=rs（「企業名」）id=rs（「id」）%>  ================================================= ここを見て、私は汗をかいています。「企業名」をキーワードにして提出し始めたばかりですが、IDをキーワードにした検索で漢字の提出を避けたと思いました。この基礎的な問題を私は長い間考えました。ここではハロー.aspが提出した「企業名」のキーワードに基づいて、すべての「企業名」フィールドに該当するキーワードが含まれている企業のフルネームを検索して（重複しないように）リストを作成し、クリックして第三ページに入ります。即ち、企業の詳細資料です。  三、qycx.2 aspソースは以下の通りです。 Language=VB Script %> <% Reponse.C.tentType = "text/vnd.wap.wml" %> <カード id=「qycx 3」 title=「上饒工商情報網」<%name=request.querystring（「id」）sql=「select」 * from info where id=「&name&」「set」 rs=server.creat object(adodb.recordset)rs.open sql，conn，1,1 do while not rs.eof%<%qymc=rs（"企業名"）>企業名：<%Resonse.write qymc%
<%zs=rs（"住所"）>住所：<%レスリング.write zs%
<%fddb=rs（"法定代表人"）>法定代表者：<%Response.write fddb%
<%zczb=rs（"登録資本金"）>登録資本金：<%if left(zczb，1)=「.」 then Resonse.write "0「else end」 if Resonse.write zczb%>< br/<%qyxl=rs]>企業タイプ：<%Response.write qylox%<% jyfw=rs（"経営範囲"）>経営範囲：<%Resonse.write jyfw%
<%zcrq=rs（"創立日"）>登録日時：<%レスリング.write zcrq%
<パー.movenxt loop%>

上饒工商情報網-End 

==============OKに戻ります。検索表示企業の詳細を完成します。下手です。私を怒らないでください。へへへ、WAPが好きな友達を歓迎して、私と多く交流することができて、指導します！QQ:1818181883