Xem mã nguồn ngay trên Sites của mình - VN-Zoom forum

otarachi · 12-10-2007, 11:30

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>&nbsp;
						<input type=text name=myurl <%If trim(request("myurl"))="" Then%> value="http://www.google.com" <%Else%> value="<%=trim(request("myurl"))%>" <%End If%>size=35>&nbsp;&nbsp;
						<input type=button name=getbut value="Get It" onclick="javascript:getit('get')">&nbsp;&nbsp;						
						<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)
%>

hoangngan · 04-03-2008, 12:01

Không hiểu bạn àh.

phiduclong · 04-03-2008, 12:16

bạn chỉ cần tạo ra hai trang có nội dung như trên. sau đó chạy thế thôi.
Đã check nhưng ko chạy được ko get source được. bạn kiểm tra hộ mình nha

otarachi · 07-03-2008, 08:55

Work bình thường mà bạn..bạn thử 1 số trang khác xem

vumanhtuan87 · 07-03-2008, 09:00

Mã asp à. Học kỳ sau mình mới học nhưng mà là học asp.net cơ. Nên đọc chẳng hiểu gì ráo

otarachi · 08-03-2008, 09:04

Trích:

vumanhtuan87

Mã asp à. Học kỳ sau mình mới học nhưng mà là học asp.net cơ. Nên đọc chẳng hiểu gì ráo

Chữ x trong aspx là viết tắt của từ extension tức là aspx chỉ là mở rộng của asp( tôi ko bàn về cái mở rộng này )..bạn học aspx chắc chắn hiểu được asp.

07-03-2008, 08:55	#4
otarachi Rìu Bạc Tham gia: Aug 2007 Đến từ: Application Technology Bài: 335 VZD: 11.653 Điểm: 75/41 bài viết	Work bình thường mà bạn..bạn thử 1 số trang khác xem __________________ Phụ nữ thích nhiều thứ ở 1 người đàn ông Đàn ông thích 1 thứ ở nhiều người phụ nữ

Ðiều Chỉnh
Tạo trang in Email trang này
Xếp Bài
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

04-03-2008, 12:01	#2
hoangngan Gà Con Tham gia: Mar 2008 Bài: 3 VZD: 241 Điểm: 0/0 bài viết	Không hiểu bạn àh.

04-03-2008, 12:16	#3
phiduclong Gà Con Tham gia: Aug 2007 Bài: 3 VZD: 329 Điểm: 7/1 bài viết	bạn chỉ cần tạo ra hai trang có nội dung như trên. sau đó chạy thế thôi. Đã check nhưng ko chạy được ko get source được. bạn kiểm tra hộ mình nha

07-03-2008, 09:00	#5
vumanhtuan87 Rìu Bạc Tham gia: Oct 2007 Bài: 335 VZD: 9.694 Điểm: 284/55 bài viết	Mã asp à. Học kỳ sau mình mới học nhưng mà là học asp.net cơ. Nên đọc chẳng hiểu gì ráo