验证提交网址

dim   concenturl  
  concenturl=""  
    
  if   trim(concenturl)<>""   and   checkserver(concenturl)=false   then  
  response.write   "document.write   ('数据被保护,禁止被其他站点调用!');"  
  response.end  
  end   if