我是个网页制作的初学者,是个菜鸟,有个问题想请教一下大家!
Dim rs
Dim StrSQL
dim Form_action
if isempty(Request( "action ")) then
Form_action= "Type_List "
else
Form_action=lcase(Request( "action "))
end if
Select case Form_action
case "Type_List "
Type_List
case "add "
Type_Add
case "edittype "
edittype
case "edit "
Type_Edit
case "delete "
Type_Delete
end Select
请问一下这个句子怎么解释?那位热心的大哥帮忙解释一下!
------解决方案--------------------应该还有其他语句,主要功能可能就是通过action这个变量的值来选择对表单的操作。 Type_List
Type_Add
edittype
Type_Edit
Type_Delete
这些操作,但这些FUNCTION都还没写。
------解决方案--------------------Dim rs
Dim StrSQL
dim Form_action
'定义了三个变量,看名称应该是 rs 放数据库记录集, strsql放数据库的sql查询语句字符串,form_action放表单递交过来的一个参数,这个参数应该是用来选择本次操作是增加还是修改等
if isempty(Request( "action ")) then
Form_action= "Type_List "
else
Form_action=lcase(Request( "action "))
end if
'如果传过来的action参数是空,那默认就是 Type_List 看名称应该是列表吧
Select case Form_action
'根据参数分别处理
case "Type_List "
Type_List
'是Type_List 执行Type_List自定义子程序,那儿定义你看这个文件的别的部分,或者有包含文件的里面
case "add "
Type_Add
'如果是add,执行Type_Add自定义子程序,应该就是增加了
case "edittype "
edittype
'如果是edittype,执行edittype自定义子程序,应该就是修改类型了
case "edit "
Type_Edit
'如果是edit,执行Type_Edit自定义子程序,应该就是修改了
case "delete "
Type_Delete
'如果是delete,执行Type_Delete自定义子程序,应该就是删除了
end Select
'结束分支语句