仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 2918|回复: 20
打印 上一主题 下一主题

[学习教程] ASP教程之利用VBScript操作Html复选框(CheckBox...

[复制链接]
萌萌妈妈 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-2-3 23:37:38 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
ASP.NET和ASP的比较,技术上比较已经没什么可说的了.新一代在大部分程度来说当然是比旧一代好了. 关键看你对所做软件的理解了.因人而定.会写的话也可能比ASP.NET写得更有效率和更方便重用vbscript|复选框|控件   这两天看到有伴侣问起html内的各类控件怎样用script停止操作,如今本人也总结一下。由于项目缘由,良多法式都是用VBScript写的,感乐趣的伴侣可以改写成JavaScript,到时分别忘了同享一下啊,活活。

OK,切入主题,现引见一下:

明天引见利用VBScript判别复选框的选中数目和被选中的复选框的值。

在生成某个一览表时,好比一个定货单一览表,每条定货单纪录后面能够会放置一个复选框,以供应批量删除,刊行等功效。普通每一个复选框的值也就是前面对应纪录的主键的值,如定货单编号。在履行删除、刊行等功效时,就要晓得选了几个复选框,这些复选框分离对应甚么值,上面就说一下办法。

法式分为三局部:

1、判别被选定的CheckBox是一个仍是一个以上

次要思绪是:当有多个同名的复选框,但ID分歧时,举例复选框控件名为chkTest,那末它将被以数组的模式挪用,好比说有三个复选框名字叫chkTest,ID分离是chkTest1,chkTest2,chkTest3,那末要想检查三个复选框的checked属性就要这么写:chkTest(0).checked, chkTest(1).checked, chkTest(2).checked (数组从零入手下手);而当只要一个复选框的时分,直接可使用chkTest.checked。如许就决意了关于数目分歧的(1个或多个两种分离),只能采取分歧的办法来获得复选框的信息。因为当有多个同名分歧ID的控件时,该控件具有“控件名.type”这个属性,而这个只读的属性可以等于任何字符串,也就是说 控件名.type = “恣意字符串“ 恒为true。固然,这只是对有控件名.type这个属性的时分,不然恒为false,如许也就分辩出在一览内外的复选框是单个仍是多个了。法式以下:

'*************************************************
'<函数名>
' gfIs_ArrayTest(obj)
'<功效>
' 判别选定的CheckBox的是一个仍是一个以上
'<参数>
' CheckBox对象名
'<前往值>
' true
' false
'<备注>
' Created on Mar.15th.2004 by AITD
'*************************************************
function gfIs_ArrayTest(obj)
on error resume next
if obj.type = "flag" then
gfIs_ArrayTest = True
else
gfIs_ArrayTest = False
end if
end function

2、反省画面上复选框的选择是不是合适请求

所谓是不是合适请求的意思就是,好比说,删除的时分选择最少一笔记录,修改的时分选且只能选择一笔记录,至于其他的,甚么只能选择5条,只能选择10条等等,上面的法式改以下就好了。别忘了方才说的,只要一个复选框和有多个复选框的处置办法是纷歧样的。

'******************************************************
'<函数名>
' gfChkCheckbox()
'<功效>
' 反省画面CheckBox的选择是不是合适请求
'<参数>
' obj: 对应的checkbox控件
' flag: 反省划定规矩:0 可有多个被选中
' 1 只能有一个被选中
' name: 提醒用户谁人控件报错的信息
'<前往值>
' true
' false
'<备注>
' Created on Mar.15th.2004 by AITD
'******************************************************
function gfChkCheckbox(obj,flag,name)
Dim i
Dim j

gfChkCheckbox = false
i = 0
j = 0
'若对象不存在
if isnull(obj) then
msgbox "请选择一个 " + name + "。" '请选择一个对象
gfChkCheckbox = false
exit function
end if

'对象只要一个
if not gfIs_ArrayTest(obj) then
if obj.checked = false then
msgbox "请选择一个 " + name + "。" '请选择一个对象
gfChkCheckbox = false
exit function
else
gfChkCheckbox = true
exit function
end if
end if

'如有多个对象存在

for i = 0 to (obj.length - 1)
if obj(i).type = "checkbox" then
if obj(i).checked = true then
j = j + 1
end if
end if
next

if j = 0 then
msgbox "请选择 " + name + "。" '请选择一个对象
gfChkCheckbox = false
exit function
end if
if j = 1 then
gfChkCheckbox = true
exit function
end if
if j > 1 then
if flag = 1 then
msgbox "只能选择一个 " + name + "。" '只能选择一个对象
gfChkCheckbox = false
exit function
else
gfChkCheckbox = true
exit function
end if
end if

end function

3、获得复选框的值

为了前面处置的便利,常把主要的信息保留在复选框的value属性里,以便前面取用。上面的法式将选中的复选框的值以距离符 “^|^“ 串成一个字符串并前往。

'*************************************************
'<函数名>
' gfGetCheckBoxValue(obj)
'<功效>
' 获得选定的CheckBox的值
'<参数>
' CheckBox对象名
'<前往值>
' 选定的CheckBox的值
'<备注>
' Created on Mar.15th.2004 by AITD
'*************************************************
function gfGetCheckBoxValue(obj)

dim strValue
dim intCounter
dim i

strValue = ""
intCounter = 0

'假如对象不存在
if isnull(obj) then
gfGetCheckBoxValue = strValue
exit function
end if

'假如对象为一个
if not gfIs_ArrayTest(obj) then
if obj.checked = false then
gfGetCheckBoxValue = strValue
exit function
else
gfGetCheckBoxValue = obj.value
exit function
end if
end if

'假如对象为多个
for i = 0 to obj.length - 1
if obj(i).checked = true then
if intCounter > 0 then
strValue = strValue & "^|^" & CStr(obj(i).value)
else
strValue = CStr(obj(i).value)
end if
intCounter = intCounter + 1
end if
next
</p>  使用filesystemobject,可以对服务器上的文件进行操作,浏览、复制、移动、删除等。有ado的支持,asp对数据库的操作非常得心应手。你甚至可以像使用本地数据库那样,管理远程主机上的数据库,对表格、记录进行各种操作。
山那边是海 该用户已被删除
沙发
发表于 2015-2-4 03:54:35 | 只看该作者
你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。
深爱那片海 该用户已被删除
板凳
发表于 2015-2-9 15:28:18 | 只看该作者
学习是为了用的,是为了让你的程序产生价值,把握住这个原则会比较轻松点。除此之外,课外时间一定要多参加一些社会实践活动,来锻炼自己的能力。
乐观 该用户已被删除
地板
发表于 2015-2-27 07:56:21 | 只看该作者
在平时的学习过程中要注意现学现用,注重运用,在掌握了一定的基础知识后,我们可以尝试做一些网页,也许在开始的时候我们可能会遇到很多问题,比如说如何很好的构建基本框架。
变相怪杰 该用户已被删除
5#
发表于 2015-3-8 23:48:57 | 只看该作者
它可通过内置的组件实现更强大的功能,如使用A-DO可以轻松地访问数据库。
不帅 该用户已被删除
6#
发表于 2015-3-11 12:27:38 | 只看该作者
以HTML语言整合(HTML负责界面上,ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。
爱飞 该用户已被删除
7#
发表于 2015-3-16 05:39:04 | 只看该作者
如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质,我们可以在实践中不断提升自己,不断充实自己。
小女巫 该用户已被删除
8#
发表于 2015-3-19 17:21:50 | 只看该作者
运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中,便可快速完成网站的应用程序,无需编译,可在服务器端直接执行。容易编写,使用普通的文本编辑器编写,如记事本就可以完成。由脚本在服务器上而不是客户端运行,ASP所使用的脚本语言都在服务端上运行。
简单生活 该用户已被删除
9#
发表于 2015-3-24 10:45:47 | 只看该作者
Request:从字面上讲就是“请求”,因此这个是处理客户端提交的东东的,例如Resuest.Form,Request.QueryString,或者干脆Request("变量名")
飘灵儿 该用户已被删除
10#
发表于 2015-3-24 18:29:35 | 只看该作者
在平时的学习过程中要注意现学现用,注重运用,在掌握了一定的基础知识后,我们可以尝试做一些网页,也许在开始的时候我们可能会遇到很多问题,比如说如何很好的构建基本框架。
金色的骷髅 该用户已被删除
11#
发表于 2015-4-1 03:09:39 | 只看该作者
尽管MS自己讲C#内核中更多的象VC,但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言,而不是一种脚本,所以它具有面向对象编程语言的一切特性,比如封装性、继承性、多态性等等,这就解决了刚才谈到的ASP的那些弱点。
若相依 该用户已被删除
12#
发表于 2015-4-2 10:20:34 | 只看该作者
用户端的浏览器不需要提供任何别的支持,这样大提高了用户与服务器之间的交互的速度。
13#
发表于 2015-4-4 22:41:43 | 只看该作者
ASP的语言不仅仅只是命令格式差不多,而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的,但他就是完全继承了VB所有的功能。
小魔女 该用户已被删除
14#
发表于 2015-4-10 02:11:34 | 只看该作者
先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习
admin 该用户已被删除
15#
发表于 2015-4-13 14:28:29 | 只看该作者
虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家,只是从一个例子告诉你怎么用。不会深入讨论,更不会将没有出现在例子里的方法都一一列举出来。
灵魂腐蚀 该用户已被删除
16#
发表于 2015-5-8 20:51:20 | 只看该作者
用户端的浏览器不需要提供任何别的支持,这样大提高了用户与服务器之间的交互的速度。
兰色精灵 该用户已被删除
17#
发表于 2015-5-11 21:16:52 | 只看该作者
我认为比较好的方法是找一些比较经典的例子,每个例子比较集中一种编程思想而设计的。
飘飘悠悠 该用户已被删除
18#
发表于 2015-6-18 08:42:21 | 只看该作者
运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改,找出你觉得可以提高性能的地方,加上自己的设计,那就更上一个层次了,也就会真正地感到有所收获。
蒙在股里 该用户已被删除
19#
发表于 2015-7-10 21:38:21 | 只看该作者
跟学别的语言一样,先掌握变量,流程控制语句(就是ifwhileselect)等,函数/过程,数组
精灵巫婆 该用户已被删除
20#
发表于 2015-7-18 01:35:36 | 只看该作者
没有坚实的理论做基础,那么我们连踏入社会第一步的资本都没有,特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP,从平时的学习过程中。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-4-28 16:21

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表