http_asp.asp

来自「此程序是一个个人主页创造程序,该程序无插件,无任何恶意程序.」· ASP 代码 · 共 49 行

ASP
49
字号
<html>
<HEAD>

<script language="PerlScript" RUNAT=SERVER>
sub viewSource(\$){
	use LWP::Simple;
	my ($URL) =  @_;
	$Source = get($URL);
	if($Source ne "")
	{
	  	return true;
	}
	else
	{
	   return false;
	}
}
</script>
</HEAD>

<BODY>

<center>
Type in a full URL and click "Validate"
<br>
<br>
<form name=getSource action="http_asp.asp?url=<%= Request.Form("url") %>">
<input type=text name=url value="<%= Request.Form("url") %>">
<br>
<br>
<input type=submit name=view value="Validate">
</form>
</center>
<p><center>
<font face="arial, helvetica" size="-2">URL Validator by Huw Reddick<br>
</center><p>

<% 	if Request.querystring("url") <> "" then
		if viewSource(Request.querystring("url")) then
		response.write(Request.querystring("url"))
		else
		response.write("not found")
		end if
	End If %>
</font>
</body>
</html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?