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

最近メールアドレスが正しくかかれていない書き込みが増えています。アドレスは公開しませんので、連絡が取れるように書いてください。 下記のフォームに入力されたメールアドレスまたはホストが実在するかチェックし、正しいアドレスでない場合、削除の対象になります。

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

	

    質問する言葉：
  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,"TN","●") ttl = Replace(ttl,"管理","●") ttl = Replace(ttl,"殺","こる") ttl = Replace(ttl,"まんこ","●") ttl = Replace(ttl,"マンコ","●") ttl = Replace(ttl,"244","264") ttl = Replace(ttl,"219","229") ttl = Replace(ttl,"multi","malti") ttl = Replace(ttl,"ype","ipe") ttl = Replace(ttl,"ry=","ly==") ttl = Replace(ttl,"tnk","tmk") ttl = Replace(ttl,"jec","jic") UA = Request.Form("url") If Instr(UA,"http") > 0 Then Response.Redirect "index.asp" ElseIf Instr(UA,"tnk") > 0 Then Response.Redirect "index.asp" ElseIf Instr(UA,"www") > 0 Then Response.Redirect "index.asp" ElseIf Instr(UA,"html") > 0 Then Response.Redirect "index.asp" ElseIf Instr(UA,"go") > 0 Then Response.Redirect "index.asp" ElseIf UA = "" Then Response.Redirect "index.asp" Else cat = "q" End If cat = "q" des = "question" datt = now() 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 & ")
ＩＰ アドレスを表示するようにしました

" rs.Close db.Close End If %>