<% ip = Request.ServerVariables("REMOTE_ADDR") Set basp=Server.CreateObject("basp21") Response.Expires = -1 Response.AddHeader "Pragma", "No-Cache" Response.AddHeader "Cache-Control", "No-Cache" If request.Cookies("d360") = "" Then Response.Cookies("d360") = 1 Response.Cookies("d360").Expires="2009/12/31" ElseIf left(chgchr(Request.QueryString("cate")),1) <> "q" Then d360 = request.Cookies("d360") + 1 Response.Cookies("d360") = d360 Response.Cookies("d360").Expires="2009/12/31" Response.Redirect "http://" & ip End If %> <% If Instr(Request.ServerVariables("HTTP_REFERER"),"tnk.gr.jp") > 0 Then flag = 1 Else Response.Redirect "index.asp" End If %> 若者用語おしえます ＴＮＫ個人情報・サイト管理

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

最近メールアドレスが正しくかかれていない書き込みが増えています。アドレスは公開しませんので、連絡が取れるように書いてください。

<% If left(chgchr(Request.QueryString("cate")),1)="q" Then nam = chgchr(Request.QueryString("title")) %> <% Set db = Server.CreateObject("ADODB.Connection") db.Open "word09" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "select * from word where word.title ='" & nam & "'", db, 3, 3 title = nam If rs.EOF Then rs.Close db1.Close Set rs = Nothing Set db1 = Nothing Response.Redirect "index.asp" Else rs.Close db.Close Set rs = Nothing Set db = Nothing End If title = nam %> 

	

    登録する言葉：
　　　　　　　行：＜−−（あ・か・さ・た・な・は・ま・や・ら・わ  選んでください）
  E-mail：(半角：連絡用ですのでこれは載りませんが必ず書いてください。アドレスは他には流用しませんのでご安心を。)

  説明：
※半角のクオーテーション、アポストロフィー、コンマ( ' " , ) を使うとエラーがでますので、その場合全角でお願いします
※説明文も検索キーワードになりますので、説明をよろしくお願いします。

※登録解除のコマンドがありませんので、間違って登録した場合はＴＮＫまでお知らせください。 <% Else ttl = Request.Form("title") ttl = Replace(ttl,"sex","●") ttl = Replace(ttl,"SEX","●") ttl = Replace(ttl,"ＳＥＸ","●") ttl = Replace(ttl,"ばか","●") ttl = Replace(ttl,"アホ","●") ttl = Replace(ttl,"<","(") ttl = Replace(ttl,">",")") ttl = Replace(ttl,"'","’") ttl = Replace(ttl,",","，") ttl = Replace(ttl,"死","●") ttl = Replace(ttl,"TNK","●") ttl = Replace(ttl,"管理","●") ttl = Replace(ttl,"殺","●") ttl = Replace(ttl,"まんこ","●") ttl = Replace(ttl,"マンコ","●") des = Request.Form("descript") des = Replace(des,"SEX"," ") des = Replace(des,"<","(") des = Replace(des,">",")") des = Replace(des,"'","’") des = Replace(des,"sex"," x") des = Replace(des,"死"," ") des = Replace(des,"殺"," ") des = Replace(des,"管理"," ") des = Replace(des,"TN","K") des = Replace(des,"ＴＮＫ","G") des = Replace(des,"バカ","変") des = Replace(des,"アホ","--") des = Replace(des,"ばか","愛") des = Replace(des,"まんこ","-") des = Replace(des,"マンコ","＊") datt = now() Set db2 = Server.CreateObject("ADODB.Connection") db2.Open "guest" SQL3 = "SELECT * FROM word WHERE((word.title)='" & ttl & "')" Set rs=db.Execute(SQL3) SQL3="INSERT INTO word(title,ip,url,category,sdat,descript)" &_ "VALUES('" & ttl & "','" & ipadr & "','" & Request.Form("url") & "','" & Request.Form("category") &_ "',#" & datt & "#,'" & des & "')" db2.Execute(SQL3) rs.Close db2.Close Set db2 = Nothing Response.Write "

登録ありがとうございました m(-_-)m。

(" & ipadr & ")
ＩＰ アドレスを表示するようにしました

" End If %>