Mã nguồn ASP
-gethtmlsource.asp
Code:
<%@ Language=VBScript %>
<%Response.Buffer=True%>
<HTML>
<HEAD>
<title>Get Source Code For any Web Page</title>
<SCRIPT LANGUAGE=javascript>
<!--
function clearall()
{
window.document.location.href="gethtmlsource.asp"
}
function getit(what)
{
window.document.getsourceform.hid1.value = what
window.document.getsourceform.submit()
}
//-->
</SCRIPT>
</HEAD>
<BODY>
<form name=getsourceform method=post action=gethtmlsource.asp>
<input type=hidden name=hid1 value="">
<SCRIPT LANGUAGE=vbscript RUNAT=Server>
Function GetHTML(strURL)
on error resume next
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
</SCRIPT>
<table width=95% align=center border=1 cellpadding=1 cellspacing=2 bordercolor=#d1d5e6 bgcolor=#f6f8fc>
<tr>
<td>
<table width=100% align=center border=0 cellpadding=1 cellspacing=2>
<tr><td colspan=2 align=center><font face=verdana size=2 color=navy><b>View Source Of Any Web Page </b></font></td></tr>
<tr>
<td><input type=button name=rst value="Clear" onclick="javascript:clearall()"></td>
<td align=center>
<font face=verdana size=2 color=blue>Enter URL of the file:</font>
<input type=text name=myurl <%If trim(request("myurl"))="" Then%> value="http://www.google.com" <%Else%> value="<%=trim(request("myurl"))%>" <%End If%>size=35>
<input type=button name=getbut value="Get It" onclick="javascript:getit('get')">
<input type=button name=savebut value="Save To Disk" onclick="javascript:getit('save')">
</td>
</tr>
</table>
</td>
</tr>
<%
If request("hid1") = "get" Then
myurl = trim(request("myurl"))
retval = GetHTML(myurl)
Response.Write "<tr><td><font face=verdana size=1 color=red>Source of " & myurl & " is:</font><br><font face=verdana size=1 color=black>" & replace(server.HTMLEncode(retval),chr(13),"<br>") & "</font></td></tr>"
ElseIf request("hid1") = "save" Then
myurl = trim(request("myurl"))
Response.Redirect "savetodisk.asp?url="&myurl&""
End If
%>
</table>
</form>
</BODY>
</HTML>
-savetodisk.asp
Code:
<%@ Language=VBScript %>
<%Response.ContentType="application/download"%>
<%Response.AddHeader "Content-Disposition", "attachment; filename=source.txt"%>
<%myurl=Request.QueryString("url")%>
<%
if myurl="" then
Response.Redirect "gethtmlsource.asp"
end if
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
Response.Write GetHTML(myurl)
%>