谁来解说下参数传递的高深应用法

wei50922

简单的就不用说了，比如：自行车的链子，链子是怎么传递动力的，动力就是参数，每个链环就是一个子程序 ，齿轮盘每插入一个链环就是调用一次子程序，而动力怎么从变速箱通过链条转到后轴的？？？？以上例子是一高手解说参数，以下是我的ASP登录代码，高手说我的参数传递是成放射性的，而不是链接性的。。百思不得其解，看有哪位高手来解说下。。。

Sub UserLoginClass()        '操作员登录
        Call UrlInfor()        '加载链接信息
        Call UserLoginForm(ValUser,ValPwd)'加载获取登录表单信息
        Call LoginPass(ValUser,ValPwd)'加载登录过程
End Sub
'------------------------------------------------------------------
Sub UserLoginForm(StrUser,StrPwd)        '获取登录表单信息
        StrUser=Trim(Request.Form("t1"))        '用户名
                Call WriteB(ChkStrNull(StrUser),UserInfor("Login",1),UrlLogin)
        StrPwd=Trim(Request.Form("t2"))        '密码
                Call WriteB(ChkStrNull(StrPwd),UserInfor("Login",2),UrlLogin)
End Sub
'-------------------------------------------------------------------
Sub LoginPass(StrUser,StrPwd)        '登录过程
        Call ConnOpen(Conn)        '创建连接数据库
        Call AdminTableInfor()'        加载数据表信息
        Set Rs=RsSet(Conn,3,1,"Select Top 1 "&AdminId&","&AdminUid&","&AdminPwd&","&UseApp&" from "& AdminTable &" Where "&AdminUid&"='"&StrUser&"'")        '函数RsSet查询数据表
                If Rs.RecordCount>0 Then
                        If Rs(AdminPwd)=StrPwd Then       
                                If Rs(UseApp)<>0 then        '验证是否已通过审核                               
                                        Session(AdId)=Rs(AdminId)
                                                Call RsClose(Rs)
                                                Call ConnClose(Conn)
                                                Response.Redirect UrlIndex
                                                Response.End
                                Else       
                                        Call RsClose(Rs)
                                        Call ConnClose(Conn)
                                        Call WriteA(UserInfor("Login",6),UrlLogin)
                                End If
                        Else
                                Call RsClose(Rs)
                                Call ConnClose(Conn)       
                                Call WriteA(UserInfor("Login",4),UrlLogin)
                        End If
                Else
                        Call RsClose(Rs)
                        Call ConnClose(Conn)
                        Call WriteA(UserInfor("Login",3),UrlLogin)
                End If               
End Sub

wei50922

Sub UserLoginClass()        '操作员登录
        Call UrlInfor()        '加载链接信息
        Call UserLoginForm(ValUser,ValPwd)'加载获取登录表单信息
        Call LoginPass(ValUser,ValPwd)'加载登录过程
End Sub
这一句中。。。。

yy100

;P
你怎么跑这来了;P ;P ;P ;P ;P ;P ;P ;P

wei50922

居然跑到师兄头上撒野了
高手出来顶一下喂。。。。。

zkkpkk

VBS？！帮不了你了，我都是类C++的，好不容易从过程化的思想中跳出来，不想卷回去了

路遇乞丐缠身，你忍痛施舍了 82 思明论坛，热心值加 3 ！

　　　下次努力哦！……

VBS也不见得不能面向对象，关键在于用的人，OOP只是一种思想，跟具体的语言无关，当然，C++由于语言自身的优点，可以写出更完美的面向对象的代码

zkkpkk

原帖由 update 于 2006-11-10 10:22 发表
VBS也不见得不能面向对象，关键在于用的人，OOP只是一种思想，跟具体的语言无关，当然，C++由于语言自身的优点，可以写出更完美的面向对象的代码

说得没错，行家，但是VBS里用面向对象的思维方式太难了，你不见LZ也不是就OOP讨论的吗？LZ这种常用VBS的人尚且如此......