<% ref = "good" tel = 0 UA = Request.ServerVariables("HTTP_USER_AGENT") REFF= Request.ServerVariables("HTTP_REFERER") 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,"isney") > 0 Then keitai = "Disney?" ElseIf Instr(UA,"lcom") > 0 Then keitai = "wilcom" Else tel = 1 ' browser End If Response.Write REFF & "OK" If Instr(Request.ServerVariables("HTTP_REFERER"),"tnk.gr.jp") =< 0 Then Response.Redirect "index.asp" End If %> <% If tel = 1 Then %> <% Else %>

若者言葉−登録

<% End If %> <% If tel = 1 Then %> ＴＮＫ個人情報・サイト管理

※プライバシー保護のため、特定の人に関わる｢あだ名」などの登録はご遠慮ください。※
漢字やアルファベットを使われる場合、カッコ書きでふり仮名をつけていただくと助かります。

<% End If %> <% If Request.Form="" Then %> 

	

    登録する言葉：
　　　　　　　行：＜−−（あ・か・さ・た・な・は・ま・や・ら・わ）
  E-mail：(半角：連絡用。非表示ですが、書いてもかまいません)
  説明：
※半角のクオーテーション、アポストロフィー、コンマ( ' " , ) を使うとエラーがでますので、その場合全角でお願いします
※説明文も検索キーワードになりますので、説明をよろしくお願いします。

※登録解除のコマンドがありませんので、間違って登録した場合はＴＮＫまでお知らせください。 <% Else %> <% ipadr = Request.ServerVariables("REMOTE_ADDR") If Instr(ipadr,"213.239.200.") > 0 Then Response.Redirect "index.asp" ElseIf Instr(ipadr,"124.83.159.222") > 0 Then Response.Redirect "http://www.yahoo.co.jp/" Elseif Instr(ipadr,"219.166.154.24") > 0 Then Response.Write "

お疲れ様ですＴＮＫ

" End If ttl = chgchr(Request.Form("title")) des = chgchr(Request.Form("descript")) urls = chgchr(Request.Form("url")) cate = chgchr(Request.Form("category")) If urls = "" Then urls ="*" End If If ttl <> "" and des <> "" and cate <> "" Then '　全部、空欄 flag = TRUE ElseIf left(ttl,8) = ttl and cate = "" Then ' 登録語の最初の 8文字 が登録語そのまま（8文字以内）かつ説明なし、カテゴリーあり（新年語) flag = "TRUE" Else Response.Redirect "index.asp" End If If flag = TRUE Then Response.Write "

登録完了・・・５秒後に移動します

" End If On Error Resume Next If Instr(ttl,"http") > 0 or Instr(des,"http") > 0 Then Response.Redirect "index.asp" ElseIf Instr(ttl,"href") > 0 or Instr(des,"href") > 0 Then Response.Redirect "index.asp" ElseIf Instr(des,"com") > 0 Then Response.Redirect "index.asp" ElseIf Instr(ttl,"HTTP") > 0 or Instr(des,"HTTP") > 0 Then Response.Redirect "index.asp" ElseIf Instr(des,"://") > 0 or Instr(ttl,"://") > 0 Then Response.Redirect "index.asp" ElseIf Instr(ttl,"txt") > 0 or Instr(des,"txt") > 0 Then Response.Redirect "index.asp" ElseIf Instr(ttl,"_") > 0 or Instr(des,"_") > 0 Then Response.Redirect "index.asp" ElseIf Instr(des,"や") > 0 and Instr(des,"ま") > 0 and Instr(des,"だ") > 0 Then Response.Redirect "index.asp" ElseIf Instr(des,"ヤ") > 0 and Instr(des,"マ") > 0 and Instr(des,"ダ") > 0 Then Response.Redirect "index.asp" ElseIf Instr(des,"山") > 0 and Instr(des,"田") > 0 Then Response.Redirect "index.asp" ElseIf Instr(ttl,"や") > 0 and Instr(ttl,"ま") > 0 and Instr(ttl,"だ") > 0 Then Response.Redirect "index.asp" ElseIf Instr(ttl,"ヤ") > 0 and Instr(ttl,"マ") > 0 and Instr(ttl,"ダ") > 0 Then Response.Redirect "index.asp" ElseIf Instr(ttl,"山") > 0 and Instr(ttl,"田") > 0 Then Response.Redirect "index.asp" End If ttl = Replace(ttl,"sex","sx") ttl = Replace(ttl,"SEX","SE") ttl = Replace(ttl,"ＳＥＸ","SX") ttl = Replace(ttl,"ばか","BK") ttl = Replace(ttl,"アホ","AH") ttl = Replace(ttl,"<","(") ttl = Replace(ttl,">",")") ttl = Replace(ttl,"'","’") ttl = Replace(ttl,"カンリ","カリン") ttl = Replace(ttl,"ﾔﾏ","IP:ﾐｽﾞ") ttl = Replace(ttl,"かんり","カリン") ttl = Replace(ttl,"MY","Microsoft") ttl = Replace(ttl,",","，") ttl = Replace(ttl,"死","di") ttl = Replace(ttl,"氏","Mr") ttl = Replace(ttl,"TNK","NHK") ttl = Replace(ttl,"殺","kil") ttl = Replace(ttl,"んこ","小") ttl = Replace(ttl,"ンコ","子") ttl = Replace(ttl,"ka","ko") ttl = Replace(ttl,"きも","肝") ttl = Replace(ttl,"うざ","宇座") ttl = Replace(ttl,"ウザ","ザウ") ttl = Replace(ttl,"tn","o") ttl = Replace(ttl,"TN","O") des = Replace(des,"カンリ","IP:仕分け") des = Replace(des,"かんり","IP:仕分け") des = Replace(des,"ﾔﾏ","[ip]サン") des = Replace(des,"どうか","同化") des = Replace(des,"SEX"," ") des = Replace(des,"<","(") des = Replace(des,">",")") des = Replace(des,"'","’") des = Replace(des,"sex"," ex") des = Replace(des,"死","di") des = Replace(des,"殺","kil") des = Replace(des,"TN","NTT") des = Replace(des,"ＴＮＫ","NHK") des = Replace(des,"バカ","ば○") des = Replace(des,"アホ","-あ○") des = Replace(des,"ばか"," ば ") des = Replace(des,"んこ"," 子") des = Replace(des,"ンコ"," 小") des = Replace(des,"ka","co") des = Replace(des,"きも","肝") ' Set basp = Server.CreateObject("basp21") ' han1 = len(des) ' han2 = LenBB(des) ' If han1 = han2 Then ' Response.Redirect "index.asp" ' End If Set db=Server.CreateObject("ADODB.Connection") Set rs=Server.CreateObject("ADODB.Recordset") db.Open "word09" If cate = "" Then rs.Open "SELECT * FROM trend2009",db,3,2 Else rs.Open "SELECT * FROM word",db,3,2 End If Application.lock rs.AddNew rs("title")= ttl rs("ip") = ipadr rs("url") = urls rs("sdat") = Now() rs("del") = REFF If cate <> "" Then rs("descript")= des rs("category")= cate End If rs.Update Application.unlock rs.close db.close If Instr(Request.ServerVariables("HTTP_REFERER"),"yamada") > 0 Then ' yamada (MY ページ)からきている場合戻り先 Response.Write "" End If Response.Write "" Response.Write "

ことば登録ありがとうございました len=" & han1 & ": lenb=" & han2 &"

" Response.Write "

またの書き込みをお待ちしております

" Response.Write "

" & keitai & "

" %>

TNK Teachers' Network in Kitakyushu

５秒たってもtopへ移動しないときはここをクリック <% End If %> <% If tel = 1 Then %> <% End If %> <% 'Function LenBB(ByVal str As String) As Integer 'Shift JISに変換したときに必要なバイト数を返す ' Return System.Text.Encoding.GetEncoding(932).GetByteCount(str) 'End Function %>