一个查看ASP的JavaScript程序
2000-10-31 10:11:32 来源:WEB开发网核心提示:<html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><title>asp源程序查看器</title><st
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>asp源程序查看器</title>
<style>.f{font-size:9pt}</style>
<script>
//程序作者:虹雨 chy.126.com
var autotop=new Array()
autotop[1]=""
autotop[2]=""
autotop[3]=""
autotop[4]=""
autotop[5]=""
var autoend=new Array()
autoend[1]=""
autoend[2]=""
autoend[3]=""
autoend[4]=""
autoend[5]=""
function auto(cn){
URL=document.forms[0].url.value.toLowerCase()
URLtop=URL.substring(0,7)
URLasp=""
if(URLtop!="http://"){
i=URL.indexOf("/",0)
if(i>5){
URLtop="http://"+URL.substring(0,i+1)
}else{
URLtop=""
}
}else{
i=URL.indexOf("/",12)
if(i>12){
URLtop=URL.substring(0,i+1)
}else{
URLtop=""
}
}
if(URLtop!=""){
j=URL.indexOf(".asp",i)
if(j>i)URLasp=URL.substring(i,j+4)
}
if(URLasp!=""){
if(cn<6){
window.open(URLtop+autotop[cn]+URLasp+autoend[cn],'')
}else{
for(cn=1;cn<6;cn++)window.open(URLtop+autotop[cn]+URLasp+autoend[cn],'')
}
}else{
alert("\n\n请输入正确的地址!\n\n")
}
}
</script>
</head>
<body bgcolor="#CCCCCC">
<form>
<table border="0" width="100%" bgcolor="#C0C0C0" cellpadding="10">
<tr>
<td>
<table border="1" width="100%" bgcolor="#999999" bordercolorlight="#000000" cellspacing="0"
bordercolordark="#FFFFFF" cellpadding="5">
<tr>
<td bgcolor="#808080" align="center">
<font color="#FFFFFF"><b>ASP源程序查看器</b></font>
</td>
</tr>
<tr>
<td>
<p>输入ASP程序地址:<input type="text" name="url" size="80" class="f" onFocus="select()">
</p>
</td>
</tr>
<tr>
<td>
选择ASP查看方法:<input type="button" value="code" onclick=auto(1) style=width:80
class="f">
<input type="button" value="showcode" onclick=auto(2) style=width:80 class="f"> <input
type="button" value="::$DATA" onclick=auto(3) style=width:80 class="f">
<input type="button" value="%81" onclick=auto(4) style=width:80 class="f"> <input
type="button" value="null" onclick=auto(5) style=width:80 class="f">
<input type="button" value="ALL" onclick=auto(6) style='width: 80; background-color:
#FF6600' class="f">
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" class="f">
<p align="center"><font color="#008000">这几天很多朋友给我来信或留言,出于安全的问题,本程序暂
时关闭了!</font></p>
<p> </p>
<hr>
<p>
本程序从五个系统的漏洞着手,提供用户五种查看网上ASP的源程序的方法,方便ASP爱好者的学习。因安全
防范的高低可能会出现五种方法都不法查看的ASP程序,这不是本程序的问题,如果你有新的方法请告之者。<p
align="center">
<font color="#FF0000">警告:本程序不可用于不法的行为,否则后果自负!!!</font><p
align="right">程序者:虹雨
</td>
</tr>
</table>
</td>
</tr>
</table>
</form>
</html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>asp源程序查看器</title>
<style>.f{font-size:9pt}</style>
<script>
//程序作者:虹雨 chy.126.com
var autotop=new Array()
autotop[1]=""
autotop[2]=""
autotop[3]=""
autotop[4]=""
autotop[5]=""
var autoend=new Array()
autoend[1]=""
autoend[2]=""
autoend[3]=""
autoend[4]=""
autoend[5]=""
function auto(cn){
URL=document.forms[0].url.value.toLowerCase()
URLtop=URL.substring(0,7)
URLasp=""
if(URLtop!="http://"){
i=URL.indexOf("/",0)
if(i>5){
URLtop="http://"+URL.substring(0,i+1)
}else{
URLtop=""
}
}else{
i=URL.indexOf("/",12)
if(i>12){
URLtop=URL.substring(0,i+1)
}else{
URLtop=""
}
}
if(URLtop!=""){
j=URL.indexOf(".asp",i)
if(j>i)URLasp=URL.substring(i,j+4)
}
if(URLasp!=""){
if(cn<6){
window.open(URLtop+autotop[cn]+URLasp+autoend[cn],'')
}else{
for(cn=1;cn<6;cn++)window.open(URLtop+autotop[cn]+URLasp+autoend[cn],'')
}
}else{
alert("\n\n请输入正确的地址!\n\n")
}
}
</script>
</head>
<body bgcolor="#CCCCCC">
<form>
<table border="0" width="100%" bgcolor="#C0C0C0" cellpadding="10">
<tr>
<td>
<table border="1" width="100%" bgcolor="#999999" bordercolorlight="#000000" cellspacing="0"
bordercolordark="#FFFFFF" cellpadding="5">
<tr>
<td bgcolor="#808080" align="center">
<font color="#FFFFFF"><b>ASP源程序查看器</b></font>
</td>
</tr>
<tr>
<td>
<p>输入ASP程序地址:<input type="text" name="url" size="80" class="f" onFocus="select()">
</p>
</td>
</tr>
<tr>
<td>
选择ASP查看方法:<input type="button" value="code" onclick=auto(1) style=width:80
class="f">
<input type="button" value="showcode" onclick=auto(2) style=width:80 class="f"> <input
type="button" value="::$DATA" onclick=auto(3) style=width:80 class="f">
<input type="button" value="%81" onclick=auto(4) style=width:80 class="f"> <input
type="button" value="null" onclick=auto(5) style=width:80 class="f">
<input type="button" value="ALL" onclick=auto(6) style='width: 80; background-color:
#FF6600' class="f">
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" class="f">
<p align="center"><font color="#008000">这几天很多朋友给我来信或留言,出于安全的问题,本程序暂
时关闭了!</font></p>
<p> </p>
<hr>
<p>
本程序从五个系统的漏洞着手,提供用户五种查看网上ASP的源程序的方法,方便ASP爱好者的学习。因安全
防范的高低可能会出现五种方法都不法查看的ASP程序,这不是本程序的问题,如果你有新的方法请告之者。<p
align="center">
<font color="#FF0000">警告:本程序不可用于不法的行为,否则后果自负!!!</font><p
align="right">程序者:虹雨
</td>
</tr>
</table>
</td>
</tr>
</table>
</form>
</html>
[]
更多精彩
赞助商链接