asp空间奸商查询系统

2024-12-22 09:26:01

看到很多朋友无缘无故的被骗，特发布此查询系统，以免再次上当！
使用方法非常简单：
直接输入对方的域名或者网站名称，支持中英文！点查询即可

代码如下:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
On Error Resume Next
ff="垃圾,是垃圾,骗子,无耻,不要买,骗钱,垃圾空间,垃圾中的极品,垃圾中的垃圾,经常掉线,无缘无故的关闭"
if Request.Form("checkbox")<>"" then
ff=Replace(Replace(request.Form("zff")," ",""),chr(13),",")
End if

if request.Form("st")="baidu" then
Url="http://www.baidu.com/s/"
End if
Class PostForm
Public form

Function AddItem(Key, Value)
    'On Error Resume Next
    Dim TempStr
    If form = "" Then
       form = Key + "=" + Server.URLEncode(Trim(Value))
    Else
       form = form + "&" + Key + "=" + Server.URLEncode(Trim(Value))
    End If
End Function

End Class

Function OpenXHttp(QuUrl,QuStr)

Set XML = CreateObject("Microsoft.XMLHTTP")
        XML.Open "GET", QuUrl & "?" & QuStr, False
    XML.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    XML.Send
    IsSuccess = XML.Responsebody
    XML.Abort()
    Set XML =  Nothing
    Set BytesStream = CreateObject("ADODB.Stream")
    BytesStream.Type = 2
    BytesStream.Open
    BytesStream.WriteText IsSuccess
    BytesStream.Position = 0
    BytesStream.Charset = "GB2312"
    BytesStream.Position = 2
    StringReturn = BytesStream.ReadText
    BytesStream.Close
    Set BytesStream = Nothing
    OpenXHttp = StringReturn
End Function

'声明截取的范围
Function GetKey(HTML,Start,Last)
filearray=split(HTML,Start)
filearray2=split(filearray(1),Last)
GetKey=filearray2(0)
End Function

Function SearchT(byval strdomain,byval key,byval t)
    keys="site:"&strdomain&" "&key
    Set Reg = New PostForm
    If t="baidu" then
        call Reg.AddItem("wd",keys)
        call Reg.AddItem("cl","3")
        SearchT = OpenXHttp (Url,Reg.form)
        Set Reg = Nothing
        If Instr(SearchT,"百度一下，找到相关网页")<>0 then
        Response.write "<font color=red>有"&GetKey(SearchT,"百度一下，找到相关网页","篇")&"条相关信息</font>"
        '百度一下，找到相关网页1篇
        elseif Instr(SearchT,"抱歉，没有找到与")<>0 then
        Response.write "无相关信息"
        end if
    End if
End Function
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>空间商信息查询系统</title>
<Script>
function input_ok()
{form1.Submit.style.display='none';tit.style.display='block';return true;}
</Script>
</head>

<body>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="49%" valign="top"><table border="0" cellspacing="0" cellpadding="0">
      <form action="" method="post" name="form1" id="form1">
        <tr>
            <td colspan="2"><font size="5">空间商信息查询系统</font></td>
        </tr>
        <tr>
            <td colspan="2">使用办法：直接输入域名或者对方网站的名称即可！</td>
        </tr>
        <tr>
          <td colspan="2"><table border="0" cellspacing="0" cellpadding="3">
              <tr>
                <td>网站访问域名</td>
                <td><input name="strdomain" type="text" id="strdomain" value="<%=request.Form("strdomain")%>"/></td>
                <td><select name="st">
                    <option value="baidu">百度</option>
                  </select>
                </td>
                <td width="100"><input type="submit" name="Submit" value="查询" accesskey="S"  onclick="return input_ok()"/>
                    <div style="display:none" id="tit"> <font color="#FF0000">请稍候
                      <marquee direction="right" width="20" scrollamount="3">
                        ……
                      </marquee>
                  </font></div></td>
              </tr>
          </table></td>
        </tr>
        <tr>
          <td height="25" colspan="2">本搜索将只在一页显示所有结果，数据过多将较为耗时．</td>
        </tr>
        <tr>
          <td width="20" valign="top"><input type="checkbox" name="checkbox" value="checkbox" onclick="showadv()" /></td>
          <td width="426" valign="top" id="advancev">是否采用默认关键字、词</td>
        </tr>
        <tr>
          <td colspan="2" valign="top" id="advvv" style="DISPLAY: none" name="advvv"><textarea name="zff" cols="50" rows="20" wrap="virtual"><%=Replace(ff,",",chr(13))%></textarea></td>
        </tr>
        <tr>
            <td colspan="2" valign="top"> </td>
        </tr>
      </form>
    </table></td>
    <td width="51%" valign="top"><%if request.Form()<>"" then%>
      <table border="0" align="center" cellpadding="5" cellspacing="0">
        <tr>
          <td width="100">关键字</td>
          <td width="150">结果</td>
          <td width="80"> </td>
        </tr>
      </table>
      <%For i=0 to ubound(split(ff,","))%>
      <table border="0" align="center" cellpadding="5" cellspacing="0">
        <tr>
          <td width="100"><%=split(ff,",")(i)%></td>
          <td width="150"><%Call SearchT(Request.Form("strdomain"),split(ff,",")(i),Request.Form("st"))%></td>
          <td width="80"><%if request.Form("st")="baidu" then%>
              <a href="http://www.baidu.com/s?wd=<%=Request.Form("strdomain")%>+<%=split(ff,",")(i)%>&cl=3" target="_blank">详细</a>
              <%end if%>
          </td>
        </tr>
      </table>
      <%Next%>
      <table border="0" align="center" cellpadding="5" cellspacing="0">
        <tr>
          <td>共查询关键字词<%=ubound(split(ff,","))+1%>个．</td>
        </tr>
      </table>
      <%end if%>
    </td>
  </tr>
