miladmovie
Active Member
سلام
من مي خواهم با استفاذه از ASP و PHP سورس يك سايت رو دريافت كنم(منظورم سورسي كه به دستورات HTML تبدیل شده)
من مي خواهم با استفاذه از ASP و PHP سورس يك سايت رو دريافت كنم(منظورم سورسي كه به دستورات HTML تبدیل شده)
<%
Function GetHTML(strURL)
Dim objXMLHTTP, strReturn
Set objXMLHTTP = SErver.CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open "GET", strURL, False
objXMLHTTP.Send
strReturn = objXMLHTTP.responseText
Set objXMLHTTP = Nothing
GetHTML = strReturn
End Function
' Write it:
Response.Write GetHTML("http://www.majidonline.com/")
' Download it:
Response.ContentType = "application/x-msdownload"
Response.AddHeader "Content-Disposition", "filename=Something.asp"
Response.BinaryWrite GetHTML("http://www.aspfaqs.com/")
%>