% 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 %>
トトロのバス停 王監督メッセージ 月下美人開花 | |
広告募集 |
<% 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 %> |
若者用語の小辞典
<% 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 %>
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 %>
" Else CR = " " End If %>
<% 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 "
<% 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 "
" End If rss.MoveNext Loop rss.Close set rss = nothing dbs.Close set dbs = nothing End If %> |
世界の人口 人口とあなたの年齢 <% 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 %> |