<%
ref = "good"
tel = 0
UA = Request.ServerVariables("HTTP_USER_AGENT")
If Instr(UA,"DoCoMo") > 0 Then
keitai = "Docomo"
ElseIf Instr(UA,"J-PHONE") > 0 Then
keitai = "vodafone"
ElseIf Instr(UA,"fone") > 0 Then
keitai = "vodafone"
ElseIf Instr(UA,"oft") > 0 Then
keitai = "SoftBank"
ElseIf Instr(UA,"KDDI") > 0 Then
keitai = "au"
ElseIf Instr(UA,"Disney") > 0 Then
keitai = "Disney?"
ElseIf Instr(UA,"lcom") > 0 Then
msg = "wilcom"
Else
tel = 1
End If
%>
<% If tel = 1 Then %>
<%Else %>
若者言葉検索
<% End If %>
<% If Request.Form = "" Then %>
複数キーワードはスペースで区切ってください(Or条件-->絞り込みではありません)
※半角のクオーテーション・アポストロフィー( ' " )は使えません
<% Else %>
<%
If Instr(Request.ServerVariables("HTTP_REFERER"),"www.tnk.gr.jp") <0 Then
Response.Redirect "index.asp"
End IF
Response.Write "
"
' keywd =chgchr(Request.Form("keywd"))
'すべてを全角大文字にする
Set basp = Server.CreateObject("basp21")
keywd = chgchr(Request.Form("keywd"))
keywd = basp.HAN2ZEN(keywd) ' 半角かなを全角に
keywd = basp.StrConv(keywd,1+4+32) ' 英は大文字かつ全角ひらがなに
keywd = Replace(keywd," "," ") '全角空白を半角空白(区切り印）に
Set db=Server.CreateObject("ADODB.Connection")
db.Open "word09"
SQL="SELECT * FROM word ORDER BY word.title asc"
Set rs=db.Execute(SQL)
arykey = Split(Replace(keywd," "," "))
wcount = 0
arykey=Split(keywd," ")
Set basp = Server.CreateObject("basp21")
Do While not rs.EOF
ttl = chgchr(rs("title"))
ttl = basp.HAN2ZEN(ttl) ' 半角かなを全角に
ttl = basp.StrConv(ttl,1+4+32) ' 英は大文字かつ全角ひらがなに
desc = chgchr(rs("descript"))
desc = basp.HAN2ZEN(desc) ' 半角かなを全角に
desc = basp.StrConv(desc,1+4+32) ' 英は大文字かつ全角ひらがなに
For Each key In arykey
If tel=1 and chgchr(Request.Form("sel"))="r-or" Then ' パソコンで OR 条件
flag = 0
If InStr(1,ttl,key)>0 Or InStr(1,desc,key)>0 Then
flag = 1 ' found フラグを立てる
Exit For
End If
Else ' パソコンではない（携帯）または AND 条件
flag = 1
If InStr(1,ttl,key)<=0 and InStr(1,desc,key)<=0 Then ' 用語にも説明文にもキーワードを含んでいない場合
flag = 0 ' not found
Exit For
End If
End If
Next
If flag = 1 Then ' 条件を満たしている時、表示
Response.Write "・" & rs("title") & ""
Response.Write " : " & rs("descript") & " (" & datevalue(rs("sdat")) & ")
"
wcount = wcount +1
End If
rs.MoveNext
Loop
rs.Close
db.Close
Response.Write ""
If wcount = 0 Then
Response.Write "
お探しの言葉はありませんでした
検索方法を変えるとよいかもしれません
"
End If
%>
未登録なので投稿したり、別の意味で登録したりするときはここから
メルアドは不要ですが内容には責任を持ちましょう。他人を誹謗中傷する書き込みはしないでください。
※半角のクオーテーション、アポストロフィー、コンマ( ' " , ) を使うとエラーがでますので、その場合全角でお願いします
※説明文も検索キーワードになります。 ※登録解除のコマンドがありませんので、間違って登録した場合はＴＮＫまで
<% End If %>
<% If tel = 1 Then %>
<% End If %>
若者言葉トップ