لقد قمت بجزء منه فقط، يرجى اتباع المثال الذي قدمته لإكمال استعلام IP بنفسك!
العرض التوضيحي: http://www.goalercn.com/demo/searcher.asp
<%@LANGUAGE=VBSCRIPT CODEPAGE=936%>
<!DOCTYPE html PUBLIC -//W3C//DTD XHTML 1.0 Transitional//EN http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd>
<أتش تي أم أل>
<الرأس>
<meta http-equiv=Content-Type content=text/html;
<اسم META=محتوى المؤلف=الهدف />
<META NAME=الكلمات الرئيسية CONTENT=موقع رقم الهاتف المحمول،ip،google pr،الرمز البريدي،بطاقة الهوية،استعلام،ترقية،goaler،www.goalercn.com />
<META NAME=Description CONTENT=موقع رقم الهاتف المحمول،ip،google pr،الرمز البريدي،بطاقة الهوية،استعلام،ترقية،goaler،www.goalercn.com />
<title>الاستعلامات الشائعة</title>
<نوع النمط=نص/css>
<!--
الجسم {الخط:14px تاهوما، فيردانا، 宋体}
إدخال، كائن {اللون: #000000؛الخط:12px تاهوما، فيردانا، 宋体؛}
النموذج {الهامش:0}
ج: الرابط {اللون: #000066؛ زخرفة النص: لا شيء}
ج: تمت الزيارة{COLOR:#000066;زخرفة النص:لا شيء}
ج:تحويم{اللون:#FF8D00;زخرفة النص:تسطير}
-->
</نمط>
<لغة البرنامج النصي=جافا سكريبت>
<!--
String.prototype.Trim = الوظيفة ()
{
إرجاع this.replace(/(^/s*)|(/s*$)/g, );
}
وظيفة التحقق من الجوال () {
var sMobile = document.mobileForm.MobileNumber.value.Trim();
إذا(!(/^13[0-9]/د{4,8}$/.test(sMobile))){
تنبيه (يرجى إدخال رقم الهاتف المحمول الكامل المكون من 11 رقمًا أو أول سبعة أرقام من رقم الهاتف المحمول)؛
document.mobileForm.MobileNumber.focus();
عودة كاذبة.
}
}
فحص الدالةPR()
{
إذا (document.prForm.domainName.value.Trim() ==)
{
عودة كاذبة.
}
}
وظيفة checkZone2NumberForm ()
{
إذا (document.Zone2NumberForm.zoneName.value.Trim() ==)
{
تنبيه(الرجاء إدخال اسم المنطقة!);
document.Zone2NumberForm.zoneName.focus();
عودة كاذبة.
}
}
وظيفة الاختيارNumber2ZoneForm ()
{
var sZoneNumber = document.Number2ZoneForm.zoneNumber.value.Trim();
إذا (!(/^0/d{2,3}$/.test(sZoneNumber)))
{
تنبيه (يرجى إدخال رمز المنطقة المكون من 3 أو 4 أرقام)؛
document.Number2ZoneForm.zoneNumber.focus();
عودة كاذبة.
}
}
وظيفة التحقق من الهوية ()
{
var sIdentityNumber = document.identityForm.identityNumber.value.Trim();
إذا (!(/^/d{15}$|^/d{18}$|^/d{17}x$/.test(sIdentityNumber)))
{
تنبيه (يرجى إدخال رقم الهوية المكون من 15 أو 18 رقمًا)؛
document.identityForm.identityNumber.focus();
عودة كاذبة.
}
}
وظيفة checkIdentityUpForm ()
{
var sIdentityNumber = document.identityUpForm.identityNumber.value.Trim();
إذا (!(/^/d{15}$/.test(sIdentityNumber)))
{
تنبيه (يرجى إدخال رقم الهوية المكون من 15 رقمًا)؛
document.identityUpForm.identityNumber.focus();
عودة كاذبة.
}
}
//-->
</النص>
</الرأس>
<الجسم>
<%
'=========== يرجى الاحتفاظ بالمعلومات التالية =================
'المؤلف: حارس المرمى
الصفحة الرئيسية: http://www.goalercn.com
'======================================================================
على خطأ استئناف المقبل
Dim url,PostStr,sType,getContent,i
sType = Trim(Request.QueryString(sType))
%>
<مجموعة الحقول>
<legend><strong>الاستعلام عن موقع رقم الهاتف المحمول</strong></legend>
<ديف>
<%
DimMobileNumber
MobileNumber = Trim(Request.Form(MobileNumber))
%>
<div style=padding-left:23px;margin-bottom:8px;>
<طريقة النموذج=اسم النشر=mobileForm action=searcher.asp?sType=mobile onsubmit=return checkMobile()>
الرجاء إدخال شريحة رقم الهاتف المحمول: <نوع الإدخال=اسم النص=قيمة رقم الجوال=<%=رقم الجوال%> onfocus=select() /> <نوع الإدخال=معرف الإرسال=قيمة subBtn=query/>
أدخل رقم الهاتف المحمول الكامل المكون من 11 رقمًا أو أول سبعة أرقام من رقم الهاتف المحمول
</النموذج>
</div>
<%
IF(sType = mobile AND MobileNumber<>) إذن
خافت 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,card type</TD>((.|/n)*?)</TD>)
الاستجابة.الكتابة(<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>)
الاستجابة.الكتابة(</UL>)
نهاية إذا
%>
</div>
</فيلدسيت>
<مجموعة الحقول>
<legend><strong>استعلام قيمة العلاقات العامة في Google</strong></legend>
<ديف>
<%
اسم المجال خافت
domainName = Replace(Replace(LCASE(Trim(Request.Form(domainName))),www.,),http://,)
%>
<div style=padding-left:23px;margin-bottom:8px;>
<اسم النموذج=طريقة prForm=إجراء النشر=searcher.asp?sType=pr onsubmit=return checkPR()>
الرجاء إدخال اسم المجال: www.<نوع الإدخال=اسم النص=قيمة اسم المجال=<%=domainName%> /> <نوع الإدخال=قيمة الإرسال=إرسال/>
لا تحضر http://www.
</النموذج>
</div>
<%
IF(sType = pr AND domainName<>) إذن
PostStr=
getContent=GetURL(http://so.5eo.com/info.php?action=ra... &domainName,PostStr)
getContent=RegExpText(getContent, احصل على <font color=#FB5E3C>((.|/n)*?)</font> نقاط من أصل 10 نقاط)
'getContent=ReplaceKey(getContent، احصل على <font color=#FB5E3C>|||||</font> نقاط من أصل 10 نقاط)
DimArrayPr
ArrayPr=Split(getContent,,)
الاستجابة.الكتابة(<UL>)
Response.Write(<li><a href=http://&domainName& target=new><font color= ... t;قيمة Google PageRank لـ &domainName&</strong></font></a>: <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> في قيمة PageRank في Google: < لون الخط=#FF0000><strong>&ArrayPr(1)&</strong></font>)
الاستجابة.الكتابة(</UL>)
نهاية إذا
%>
</div>
</فيلدسيت>
<مجموعة الحقول>
<legend><strong>المنطقة<->الاستعلام عن رمز المنطقة</strong></legend>
<ديف>
<div style=padding-left:23px;margin-bottom:8px;>
<%
اسم المنطقة الخافتة
اسم المنطقة = Trim(Request.Form(zoneName))
%>
<form name=Zone2NumberFormmethod=post action=searcher.asp?sType=zone2number onsubmit=return checkZone2NumberForm()>
المنطقة<strong>→</strong> رمز المنطقة: <نوع الإدخال=اسم النص=قيمة اسم المنطقة=<%=اسم المنطقة%> onfocus=select() /> <نوع الإدخال=قيمة الإرسال=إرسال/>
</النموذج>
</div>
<%
إذا كان (sType = رقم المنطقة 2 واسم المنطقة <>) إذن
خافت getNumber، ArrayNumber
PostStr = المنطقة= & escape(zoneName) & &action=area2zone
getContent=GetURL(http://www.ip138.com/post/search.asp,PostStr)
getNumber = RegExpText(getContent,<TR><TD class=tdc2>◎((.|/n)*?)</TD>)
الاستجابة.الكتابة(<UL>)
إذا (getNumber=)ثم
Response.Write(<li><strong><font color=#FF0000>لم يتم العثور على سجل</font></strong></li>)
آخر
ArrayNumber = تقسيم (getNumber،،)
IF(isArray(ArrayNumber))ثم
بالنسبة إلى i=0 TO UBOUND(ArrayNumber)-1
Response.Write(<li><strong><font color=#008000>&Replace(ArrayNumber(i),,,)&</font></strong></li>)
التالي
آخر
Response.Write(<li><strong><font color=#008000>&Replace(getNumber,,,)&</font></strong></li>)
نهاية إذا
نهاية إذا
الاستجابة.الكتابة(</UL>)
نهاية إذا
رقم المنطقة الخافتة
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> المنطقة: <نوع الإدخال=اسم النص=قيمة رقم المنطقة=<%=zoneNumber%> onfocus=select() /> <نوع الإدخال=قيمة الإرسال=إرسال/>
</النموذج>
</div>
<%
إذا (sType = number2zone وzoneNumber <>) إذن
خافت 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>)
الاستجابة.الكتابة(<UL>)
إذا (getZone =) إذن
Response.Write(<li><strong><font color=#FF0000>لم يتم العثور على سجل</font></strong></li>)
آخر
ArrayZone = تقسيم (getZone،،)
IF(isArray(ArrayZone))ثم
لأن i=0 TO UBOUND(ArrayZone)-1
Response.Write(<li><strong><font color=#008000>&Replace(ArrayZone(i),,,)&</font></strong></li>)
التالي
آخر
Response.Write(<li><strong><font color=#008000>&Replace(getZone,,,)&</font></strong></li>)
نهاية إذا
نهاية إذا
الاستجابة.الكتابة(</UL>)
نهاية إذا
%>
</div>
</فيلدسيت>
<مجموعة الحقول>
<legend><strong>الاستعلام عن موقع IP</strong></legend>
<ديف>
<div style=padding-left:23px;margin-bottom:8px;>
<اسم النموذج=طريقة ipForm=إجراء النشر=searcher.asp?sType=ip onsubmit=return checkIPForm()>
عنوان IP المطلوب الاستعلام عنه: <نوع الإدخال=اسم النص=قيمة عنوان IP=<%=ipAddress%> /> <نوع الإدخال=قيمة الإرسال=إرسال/>
</النموذج>
</div>
</div>
</فيلدسيت>
<مجموعة الحقول>
<legend><strong>الاستعلام عن رقم الهوية</strong></legend>
<ديف>
<%
رقم الهوية الخافت
رقم الهوية = Trim(Request.Form(identityNumber))
%>
<div style=padding-left:23px;margin-bottom:8px;>
<form name=identityFormmethod=post action=searcher.asp?sType=identity onsubmit=return checkIdentityForm()>
رقم التعريف المكون من 15 أو 18 رقمًا: <نوع الإدخال=اسم النص=قيمة رقم الهوية=<%=رقم الهوية%> /> <نوع الإدخال=قيمة الإرسال=إرسال/>
</النموذج>
</div>
<%
IF(sType = الهوية ورقم الهوية<>) إذن
خافت صفيفIDCardInfo
PostStr = action=idcard&userid=&identityNumber
getContent=GetURL(http://www.oicq88.com/idsearch/index.asp,PostStr)
getContent=RegExpText(getContent,:</font>((.|/n)*?)<BR>)
الاستجابة.الكتابة(<UL>)
إذا (getContent =) ثم
Response.Write(<li>رقم المعرف خاطئ أو لم يتم العثور على بيانات ذات صلة</li>)
آخر
ArrayIDCardInfo = تقسيم (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 > )
نهاية إذا
الاستجابة.الكتابة(</UL>)
نهاية إذا
%>
<div style=padding-left:23px;margin-bottom:8px;>
<form name=identityUpFormmethod=post action=searcher.asp?sType=upIdentity onsubmit=return checkIdentityUpForm()>
يتم زيادة الرقم المكون من 15 رقمًا إلى 18 رقمًا: <نوع الإدخال=اسم النص=قيمة رقم الهوية=<%=رقم الهوية%> /> <نوع الإدخال=قيمة الإرسال=إرسال/>
</النموذج>
</div>
<%
IF(sType = upIdentity وidentityNumber<>)ثم
PostStr = action=upto18&userid=&identityNumber
getContent=GetURL(http://www.oicq88.com/idsearch/index.asp,PostStr)
getContent=RegExpText(getContent، الرقم بعد الترقية: ((.|/n)*?)</TD>)
الاستجابة.الكتابة(<UL>)
إذا (getContent =) ثم
Response.Write(<li>رقم المعرف خاطئ أو لم يتم العثور على بيانات ذات صلة</li>)
آخر
Response.Write(<li><strong>الرقم بعد الترقية (18 رقمًا) هو:</strong><font color=#008000><strong>&Replace(getContent,,,)&</strong></font> </لي>)
نهاية إذا
الاستجابة.الكتابة(</UL>)
نهاية إذا
%>
</div>
</فيلدسيت>
<div style=padding:15px;text-align:center;>
صمم بواسطة <a href=http://www.goalercn.com target= ... R</a><BR />
</div>
</الجسم>
</html>
<%
الدالة ByteToStr(vIn)
خافت strReturn،i،ThisCharCode،innerCode،Hight8،Low8،NextCharCode
strReturn =
لأني = 1 إلى LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
إذا كان ThisCharCode < &H80 إذن
strReturn = strReturn & Chr(ThisCharCode)
آخر
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
ط = ط + 1
نهاية إذا
التالي
ByteToStr = strReturn
وظيفة النهاية
الدالة GetURL(url,PostStr)
تعيين الاسترداد = Server.CreateObject(Microsoft.XMLHTTP)
مع الاسترجاع
.فتح POST، URL، خطأ،،
.setRequestHeader نوع المحتوى، application/x-www-form-urlencoded
.إرسال (بوستستر)
GetURL = .ResponseBody
نهاية مع
تعيين الاسترجاع = لا شيء
GetURL=ByteToStr(GetURL)
وظيفة النهاية
الدالة RegExpText(strng,regStr)
التعابير المنطقية الخافتة، المطابقة، التطابقات، RetStr
قم بتعيين regEx = New RegExp
regEx.Pattern = regStr
regEx.IgnoreCase = صحيح
regEx.Global = صحيح
تعيين التطابقات = regEx.Execute(strng)
لكل مباراة في المباريات
RetStr = RetStr & regEx.Replace(Match.Value,$1) & ,
التالي
RegExpText = RetStr
تعيين regEx=لا شيء
وظيفة النهاية
%>