http://www.xzdress.com/li_/CreateHtml/Template/NewsList.asp?InfoID=3&CurPage=1&Action=two_select&2018/1/7 19:53:21在我們公司開發(fā)的環(huán)境IIS中時(shí)正常的執(zhí)行,如上傳圖片所示,但是現(xiàn)在我同樣的測(cè)試程序放在新購(gòu)買的服務(wù)器上,程序是長(zhǎng)時(shí)間運(yùn)行,不能抓取頁(yè)面,請(qǐng)問(wèn)你們服務(wù)器做了什么設(shè)置?導(dǎo)致我無(wú)法正常抓取頁(yè)面,而無(wú)法生成靜態(tài)頁(yè)面
\’抓取網(wǎng)頁(yè)內(nèi)容的函數(shù)
Function getPageContent(Url)
Set objXMLHTTP = CreateObject(\”Microsoft.XMLHTTP\”)
objXMLHTTP.Open \”Get\”, Url, False, \”\”, \”\”
objXMLHTTP.Send
getPageContent = BytesToBstr(objXMLHTTP.ResponseBody,\”utf-8\”)
Set objXMLHTTP = Nothing
End Function
最嚴(yán)重的問(wèn)題的,這個(gè)程序一旦啟動(dòng),長(zhǎng)時(shí)間不能影響之外,還導(dǎo)致asp頁(yè)面無(wú)法解析,需要重啟網(wǎng)站才恢復(fù)正常,請(qǐng)你們解決一下究竟是服務(wù)器哪里設(shè)置的問(wèn)題?
,服務(wù)器設(shè)置影響網(wǎng)站程序執(zhí)行
問(wèn):抓取頁(yè)面程序一旦啟動(dòng),長(zhǎng)時(shí)間不能響應(yīng)完成,這個(gè)導(dǎo)致asp所有的訪問(wèn)都不能解析及響應(yīng),需要重啟服務(wù)器,網(wǎng)站才正常,請(qǐng)你們解決一下究竟是服務(wù)器哪里設(shè)置的問(wèn)題?西數(shù)服務(wù)器究竟設(shè)置了什么?
問(wèn):還是不行,我把抓取的源碼發(fā)給你,你在本地試下,應(yīng)該是沒(méi)有問(wèn)題的,我在阿里云服務(wù)器運(yùn)行也沒(méi)事,你們西數(shù)的虛擬空間也沒(méi)事,為什么云服務(wù)器就不能抓???
源碼:<%@LANGUAGE=\”VBSCRIPT\” CODEPAGE=\”65001\”%>
<!DOCTYPE html PUBLIC \”-//W3C//DTD XHTML 1.0 Transitional//EN\” \”http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\”>
<html xmlns=\”http://www.w3.org/1999/xhtml\”>
<head>
<meta http-equiv=\”Content-Type\” content=\”text/html; charset=utf-8\” />
<title>無(wú)標(biāo)題文檔</title>
</head>
<body>
<%
dim pageUrl
WebPath =Server.MapPath(\”/\”)&\”\\\”
pageUrl = \”http://www.xzdress.com/li_/CreateHtml/Template/NewsList.asp?InfoID=3&CurPage=1&Action=two_select&2018/1/7 19:53:21\”
response.Write(pageUrl)
response.Write(\”<br/>\”)
HtmlBody = getPageContent(pageUrl) \’得到頁(yè)面內(nèi)容
response.Write(HtmlBody)
response.Write(\”<br/>\”)
\’HtmlBody = UserReplace(HtmlBody) \’用戶自定義標(biāo)簽
\’抓取網(wǎng)頁(yè)內(nèi)容的函數(shù)
Function getPageContent(Url)
Set objXMLHTTP = CreateObject(\”Microsoft.XMLHTTP\”)
objXMLHTTP.Open \”Get\”, Url, False, \”\”, \”\”
objXMLHTTP.Send
getPageContent = BytesToBstr(objXMLHTTP.ResponseBody,\”utf-8\”)
Set objXMLHTTP = Nothing
End Function
\’用于編碼轉(zhuǎn)換的函數(shù)
Function BytesToBstr(body,Cset)
set objstream = Server.CreateObject(\”adodb.stream\”)
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
\’系統(tǒng)標(biāo)簽-替換函數(shù)
Function SysTags(HtmlBody)
HtmlBody = Replace(HtmlBody,\”{#Sys:Url#}\”,S_IISName) \’網(wǎng)站域名
HtmlBody = Replace(HtmlBody,\”{#Sys:Title#}\”,S_Title) \’網(wǎng)站標(biāo)題
HtmlBody = Replace(HtmlBody,\”{#Sys:KeyWord#}\”,S_KeyWord) \’關(guān)鍵字
HtmlBody = Replace(HtmlBody,\”{#Sys:Desc#}\”,S_Description) \’網(wǎng)站標(biāo)題
\’ HtmlBody = Replace(HtmlBody,\”{#Sys:tongji#}\”,S_H1) \’網(wǎng)站統(tǒng)計(jì)代碼
HtmlBody = Replace(HtmlBody,\”{#Sys:Copy#}\”,S_Copy) \’頁(yè)腳版權(quán)信息
HtmlBody = Replace(HtmlBody,\”{#Sys:Addr#}\”,S_Addr) \’公司地址
HtmlBody = Replace(HtmlBody,\”{#Sys:CompanyName#}\”,S_CompanyName) \’公司全稱
SysTags = HtmlBody
End Function
%>
</body>
</html>
問(wèn):抓取的頁(yè)面是
http://www.xzdress.com/li_/CreateHtml/Template/NewsList.asp?InfoID=3&CurPage=1&Action=two_select&2018/1/7 19:53:21
問(wèn):而且最嚴(yán)重的是,一旦運(yùn)行上面的抓取頁(yè)面,服務(wù)器就長(zhǎng)時(shí)間運(yùn)行,所有ASP訪問(wèn)都不能打開
答:您好,
服務(wù)器您擁有完全權(quán)限,可自主調(diào)整任意設(shè)置,您的需求是要抓取http://www.xzdress.com/li_/CreateHtml/Template/NewsList.asp?InfoID=3&CurPage=1&Action=two_select&2018/1/7 19:53:21 網(wǎng)頁(yè)的內(nèi)容么,目前您用asp代碼抓取失敗,若需我們登錄服務(wù)器更進(jìn)一步協(xié)助調(diào)試,代碼執(zhí)行到哪里異常,請(qǐng)您選擇主機(jī)租用vps、云主機(jī)–>其他設(shè)置–>免費(fèi)金牌服務(wù)(超出免費(fèi)范圍會(huì)單獨(dú)收費(fèi))分類提交工單,非常感謝您長(zhǎng)期對(duì)我司的支持.由此給您帶來(lái)的不便之處,敬請(qǐng)?jiān)?謝謝!
問(wèn):我的需求不是抓取頁(yè)面,而是我的程序在你們公司虛擬空間運(yùn)行正常,在阿里云服務(wù)器也正常,我在本地測(cè)試也沒(méi)有問(wèn)題,但是這個(gè)云服務(wù)器是我前兩天買的,但是程序到你們西數(shù)云服務(wù)器就不能運(yùn)行,是你們公司的云服務(wù)器配置的問(wèn)題導(dǎo)致我不能正常執(zhí)行
答:您好,我司測(cè)試的確在執(zhí)行asp請(qǐng)求時(shí)會(huì)卡死,測(cè)試請(qǐng)求靜態(tài)文件正常,我司測(cè)試把代碼轉(zhuǎn)移到其它服務(wù)器運(yùn)行正常,應(yīng)該是系統(tǒng)上的某處設(shè)置有異常造成的,建議您保留數(shù)據(jù)重裝一下系統(tǒng)盤,然后再試試,非常感謝您長(zhǎng)期對(duì)我司的支持.由此給您帶來(lái)的不便之處,敬請(qǐng)?jiān)?謝謝!