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 条评论
登录 后参与评论

相关文章

来自专栏Youngxj

查看自己是否被DNS劫持-网易小工具

1433
来自专栏北京马哥教育

Python与系统日常管理

大多时间都在linux下工作,虽说不算系统管理员,也免不了要处理许多系统相关的东西。对linux还算熟悉,偶尔也在公司客串系统管理员的角色。于是就免不了要写许...

3516
来自专栏ThoughtWorks

OpenShift中的持续交付 | 洞见

持续交付 如果要打造一个持续交付的流水线,首先要考虑多环境的问题。一般一个应用程序会有多个环境,比如开发环境、集成测试环境、系统测试环境、用户验收测试环境、类生...

3438
来自专栏ytkah

微信公众号后台编辑器出现短暂故障 附找回素材的方法

  今天下午(大致为8月15日13:30-14:40),微信公众平台后台编辑器出现短暂故障,保存素材后会出现被清空的现象,15:30左右已全面修复。   对于因...

2736
来自专栏后端技术探索

记一次worker_rlimit_nofile配置引发的问题

记录一次最近公司SEO优化压测,以前所有页面上的数据都是通过JS获取的,这样会有一个问题,就是SEO不友好,所以就增加了一层Node,接口请求放在了Node里,...

573
来自专栏一枝花算不算浪漫

Nginx负载均衡的详细配置及使用案例详解.

35813
来自专栏FreeBuf

技术分享 | 劫持DNS通过流量植入木马实验

很多时候对目标进行渗透时一般会从web、网络设备、针对性钓鱼这三个方向入手。假设我们控制了目标网络中的一台网络设备,如路由器,内网用户流量会从这个地方经过我们怎...

963
来自专栏冷冷

Consul Config 使用Git做版本控制的实现

Spring Cloud Config 原理 ? 我们通过git 把配置文件推送到远程仓库做版本控制,当版本发生变化的时候,远程仓库通过webhook机制推送消...

3185
来自专栏前端侠2.0

oracle数据链接无效以及chrome浏览器input最大长度的问题

1、本地数据库是oracle10.0.2.1  .年前总部数据库升级为oracle11,原来的 数据链接变得不可用了。提示:

672
来自专栏喔家ArchiSelf

老曹眼中的Linux基础

Linux 几乎无处不在,不论是服务器构建,还是客户端开发,对操作系统的基本理解和基础技能的掌握对全栈来说都是必备的。

803

扫码关注云+社区