< %@LANGUAGE="VBSCRIPT " CODEPAGE="936"%>
<!-- #include file="conn.asp" -->
<!-- #include file="inc/function.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" " http://www.w3.org/TR/html4/loose.dtd ">
<أتش تي أم أل>
<الرأس>
<title>مستند بدون عنوان</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="refresh" content="300;URL=steal_house.asp">
</الرأس>
<الجسم>
<%
على خطأ استئناف المقبل
'
Server.ScriptTimeout = 999999
'======================================================================== =======
"""""""""""""""""""""""""""""
'======================================================================== ===
الدالة BytesToBstr (النص، الكود)
objstream خافت
تعيين objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.اكتب النص
objstream.Position = 0
objstream.Type = 2
objstream.Charset =code
BytesToBstr = objstream.ReadText
objstream.Close
تعيين objstream = لا شيء
وظيفة
النهاية
الدالة نيوسترينغ(wstr,strng)
سلسلة جديدة=Instr(lcase(wstr),lcase(strng))
إذا كانت Newstring<=0 ثم Newstring=Len(wstr)
وظيفة النهاية
'مرحبا بكم في عالمنا
وظيفة استبدال Str (أوري، str1، str2)
ReplaceStr=replace(ori,str1,str2)
وظيفة النهاية
'======================================================================== ===
وظيفة ReadXml (عنوان URL، الكود، البداية، النهاية)
تعيين oSend=createobject("Microsoft.XMLHTTP")
SourceCode = oSend.open ("GET"، URL، false)
oSend.send()
ReadXml=BytesToBstr(oSend.responseBody,code )
ابدأ=Instr(ReadXml,بدء)
ReadXml=mid(ReadXml،بدء)
ينتهي=Instr(ReadXml,ينتهي)
ReadXml=left(ReadXml,ends-1)
وظيفة النهاية
وظيفة SubStr (الجسم، البداية، النهايات)
بداية = Instr (الجسم، بداية)
SubStr=mid(body,start+len(start)+1)
ينتهي=Instr(SubStr,ينتهي)
SubStr=left(SubStr,ends-1)
وظيفة النهاية
خافتة getcont، NewsContent
عنوان url خافت، عنوان
url = " http://www.***.com"' تم الاطلاع على knowsky.com
getcont=ReadXml(url"،gb2312"،<table class=k2 border=""0"""،"</table>")
getcont=RegexHtml(getcont)
معرف المفتاح الخافت، فئة الأخبار، المدينة، الموضع، نوع المنزل، المستوى، المنطقة، السعر، ديموسترا
خافت ContactMan، جهة الاتصال
لأني=2 إلى ubound(getcont)
Response.Write(getcont(i)&"__<br>")
tempLink=mid(getcont(i),instr(getcont(i),"href = """)+6,instr(getcont(i),""" onClick")-10)
tempLink=replace(tempLink,"../"،")
Response.Write(i&":":&tempLink&"<br>")
NewsContent=ReadXml(tempLink"،gb2312"،"<td valign=""bottom"" width=""400"">"،<hr width=""760"" noshade size=""1"" color= ""#808080""> ")
NewsContent=RemoveHtml(NewsContent)
NewsContent=replace(NewsContent,VbCrLf,"")
NewsContent=replace(NewsContent,vbNewLine,"")
NewsContent=replace(NewsContent," "")
NewsContent=replace(NewsContent," "")
NewsContent=replace(NewsContent"، "،")
NewsContent=replace(NewsContent،"n"،")
NewsContent=replace(NewsContent,chr(10),"")
NewsContent=replace(NewsContent,chr(13),"")
'==========================================================================
استجابة.اكتب (محتوى الأخبار)
KeyId=SubStr(NewsContent،"الاسم:"، اسم المنتج:")
NewsClass=SubStr(NewsContent،"الاسم المحدد:"،، اسم المنتج:")
City=SubStr(NewsContent،"العنوان:"،"العنوان الفرعي":")
Position=SubStr(NewsContent،"العنوان:"،"العنوان الفرعي":")
HouseType=SubStr(NewsContent،"المحتوى:"،، المحتوى:")
Level=SubStr(NewsContent،"المحتوى:"،، عنوان البريد الإلكتروني:")
Area=SubStr(NewsContent،"العنوان:"،، المصدر:")
Price=SubStr(NewsContent،"المحتوى:"،"المصدر:")
Demostra=SubStr(NewsContent،"النص:"،، النص:")
ContactMan=SubStr(NewsContent،"التحويل إلى:"،، التحويل إلى:")
Contact=SubStr(NewsContent،"联系方式:"،"信息来源:")
Response.Write("الرقم التسلسلي:"&KeyId&"<br>")
Response.Write("信息类别:"&NewsClass&"<br>")
Response.Write("所在城市:"&المدينة&"<br>")
Response.Write("الإجابة على السؤال:"&الموضع&"<br>")
Response.Write("البيانات:"&HouseType&"<br>")
Response.Write("المستوى:"&المستوى&"<br>")
Response.Write("使用面积:"&المنطقة&"<br>")
Response.Write("الطلب:"&السعر&"<br>")
Response.Write("其他说明:"&Demostra&"<br>")
Response.Write("الإجابة:"&ContactMan&"<br>")
Response.Write("الاتصال بالرقم&"<br>")
'العنوان=إزالةHTML(aa(i))
'response.Write("العنوان:"&العنوان)
لـ n=0 إلى application.Contents.count
إذا (application.Contents(n)=KeyId) إذن
ifexit=true
نهاية إذا
التالي
إذا لم يكن إذا الخروج ثم
application(time&i)=KeyId
'المشروبات الساخنة
'======================================================================== ===
تعيين rs=server.CreateObject("adodb.recordset")
rs.open "اختر أعلى 1 * من ترتيب الأخبار حسب وصف المعرف"، conn،3،3
rs.addnew
rs("NewsClass")=NewsClass
rs("مدينة")=مدينة
rs("Position")=Position
rs("HouseType")=HouseType
rs("المستوى")=المستوى
rs("المنطقة")=المنطقة
rs("السعر")=السعر
rs("Demostra")=Demostra
rs("ContactMan")=ContactMan
rs("Contact")=Contact
rs.update
rs. Close
تعيين RS=لا شيء
نهاية إذا
'======================================================================== =
التالي
الدالة RemoveTag(body)
Set regEx = New RegExp
regEx.Pattern = "<[a].*?</[a]>"
regEx.IgnoreCase = صحيح
regEx.Global = صحيح
تعيين التطابقات = regEx.Execute(body)
خافت أنا، آر (15)، إذافيكسيت
أنا = 0
ي=0
لكل مباراة في المباريات
TempStr = Match.Value
TempStr=replace(TempStr،"<td>"،")
TempStr=replace(TempStr،"</td>"،")
TempStr=replace(TempStr،"<tr>"،")
TempStr=replace(TempStr،"</tr>"،")
arr(i)=TempStr
ط=ط+1
إذا (i> = 15) إذن
الخروج ل
نهاية إذا
التالي
تعيين regEx = لا شيء
تعيين التطابقات = لا شيء
RemoveTag=arr
وظيفة النهاية
الدالة RegexHtml(body)
خافت r_arr(47),r_temp
قم بتعيين regEx2 = New RegExp
regEx2.Pattern ="<a.*?</a>"
regEx2.IgnoreCase = صحيح
regEx2.Global = صحيح
تعيين Matches2 = regEx2.Execute(body)
ج = 0
لكل مباراة في المباريات2
r_arr(iii)=Match.Value
الثالث=الثالث+1
التالي
RegexHtml=r_arr
تعيين regEx2=لا شيء
تعيين Matches2 = لا شيء
وظيفة النهاية
'======================================================================== =====
conn. Close
تعيين كون = لا شيء
%>
</الجسم>
</html>
دالة.asp
<%
'****************************************************************************************************************************************************************************** *
'العنوان الرئيسي: حصلت على الموضوع
'السبب: كل ما عليك فعله هو أن تكون قادرًا على القيام بذلك
'参 数:str ----原字符串
' سترلين ----截取长度
'العنوان: أفضل ما في الأمر
'****************************************************************************************************************************************************************************** *
الدالة gotTopic(str,strlen)
إذا str = "" ثم
حصلت على الموضوع = ""
وظيفة الخروج
نهاية إذا
خافت ل، ر، ج، ط
str=replace(replace(replace(replace(str"، "،"،"،""؛"،chr(34))"،>"،>")"،<"،<" )
str=replace(str،"؟""،")
ل = لين (شارع)
ر = 0
لأني = 1 إلى ل
ج = القيمة المطلقة (تصاعدي (منتصف (شارع، ط، 1)))
إذا ج> 255 ثم
ر=ر+2
آخر
ر=ر+1
نهاية إذا
إذا t>=strlen ثم
gotTopic=left(str,i) & "..."
الخروج ل
آخر
gotTopic=str
نهاية إذا
التالي
gotTopic=replace(replace(replace(replace(gotTopic," ""،" "),chr(34),"""),">"،">"),"<"،<" )
وظيفة النهاية
'======================================================================== ========
'الاسم: إزالةHTML(strHTML)
'الاسم: استخدم HTML
'الاسم: strHTML -- قم باختيار HTML المفضل لديك
'======================================================================== ========
وظيفة إزالةHTML(strHTML)
خافت objRegExp، مباراة، مباريات
تعيين objRegExp = Regexp الجديد
objRegExp.IgnoreCase = True
objRegExp.Global = صحيح
'取闭合的<>
objRegExp.Pattern = "<.+?>"
'الأرجواني
تعيين التطابقات = objRegExp.Execute(strHTML)
' قم بتعيين
التطابقات
لكل مباراة في المباريات
strHtml=Replace(strHTML,Match.Value,"")
التالي
RemoveHTML=strHTML
تعيين objRegExp = لا شيء
تعيين التطابقات = لا شيء
وظيفة النهاية
٪>
كون.asp
<%
'عند استئناف الخطأ بعد ذلك
تعيين conn=server.CreateObject("adodb.connection")
يخدع = "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("stest.mdb")
conn.open يخدع
الفرعية
conn. Close
تعيين كون = لا شيء
النهاية الفرعية
%>
اسم المنتج: اسم المنتج: 479280 اسم المنتج: اسم المنتج
: | اسم |
المنتج | : |
اسم | المنتج |
حجم | المنتج |
: | 24 |
~ | 240 |
平方米 | 之 |
رقم التعريف: | 0 [الحجم: 元/月، 买卖:万元/套] |
华 | |
信 | 商务楼3至6层小空间对外出租(0.5元/平起)، يجب أن يكون المنتج جاهزًا, |
جميع | |
أنحاء العالم. هل لديك أي أسئلة؟ | |
رقم: | 鲁, 王 |
联系方式: | 88017966、86812217 |
信息来源: | 2005-8-4 8:28:55 يوم: 218.98.86.175 |
يوم الحساب: | 19 |