用XMLHTTP来偷东西哈！
程序员文章站
2022-10-31 13:57:04
只做了一部份，ip查询请大家自己照着我里边的样例自己完成吧！演示：<%@language="vbscript" codepage="936"%><...
只做了一部份，ip查询请大家自己照着我里边的样例自己完成吧！
演示：
<%@language="vbscript" codepage="936"%>
<!doctype html public "-//w3c//dtd xhtml 1.0 transitional//en" "http://www.w3.org/tr/xhtml1/dtd/xhtml1-transitional.dtd">
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=gb2312" />
<meta name="author" content="goaler" />
<meta name="keywords" content="手机号码归属地,ip,google pr,邮编,身份证,查询,升位,goaler,www.goalercn.com" />
<meta name="description" content="手机号码归属地,ip,google pr,邮编,身份证,查询,升位,goaler,www.goalercn.com" />
<title>常用查询</title>
<style type="text/css">
<!--
body {font:14px tahoma,verdana,"宋体"}
input,object {color: #000000;font:12px tahoma,verdana,"宋体";}
form {margin:0}
a:link{color:#000066;text-decoration:none}
a:visited{color:#000066;text-decoration:none}
a:hover{color:#ff8d00;text-decoration:underline}
-->
</style>
<script language="javascript">
<!--
string.prototype.trim = function()
{
return this.replace(/(^\s*)|(\s*$)/g, "");
}
function checkmobile(){
var smobile = document.mobileform.mobilenumber.value.trim();
if(!(/^13[0-9]\d{4,8}$/.test(smobile))){
alert("请输入完整的11位手机号或手机号前七位");
document.mobileform.mobilenumber.focus();
return false;
}
}
function checkpr()
{
if (document.prform.domainname.value.trim() == "")
{
return false;
}
}
function checkzone2numberform()
{
if (document.zone2numberform.zonename.value.trim() == "")
{
alert("请输入地区名称！");
document.zone2numberform.zonename.focus();
return false;
}
}
function checknumber2zoneform()
{
var szonenumber = document.number2zoneform.zonenumber.value.trim();
if (!(/^0\d{2,3}$/.test(szonenumber)))
{
alert("请输入3位或4位区号");
document.number2zoneform.zonenumber.focus();
return false;
}
}
function checkidentityform()
{
var sidentitynumber = document.identityform.identitynumber.value.trim();
if (!(/^\d{15}$|^\d{18}$|^\d{17}x$/.test(sidentitynumber)))
{
alert("请输入15位或18位身份证号码");
document.identityform.identitynumber.focus();
return false;
}
}
function checkidentityupform()
{
var sidentitynumber = document.identityupform.identitynumber.value.trim();
if (!(/^\d{15}$/.test(sidentitynumber)))
{
alert("请输入15位身份证号码");
document.identityupform.identitynumber.focus();
return false;
}
}
//-->
</script>
</head>
<body>
<%
'==========请保留以下信息===============
'作者(author)：goaler
'主页(homepage)：
'=======================================
on error resume next
dim url,poststr,stype,getcontent,i
stype = trim(request.querystring("stype"))
%>
<fieldset>
<legend><strong>手机号归属地查询</strong></legend>
<div>
<%
dim mobilenumber
mobilenumber = trim(request.form("mobilenumber"))
%>
<div style="padding-left:23px;margin-bottom:8px;">
<form method="post" name="mobileform" action="searcher.asp?stype=mobile" onsubmit="return checkmobile()">
请输入手机号码段：<input type="text" name="mobilenumber" value="<%=mobilenumber%>" onfocus="select()" /> <input type="submit" id="subbtn" value="查 询" />
输入完整的11位手机号或手机号前七位
</form>
</div>
<%
if(stype = "mobile" and mobilenumber<>"")then
dim getarea,gettype
poststr = "action=mobile&mobile="&mobilenumber
getcontent=geturl("http://www.ip138.com:8080/search.asp",poststr)
getarea = regexptext(getcontent,"卡号归属地</td>((.|\n)*?)</td>")
gettype = regexptext(getcontent,"卡 类 型</td>((.|\n)*?)</td>")
response.write("<ul>")
response.write("<li><strong>手机号码段：</strong><font color=""#008000""><strong>" & mobilenumber & "</strong></font></li>")
response.write("<li><strong>号码归属地：</strong><font color=""#008000""><strong>" & replace(getarea,",","") & "</strong></font></li>")
response.write("<li><strong>卡 类 型：</strong><font color=""#008000""><strong>" & replace(gettype,",","") & "</strong></font></li>")
response.write("</ul>")
end if
%>
</div>
</fieldset>
<fieldset>
<legend><strong>google pr 值查询</strong></legend>
<div>
<%
dim domainname
domainname = replace(replace(lcase(trim(request.form("domainname"))),"www.",""),"http://","")
%>
<div style="padding-left:23px;margin-bottom:8px;">
<form name="prform" method="post" action="searcher.asp?stype=pr" onsubmit="return checkpr()">
请输入域名 ：www.<input type="text" name="domainname" value="<%=domainname%>" /> <input type="submit" value="提 交" />
不要带
</form>
</div>
<%
if(stype = "pr" and domainname<>"")then
poststr = ""
getcontent=geturl("http://so.5eo.com/info.php?action=ra ... "&domainname,poststr)
getcontent=regexptext(getcontent,"在满分10分评价中获得 <font color=#fb5e3c>((.|\n)*?)</font> 分")
'getcontent=replacekey(getcontent,"在满分10分评价中获得 <font color=#fb5e3c>|||||</font> 分")
dim arraypr
arraypr=split(getcontent,",")
response.write("<ul>")
response.write("<li><a href=""http://"&domainname&""" target=""new""><font color=" ... t;&domainname&"</strong></font></a> 的google pagerank值：<font color=""#ff0000""><strong>"&arraypr(0)&"</strong></font></li>")
response.write("<li><a href=""http://www."&domainname&""" target=""new""><font color=" ... uot;&domainname&"</font></strong></a> 的google pagerank值：<font color=""#ff0000""><strong>"&arraypr(1)&"</strong></font>")
response.write("</ul>")
end if
%>
</div>
</fieldset>
<fieldset>
<legend><strong>地区<->区号查询</strong></legend>
<div>
<div style="padding-left:23px;margin-bottom:8px;">
<%
dim zonename
zonename = trim(request.form("zonename"))
%>
<form name="zone2numberform" method="post" action="searcher.asp?stype=zone2number" onsubmit="return checkzone2numberform()">
地 区 <strong>→</strong> 区 号：<input type="text" name="zonename" value="<%=zonename%>" onfocus="select()" /> <input type="submit" value="提 交" />
</form>
</div>
<%
if(stype = "zone2number" and zonename <> "")then
dim getnumber,arraynumber
poststr = "area=" & escape(zonename) & "&action=area2zone"
getcontent=geturl("http://www.ip138.com/post/search.asp",poststr)
getnumber = regexptext(getcontent,"<tr><td class=tdc2>◎((.|\n)*?)</td>")
response.write("<ul>")
if(getnumber="")then
response.write("<li><strong><font color=""#ff0000"">没有搜索到记录</font></strong></li>")
else
arraynumber = split(getnumber,",")
if(isarray(arraynumber))then
for i=0 to ubound(arraynumber)-1
response.write("<li><strong><font color=""#008000"">"&replace(arraynumber(i),",","")&"</font></strong></li>")
next
else
response.write("<li><strong><font color=""#008000"">"&replace(getnumber,",","")&"</font></strong></li>")
end if
end if
response.write("</ul>")
end if
dim zonenumber
zonenumber = trim(request.form("zonenumber"))
%>
<div style="padding-left:23px;margin-bottom:8px;">
<form name="number2zoneform" method="post" action="searcher.asp?stype=number2zone" onsubmit="return checknumber2zoneform()">
区 号 <strong>→</strong> 地 区：<input type="text" name="zonenumber" value="<%=zonenumber%>" onfocus="select()" /> <input type="submit" value="提 交" />
</form>
</div>
<%
if(stype = "number2zone" and zonenumber <> "")then
dim getzone,arrayzone
poststr = "action=zone2area&zone="&zonenumber
getcontent=geturl("http://www.ip138.com/post/search.asp",poststr)
getzone = regexptext(getcontent,"<tr><td class=tdc2>◎((.|\n)*?)</td>")
response.write("<ul>")
if(getzone="")then
response.write("<li><strong><font color=""#ff0000"">没有搜索到记录</font></strong></li>")
else
arrayzone = split(getzone,",")
if(isarray(arrayzone))then
for i=0 to ubound(arrayzone)-1
response.write("<li><strong><font color=""#008000"">"&replace(arrayzone(i),",","")&"</font></strong></li>")
next
else
response.write("<li><strong><font color=""#008000"">"&replace(getzone,",","")&"</font></strong></li>")
end if
end if
response.write("</ul>")
end if
%>
</div>
</fieldset>
<fieldset>
<legend><strong>ｉｐ地理位置查询</strong></legend>
<div>
<div style="padding-left:23px;margin-bottom:8px;">
<form name="ipform" method="post" action="searcher.asp?stype=ip" onsubmit="return checkipform()">
待查询的ｉｐ地址：<input type="text" name="ipaddress" value="<%=ipaddress%>" /> <input type="submit" value="提 交" />
</form>
</div>
</div>
</fieldset>
<fieldset>
<legend><strong>身份证号码查询</strong></legend>
<div>
<%
dim identitynumber
identitynumber = trim(request.form("identitynumber"))
%>
<div style="padding-left:23px;margin-bottom:8px;">
<form name="identityform" method="post" action="searcher.asp?stype=identity" onsubmit="return checkidentityform()">
15或18位身份证号：<input type="text" name="identitynumber" value="<%=identitynumber%>" /> <input type="submit" value="提 交" />
</form>
</div>
<%
if(stype = "identity" and identitynumber<>"")then
dim arrayidcardinfo
poststr = "action=idcard&userid="&identitynumber
getcontent=geturl("http://www.oicq88.com/idsearch/index.asp",poststr)
getcontent=regexptext(getcontent,"：</font>((.|\n)*?)<br>")
response.write("<ul>")
if(getcontent="")then
response.write("<li>身份证号码错误或没有查询到相关数据</li>")
else
arrayidcardinfo = split(getcontent,",")
response.write("<li><strong>性 别：</strong><font color=""#008000""><strong>"&replace(arrayidcardinfo(0),",","")&"</strong></font></li>")
response.write("<li><strong>出生日期：</strong><font color=""#008000""><strong>"&replace(arrayidcardinfo(1),",","")&"</strong></font></li>")
response.write("<li><strong>发证地区：</strong><font color=""#008000""><strong>"&replace(arrayidcardinfo(2),",","")&"</strong></font></li>")
end if
response.write("</ul>")
end if
%>
<div style="padding-left:23px;margin-bottom:8px;">
<form name="identityupform" method="post" action="searcher.asp?stype=upidentity" onsubmit="return checkidentityupform()">
15位号码升至18位：<input type="text" name="identitynumber" value="<%=identitynumber%>" /> <input type="submit" value="提 交" />
</form>
</div>
<%
if(stype = "upidentity" and identitynumber<>"")then
poststr = "action=upto18&userid="&identitynumber
getcontent=geturl("http://www.oicq88.com/idsearch/index.asp",poststr)
getcontent=regexptext(getcontent,"升位后号码：((.|\n)*?)</td>")
response.write("<ul>")
if(getcontent="")then
response.write("<li>身份证号码错误或没有查询到相关数据</li>")
else
response.write("<li><strong>升位(18位)后号码是：</strong><font color=""#008000""><strong>"&replace(getcontent,",","")&"</strong></font></li>")
end if
response.write("</ul>")
end if
%>
</div>
</fieldset>
<div style="padding:15px;text-align:center;">
designed by <a href="http://www.goalercn.com" target=" ... r</a><br />
</div>
</body>
</html>
<%
function bytetostr(vin)
dim strreturn,i,thischarcode,innercode,hight8,low8,nextcharcode
strreturn = ""
for i = 1 to lenb(vin)
thischarcode = ascb(midb(vin,i,1))
if thischarcode < &h80 then
strreturn = strreturn & chr(thischarcode)
else
nextcharcode = ascb(midb(vin,i+1,1))
strreturn = strreturn & chr(clng(thischarcode) * &h100 + cint(nextcharcode))
i = i + 1
end if
next
bytetostr = strreturn
end function
function geturl(url,poststr)
set retrieval = server.createobject("microsoft.xmlhttp")
with retrieval
.open "post", url, false ,"" ,""
.setrequestheader "content-type","application/x-www-form-urlencoded"
.send(poststr)
geturl = .responsebody
end with
set retrieval = nothing
geturl=bytetostr(geturl)
end function
function regexptext(strng,regstr)
dim regex,match,matches,retstr
set regex = new regexp
regex.pattern = regstr
regex.ignorecase = true
regex.global = true
set matches = regex.execute(strng)
for each match in matches
retstr = retstr & regex.replace(match.value,"$1") & ","
next
regexptext = retstr
set regex=nothing
end function
%>
演示：
<%@language="vbscript" codepage="936"%>
<!doctype html public "-//w3c//dtd xhtml 1.0 transitional//en" "http://www.w3.org/tr/xhtml1/dtd/xhtml1-transitional.dtd">
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=gb2312" />
<meta name="author" content="goaler" />
<meta name="keywords" content="手机号码归属地,ip,google pr,邮编,身份证,查询,升位,goaler,www.goalercn.com" />
<meta name="description" content="手机号码归属地,ip,google pr,邮编,身份证,查询,升位,goaler,www.goalercn.com" />
<title>常用查询</title>
<style type="text/css">
<!--
body {font:14px tahoma,verdana,"宋体"}
input,object {color: #000000;font:12px tahoma,verdana,"宋体";}
form {margin:0}
a:link{color:#000066;text-decoration:none}
a:visited{color:#000066;text-decoration:none}
a:hover{color:#ff8d00;text-decoration:underline}
-->
</style>
<script language="javascript">
<!--
string.prototype.trim = function()
{
return this.replace(/(^\s*)|(\s*$)/g, "");
}
function checkmobile(){
var smobile = document.mobileform.mobilenumber.value.trim();
if(!(/^13[0-9]\d{4,8}$/.test(smobile))){
alert("请输入完整的11位手机号或手机号前七位");
document.mobileform.mobilenumber.focus();
return false;
}
}
function checkpr()
{
if (document.prform.domainname.value.trim() == "")
{
return false;
}
}
function checkzone2numberform()
{
if (document.zone2numberform.zonename.value.trim() == "")
{
alert("请输入地区名称！");
document.zone2numberform.zonename.focus();
return false;
}
}
function checknumber2zoneform()
{
var szonenumber = document.number2zoneform.zonenumber.value.trim();
if (!(/^0\d{2,3}$/.test(szonenumber)))
{
alert("请输入3位或4位区号");
document.number2zoneform.zonenumber.focus();
return false;
}
}
function checkidentityform()
{
var sidentitynumber = document.identityform.identitynumber.value.trim();
if (!(/^\d{15}$|^\d{18}$|^\d{17}x$/.test(sidentitynumber)))
{
alert("请输入15位或18位身份证号码");
document.identityform.identitynumber.focus();
return false;
}
}
function checkidentityupform()
{
var sidentitynumber = document.identityupform.identitynumber.value.trim();
if (!(/^\d{15}$/.test(sidentitynumber)))
{
alert("请输入15位身份证号码");
document.identityupform.identitynumber.focus();
return false;
}
}
//-->
</script>
</head>
<body>
<%
'==========请保留以下信息===============
'作者(author)：goaler
'主页(homepage)：
'=======================================
on error resume next
dim url,poststr,stype,getcontent,i
stype = trim(request.querystring("stype"))
%>
<fieldset>
<legend><strong>手机号归属地查询</strong></legend>
<div>
<%
dim mobilenumber
mobilenumber = trim(request.form("mobilenumber"))
%>
<div style="padding-left:23px;margin-bottom:8px;">
<form method="post" name="mobileform" action="searcher.asp?stype=mobile" onsubmit="return checkmobile()">
请输入手机号码段：<input type="text" name="mobilenumber" value="<%=mobilenumber%>" onfocus="select()" /> <input type="submit" id="subbtn" value="查 询" />
输入完整的11位手机号或手机号前七位
</form>
</div>
<%
if(stype = "mobile" and mobilenumber<>"")then
dim getarea,gettype
poststr = "action=mobile&mobile="&mobilenumber
getcontent=geturl("http://www.ip138.com:8080/search.asp",poststr)
getarea = regexptext(getcontent,"卡号归属地</td>((.|\n)*?)</td>")
gettype = regexptext(getcontent,"卡 类 型</td>((.|\n)*?)</td>")
response.write("<ul>")
response.write("<li><strong>手机号码段：</strong><font color=""#008000""><strong>" & mobilenumber & "</strong></font></li>")
response.write("<li><strong>号码归属地：</strong><font color=""#008000""><strong>" & replace(getarea,",","") & "</strong></font></li>")
response.write("<li><strong>卡 类 型：</strong><font color=""#008000""><strong>" & replace(gettype,",","") & "</strong></font></li>")
response.write("</ul>")
end if
%>
</div>
</fieldset>
<fieldset>
<legend><strong>google pr 值查询</strong></legend>
<div>
<%
dim domainname
domainname = replace(replace(lcase(trim(request.form("domainname"))),"www.",""),"http://","")
%>
<div style="padding-left:23px;margin-bottom:8px;">
<form name="prform" method="post" action="searcher.asp?stype=pr" onsubmit="return checkpr()">
请输入域名 ：www.<input type="text" name="domainname" value="<%=domainname%>" /> <input type="submit" value="提 交" />
不要带
</form>
</div>
<%
if(stype = "pr" and domainname<>"")then
poststr = ""
getcontent=geturl("http://so.5eo.com/info.php?action=ra ... "&domainname,poststr)
getcontent=regexptext(getcontent,"在满分10分评价中获得 <font color=#fb5e3c>((.|\n)*?)</font> 分")
'getcontent=replacekey(getcontent,"在满分10分评价中获得 <font color=#fb5e3c>|||||</font> 分")
dim arraypr
arraypr=split(getcontent,",")
response.write("<ul>")
response.write("<li><a href=""http://"&domainname&""" target=""new""><font color=" ... t;&domainname&"</strong></font></a> 的google pagerank值：<font color=""#ff0000""><strong>"&arraypr(0)&"</strong></font></li>")
response.write("<li><a href=""http://www."&domainname&""" target=""new""><font color=" ... uot;&domainname&"</font></strong></a> 的google pagerank值：<font color=""#ff0000""><strong>"&arraypr(1)&"</strong></font>")
response.write("</ul>")
end if
%>
</div>
</fieldset>
<fieldset>
<legend><strong>地区<->区号查询</strong></legend>
<div>
<div style="padding-left:23px;margin-bottom:8px;">
<%
dim zonename
zonename = trim(request.form("zonename"))
%>
<form name="zone2numberform" method="post" action="searcher.asp?stype=zone2number" onsubmit="return checkzone2numberform()">
地 区 <strong>→</strong> 区 号：<input type="text" name="zonename" value="<%=zonename%>" onfocus="select()" /> <input type="submit" value="提 交" />
</form>
</div>
<%
if(stype = "zone2number" and zonename <> "")then
dim getnumber,arraynumber
poststr = "area=" & escape(zonename) & "&action=area2zone"
getcontent=geturl("http://www.ip138.com/post/search.asp",poststr)
getnumber = regexptext(getcontent,"<tr><td class=tdc2>◎((.|\n)*?)</td>")
response.write("<ul>")
if(getnumber="")then
response.write("<li><strong><font color=""#ff0000"">没有搜索到记录</font></strong></li>")
else
arraynumber = split(getnumber,",")
if(isarray(arraynumber))then
for i=0 to ubound(arraynumber)-1
response.write("<li><strong><font color=""#008000"">"&replace(arraynumber(i),",","")&"</font></strong></li>")
next
else
response.write("<li><strong><font color=""#008000"">"&replace(getnumber,",","")&"</font></strong></li>")
end if
end if
response.write("</ul>")
end if
dim zonenumber
zonenumber = trim(request.form("zonenumber"))
%>
<div style="padding-left:23px;margin-bottom:8px;">
<form name="number2zoneform" method="post" action="searcher.asp?stype=number2zone" onsubmit="return checknumber2zoneform()">
区 号 <strong>→</strong> 地 区：<input type="text" name="zonenumber" value="<%=zonenumber%>" onfocus="select()" /> <input type="submit" value="提 交" />
</form>
</div>
<%
if(stype = "number2zone" and zonenumber <> "")then
dim getzone,arrayzone
poststr = "action=zone2area&zone="&zonenumber
getcontent=geturl("http://www.ip138.com/post/search.asp",poststr)
getzone = regexptext(getcontent,"<tr><td class=tdc2>◎((.|\n)*?)</td>")
response.write("<ul>")
if(getzone="")then
response.write("<li><strong><font color=""#ff0000"">没有搜索到记录</font></strong></li>")
else
arrayzone = split(getzone,",")
if(isarray(arrayzone))then
for i=0 to ubound(arrayzone)-1
response.write("<li><strong><font color=""#008000"">"&replace(arrayzone(i),",","")&"</font></strong></li>")
next
else
response.write("<li><strong><font color=""#008000"">"&replace(getzone,",","")&"</font></strong></li>")
end if
end if
response.write("</ul>")
end if
%>
</div>
</fieldset>
<fieldset>
<legend><strong>ｉｐ地理位置查询</strong></legend>
<div>
<div style="padding-left:23px;margin-bottom:8px;">
<form name="ipform" method="post" action="searcher.asp?stype=ip" onsubmit="return checkipform()">
待查询的ｉｐ地址：<input type="text" name="ipaddress" value="<%=ipaddress%>" /> <input type="submit" value="提 交" />
</form>
</div>
</div>
</fieldset>
<fieldset>
<legend><strong>身份证号码查询</strong></legend>
<div>
<%
dim identitynumber
identitynumber = trim(request.form("identitynumber"))
%>
<div style="padding-left:23px;margin-bottom:8px;">
<form name="identityform" method="post" action="searcher.asp?stype=identity" onsubmit="return checkidentityform()">
15或18位身份证号：<input type="text" name="identitynumber" value="<%=identitynumber%>" /> <input type="submit" value="提 交" />
</form>
</div>
<%
if(stype = "identity" and identitynumber<>"")then
dim arrayidcardinfo
poststr = "action=idcard&userid="&identitynumber
getcontent=geturl("http://www.oicq88.com/idsearch/index.asp",poststr)
getcontent=regexptext(getcontent,"：</font>((.|\n)*?)<br>")
response.write("<ul>")
if(getcontent="")then
response.write("<li>身份证号码错误或没有查询到相关数据</li>")
else
arrayidcardinfo = split(getcontent,",")
response.write("<li><strong>性 别：</strong><font color=""#008000""><strong>"&replace(arrayidcardinfo(0),",","")&"</strong></font></li>")
response.write("<li><strong>出生日期：</strong><font color=""#008000""><strong>"&replace(arrayidcardinfo(1),",","")&"</strong></font></li>")
response.write("<li><strong>发证地区：</strong><font color=""#008000""><strong>"&replace(arrayidcardinfo(2),",","")&"</strong></font></li>")
end if
response.write("</ul>")
end if
%>
<div style="padding-left:23px;margin-bottom:8px;">
<form name="identityupform" method="post" action="searcher.asp?stype=upidentity" onsubmit="return checkidentityupform()">
15位号码升至18位：<input type="text" name="identitynumber" value="<%=identitynumber%>" /> <input type="submit" value="提 交" />
</form>
</div>
<%
if(stype = "upidentity" and identitynumber<>"")then
poststr = "action=upto18&userid="&identitynumber
getcontent=geturl("http://www.oicq88.com/idsearch/index.asp",poststr)
getcontent=regexptext(getcontent,"升位后号码：((.|\n)*?)</td>")
response.write("<ul>")
if(getcontent="")then
response.write("<li>身份证号码错误或没有查询到相关数据</li>")
else
response.write("<li><strong>升位(18位)后号码是：</strong><font color=""#008000""><strong>"&replace(getcontent,",","")&"</strong></font></li>")
end if
response.write("</ul>")
end if
%>
</div>
</fieldset>
<div style="padding:15px;text-align:center;">
designed by <a href="http://www.goalercn.com" target=" ... r</a><br />
</div>
</body>
</html>
<%
function bytetostr(vin)
dim strreturn,i,thischarcode,innercode,hight8,low8,nextcharcode
strreturn = ""
for i = 1 to lenb(vin)
thischarcode = ascb(midb(vin,i,1))
if thischarcode < &h80 then
strreturn = strreturn & chr(thischarcode)
else
nextcharcode = ascb(midb(vin,i+1,1))
strreturn = strreturn & chr(clng(thischarcode) * &h100 + cint(nextcharcode))
i = i + 1
end if
next
bytetostr = strreturn
end function
function geturl(url,poststr)
set retrieval = server.createobject("microsoft.xmlhttp")
with retrieval
.open "post", url, false ,"" ,""
.setrequestheader "content-type","application/x-www-form-urlencoded"
.send(poststr)
geturl = .responsebody
end with
set retrieval = nothing
geturl=bytetostr(geturl)
end function
function regexptext(strng,regstr)
dim regex,match,matches,retstr
set regex = new regexp
regex.pattern = regstr
regex.ignorecase = true
regex.global = true
set matches = regex.execute(strng)
for each match in matches
retstr = retstr & regex.replace(match.value,"$1") & ","
next
regexptext = retstr
set regex=nothing
end function
%>
上一篇： 写了段批量抓取某个列表页的东东
下一篇： BootStrap的两种模态框方式