</table>
<script language="JavaScript" type="text/javascript">
<!--
function showadv(){

if (document.form1.checkbox.checked == true) {
    document.getElementById("advvv").style.display = "block";
    document.getElementById("advancev").innerHTML="自定义关键字、词（每个关键词用回车分隔或半角逗号分隔）";
}else{
    document.getElementById("advvv").style.display = "none";
    document.getElementById("advancev").innerHTML="默认关键字、词";
}

}
//-->
</script>
落伍【请教高手】
</body>
</html>

asp空间奸商查询系统

看到很多朋友无缘无故的被骗,特发布此查询系统,以免再次上当! 使用方法非常简单: 直接输入对方的域名或者网站名称,支持中英文!点查询即可复制代码代码如下: <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% On Error Resume Next ff="垃圾,是垃圾,骗子,无耻,不要买,骗钱,垃圾空间,垃圾中的极品,垃圾中的垃圾,经常掉线,无缘无故的关闭" if Request.Form
东方彩虹网络为您提供80M免费ASP空间服务

东方彩虹网络为您提供80M免费ASP空间服务,本空间未得到本站测试认证.信息来源于其他免费资源的站点.以下我转贴一下supfree里的信息.请大家自行分辨真假. 东方彩虹网络提供80M免费动态空间申请,空间主站注册ID后去论坛发帖申请免费冲值该ID申请空间所需费用,最后在空间站就可以即时申请开通了,带控制面板,可绑顶米,空间支持HTML.ASP.FSO.ACCESS等,支持FTP上传管理方式,空间很适合网页爱好者和个人网站使用!有需要的网友去看看! 该空间是论坛发帖申请开通的,请不要恶意过度灌水
四博互联为您提供50M-100M免费ASP空间服务

四博互联为您提供50M-100M免费ASP空间服务,支持ASP+ACCESS,支持FTP管理.送三级域名. 带宽限制:100K/秒最大连接数(IIS限制):20个使用期限:个人空间50M免费使用年.企业用户100M免费使用半年. 另外注释: 免费主机空间成功开通后,可使用四博互联提供的免费流量统计系统,该流量统计结果作为,的唯一衡量标准:免费主机空间站点,天平均流量达到200独立IP以上,站长可提出申请,免费主机空间可以升级到100M. 申请地址:http://www.supernic.cn/f
中国IT站长站为您提供100M免费ASP空间服务

中国IT站长站为您提供100M免费ASP空间服务.中国IT站长站提供100M免费动态空间申请,即时申请就开通的,可以绑定顶米,空间支持HTML.ASP.FSO.ACCESS等,支持FTP上传管理方式,空间很适合网页爱好者和个人网站使用!有需要的网友去看看! 该空间是自助即时申请开通的,请不要恶意反复过度申请多个空间! 他们的声明: 特惠虚拟主机asp100 型号: 免费型ASP主机100M(asp100型) www.free68.net) 价格: 0元/年内容: 拥有管理控制面板,可进行
一个简单的java学生寝室查询系统

本文实例为大家分享了java学生寝室查询系统的具体代码,供大家参考,具体内容如下前端部分: index.html <!DOCTYPE html> <html lang="en"> <head> <meta charset="UTF-8"> <title>AHPU Freshman dormitory inquiry</title> <script src="confirm.js
Python脚本实现12306火车票查询系统

最近我看到看到使用python实现火车票查询,我自己也实现了,感觉收获蛮多的,下面我就把每一步骤都详细给分享出来.(注意使用的是python3) 首先我将最终结果给展示出来: 在cmd命令行执行:python tickets.py -dk shanghai chengdu 20161007 > result.txt 意思是:查询上海--成都 2016.10.07 的D和K开头的列车信息,并保存到 result.txt文件中:下面就是result.txt文件中的结果: 下面的将是实现步骤: 1.
IP查询系统的异步回调案例

话不多说,请看代码: package com.lxj.demo; import java.io.BufferedReader; import java.io.IOException; import java.io.InputStreamReader; import java.net.MalformedURLException; import java.net.URL; public class Http extends Thread{ // 下载结束的回调接口 public interface
利用Vue.js框架实现火车票查询系统（附源码）

前言 Vue.js是当下很火的一个JavaScript MVVM库,它是以数据驱动和组件化的思想构建的.相比于Angular.js,Vue.js提供了更加简洁.更易于理解的API,使得我们能够快速地上手并使用Vue.js 今天,我就要基于这个库来搭建一个火车票查询系统.首先我们的机器上得有NodeJS环境,并且安装了npm包管理工具.因为vue是跑在node环境下的,并且我们需要用npm来安装vue. 在终端输入npm install --global vue-cli我们来全局安装vue-cli
ET空间为您提供30M免费ASP空间服务

ET空间址为您提供30M免费ASP空间服务,有广告．支持ASP+ACCESS+PHP. IIS限制在20个以内,送二级域名,支持WEB+FTP管理. 申请的时候请要你填写身份证信息请填写真实,还有邮箱也必须真实,他们会把密码发送到你的邮箱内. 其他资料他们都没有提供.不太清楚了.具体由大家自己去看. 申请地址:http://66et.net
融龙数据为您提供30M免费ASP空间服务

融龙数据为您提供30M免费ASP空间服务,可以支持运行HTML/SHTML/ASP/PHP语言,支持ACCESS/MYSQL数据库. 申请地址:http://www.8xm.cn/

asp空间奸商查询系统

相关推荐

随机推荐