给个例子:
先写了一个Logic工程,里面包含User类模块,然后再在界面中写:
Set clsUser=CreateObject("Logic.User")
strLogin=clsUser.Login(frmLogin.inpUsername.Value, frmLogin.inpPassword.Value)
Select Case strLogin
Case "ERR-NOT-MATCH"
pMessage.innerHTML="<font color=""#FF0000"">Error, username and password not match</font>"
End Select
...