日期:2009-03-23  浏览次数:21015 次

一个查看ASP的JavaScript程序,方便大家学习ASP程序(JS)
http://aspage.yeah.net/------------------------
--------------------from 《彩虹细雨》--------------------------------------------------
<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>