<% ref = "good" tel = 0 UA = Request.ServerVariables("HTTP_USER_AGENT") If Instr(UA,"DoCoMo") > 0 Then keitai = "docomo" ElseIf Instr(UA,"PHONE") > 0 Then keitai = "vodafone" ElseIf Instr(UA,"fone") > 0 Then keitai = "vodafone" ElseIf Instr(UA,"Android") > 0 Then keitai = "Android Linux" ElseIf Instr(UA,"iP") > 0 Then keitai = "iPod or iPhone" ElseIf Instr(UA,"oft") > 0 Then keitai = "SoftBank" ElseIf Instr(UA,"KDDI") > 0 Then keitai = "au" ElseIf Instr(UA,"Apple") > 0 Then keitai = "AppleWebKit" ElseIf Instr(UA,"lcom") > 0 Then keitai = "wilcom" Else tel = 1 End If keyword = left(chgchr(Request.QueryString("cate")),5) If Instr(Request.QueryString("cate"),"'") > 0 Then cate = "" Response.Redirect "http://www.tnk.gr.jp/" ElseIf Instr(keyword,"@") > 0 Then cate = "s" Response.Redirect "http://picks.dir.yahoo.co.jp/weeklypicks/20080114.html" ' ElseIf chgchr(Request.QueryString("ref")) <> "gd" Then ' cate = "" ' Response.Redirect "index.asp" ElseIf Instr(keyword,";") > 0 Then cate = "" Response.Redirect "http://www.forest.impress.co.jp/" ElseIf Instr(keyword,"%") > 0 Then cate = "" Response.Redirect "http://www.kita9.ed.jp/" ElseIf Instr(keyword,"\") > 0 Then cate = "" Response.Redirect "http://www.kita9.ed.jp/" ElseIf Instr(keyword,"=") > 0 Then cate = "s" Response.Redirect "http://www.kita9.ed.jp/" ElseIf Instr(keyword,"&") > 0 Then cate = "s" Response.Redirect "index.asp" ElseIf Instr(keyword,"and") > 0 Then cate = "" Response.Redirect "index.asp" ElseIf Instr(keyword,"cha") > 0 Then cate = "t" Response.Redirect "index.asp" End If '---もしTNKサイトから来ていなかったら google になる。good ならTNKサイトからの refferなので接続 'If chgchr(Request.QueryString("id")) <> "good" Then ' Response.Redirect "index.asp" 'End If %> 若者用語の小事典 <% If tel = 1 Then %> <% Response.Expires = -1 Response.AddHeader "Pragma", "No-Cache" Response.AddHeader "Cache-Control", "No-Cache" %> <% Else %> <% End If %> <% If tel = 1 Then %>
トトロのバス停 王監督メッセージ 月下美人開花
広告募集
☆覚えてる?(旧「今はどこへ行った?」) 去年(2012)の人気タレント、言葉 8文字以内すぐに忘れそうなタレントや言葉をどうぞ! (2012年1月、登録1000語を超えました)
<% If keyword <> "c" Then %> 500語表示へ <% Else %> 50語 通常 表示 <% End If %> ------- 登録できない語(文字)があります。
下の「若者言葉」も登録してください。
<% Set dbs = Server.CreateObject("ADODB.Connection") Set rss = Server.CreateObject("ADODB.Recordset") dbs.Open "word09" rss.Open "SELECT * FROM trend2009 order by sdat desc", dbs,3,2 cnt = 1 If keyword = "c" and Request.ServerVariables("HTTP_REFERER") = "http://www.tnk.gr.jp/young/word/index.asp" Then ttl = 500 Else ttl = 30 End If Do While not rss.EOF If cnt > ttl Then Exit Do End If sdat = day(rss("sdat")) sdats = datevalue(rss("sdat")) If sdats <> sdats_b Then '前と日付が同じなら、表示しない If keyword = "c" Then Response.Write "
" End If Response.Write " (" & month(rss("sdat")) & "/" & sdat & ") " End If sdats_b=sdats Response.Write " " & rss("title") & "/ " ' 漢字を表示(日付が先になる) rss.MoveNext cnt = cnt + 1 Loop rss.Close set rss = nothing dbs.Close set dbs = nothing If keyword = "c" Then Response.Write "30wd 通常 表示" End If %>
<% Else %> あなたの携帯: <%= keitai %> ですね

若者用語の小辞典

<% End If %> <% If Instr(ipadr,"122.1.124") > 0 Then Response.Redirect "http://www.yahoo.co.jp/" End If ' If Instr(ipadr,"219.166.154.") > 0 Then 自サーバーにとびます ' Response.Redirect "http://www.tnk.gr.jp/" ' End If %> <% If tel = 1 Then %>
言葉&キーワード
複数キーワードはスペースで区切ってください
OR検索(総検索)
 AND検索(絞り込み)





