<-- #Include File = "WebMatrix.INC" -->
<SCRIPT RunAt="Server" Language="VBScript">
Set WAzure = New WebMatrix
Set WRPC = New WebRemote
Set WMVX = New WebWorker
Set WRazor = WMVX.WRazorEngine
Private Sub WRPC_Worker
WRPC.CreateValue "Post", "Account"
WRPC.CreateValue "Posr", "ViewModel"
End Sub
Private Sub WMVX_InitModel
Rem WRazor "RazorFile", "ModelName"
WRazor "AppXRPC", "WAppRPC"
Set WRPC.WebService = New WAppRPC
WRazor "AppUser", ""
WRazor "RazorApp", "WApp"
End Sub
Private Sub WApp_InitModel
WApp.Sign WUser
End Sub
Private Sub WUser_InitModel
WUser "WUCell", WRPC.ValueAs("Account", "Ghost")
End Sub
dynamic include file "AppUser"
<SCRIPT RunAt="Server" Language="RazorEngine">
@Class WUserModel
Private WMUser_, WUType_, WUSign_, WUPass_
Private WUCell_, WUName_, WUNick_, WUMail_
Private WUSuss_, WUPath_, WU_KEY_
Public Property Let WDebug(ByVal NewValue)
Set WDebug_ = NewValue
WDebug_.Define vbCrLf& ""
End Property
Public Default Sub Define(ByVal Value, ByVal NewValue)
If Value = "WUCell" Then WUCell_ = NewValue
If Value = "WUName" Then WUName_ = NewValue
If Value = "WUMail" Then WUMail_ = NewValue
End Sub
Public Property Get WUCell()
WUCell = WUCell_
End Property
Public Property Get WUName()
WUName = WUName_
End Property
Public Property Get WUMail()
WUMail = WUMail_
End Property
End Class
dynamic include file "RazorApp"
<SCRIPT RunAt="Server" Language="RazorEngine">
@{
WUser = New WUserModel;
WUser.Sign();
var WUserName = WUser.WUName;
}
@if(WUser.WUCell == '')
{
WRPC.Send2Cell WRPC.RandomKey;
} else {
Hello @WUserName
}
|