رمز استخدام asp للحصول على قائمة تحديثات الأمان لـ Microsoft هو في الواقع برنامج لص، ويمكن للأصدقاء الذين يتعلمون برنامج اللص asp الرجوع إليه. للحصول على كود أفضل، يمكنك تنزيل الكود المصدري المقدم من Script House. انسخ رمز الكود كما يلي:
<%
الدالة Bytes2bStr(vin,cSet)
خافت BytesStream، StringReturn
تعيين BytesStream = Server.CreateObject(ADODB.Stream)
بايت ستريم. النوع = 2
BytesStream.Open
BytesStream.WriteText vin
BytesStream.Position = 0
BytesStream.CharSet = cSet
BytesStream.Position = 2
StringReturn =BytesStream.ReadText
BytesStream.إغلاق
تعيين BytesStream = لا شيء
Bytes2bStr = StringReturn
وظيفة النهاية
اضبط xmlhttp = server.CreateObject(Msxml2.XMLHTTP)
m_queryURL = http://www.microsoft.com/china/technet/security/current.mspx
XMLHTTP.Open GET، m_queryURL، خطأ
XMLHTTP.send()
s = XMLHTTP.responseBody
أأ = Bytes2bStr(s,GB2312)
تعيين إعادة = جديد RegExp
re.Pattern = <span class=label>.*?</span>
re.Global = صحيح
re.IgnoreCase = true
re.MultiLine = false
تعيين التطابقات = re.Execute(aa)
خافت tmp
تمب=
لكل مباراة في المباريات
تمة = تمة&match.value
التالي
tmp = استبدال(tmp,href=,target=_blank href=http://www.microsoft.com)
تعيين fso = server.CreateObject(scripting.filesystemobject)
تعيين f = fso.OpenTextFile(server.mappath(Microsoft.html),2,true)
واو الكتابة (تمب)
f. إغلاق
تعيين fso = لا شيء
استجابة. إعادة توجيه Microsoft.html
%>