JavaScript应用于asp开发场景

JavaScript应用于asp开发场景

演示代码示例:

  1 <%Path="../"%>
  2 <!--#include file="../../Inc/Conn.asp"-->
  3 <!--#include file="../../Inc/Web_Safe.asp"-->
  4 <!--#include file="../../Inc/Function.asp"-->
  5 <!--#include file="../Web_Save.asp"-->
  6 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  7 <html xmlns="http://www.w3.org/1999/xhtml">
  8 <head>
  9 <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
 10 <title>后台管理首页</title>
 11 <link href="../style/style.css" rel="stylesheet" type="text/css">
 12 </head>
 13 <body>
 14 <%
 15 Dim adminid,What,Up,style
 16     adminid      = Request.QueryString("adminid")
 17     What         = Request.QueryString("What")
 18     Id           = Request.QueryString("Id")
 19     UpId         = Request.QueryString("UpId")
 20     style        = Request.QueryString("style")
 21     
 22     Dim SClass,SBoard,SType
 23 If  adminid ="" Then
 24         Call Show_Msg("请选择要设置权限管理员!","Admin_User.asp")
 25   Else     
 26         Set Rsc =Conn.Execute("Select Web_Admin_Class,Web_Admin_Board,Web_Admin_Type From Web_Admin Where Web_Admin_Id="&adminid)
 27              On Error Resume Next
 28              If Not Rs.Eof Then
 29              
 30               SClass = Rsc("Web_Admin_Class")
 31               SBoard = Rsc("Web_Admin_Board")
 32               SType  = Rsc("Web_Admin_Type")
 33              End If
 34         Set Rsc =Nothing
 35         
 36         
 37  End If
 38     
 39     Select Case  style
 40            Case  "class"  Call DoUp(Id,UpId,"Class")
 41            Case  "Board"  Call DoUp(Id,UpId,"Board")
 42            Case  "Type"   Call DoUp(Id,UpId,"Type")
 43     End Select
 44 
 45     
 46     Sub DoUp(Id,UpId,style)
 47         If UpId<0 Then
 48            Call Show_Msg("已经到顶,不能再上移了!","?adminid="&adminid)
 49         Else
 50         
 51             On Error Resume Next 
 52             SQL = "Update  "&style&" set IsDesc="&UpId&" where "&style&"Id ="&Id
 53             Set Rs = Conn.Execute(SQL)
 54             Set Rs=Nothing
 55             Response.Redirect("?adminid="&adminid)
 56         End If
 57     End Sub
 58 
 59 %>
 60 <table width="99%" border="0" align=center cellpadding=3 cellspacing=1 bordercolor="#FFFFFF" bgcolor="#C4D8ED">
 61   <tbody>
 62     <tr>
 63       <td height=23  colspan=2 id="table_bg_title"><span class="STYLE1">  管理员管理 &gt; 权限管理</span></td>
 64     </tr>    
 65      <tr>
 66     <td height="30" align="left" class="plen">[<a href="Admin_Edit.asp" target="main"> 增加管理员 </a>] [ <a href="Admin_User.asp" target="main">管理员列表</a> ] </td>
 67     </tr> 
 68   <tr>
 69    <td bgcolor="#EEF7FD">
 70  <form action="Admin_Sys_Save.asp" method="post"  name="Doclass">
 71  <table width="100%" border="0" align=center cellpadding=8 cellspacing=1 bordercolor="#FFFFFF" bgcolor="#C4D8ED" class="m_top_bottom">
 72 
 73     <tr>
 74     <td width="94%" colspan="3" align="left" class="td_bg">
 75     </a> </span>      建设中</td>
 76     </tr>
 77 
 78   <tr>
 79     <td height=12 colspan="4" align="left" class="plen">
 80       操作:
 81         <input type="radio" name="check_class" id="chkAll" onClick="CheckAll();">
 82       全选 
 83        
 84       <input type="radio"  name="check_class" id="NotchkAll" onClick="unSelect();">
 85       反选      
 86       <input name="submit" type='submit' value=' '  onClick="return ConfirmDel()" class="send_botton1">
 87       <input type="reset" name="button4" id="button4" value=" " class="pic_botton1">
 88       <input name="action" type="hidden" id="action" value="Do_Sys" /> 
 89       <input name="Web_Admin_Id" type="hidden" id="Web_Admin_Id" value="<%=adminid%>" />      </td>
 90     </tr>
 91 </table>
 92 </form>   </td>
 93   </tr>
 94 </table>
 95 
 96 </body>
 97 </html>
 98 <script language="javascript"> 
 99 function unselectall(){
100         if(document.del.chkAll.checked){
101                 document.del.chkAll.checked = document.del.chkAll.checked;
102             }     
103     }
104     
105 function CheckAll1(form){
106     
107         for (var i=0;i<form.elements.length;i++){
108             var e = form.elements[i];
109             if (e.Name != "chkAll"){
110                 e.checked = form.chkAll.checked;
111             }
112         }
113     }
114 
115 function CheckAll(){ 
116          for(var i=0;i<document.Doclass.classid.length;i++){ 
117                 document.Doclass.classid[i].checked=true; 
118          }
119          for(var i=0;i<document.Doclass.Typeid.length;i++){ 
120                 document.Doclass.Typeid[i].checked=true; 
121          }
122          for(var i=0;i<document.Doclass.Boardid.length;i++){ 
123                 document.Doclass.Boardid[i].checked=true; 
124          } 
125 } 
126 
127 function unSelect(){ 
128 
129     for(var i=0;i<document.Doclass.classid.length;i++) { 
130         if(document.Doclass.classid[i].checked) 
131     { 
132         document.Doclass.classid[i].checked=false; 
133     } else { 
134         document.Doclass.classid[i].checked=true; 
135     } 
136     }
137 //
138     for(var i=0;i<document.Doclass.Boardid.length;i++) { 
139         if(document.Doclass.Boardid[i].checked) 
140     { 
141         document.Doclass.Boardid[i].checked=false; 
142     } else { 
143         document.Doclass.Boardid[i].checked=true; 
144     } 
145     }
146 //
147     for(var i=0;i<document.Doclass.Typeid.length;i++) { 
148         if(document.Doclass.Typeid[i].checked) 
149     { 
150         document.Doclass.Typeid[i].checked=false; 
151     } else { 
152         document.Doclass.Typeid[i].checked=true; 
153     } 
154     } 
155 //
156 } 
157 ////////////////////////
158 function ConfirmDel()
159 {
160    if(confirm("确定要提交吗?"))
161      return true;
162    else
163      return false;
164 }
165 </script>

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

