DIỄN ĐÀN hochanh.net.vn
Cảm ơn bạn đã quan tâm đến học hành và tham gia diễn đàn hochanh.net.vn
Tìm kiếm
 
 

Display results as :
 


Rechercher Advanced Search

Gallery


Đăng nhập với tên thanhvien VIP

28/8/2010, 21:37 by ABC

BẠN CÓ THỂ ĐĂNG KÝ RỒI ĐĂNG NHẬP
HOẶC ĐĂNG NHẬP
VỚI TÊN thanhvienvip
hoặc thanhvien 1
hoặc thanhvien 2
hoặc thanhvien 3

và mật khẩu là 1234567890

để không có dòng quảng cáo trên.

Comments: 0

HỌC ĐI ĐÔI VỚI HÀNH ?

28/4/2010, 22:40 by Admin

Học đi đôi với hành


“ trăm hay không bằng tay quen”. người lao động xưa đã từng quan niệm rằng lí thuyết hay không bằng thức hành giỏi. điều đó cho thấy người xưa đã đề cao vai trò của thức hành . trong khi đó những kẻ học thức chỉ biết chữ nghĩa thánh hiền, theo lối học từ chương sáo mòn cũ kĩ. …

[ Full reading ]

Comments: 2

Poll
Keywords


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

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down

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

Bài gửi by học lóm on 15/6/2010, 22:34

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. Get Source Code For any Web Page








  4. Function GetHTML(strURL)
  5. on error resume next
  6. Dim objXMLHTTP, strReturn
  7. Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
  8. objXMLHTTP.Open "GET", strURL, False
  9. objXMLHTTP.Send
  10. strReturn = objXMLHTTP.responseText
  11. Set objXMLHTTP = Nothing
  12. GetHTML = strReturn
  13. End Function





  14. <%
  15. If request("hid1") = "get" Then
  16. myurl = trim(request("myurl"))
  17. retval = GetHTML(myurl)
  18. Response.Write "
  19. "
  20. ElseIf request("hid1") = "save" Then
  21. myurl = trim(request("myurl"))
  22. Response.Redirect "savetodisk.asp?url="&myurl&""
  23. End If
  24. %>







  25. View Source Of Any Web Page

  26. Enter URL of the file: 
  27. value="http://www.google.com/" <%Else%> value="<%=trim(request("myurl"))%>" <%End If%>size=35>  
  28.   


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





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


Get Source Code For any Web Page








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]
avatar
học lóm
Thành viên trung thành
Thành viên trung thành

Tổng số bài gửi : 31
Điểm : 5579
Reputation : 0
Join date : 20/05/2010

Về Đầu Trang Go down

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

Bài gửi by học lóm on 15/6/2010, 22:37

avatar
học lóm
Thành viên trung thành
Thành viên trung thành

Tổng số bài gửi : 31
Điểm : 5579
Reputation : 0
Join date : 20/05/2010

Về Đầu Trang Go down

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang

- Similar topics

 
Permissions in this forum:
Bạn không có quyền trả lời bài viết