略語(KY語)登録
最近ＫＹ語とも言われている、アルファベットで省略した言葉と意味を登録してください。
※プライバシー保護のため、特定の人に関わる｢あだ名」などの登録はご遠慮ください。※(他人を誹謗中傷する語は削除します)

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

	

    登録する言葉：
  E-mail：(半角：連絡用ですのでこれは載りませんが必ず書いてください。アドレスは他には流用しませんのでご安心を。)

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

※登録解除のコマンドがありませんので、間違って登録した場合はＴＮＫまでお知らせください。 <% Else ttl = Request.Form("title") des = Request.Form("descript") If Instr(ttl,"http") > 0 Then Response.Redirect "index.asp" ElseIf Instr(ttl,"href") > 0 Then Response.Redirect "index.asp" ElseIf Instr(des,"http") > 0 Then Response.Redirect "index.asp" ElseIf Instr(des,"href") > 0 Then Response.Redirect "index.asp" ElseIf Instr(des,"://") > 0 Then Response.Redirect "index.asp" ElseIf Instr(des,"HREF") > 0 Then Response.Redirect "index.asp" ElseIf Instr(ttl,"://") > 0 Then Response.Redirect "index.asp" End If 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 = 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() cat = "rya" Set db=Server.CreateObject("ADODB.Connection") db.Open "word09" SQL="SELECT * FROM word WHERE((word.title)='" & ttl & "')" Set rs=db.Execute(SQL) SQL1="INSERT INTO word(title,ip,url,category,sdat,descript)" &_ "VALUES('" & ttl & "','" & ipadr & "','" & Request.Form("url") & "','" & cat & "',#" & datt & "#,'" & des & "')" db.Execute(SQL1) Response.Write "

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

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

" Response.Write "" End If %>