繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 一个查看ASP的javascript程序
- ASP
- Microsoft SQL Server 7.0安全问题
- 最优化ASP程序性能
- Access数据库操作中出现的怪现象
- 将ASP代码移植为VB COM组件-1
- 将ASP代码移植为VB COM组件-2
- 将ASP代码移植为VB COM组件-3
- 将ASP代码移植为VB COM组件-4
- 使用ASP常见问题解答
- 数据库聊天室的“无刷新”技术要点
- 把ASP移植到ASP+
- 如何使用XQI？
- 一个普通的数据库例子源源程序
- 让Session对象在不同域名下实现共享
- 无组件图片与文本同步存入数据库的最简单的办法
- 在WAP网站上建立反馈表单
- 如何增强ASP程序性能(4)
- 关于在浏览器中执行*.exe文件的深入探讨!
- 用RecordSet实现分页(by Daniel Adrian)
- remote script文档(转载自微软)(九)
- Microsoft 脚本编码器Script Encoder介绍（1）全中文
一个查看ASP的javascript程序
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 30 ::
收藏到网摘: n/a
<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
评论 (0) All
