出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[3986] Re:検索エンジンを作っているのですが
投稿者：fujiさん 2004/01/20 16:19:32
こんにちわ　Karyさん

ＡＳＰが動く環境がないので、ちゃんと動くコードになってないと思いますので、
参考程度に見てください。

strWord　=　Request.Form("word")
strJyoken　=　""
If　（タイトルから検索）　Then
　　strJyoken　=　"tb2.title"
　　Select　Case　（検索タイプ）
　　Case　（部分一致）
　　　　strJyoken　=　strJyoken　&　"　like　'%"　&　strWord　&　"%'　"
　　Case　（前方一致）
　　　　strJyoken　=　strJyoken　&　"　like　'"　&　strWord　&　"%'　"
　　Case　（後方一致）
　　　　strJyoken　=　strJyoken　&　"　like　'%"　&　strWord　&　"'　"
　　End　Select
End　If
If　（著者名から検索）　Then
　　If　strJyoken　<>　""　Then
　　　　strJyoken　=　strJyoken　&　"　OR　"
　　End　If
　　strJyoken　=　"tb2.name"
　　Select　Case　（検索タイプ）
　　Case　（部分一致）
　　　　strJyoken　=　strJyoken　&　"　like　'%"　&　strWord　&　"%'　"
　　Case　（前方一致）
　　　　strJyoken　=　strJyoken　&　"　like　'"　&　strWord　&　"%'　"
　　Case　（後方一致）
　　　　strJyoken　=　strJyoken　&　"　like　'%"　&　strWord　&　"'　"
　　End　Select
End　If

StrSQL　=　"select　tb1.category,tb2.title,tb2.name　from　tb1,tb2　_
where　(tb1.cateid)　=　(tb2.cateid)　and　((tb1.category)　=　'"　&　Request.Form("cate")　&　"')"　

If　strJyoken　<>　""　Then
　　StrSQL　=　StrSQL　&　"　and　（"　&　strJyoken　&　"）"
End　If
検索エンジンを作っているのですが 　 Karyさん [2004/01/20 10:25:45] [3985]
　 Re:検索エンジンを作っているのですが 　 fujiさん [2004/01/20 16:19:32] [3986]
　 　 Re:検索エンジンを作っているのですが 　 Karyさん [2004/01/20 16:56:29] [3987]

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