<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% dim king,action:action=request("action") set king=new kingcms king.head 0,0 select case action case"","del" king_def() case else king.error("system/error") end select king_outhtm set king=nothing 'def *** *** www.KingCMS.com *** *** sub king_def() dim classid,supid,sql,rs,i,userip,commentcontent,commentisopen,commentischeck,menupath,commsql dim list,data,menuid,outtitle king.rn=10 list=llll("list") classid=l1ll("classid",2) if cstr(classid)="" then classid=llll("classid") supid=l1ll("supid",2) if cstr(supid)="" then supid=llll("supid") if II11(classid,2)=false or II11(supid,2)=false then king.error("system/error") if len(list)>0 then'当list有值的时候,进行验证。 if II11(list,6)=false then king.error("system/error") end if commentcontent=lll("commentcontent") set rs=conn.execute("select commentisopen,commentischeck from "&king.getTable("kingsystem")&" where systemname='KingCMS';") if not rs.eof and not rs.bof then commentisopen=rs(0) commentischeck=rs(1) end if set rs=nothing if llll(l1l(left(ll11l("111"),16)))=l1l(ll11l("111")) and len(list)>0 and cstr(king.level)="2" and action="del" then'删除帖子 select case llll("submits") case king.lang("common/del") conn.execute "delete from "&king.getTable("kingcomment")&" where commentid in ("&list&");" case king.lang("stage/comment/check") conn.execute "update "&king.getTable("kingcomment")&" set iscomment=0 where commentid in ("&list&");" end select if len(request.ServerVariables("http_referer"))>0 then response.redirect request.ServerVariables("http_referer") else response.redirect king.page&"?supid="&supid&"&classid="&classid&"&pid="&king.pid&"&rn="&king.rn end if end if select case cstr(classid) case"2" set rs=conn.execute("select arttitle,artpath,artdate,menuid,artgrade,artid from "&king.getTable("kingart")&" where artid="&supid&";")'5 if not rs.eof and not rs.bof then kingtitle="["&king.lang("comment/title")&"]"&rs(0) outtitle=rs(0) menuid=rs(3) menupath=conn.execute("select menupath from "&king.getTable("kingmenu")&" where menuid="&menuid&";")(0) if cstr(rs(4))="0" then if cstr(king.named)="0" then kingguide=""&htmlencode(rs(0))&"" else kingguide=king.guide(menuid)&""&htmlencode(rs(0))&"" end if else select case cstr(rs(4)) case"1" king.range 1,0 case"2" king.range 4,0 end select kingguide=king.guide(menuid)&""&htmlencode(rs(0))&"" end if else king.error("system/error") end if set rs=nothing commsql="select top 6 artid,arttitle from "&king.getTable("kingart")&" where artshow=1 order by artrehit desc,artid desc;" end select sql="commentid,commentcontent,iscomment,username,userip,support,commentdate"'6,recommentid if king.level=2 then king.open "select "&sql&" from "&king.getTable("kingcomment")&" where classid="&classid&" and supid="&supid&" order by commentdate desc;",king.page&"?pid=$&classid="&classid&"&supid="&supid,1 else king.open "select "&sql&" from "&king.getTable("kingcomment")&" where iscomment=0 and classid="&classid&" and supid="&supid&" order by commentdate desc;",king.page&"?pid=$&classid="&classid&"&supid="&supid,1 end if ol=ol&"
" ol=ol&"

"&htmlencode(outtitle)&"

" if king.level=2 then ol=ol&"
" end if ol=ol&king.plist ol=ol&"
" ' out king.length for i=0 to king.length userip=left(king.data(4,i),instrrev(king.data(4,i),"."))&"*" ol=ol&"
" if king.level=2 then ol=ol&"" if cstr(king.data(2,i))="1" then ol=ol&""&king.lang("comment/not")&" " end if end if if lcase(king.data(3,i))="guest" then ol=ol&""&king.lang("user/guest")&"" else ol=ol&""&king.data(3,i)&"" end if ol=ol&""&userip&""&king.data(6,i)&"
" ol=ol&"
" ol=ol&ll111(king.data(1,i)) ol=ol&"
" next if king.length=-1 then ol=ol&"
"&king.lang("comment/none")&"
" end if ol=ol&"
" ol=ol&king.plist if king.level=2 then ' out king.length if king.length>=0 then ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&" " ol=ol&" " ol=ol&"" end if ol=ol&"
" end if ol=ol&"
" if cstr(commentischeck)="0" or king.id>0 then'允许任何人发布 ol=ol&"
" ol=ol&"
" ol=ol&"" if action="" then ol=ol&king.check("commentcontent|6|stage/comment/tip/nonecontent|1-1000") end if ol=ol&"
" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&" " ol=ol&"" ol=ol&"
" ol=ol&"
" ol=ol&"
"&king.lang("comment/hot")&"
" set rs=conn.execute (commsql) 'commsql: artid,arttitle if not rs.eof and not rs.bof then data=rs.getrows() for i=0 to ubound(data,2) ol=ol&"
"&cstr(i+1)&") " ol=ol&king.lefte(htmlencode(data(1,i)),40)&"
" next end if set rs=nothing ol=ol&"
" ol=ol&"
" end if if llll(l1l(left(ll11l("111"),16)))=l1l(ll11l("111")) and king.checkerr and len(trim(commentcontent))>0 then'提交保存信息 if cstr(commentischeck)="1" then king.range 1,0 conn.execute "insert into "&king.getTable("kingcomment")&" (commentcontent,iscomment,username,userip,commentdate,supid,classid) values ('"&king.dirty(commentcontent)&"',"&commentisopen&",'"&king.name&"','"&king.ip&"','"&tnow&"',"&supid&","&classid&");" conn.execute "update "&king.getTable("kingart")&" set artrehit=artrehit+1 where artid="&supid&";" response.redirect king.page&"?supid="&supid&"&classid="&classid&"&pid="&king.pid&"&rn="&king.rn end if end sub 'out *** *** www.KingCMS.com *** *** sub king_outhtm()%> <%=kingtitle%>
<%=kingguide%>  广告发布电话:027-59400918  彭先生
<%=ol%>
Copyright© 2006-2007 WWW.CNCITYMAP.COM All Rights Reserved.
<%end sub%>