<% '*** *** *** *** *** ' 发帖页面 '*** *** *** *** *** dim fb set king=new kingcms king.checkplugin king.path'检查插件安装状态 set fb=new feedback1 king_def set fb=nothing set king=nothing 'def *** Copyright © KingCMS.com All Rights Reserved. *** sub king_def() dim sql,data,dataform,i,re,count sql="fbtitle,fbcontent,fbname,fbmail,fbtel,fbphone" re=request.servervariables("http_referer") if len(form("re"))>0 then re=form("re"):if len(re)=0 then re="/" if king_dbtype=1 then count=conn.execute("select count(*) from king"&fb.path&" where fbip='"&safe(king.ip)&"' and getdate()-fbdate<0.25;")(0) else count=conn.execute("select count(*) from king"&fb.path&" where fbip='"&safe(king.ip)&"' and now()-fbdate<0.25;")(0) end if if cdbl(count)" king.ol="

" king.ol="" king.ol=king.check("fbtitle|6|"&encode(fb.lang("check/title"))&"|4-50")&"

" king.ol="

" king.ol=king.ubbshow("fbcontent",htmlencode(data(1)),60,10,0) king.ol=king.check("fbcontent|6|"&encode(fb.lang("check/content"))&"|10-1000")&"

" king.ol="

" king.ol="" king.ol=king.check("fbname|6|"&encode(fb.lang("check/name"))&"|2-30")&"

" king.ol="

" king.ol="" king.ol=king.check("fbmail|6|"&encode(fb.lang("check/mail"))&"|6-100;fbmail|4|"&encode(fb.lang("check/mail")))&"

" king.ol="

" king.ol="" king.ol=king.check("fbtel|6|"&encode(fb.lang("check/tel"))&"|0-30")&"

" king.ol="

" king.ol="" king.ol=king.check("fbphone|6|"&encode(fb.lang("check/phone"))&"|0-30")&"

" king.ol="
" king.ol=" " king.ol="" king.ol="
" king.ol="" if king.ismethod and king.ischeck then conn.execute "insert into king"&fb.path&" ("&sql&",fbip,fbdate) values ('"&safe(data(0))&"','"&safe(data(1))&"','"&safe(data(2))&"','"&safe(data(3))&"','"&safe(data(4))&"','"&safe(data(5))&"','"&safe(king.ip)&"','"&safe(tnow)&"');" king.clearol king.ol="
" king.ol="
    " king.ol="
  1. "&fb.lang("list/ok")&"
    2. " king.ol="
  2. "&fb.lang("list/home")&"
    3. " king.ol="
  3. "&re&"
    4. " king.ol="
" king.ol="
" end if else king.ol="
" king.ol="
    " king.ol="
  1. "&fb.lang("list/iplock")&"
    2. " king.ol="
  2. "&fb.lang("list/home")&"
    3. " king.ol="
  3. "&re&"
    4. " king.ol="
" king.ol="
" end if king.value "title",encode(fb.lang("common/title")) king.value "inside",encode(king.writeol) king.outhtm fb.template,"",king.invalue end sub %>