WAP wml + ASPクエリに初挑戦

長年コンピューターに携わってきて、初めてインターネットに記事を書くことになりました 申し訳ございません。
プログラムの目的：仕事はあまりにも多くの友人の事業者登録情報を照会する必要があり、サイト上のクエリ機能を追加する手間を省き、誰かが実際にないコンピュータは、コンピュータもそれを携帯電話を持っていないはずだと述べた。このプログラムは、あなたのビジネスに最適な方法を見つけるために設計されています。
データベースの構成は以下の通りです。
ライブラリ名：data.mdb
テーブル名：info
フィールド：ID 、ビジネス名、居住地、法定代理人 ....... (この省略記号は等を意味する)
I. フィードバックページ hello.asp
ソースコードは以下の通りです。
<%@ 言語=VBScript %>
<% Response.ContentType="text/vnd.wap.wml" %>.Response.ContentType="。
<?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="上饒ビジネス情報ネットワーク">
<p>
クエリ情報を入力してください <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/>
上饒ビジネス情報ネットワーク
</p>
</card>
</wml>
II. メッセージ受付ページ qycx.asp
ソースコードは以下の通りです。
<%@ 言語=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="上饒ビジネス情報ネットワーク">
<p>
<%。
qycx=request.FORM("qycx")です。
cx="ビジネス名 '%"&qycx&"%' のような "
Set conn=Server.CreateObject("adodb.connection") 
'conn.Open "dsn=qycxsjk;uid=;pwd=;database=data.mdb".Open "dsn=qycxsjk;uid=;pwd=;database=data.mdb" 
conn.open "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
do while not rs.eof
%>
<%qymc=rs("Business name")
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 (Chinese)
a=Mid(中国語, i, 1)
uni=uni & "&#x" & Hex(Ascw(a)) & ";"
次
終了関数
%> 
=================================================
2つ目のコメントです。ここを見て、ちょっと汗ばんでいるのですが、ちょうど"business name"を投稿キーワードにし始めたところで、漢字投稿の問題を回避するためにIDをキーワードにしようと思いました。あまりに基本的な問題なので、実は一日中考え込んでしまった。ここではhello.aspによると、＆quot;ビジネス名＆quotを提出し、すべての＆quot;ビジネス名＆quotを取得するキーワードクエリ、フィールドには、キーワードのフルネーム（重複を避けるために）が含まれてリストを作成すると、3ページ目に入力され、その、ビジネスの詳細であるクリックします。
qycx2.asp
ソースコードは以下の通りです。
<%@ 言語=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">
<%。
Set conn=Server.CreateObject("adodb.connection") 
'conn.Open "dsn=qycxsjk;uid=;pwd=;database=data.mdb".Open "dsn=qycxsjk;uid=;pwd=;database=data.mdb" 
conn.open "driver={マイクロソフトアクセスドライバ (*.mdb)};dbq="&server.mappath(" qycx.mdb"))。
%>
<wml>
<card id="qycx3" title="上饒ビジネス情報ネットワーク">
<p>
<%。
name=request.querystring("id")です。
sql="select * from info where id="&name&"""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
%>
<%qymc=rs("Business name")%>
事業所名： <%Response.write qymc%>
<br/>
<%zs=rs("residence")%>
住まい：<%Response.write zs%>
<br/>
<%fddb=rs("Legal Representative")%>.です。
法定代理人：<%Response.write fddb%>
<br/>
<%zczb=rs("Registered Capital")%>.です。
登録資本金:<%。
if left(zczb,1)=". " then
Response.write "0"
その他
終了する場合
Response.write zczb%>million
<br/>
<%qylx=rs("Business Type")%>。
企業型:<%Response.write qylx%>
<br/>
<%jyfw=rs("Business Scope")%>.です。
ビジネススコープ：<%Response.write jyfw%>
<br/>
<%zcrq=rs("date of inception")%>.です。
登録日：<%Response.write zcrq%>
<br/>
<%。
rs.movenext
ループ
%>
<br/><br/>
上饒ビジネス情報ネットワーク - 終了 
<br/>
<a href="hello.asp">戻る</a>
</p>
</card>
</wml>
=====================
OK、ビジネスの詳細を表示するクエリが完成しました!