发表于

我来说两句

0 条评论
登录 后参与评论

相关文章

来自专栏西安-晁州

使用connect-multiparty限制nodejs图片上传

connect-multiparty中间件,可用于获取文件上传时各种参数,比如文件大小、格式等,具体使用: var multipart = require('c...

2180
来自专栏菩提树下的杨过

"org.jboss.netty.internal.LoggerConfigurator".DESCRIBED is already registered 的解决办法

今天在jboss 6.2 EAP上部署一个项目时,报以下错误: org.jboss.msc.service.DuplicateServiceException:...

22210
来自专栏技术博文

ubuntu忘记root密码解决方法

1、重启电脑安ESC键或者F2键进入GRUB引导模式如下图所示,选择recovery mode。 2、 按e进入recovery mode 编译kernel进行...

3865
来自专栏小白安全

本地搭建安全狗无法安装插件问题的解决方法

一般是由于找不到apache服务名 其实很简单就可以解决的。 安装步骤:进入Apache安装目录下的bin目录: cd D:phpStudyAp...

2986
来自专栏不想当开发的产品不是好测试

linux free命令下 cached占用很大

# 背景 使用free -h命令,展示如下: ? # 解决方法 先执行sync命令,同步数据 然后执行 echo 1 > /proc/sys/vm/drop_c...

3755
来自专栏Java技术分享

SpringBoot第5小节:事务管理

场景:执行2条sql语句,要么同时成功,要么同时失败。 同时操作1条或多条数据时,建议给方法加个@Transactional,查询的时候不用加事务。 ?

3416
来自专栏各种机器学习基础算法

laravel访问路由在nginx服务器上无法处理

用过laravel的童鞋们都知道,访问路径一般都是/admin/index这样的形式,可是在nginx服务器上运行代码时却会出现无法找到页面的情况,这是因为ng...

3447
来自专栏逸鹏说道

Mongodb中经常出现的错误 child process failed, exited with error number

异常处理汇总-服 务 器 http://www.cnblogs.com/dunitian/p/4522983.html 异常处理汇总-数据库系列 http:/...

4055
来自专栏BeJavaGod

权限框架 - shiro 自定义realm

上篇文章中是使用的默认realm来实现的简单登录,这仅仅只是个demo,真正项目中使用肯定是需要连接数据库的 首先创建自定义realm文件,如下: ? 在shi...

3255
来自专栏机器学习实践二三事

pip安装报错'not a supported wheel on this platform'

这个错误很常见,解决方法是改名,首先要获得在你的机器的平台上的合法名称: import pip pip.pep425tags.get_supporte...

2527

扫码关注云+社区