日期:2009-12-14  浏览次数:20835 次

  1. <
  2.  
  3. if trim(request.form("url"))<>"" then 
  4.  
  5. dim VBody:VBody=GetResStr(trim(request.form("url"))) 
  6.  
  7. dim Res:Res=VBody 
  8.  
  9. dim code:code=GetCode(VBody,"charset= {0,}([^ ]+) {0,}""") 
  10.  
  11. end if 
  12.  
  13. %> 
  14.  
  15. <html> 
  16.  
  17. <head> 
  18.  
  19. <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
  20.  
  21. <title>抓取页面</title> 
  22.  
  23. </head> 
  24.  
  25. <body style="font-size:12px;margin:50px 0 0 20px;"> 
  26.  
  27. <form name="geturl" action="ss.asp" method="post"> 
  28.  
  29. 请输入%20name=" type=text value="<%=trim(request.form(" P >>< <input > url?))%>size=