出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[1148] 【解答例】2.ASPの作成
投稿者：北岳さん 2001/11/29 18:06:46
さて、ASPですが、再帰呼び出し法を使いました。
なお私はSQLを１文で書くのに慣れていないので、2文でやっています。
　
**** namae.asp の作成 ******
<%@Language="VBScript" %>
<%
term=Request.Form("term")
if term<>"" then'★
Set rs1=Server.CreateObject("ADODB.RecordSet")
Set db=Server.CreateObject("ADODB.Connection")
db.Provider="Microsoft.Jet.OLEDB.4.0"
db.Mode=1
db.ConnectionString="d:\sample\namae.mdb"
db.Open
SQL1="SELECT * FROM 1 WHERE 名前 LIKE '%" & term & "%' ORDER BY 名前"
rs1.OPEN SQL1,db,3,3
%><html><body bgcolor="#ffe0ff">
<center>
<p><b><font size="+3" color="SteelBlue">検索結果</ﾌont></b>
<%
if rs1.RecordCount=0 then
response.write "<p>該当なし"
response.write "</body></html>"
response.end
end if
%><table border='1'><tr><%
%><tr><td>名前</td><td>性別</td><td>住所</td><td>地域</td></tr><%
Do Until rs1.EOF
%><tr><%
SQL2="SELECT * FROM 2 WHERE 住所='" & rs1("住所") & "'" %>
<% Set rs2=db.Execute(SQL2)
%><tr>
<td><%= rs1("名前") %></td><td><%= rs1("性別") %></td><td><%= rs1("住所") %></td><td><%= rs2("地域") %></td>
</tr><%
rs2.close
rs1.MoveNext
Loop
%></table>
</center></body></html>
<%
rs1.Close
db.Close
Set db=Nothing
Response.End
end if '★
%>
<html>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_Jis">
<script language="JavaScript">
<!--
function ChkForm(x){
if (x.term.value=="") {
window.alert ("【名前の検索】\n検索文字が空白です。");
return false;
}
return true;
}
// -->
</script>
</head>
<body bgcolor="#ffffe0">
<center>
<p><b><font size="+3" color="SteelBlue">名前検索</font></b>
<p>部分一致で検索します。
<form action="/aspbin/namae.asp" method="post" onSubmit="return ChkForm(this);">
<input type="text" name="term" size=20>　<input type="submit" value="　検　索　"
</form>
</center>
</body></html>

再帰呼び出し法は今の場合使う必要がないので、やはり htmlとaspに分けた方が、自然な感じがしますね。（んな、今更・・・）
データベースの内容を表示させる方法 　 まどかさん [2001/11/28 19:19:22] [1124]
　 発言者により削除されました!! 通りすがりのASPerさん [2001/11/28 19:57:55] [1126]
　 Re:データベースの内容を表示させる方法 　 Tomitomiさん [2001/11/29 15:49:16] [1136]
　 【解答例】1.CSVからMDBの作成 　 北岳さん [2001/11/29 18:04:01] [1147]
　 　 【解答例】2.ASPの作成 　 北岳さん [2001/11/29 18:06:46] [1148]
　 Re:データベースの内容を表示させる方法 　 まどかさん [2001/11/30 12:48:36] [1160]
　 　 Re:データベースの内容を表示させる方法 　 北岳さん [2001/11/30 13:38:03] [1163]
　 　 　 発言者により削除されました!! まどかさん [2001/12/05 12:44:04] [1209]
　 　 Re:データベースの内容を表示させる方法 　 Tomitomiさん [2001/11/30 13:41:03] [1164]

TreeBBS For ASP V.0.1.3
Program By ＹａｓＮｅｔ