<！ - ＃includefile = "common/conn.asp" - >
<！ - ＃includefile = "common/sub.asp" - >
<％
server_v1 = cstr（request.servervariables（ "http_referer"））
Response.write（server_v1）
server_v2 = cstr（request.servervariables（ "server_name"））
ifmid（server_v1,8、len（server_v2））<> server_v2then
Response.Write「データの外部提出を禁止」
Response.End
endif
iflen（request.form（ "frmcontent"））> 1000then
Response.Write「入力コンテンツは、指定された文字の数を超えています」
Response.End
endif
ifrequest.cookies（ "visitime"）<> "" then
ifdatediff（ "s"、request.cookies（ "visitime"）、now（））<60then
Response.Write「1分以内に繰り返しコメントを送信しないでください」
Response.End
endif
endif
count = "全公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公�
connts = split（connt、 "、"）
foreachglwordinconnts
ifinstr（request.form（ "frmcontent"）、glword）<> 0then
Response.Write「このキーワードはフィルタリングされています」
Response.End
endif
次
Dimusernam、コメント
DimfieldList、Valuelist
username = request.form（ "username"）
コメント= request.form（ "コメント"）
NewsID = request.form（ "NewsID"）
ifusername = "" orcomments = "" then
respons.write（ "名前またはコンテンツが記入されていない"）
Response.End（）
endif
fieldlist = array（ "username"、 "comments"、 "NewsID"）
valuelist = array（username、comments、newsid）
setobjrs = server.createObject（ "adodb.recordset"）
objrs.open「フィードバック」、objconn、1,2
objrs.addnewfieldlist、valuelist
closei（）
Response.Cookies（ "Visitime"）= now（）
Response.redirect（server_v1）
％>