|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
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对数据库的操作非常得心应手。你甚至可以像使用本地数据库那样,管理远程主机上的数据库,对表格、记录进行各种操作。 |
|