2013年一年の言葉

謹賀新年
今年の抱負を4文字以内で お気軽にどうぞ

<% Set dbs = Server.CreateObject("ADODB.Connection") Set rss = Server.CreateObject("ADODB.Recordset") dbs.Open "word09" rss.Open "SELECT * FROM word2011 order by sdat desc", dbs,3,2 cnt = 1 ttl = 100 Do While not rss.EOF If cnt > ttl Then Exit Do End If sdat = day(rss("sdat")) sdats = datevalue(rss("sdat")) If sdats <> sdats_b Then '前と日付が同じなら、表示しない Response.Write "
(" & month(rss("sdat")) & "/" & sdat & ")" End If sdats_b=sdats Response.Write " " & left(rss("title"),4) & " / " ' 漢字を表示(日付が先になる) rss.MoveNext cnt = cnt + 1 Loop rss.Close set rss = nothing dbs.Close set dbs = nothing %>
<% End If %>
<% If Request.QueryString="" Then %>
<% If tel = 1 Then %> <% Else %> 略語(KY) 自作 アルファ(alpha) <% End If %>
<% If tel = 1 Then wordcount = 150 Else wordcount = 15 End If If tel = 0 Then CR = "
" Else CR = " " End If %>
<% If tel=1 Then %> <% End If %>
最新の登録<%= wordcount %>

<% Set db = Server.CreateObject("ADODB.Connection") db.Open "word09" SQL = "SELECT * FROM word WHERE(word.category) ORDER BY word.sdat desc" Set rs = db.Execute(SQL) Response.Write "
" For cnt = 1 to wordcount datt = datevalue(rs("sdat")) %> <% If rs("category") = "q" Then nam = rs("title") %> ・<%=rs("title") %>:<%=CR%> ▼(Click!) ---- おしえて! 若者言葉 ---- (クリック!)▼ (<%=datt %>)
<% ElseIf rs("category") = "delete" Then %> ・<%=left(rs("title"),1) %><%=CR%> [hidden]<%=left(rs("descript"),2) %> ---- (<%=datt %>)
<% ElseIf rs("category") = "org" Then %> ・<%=rs("title") %><%=CR%>[自作語]<%=rs("descript") %> (<%=datt %>)
<% ElseIf rs("category") = "rya" Then %> ・<%=rs("title") %> [略語]:<%=CR%> <%=rs("descript") %> (<%=datt %>)
<% Else %> ・<%=rs("title") %>:<%=CR%> <%=rs("descript") %> (<%=datt %>)
<% End If If cnt = 100 or cnt = 200 Then Response.Write "------------------ " & cnt & " words --------------------
" End If rs.MoveNext Next rs.Close set rs = nothing db.Close set db = nothing Response.Write "

" %>

<% Else On Error Resume Next Set dbs = Server.CreateObject("ADODB.Connection") Set rss = Server.CreateObject("ADODB.Recordset") dbs.Open "word09" If flag = 1 Then keyword = "2009" rss.Open "SELECT * FROM 09NYear order by sdat desc",dbs,3,2 ElseIf flag = 2 Then Response.Redirect "submit09.asp" Else rss.Open "SELECT * FROM word order by title asc",dbs,3,2 End If Response.Write "
" Do While not rss.EOF If rss("category") = keyword Then Response.Write "・" & rss("title") & " : " & rss("descript") & " [ " & rss("sdat") &" ]
" End If rss.MoveNext Loop rss.Close set rss = nothing dbs.Close set dbs = nothing End If %>
<% If tel = 1 Then %>
ことば登録
説明・例 <% ' ( E-mail: ) [メアド不要---(プレゼント応募連絡用)] %>
※説明文も検索キーワードになります。 ※間違って登録した場合はTNKまで。

意味と用例を書いていただければ幸いです。他人を誹謗中傷する書き込みはしないでください。

世界の人口
何億で習った?

中学校で習った世界人口
人口とあなたの年齢
億人
<% Set dbs = Server.CreateObject("ADODB.Connection") Set rss = Server.CreateObject("ADODB.Recordset") dbs.Open "word09" rss.Open "SELECT * FROM world2011 order by age desc", dbs,3,2 cnt = 1 ttl = 30 Do While not rss.EOF If cnt > ttl Then Exit Do End If age = rss("age") Response.Write " " & left(rss("title"),2) & " 億人 " ' 漢字を表示(日付が先になる) Response.Write " (" & rss("age") & " 才)
" rss.MoveNext cnt = cnt + 1 Loop rss.Close set rss = nothing dbs.Close set dbs = nothing %>
<% End If %>