这段代码定义的是一个用户登录判断过程 ShowUserLogin()
函数sub用来定义一个过程.
过程的调用方法
该段代码意思是：
当用Session("UserName")的值为空时,就调用用户登陆界面,提示用户进行登录,或者进行新用户注册.后面的一段JS代码是对对表单元素的检测,判断用户是否填写用户名和密码,如果没有则给出提示!
else后面表示如果Session("UserName")的值不为空时,即用户已登录时.显示欢迎信息,包含两个链接：退出会员中心、会员管理中心.
英语翻译sub ShowUserLogin()dim strLoginIf Session("UserName")=""
1个回答
相关问题
-
英语翻译Dim selectedate%Const pi = 3.1415926Private Sub Form_Loa
-
英语翻译Private Sub cmdOK_Click()Dim SQL As StringDim rs As ADOD
-
英语翻译如题,程序是这样的：Public Sub RecordEdit()Dim intCount As Integer
-
Fix函数的具体用法,Prirate sub Form__click( )Dim R1 as double ,Dim R
-
Private Sub Form_Click() Dim x As Integer Static y As Intege
-
Private Sub Command1_Click() Dim a As Long a = 1234 a& = 456
-
Private Sub Command1_Click() Dim x As Single,y As Single Pic
-
vb题 Private Sub Command 1 _Click（）Dim x As Integerx=Val（Inpu
-
0402 Private Sub Command1_Click() Dim a As Single,b As Singl
-
Private Sub Form_Click( ) Dim x As Integer,y As Integer,z As