可以查询百度排名的asp源码放送了(3)

        objstream.Open 
        objstream.Write body 
        objstream.Position = 0 
        objstream.Type = 2 
        objstream.Charset = Cset 
        BytesToBstr = objstream.ReadText  
        objstream.Close 
        set objstream = nothing 
End Function 
Public Function HTMLEncode(fString) 
  If Not IsNull(fString) Then 
   fString = replace(fString, ">", ">") 
   fString = replace(fString, "<", "<") 
   fString = Replace(fString, CHR(32), " ")  '  
   fString = Replace(fString, CHR(9), " ")   '  
   fString = Replace(fString, CHR(34), """) 
   fString = Replace(fString, CHR(39), "'") '单引号过滤 
   fString = Replace(fString, CHR(13), "") 
   fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ") 
   fString = Replace(fString, CHR(10), "<BR> ") 
   HTMLEncode = fString 
  End If 
 End Function 




%> 
<title>关键字,网站在百度中排名查询</title> 
<hr><hr><b> 
关键字,网站在百度中排名查询: 
<form name="form1" method="post" action="?action=1"> 
  网址: 
    <input type="text" name="url" value="<%=url%>"> 
 关键字: 
 <input type="text" name="word" value="<%=word%>"> 
 查询范围: 
 <select name="bpn"> 
  <option value="0" <%if(bpn = "0")then response.write("selected") end if%>>1-100</option> 
  <option value="10" <%if(bpn = "10")then response.write("selected") end if%>>101-200</option> 
  <option value="20" <%if(bpn = "20")then response.write("selected") end if%>>201-300</option> 
  <option value="30" <%if(bpn = "30")then response.write("selected") end if%>>301-400</option>