当前位置: 首页 > 图文教程 > 网络编程 > ASP > 一个查看ASP的javascript程序

ASP
分享一段代码show.asp?id=26变成show/?26的形式
多域名一网站时如果返回最原来的域名
[原创]完美解决ASP 不能更新。数据库或对象为只读。
5天学会asp
TSYS中生成静态页时溢出: ''CInt''
对象标记具有无效的 ''MSWC.MyInfo'' ProgID
[原创]随机增加网站点击的一个不错的方法
Microsoft JET Database Engine 错误 ''80004005'' 未指定的错误的完美解决方法
反SPAM新思路—换Z-BLOG的验证码!
七步倒┈→专用asp后门
asp下实现代码的“运行代码”“复制代码”“保存代码”功能源码
使用ASP实现网站的“目录树”管理的代码
ShowPage 显示“上一页 下一页”等信息的封装代码
[原创]站长感慨asp编程究竟何去何从
响应对象 错误 ''ASP 0185 : 80020003'' 缺少默认属性
[原创]asp下用实现模板加载的的几种方法总结
[原创]asp获取URL参数的几种方法分析总结
Access数据库中“所有记录中均未找到搜索关键字”的解决方法
ASP程序中输出Excel文件实例一则
ASP应用中如何限制同一表单被多次提交

一个查看ASP的javascript程序


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 190 ::
收藏到网摘: n/a

  <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>    
                
          &nbs