日期:2014-05-17  浏览次数:20898 次

我是个网页制作的初学者,是个菜鸟,有个问题想请教一下大家!
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
'结束分支语句