| |
<html>
<head>
<title>PostKit3: FindAddress Sample Program</title>
</head>
<body>
<%
Dim strPostalCode
'前のページから郵便番号を取得する
strPostalCode = Request.Form("postalcode")
Dim Pk3
Dim strPref,strCity,strTown,strNo,strOrgName
Dim strPrefKana,strCityKana,strTownKana
Dim i
'PostKit3 のオブジェックトを作成する
Set Pk3 = Server.CreateObject("PostKit3.PostKit")
'PostKit3 の辞書をオープンする
Pk3.OpenDic("C:\Dic")
Pk3.FindMode=2
Pk3.PostCode7=strPostalCode
'全角カナ
Pk3.KanaType=1
'住所を検索（サブコードは含まない）
Pk3.Find(false)
If Pk3.FindCount <> 0 then
For i=0 to Pk3.FindCount - 1
Pk3.Read(i)
'一般データの場合
if Pk3.DataType = 0 then
strPref=Pk3.PrefKanji
strCity=Pk3.CityKanji
strTown=Pk3.TownKanji
strPrefKana=Pk3.PrefKana
strCityKana=Pk3.CityKana
strTownKana=Pk3.TownKana
'大口事業所データの場合
else
strPref=Pk3.PrefKanji
strCity=Pk3.CityKanji
strTown=Pk3.TownKanji
strNo=Pk3.No
strOrgName=Pk3.OrgName
strPrefKana=Pk3.PrefKana
strCityKana=Pk3.CityKana
strTownKana=Pk3.TownKana
end if
Next
End If
'PostKit3 の辞書をクローズする
Pk3.CloseDic()
%>
<table align="center" width="400" border="0">
<tr>
<td> </td>
</tr>
<tr>
<td align="center"><font
size="3"><b>住所の取得の例</b></font></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td>
<table align="center" width="400"
border="0" cellspacing="1" bgcolor="#000000">
<tr>
<td
bgcolor="#ccccff">
<table
width="100%" border="0" align="center" bgcolor="#ccccff">
<tr>
<td
align="center" colspan="2"> </td>
</tr>
<tr>
<td
align="center" colspan="2">
<font
size="2" color="#000099">検索結果の表示</font>
</td>
</tr>
<tr>
<td
align="center" colspan="2"> </td>
</tr>
<tr>
<td
align="right"><font size="2"
color="#000099">郵便番号：</font></td>
<td
align="left">
<input
type="text" name="postalcode" size=
"10"value="<%=request("postalcode")%>">
</td>
</tr>
<tr>
<td
align="right"><font size="2"
color="#000099">都道府県：</font></td>
<td
align="left"><font size="2">
<input
type="text" name="strPref" size="30" value="<%Response.Write
strPref%>"></font>
<font
size="2" color="#006600"><%Response.Write strPrefKana%></font>
</td>
</tr>
<tr>
<td
align="right"><font size="2"
color="#000099">市区町村：</font></td>
<td
align="left"><font size="2">
<input
type="text" name="strCity" size="30" value="<%Response.Write
strCity%>"></font>
<font
size="2" color="#006600"><%Response.Write strCityKana%></font>
</td>
</tr>
<tr>
<td
align="right"><font size="2"
color="#000099">町域：</font></td>
<td
align="left"><font size="2">
<input
type="text" name="strTown" size="30" value="<%Response.Write
strTown%>"></font>
<font
size="2" color="#006600"><%Response.Write strTownKana%></font>
</td>
</tr>
<tr>
<td
align="right"><font size="2"
color="#000099">番地：</font></td>
<td
align="left"><font size="2">
<input
type="text" name="strNo" size="30" value="<%Response.Write
strNo%>"></font>
</td>
</tr>
<tr>
<td
align="right"><font size="2"
color="#000099">事業所：</font></td>
<td
align="left"><font size="2">
<input
type="text" name="strOrg" size="30" value="<%Response.Write
strOrgName%>"></font>
</td>
</tr>
<tr>
<td
align="center" colspan="2"> </td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
|
|