plus/comment.asp的保存页面加上判断看看了

  '保存发表
  Sub WriteSave()   
  Dim UserName,Email,C_Content,Verific,Anonymous,point,VerifyCode,Pass,Flag,ComeUrl
  Flag=KS.S("Flag")
  ComeUrl=Request.ServerVariables("HTTP_REFERER")

  if comeurl="" then response.end

if instr(lcase(comeurl),"comment.asp")<=0 then
   Response.end
   end if