读书人

小弟我是个网页制作的菜鸟是个初学者

发布时间: 2012-02-27 10:00:22 作者: rapoo

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

读书人网 >ASP

热点推荐