Xem mã nguồn ngay trên site của mình.

Xem mã nguồn ngay trên site của mình.

Bài viết này hướng dẫn cho bạn cách thực hiện viết mã ASP cho phép xem mã nguồn của một trang bất kỳ trên trang web của mình. Trước tiên bạn cần xây dựng bố cục cho trang để lấy thông tin mã nguồn của trang web thông qua địa chỉ URL như sau: Mã nguồn...

Bài viết này hướng dẫn cho bạn cách thực hiện viết mã ASP cho phép xem mã nguồn của một trang bất kỳ trên trang web của mình.
Trước tiên bạn cần xây dựng bố cục cho trang để lấy thông tin mã nguồn của trang web thông qua địa chỉ URL như sau:

Mã nguồn của trang gethtmlsource.asp như sau:view plaincopy to clipboardprint?

1. <%@ Language=VBscript %>
   
2. <%Response.Buffer=True%>
   
3. 
   
4. 
   
5. 
   
6. 
   
7. 
   
8. 
   
9. 
   
10. 
    
11. 
    
12. 
    
13. 
    
14. Function GetHTML(strURL)
    
15. on error resume next
    
16. Dim objXMLHTTP, strReturn
    
17. Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
    
18. objXMLHTTP.Open "GET", strURL, False
    
19. objXMLHTTP.Send
    
20. strReturn = objXMLHTTP.responseText
    
21. Set objXMLHTTP = Nothing
    
22. GetHTML = strReturn
    
23. End Function
    
24. 
    
25. 
    
    
    
    
    
    
    
    <%
    
    If request("hid1") = "get" Then
    
    myurl = trim(request("myurl"))
    
    retval = GetHTML(myurl)
    
    Response.Write "
    "
    
    ElseIf request("hid1") = "save" Then
    
    myurl = trim(request("myurl"))
    
    Response.Redirect "savetodisk.asp?url="&myurl&""
    
    End If
    
    %>
    

    View Source Of Any Web Page Enter URL of the file:  value="http://www.google.com/" <%Else%> value="<%=trim(request("myurl"))%>" <%End If%>size=35>

    Source of " & myurl & " is: " & replace(server.HTMLEncode(retval),chr(13)," ") & "

    
    
26. 
    
27. 
    
28. 
    

<%@ Language=VBscript %>
<%Response.Buffer=True%>

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





<%
If request("hid1") = "get" Then
myurl = trim(request("myurl"))
retval = GetHTML(myurl)
Response.Write ""
ElseIf request("hid1") = "save" Then
myurl = trim(request("myurl"))
Response.Redirect "savetodisk.asp?url="&myurl&""
End If
%>

View Source Of Any Web Page Enter URL of the file:  value="http://www.google.com/" <%Else%> value="<%=trim(request("myurl"))%>" <%End If%>size=35>

Source of " & myurl & " is: " & replace(server.HTMLEncode(retval),chr(13)," ") & "

Chúng ta có thể viết thêm trang savetodisk.asp để thực hiện lưu lại mã nguồn đã lấy về:view plaincopy to clipboardprint?

1. <%@ Language=VBscript %>
   
2. <%Response.ContentType="application/download"%>
   
3. <%Response.AddHeader "Content-Disposition", "attachment; filename=source.txt"%>
   
4. <%myurl=Request.QueryString("url")%>
   
5. <%
   
6. if myurl="" then
   
7. Response.Redirect "gethtmlsource.asp"
   
8. end if
   
9. Function GetHTML(strURL)
   
10. Dim objXMLHTTP, strReturn
    
11. Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
    
12. objXMLHTTP.Open "GET", strURL, False
    
13. objXMLHTTP.Send
    
14. strReturn = objXMLHTTP.responseText
    
15. Set objXMLHTTP = Nothing
    
16. GetHTML = strReturn
    
17. End Function
    
18. Response.Write GetHTML(myurl)
    
19. %>
    

<%@ 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)
%>


Kết quả thực hiện có dạng như sau:



[HaiPhong-Aptech st]

source web nhà ??t
Tr? l?i Liên h?

Demo: Code Nhà ??t H?i Phòng (PHP) User: admin@nhadathaiphong.com Pass: admin Source code : here Data: here Linh d? phòng khác http://thichthuram.000webhost.com/code/utf-8''ndhp.zip http://thichthuram.000webhost.com/code/utf-8''ndhp_data.zip http://www.box.net/shared/ivq1t3xc0s Data : http://www.box.net/shared/4vm3ih0w8s