【 tulaoshi.com - ASP 】
<html
<head
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"
<titleASP源程序查看器</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(i5){
URLtop="http://"+URL.substring(0,i+1)
}else{
URLtop=""
}
}else{
i=URL.indexOf("/",12)
if(i12){
URLtop=URL.substring(0,i+1)
}else{
URLtop=""
}
}
if(URLtop!=""){
j=URL.indexOf(".asp",i)
if(ji)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("nn请输入正确的地址！nn")
}
}
</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"<bASP源程序查看器</b</font
</td
</tr
<tr
<td
<p输入ASP程序地址：<input type="text" name="url" size="80" class="f" onFocus="select()"
</p
</td
</tr
<tr
<td
&nbs
