<!-#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
응답. "데이터의 외부 제출 금지"
응답. 엔드
endif
iflen (request.form ( "frmcontent"))> 1000then
response.write "입력 컨텐츠는 지정된 문자 수를 초과합니다"
응답. 엔드
endif
ifrequest.cookies ( "Visitime") <> "" "그런 다음
ifdatediff ( "s", request.cookies ( "visitime"), now ()) <60then
response.write "1 분 이내에 의견을 반복적으로 제출하지 마십시오"
응답. 엔드
endif
endif
count = "� � �
connts = split (connt, ",")
foreachglwordinconnts
ifinstr (request.form ( "frmcontent"), glword) <> 0then
Response.Write "이 키워드가 필터링되었습니다"
응답. 엔드
endif
다음
Dimusernam, 댓글
Dimfieldlist, Valuelist
username = request.form ( "사용자 이름")
댓글 = request.form ( "댓글")
newsid = request.form ( "newsid")
ifusername = ""orcomments = ""그런 다음
response.write ( "이름 또는 내용이 채워지지 않음")
응답 ()
endif
FieldList = array ( "사용자 이름", "댓글", "NewsId")
Valuelist = 배열 (사용자 이름, 댓글, NewsId)
setObjrs = server.createObject ( "adodb.recordset")
objrs.open "피드백", objconn, 1,2
objrs.addnewfieldlist, Valuelist
closei ()
응답 .cookies ( "Visitime") = now ()
Response.Redirect (Server_v1)
%>