يستخدم ASP ASP لتخزين التعليمات البرمجية للحصول على عنوان IP الخاص بـ Tencent وقراءة البيانات منه. سؤال:
انسخ رمز الكود كما يلي:
<نوع البرنامج النصي=نص/جافا سكريبت src=http://fw.qq.com/ipaddress></script>
<نوع البرنامج النصي=نص/جافا سكريبت>
فار hehe1=IPData[2]
فار hehe2=IPData[3]
تنبيه(هيهي1);
تنبيه(هيهي2);
document.write(IPData.join(' '));
</script>
كيفية استخدام ASP لتخزين البيانات المقروءة من الأعلى.
إجابة:
انسخ رمز الكود كما يلي:
<%
الدالة GetResStr(URL,code)
خطأ. واضح
dimHttp,ReturnStr
تعيين Http=server.createobject(Microsoft.XMLHTTP)
Http.open الحصول على، URL، خطأ
المتشعب.إرسال ()
إذا Http.Readystate = 4 ثم
إذا Http.status=200 ثم
ReturnStr=BytesToBstr(http.responseBody,code)
GetResStr=ReturnStr
نهاية إذا
نهاية إذا
وظيفة النهاية
'اسم الوظيفة: BytesToBstr
'الوظيفة: تحويل البيانات الثنائية إلى أحرف
'المعلمات: بيانات الجسم الثنائية، طريقة تشفير النص Cset
الدالة BytesToBstr(Body,Cset)
خافت Objstream
تعيين Objstream = Server.CreateObject(adodb.stream)
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.اكتب النص
objstream.Position = 0
objstream.Type = 2
objstream.Charset =Cset
BytesToBstr = objstream.ReadText
objstream.Close
تعيين objstream = لا شيء
وظيفة النهاية
خافت vUrl، TempStr
vUrl=http://fw.qq.com/ipaddress
TempStr=GetResStr(vUrl,gb2312)
Response.write IP الخاص بك هو (asp يحصل على IP الحقيقي):&split(TempStr,)(1) &split(TempStr,)(5) &replace(split(TempStr,)(7),city,)
%>