Const IncludeDirectory = "F:\Development\VBS Includes\"
includeFile "adovbs"
includeFile "CLogger"
includeFile "Public_Functions"
includeFile "VBSEnvironment"
includeFile "Database_Class"
includeFile "lib.collections"
Dim props,fieldNamesArray
Dim oConn,fso,includedFile,rs
Dim fixedTableName,tableName
Dim PrimaryKeyDictionary
Set oConn = WScript.CreateObject("ADODB.Connection")
Set fso = WScript.CreateObject("Scripting.Filesystemobject")
oConn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=F:\Development\Tracking_Kits\Data\webdata - Copy.mdb"
'oConn.ConnectionString = "Provider=SQLOLEDB;Data Source=danielsubuntu,15789;Initial Catalog=northwind;User Id=sa;Password=SunBrightShine!;"
Init
fixedTableName = Replace(rs("TABLE_NAME")," ","_")
tableName = rs("TABLE_NAME")
Do While Not rs.EOF
fixedTableName = Replace(rs("TABLE_NAME")," ","_")
tableName = rs("TABLE_NAME")
'If tableName <> "meta_migrations" Then
If tableName <> "meta_migrations" AND tableName = "CustomOfficeCopyJob" Then
debug.WriteLine(tableName)
If Not fso.FolderExists(ScriptDirectory()& "Controllers\"& fixedTableName) Then fso.CreateFolder(ScriptDirectory()& "Controllers\"& fixedTableName)
If Not fso.FolderExists(ScriptDirectory()& "Controllers\") Then fso.CreateFolder(ScriptDirectory()& "Controllers\")
If Not fso.FolderExists(ScriptDirectory()& "Views\" & Replace(tableName," ","_")) Then fso.CreateFolder(ScriptDirectory()& "Views\" & Replace(tableName," ","_"))
Set file = fso.CreateTextFile(ScriptDirectory()& "DomainModels\" & fixedTableName & "Repository.asp",True)
includedFile.WriteLine("<!--#include file=""DomainModels/"& fixedTableName & "Repository.asp""-->")
file.WriteLine("<%")
file.WriteLine("'=======================================================================================================================")
file.WriteLine("' " & fixedTableName & " Model")
file.WriteLine("'=======================================================================================================================")
file.WriteLine("")
file.WriteLine("Class " & fixedTableName & "Model_Class")
file.WriteLine(" Public Validator")
file.WriteLine(" Public Class_Get_Properties")
file.WriteLine("")
InitFieldNameIterator ' This Sub is werid and needs to be looked at
fieldNamesArray = props.toArray()
file.WriteLine("")
file.WriteLine(" Private Sub Class_Initialize")
file.WriteLine(" 'ValidateExitsts Me, """",""""")
file.WriteLine(" Class_Get_Properties = Array(""" & Join (fieldNamesArray,", ") & """)")
file.WriteLine(" End Sub")
file.WriteLine("")
file.WriteLine("End CLass")
file.WriteLine("")
file.WriteLine("'=======================================================================================================================")
file.WriteLine("' " & tableName & " Repository")
file.WriteLine("'=======================================================================================================================")
file.WriteLine("")
file.WriteLine("Class " & fixedTableName & "Repository_Class")
file.WriteLine("")
file.WriteLine(" Public Function FindBy" & PrimaryKeyDictionary(tableName) & "("& PrimaryKeyDictionary(tableName) & ")")
file.WriteLine(" dim sql : sql = ""Select [" & Join (fieldNamesArray,"], [") & "] FROM [" & tableName & "] WHERE " & PrimaryKeyDictionary(tableName) & " = ?""")
file.WriteLine(" dim rs : set rs = DAL.Query(sql," & PrimaryKeyDictionary(tableName) & ")")
File.WriteLine(" If rs.EOF then")
File.WriteLine(" Err.Raise 1, """ & fixedTableName & "Repository_Class"", "& fixedTableName &"NotFoundException(""" & PrimaryKeyDictionary(tableName) &""", "& PrimaryKeyDictionary(tableName) & ")")
File.WriteLine(" Else")
File.WriteLine(" set FindBy" & PrimaryKeyDictionary(tableName) & " = Automapper.AutoMap(rs,""" & tableName & "Model_Class" & """)")
file.WriteLine(" End If")
file.WriteLine(" End Function")
file.WriteLine("")
file.WriteLine(" Public Function GetAll(orderBy)")
file.WriteLine(" set GetAll = Find(empty,orderBy)")
file.WriteLine(" End Function")
file.WriteLine("")
file.WriteLine(" Public Function Find(where_kvarray, order_string_or_array)")
file.WriteLine(" dim sql : sql = ""Select [" & Join (fieldNamesArray,"], [") & "] FROM [" & tableName & "]""")
File.WriteLine("")
File.WriteLine(" If Not IsEmpty(where_kvarray) then")
File.WriteLine(" sql = sql & "" WHERE """)
File.WriteLine(" dim where_keys, where_values")
File.WriteLine(" KVUnzip where_kvarray, where_keys, where_values")
file.WriteLine("")
file.WriteLine(" dim i")
file.WriteLine(" For i = 0 to UBound(where_keys)")
file.WriteLine(" If i > 0 then sql = sql & "" AND """)
file.WriteLine(" sql = sql & "" "" & where_keys(i) & "" """)
file.WriteLine(" Next")
file.WriteLine(" End If")
file.WriteLine("")
file.WriteLine(" If Not IsEmpty(order_string_or_array) then")
file.WriteLine(" sql = sql & ""ORDER BY """)
file.WriteLine(" If IsArray(order_string_or_array) then")
file.WriteLine(" dim order_array : order_array = order_string_or_array")
file.WriteLine(" For i = 0 to UBound(order_array)")
file.WriteLine(" If i > 0 then sql = sql & "", """)
file.WriteLine(" sql = sql & "" "" & order_array(i)")
file.WriteLine(" Next")
file.WriteLine(" Else")
file.WriteLine(" sql = sql & order_string_or_array & "" """)
file.WriteLine(" End If")
file.WriteLine(" End If")
file.WriteLine("")
file.WriteLine(" dim rs : set rs = DAL.Query(sql, where_values)")
file.WriteLine(" set Find = " & fixedTableName & "List(rs)")
file.WriteLine(" Destroy rs")
file.WriteLine(" End Function")
file.WriteLine("")
file.WriteLine(" Public Function FindPaged(where_kvarray, order_string_or_array, per_page, page_num, ByRef page_count, ByRef record_count)")
file.WriteLine(" dim sql : sql = ""Select [" & Join (fieldNamesArray,"], [") & "] FROM [" & tableName & "]""")
File.WriteLine("")
File.WriteLine(" If Not IsEmpty(where_kvarray) then")
File.WriteLine(" sql = sql & "" WHERE """)
File.WriteLine(" dim where_keys, where_values")
File.WriteLine(" KVUnzip where_kvarray, where_keys, where_values")
file.WriteLine("")
file.WriteLine(" dim i")
file.WriteLine(" For i = 0 to UBound(where_keys)")
file.WriteLine(" If i > 0 then sql = sql & "" AND """)
file.WriteLine(" sql = sql & "" "" & where_keys(i) & "" """)
file.WriteLine(" Next")
file.WriteLine(" End If")
file.WriteLine("")
file.WriteLine(" If Not IsEmpty(order_string_or_array) then")
file.WriteLine(" sql = sql & ""ORDER BY """)
file.WriteLine(" If IsArray(order_string_or_array) then")
file.WriteLine(" dim order_array : order_array = order_string_or_array")
file.WriteLine(" For i = 0 to UBound(order_array)")
file.WriteLine(" If i > 0 then sql = sql & "", """)
file.WriteLine(" sql = sql & "" "" & order_array(i)")
file.WriteLine(" Next")
file.WriteLine(" Else")
file.WriteLine(" sql = sql & order_string_or_array & "" """)
file.WriteLine(" End If")
file.WriteLine(" End If")
file.WriteLine("")
file.WriteLine(" dim list : set list = new LinkedList_Class")
file.WriteLine(" dim rs : set rs = DAL.PagedQuery(sql, where_values, per_page, page_num)")
file.WriteLine("")
file.WriteLine(" If Not rs.EOF and Not (IsEmpty(per_page) and IsEmpty(page_num) and IsEmpty(page_count) and IsEmpty(record_count)) then")
file.WriteLine(" rs.PageSize = per_page")
file.WriteLine(" rs.AbsolutePage = page_num")
file.WriteLine(" page_count = rs.PageCount")
file.WriteLine(" record_count = rs.RecordCount")
file.WriteLine(" End If")
file.WriteLine("")
file.WriteLine(" set FindPaged = Paged"& fixedTableName & "List(rs, per_page)")
file.WriteLine(" Destroy rs")
file.WriteLine(" End Function")
file.WriteLine("")
file.WriteLine(" Public Function SearchTablePaged(where_kvarray, order_string_or_array, per_page, page_num, ByRef page_count, ByRef record_count)")
file.WriteLine(" dim sql : sql = ""Select [" & Join (fieldNamesArray,"], [") & "] FROM [" & tableName & "]""")
File.WriteLine("")
File.WriteLine(" If Not IsEmpty(where_kvarray) then")
File.WriteLine(" sql = sql & "" WHERE """)
File.WriteLine(" dim where_keys, where_values")
File.WriteLine(" KVUnzip where_kvarray, where_keys, where_values")
file.WriteLine("")
file.WriteLine(" dim i")
file.WriteLine(" For i = 0 to UBound(where_keys)")
file.WriteLine(" If i > 0 then sql = sql & "" OR""")
file.WriteLine(" sql = sql & "" "" & where_keys(i) & "" LIKE ?""")
file.WriteLine(" Next")
file.WriteLine(" End If")
file.WriteLine("")
file.WriteLine(" If Not IsEmpty(order_string_or_array) then")
file.WriteLine(" sql = sql & "" ORDER BY """)
file.WriteLine(" If IsArray(order_string_or_array) then")
file.WriteLine(" dim order_array : order_array = order_string_or_array")
file.WriteLine(" For i = 0 to UBound(order_array)")
file.WriteLine(" If i > 0 then sql = sql & "", """)
file.WriteLine(" sql = sql & "" "" & order_array(i)")
file.WriteLine(" Next")
file.WriteLine(" Else")
file.WriteLine(" sql = sql & order_string_or_array & "" """)
file.WriteLine(" End If")
file.WriteLine(" End If")
file.WriteLine("")
file.WriteLine(" dim list : set list = new LinkedList_Class")
file.WriteLine(" dim rs : set rs = DAL.PagedQuery(sql, where_values, per_page, page_num)")
file.WriteLine("")
file.WriteLine(" If Not rs.EOF and Not (IsEmpty(per_page) and IsEmpty(page_num) and IsEmpty(page_count) and IsEmpty(record_count)) then")
file.WriteLine(" rs.PageSize = per_page")
file.WriteLine(" rs.AbsolutePage = page_num")
file.WriteLine(" page_count = rs.PageCount")
file.WriteLine(" record_count = rs.RecordCount")
file.WriteLine(" End If")
file.WriteLine("")
file.WriteLine(" set SearchTablePaged = Paged"& fixedTableName & "List(rs, per_page)")
file.WriteLine(" Destroy rs")
file.WriteLine(" End Function")
file.WriteLine("")
file.WriteLine(" Private Function Paged"& fixedTableName & "List(rs, per_page)")
file.WriteLine(" dim list : set list = new LinkedList_Class")
file.WriteLine("")
file.WriteLine(" dim x : x =0")
file.WriteLine(" Do While x < per_page and Not rs.EOF")
file.WriteLine(" list.Push Automapper.AutoMap(rs, new " & fixedTableName & "Model_Class" & ")")
file.WriteLine(" x = x +1")
file.WriteLine(" rs.MoveNext")
file.WriteLine(" Loop")
file.WriteLine(" set Paged"& fixedTableName & "List = list")
file.WriteLine(" End Function")
file.WriteLine("")
file.WriteLine(" Private Function " & fixedTableName &"NotFoundException(ByVal field_name, ByVal field_val)")
file.WriteLine(" "& fixedTableName & "NotFoundException = """ & fixedTableName & " was not found with "" & field_name & "" of '"" & field_val & ""'.""")
file.WriteLine(" End Function")
file.WriteLine("")
file.WriteLine(" Private Function " & fixedTableName & "List(rs)")
file.WriteLine(" dim list : set list = new LinkedList_Class")
file.WriteLine(" dim model")
file.WriteLine("")
file.WriteLine(" Do until rs.EOF")
file.WriteLine(" set model = new " & fixedTableName & "Model_Class")
file.WriteLine(" list.Push Automapper.AutoMap(rs, model)")
file.WriteLine(" rs.MoveNext")
file.WriteLine(" Loop")
file.WriteLine(" set " & fixedTableName & "List = list")
file.WriteLine(" End Function")
file.WriteLine("")
file.WriteLine(" Public Sub AddNew(ByRef model)")
file.WriteLine(" dim sql : sql = ""INSERT INTO ["& fixedTableName & "] ("" &_")
For Fields = 1 To UBound(fieldNamesArray)-1
file.WriteLine(" ""[" & fieldNamesArray(Fields) & "],"" &_")
Next
file.WriteLine(" ""[" & fieldNamesArray(UBound(fieldNamesArray)) & "])"" &_")
file.Write(" ""VALUES (?")
For Fields = 1 To UBound(fieldNamesArray)-1
file.Write(",?")
Next
file.Write(")""" & VbCrLf)
file.WriteLine(" DAL.Execute sql, Array(model." & fieldNamesArray(1) & ", _")
For Fields = 2 To UBound(fieldNamesArray) -1
file.WriteLine(" model." & fieldNamesArray(Fields) & ", _")
Next
file.WriteLine(" model." & fieldNamesArray(UBound(fieldNamesArray)) & ")")
file.WriteLine(" sql = ""SELECT TOP 1 " & PrimaryKeyDictionary(tableName) & " FROM [" & fixedTableName & "] ORDER BY "& PrimaryKeyDictionary(tableName) & " DESC""")
file.WriteLine(" dim rs : set rs = DAL.Query(sql, empty)")
file.WriteLine(" model." & PrimaryKeyDictionary(tableName) & " = rs(""" & PrimaryKeyDictionary(tableName) & """)")
file.WriteLine(" Destroy rs")
file.WriteLine(" End Sub")
file.WriteLine("")
file.WriteLine(" Public Sub Update(model)")
file.WriteLine(" dim sql : sql = ""UPDATE ["& fixedTableName & "] SET [" & fieldNamesArray(1) & "] = ?,"" &_")
For Fields = 2 To UBound(fieldNamesArray) - 1
file.WriteLine(" ""[" & fieldNamesArray(Fields) & "] = ?,"" &_")
Next
file.Write (" ""[" & fieldNamesArray(UBound(fieldNamesArray)) & "] = ?"" &_" & VbCrLf)
file.WriteLine(" "" WHERE ["& PrimaryKeyDictionary(tableName) & "] = ?""")
file.WriteLine("")
file.WriteLine(" DAL.Execute sql, Array(model." & fieldNamesArray(1) & ", _")
For Fields = 2 To UBound(fieldNamesArray)
file.WriteLine(" model." & fieldNamesArray(Fields) & ", _")
Next
file.Write(" model." & PrimaryKeyDictionary(tableName) & ")" & VbCrLf)
file.WriteLine(" End Sub")
file.WriteLine("")
file.WriteLine(" Public Sub Delete(id)")
file.WriteLine(" dim sql : sql = ""DELETE FROM ["& fixedTableName & "] WHERE ["& PrimaryKeyDictionary(tableName) & "] = ?""")
file.WriteLine(" DAL.Execute sql, id")
file.WriteLine(" End Sub")
file.WriteLine("End Class")
file.WriteLine("")
File.WriteLine("dim " & fixedTableName & "Repository__Singleton")
File.WriteLine("Function " & fixedTableName & "Repository()")
File.WriteLine(" If IsEmpty(" & fixedTableName & "Repository__Singleton) then")
file.WriteLine(" set " & fixedTableName & "Repository__Singleton = new " & fixedTableName & "Repository_Class")
file.WriteLine(" End If")
file.WriteLine(" set " & fixedTableName & "Repository = " & fixedTableName & "Repository__Singleton")
file.WriteLine("End Function")
file.WriteLine("%>")
file.Close
Set file = fso.CreateTextFile(ScriptDirectory()& "ViewModels\" & fixedTableName & "ViewModels.asp",True)
file.WriteLine("<%")
file.WriteLine("Class PagedIndex_ViewModel_Class")
file.WriteLine(" Public Title")
file.WriteLine(" Public " & fixedTableName)
file.WriteLine("")
file.WriteLine(" Public CurrentPageNumber")
file.WriteLine(" Public PageSize")
file.WriteLine(" Public PageCount")
file.WriteLine(" Public RecordCount")
file.WriteLine("End Class")
file.WriteLine("")
file.WriteLine("Class Edit_ViewModel_Class")
file.WriteLine(" Public Title")
file.WriteLine(" Public " & fixedTableName)
file.WriteLine("")
file.WriteLine("End Class")
file.WriteLine("")
file.WriteLine("Class Create_ViewModel_Class")
For Each fieldName In fieldNamesArray
If Not fieldName = PrimaryKeyDictionary(tableName) then
file.WriteLine(" Public " & fieldName)
End If
Next
file.WriteLine("End Class")
file.WriteLine("")
file.WriteLine("Class Delete_ViewModel_Class")
file.WriteLine(" Public Title")
file.WriteLine(" Public " & fixedTableName )
file.WriteLine("End Class")
file.WriteLine("")
file.WriteLine("%>")
file.Close
Set file = fso.CreateTextFile(ScriptDirectory()& "Controllers\" & fixedTableName & "\" & fixedTableName & "Controller.asp",True)
file.WriteLine("<% Option Explicit %>")
file.WriteLine("<!--#include file=""../../include_all.asp""-->")
file.WriteLine("<!--#include file=""../../ViewModels/" & fixedTableName & "ViewModels.asp""-->")
file.WriteLine("<%")
file.WriteLine("Class " & fixedTableName & "Controller")
file.WriteLine(" Public Model")
file.WriteLine("")
file.WriteLine(" Public Sub Index")
file.WriteLine("")
file.WriteLine(" dim page_size : page_size = 10")
file.WriteLine(" dim page_num : page_num = Choice(Len(Request.Querystring(""page_num"")) > 0, Request.Querystring(""page_num""), 1)")
file.WriteLine(" dim page_count, record_count")
file.WriteLine(" set Model = new PagedIndex_ViewModel_Class")
file.WriteLine(" Model.Title = """ & tableName & """")
file.WriteLine(" set Model." & fixedTableName & " = " & fixedTableName & "Repository.FindPaged(empty, """ & PrimaryKeyDictionary(tableName) & """, page_size, page_num, page_count, record_count)")
file.WriteLine(" Model.CurrentPageNumber = page_num")
file.WriteLine(" Model.PageSize = page_size")
file.WriteLine(" Model.PageCount = page_count")
file.WriteLine(" Model.RecordCount = record_count")
file.WriteLine(" %> <!--#include file=""../../Views/" & fixedTableName & "/Index.asp""--> <%")
file.WriteLine("")
file.WriteLine(" End Sub")
file.WriteLine(" Public Sub Search")
file.WriteLine("")
file.WriteLine(" dim searchValue:searchValue = Choice(Request.Form.Count = 0,Request.QueryString(""q""),Request.Form(""q""))")
file.WriteLine(" dim page_size : page_size = 10")
file.WriteLine(" dim page_num : page_num = Choice(Len(Request.Querystring(""page_num"")) > 0, Request.Querystring(""page_num""), 1)")
file.WriteLine(" dim page_count, record_count")
file.WriteLine(" set Model = new PagedIndex_ViewModel_Class")
file.WriteLine(" Model.Title = """ & tableName & """")
file.WriteLine(" set Model." & fixedTableName & " = " & fixedTableName & "Repository.SearchTablePaged(Array(""" & Join (fieldNamesArray,""",""%"" & searchValue & ""%"",""") & """,""%"" & searchValue & ""%""),""" & PrimaryKeyDictionary(tableName) & """, page_size, page_num, page_count, record_count)")
file.WriteLine(" Model.CurrentPageNumber = page_num")
file.WriteLine(" Model.PageSize = page_size")
file.WriteLine(" Model.PageCount = page_count")
file.WriteLine(" Model.RecordCount = record_count")
file.WriteLine(" %> <!--#include file=""../../Views/" & fixedTableName & "/Index.asp""--> <%")
file.WriteLine("")
file.WriteLine(" End Sub")
file.WriteLine("")
file.WriteLine(" Public Sub Edit")
file.WriteLine("")
file.WriteLine(" dim id : id = Request.QueryString(""Id"")")
file.WriteLine(" set Model = new Edit_ViewModel_Class")
file.WriteLine(" set Model." & fixedTableName & " = " & fixedTableName & "Repository.FindBy" & PrimaryKeyDictionary(tableName) & "(id)")
file.WriteLine(" Model.Title = ""Edit " & fixedTableName & """")
file.WriteLine(" HTMLSecurity.SetAntiCSRFToken """ & fixedTableName & "EditForm""")
file.WriteLine(" %> <!--#include file=""../../Views/"& fixedTableName &"/Edit.asp""--> <%")
file.WriteLine(" Flash.Success = """ & fixedTableName & " " & id & " Updated.""")
file.WriteLine(" End Sub")
file.WriteLine("")
file.WriteLine(" Public Sub EditPost")
file.WriteLine(" MVC.RequirePost")
File.WriteLine(" HTMLSecurity.OnInvalidAntiCsrfTokenRedirectToActionExt """ & fixedTableName & "EditForm"", Request.Form(""nonce""), ""Edit"", Array(""Id"", Request.Form(""Id""))")
File.WriteLine(" dim " & PrimaryKeyDictionary(tableName) & " : " & PrimaryKeyDictionary(tableName) & " = Request.Form(""Id"")")
File.WriteLine(" dim model : set model = " & fixedTableName & "Repository.FindBy" & PrimaryKeyDictionary(tableName) & "(" & PrimaryKeyDictionary(tableName) & ")")
File.WriteLine(" set model = Automapper.AutoMap(Request.Form, model)")
File.WriteLine(" 'model.Validate")
File.WriteLine(" 'If model.Validator.HasErrors then")
File.WriteLine(" FormCache.SerializeForm ""Edit" & fixedTableName & """, Request.Form")
File.WriteLine(" ' Flash.Errors = model.Validator.Errors")
File.WriteLine(" ' MVC.RedirectToActionExt ""Edit"", Array(""Id""," & PrimaryKeyDictionary(tableName) & ")")
File.WriteLine(" 'Else")
File.WriteLine(" " & fixedTableName & "Repository.Update model")
File.WriteLine(" FormCache.ClearForm ""Edit" & fixedTableName & """")
File.WriteLine(" Flash.Success = """ & fixedTableName & " updated.""")
File.WriteLine(" MVC.RedirectToAction ""Index""")
File.WriteLine(" 'End If")
file.WriteLine(" End Sub")
file.WriteLine("")
file.WriteLine(" Public Sub Create")
file.WriteLine("")
file.WriteLine(" dim form_params : set form_params = FormCache.DeserializeForm(""New" & fixedTableName & """)")
file.WriteLine(" If Not form_params Is Nothing then")
file.WriteLine(" set Model = Automapper.AutoMap(form_params, New Create_ViewModel_Class)")
file.WriteLine(" Else")
file.WriteLine(" set Model = new Create_ViewModel_Class")
file.WriteLine(" End If")
file.WriteLine("")
file.WriteLine(" HTMLSecurity.SetAntiCSRFToken """ & fixedTableName & "CreateForm""")
file.WriteLine("")
file.WriteLine(" %> <!--#include file=""../../Views/" & fixedTableName & "/Create.asp""--> <%")
file.WriteLine(" End Sub")
file.WriteLine("")
file.WriteLine(" Public Sub CreatePost")
file.WriteLine("")
file.WriteLine(" MVC.RequirePost")
file.WriteLine(" HtmlSecurity.OnInvalidAntiCSRFTokenRedirectToAction """ & fixedTableName & "CreateForm"", Request.Form(""nonce""), ""Create""")
file.WriteLine("")
file.WriteLine(" dim new_" & fixedTableName & "_model : set new_" & fixedTableName & "_model = Automapper.AutoMap(Request.Form, new " & fixedTableName & "Model_Class)")
file.WriteLine("")
file.WriteLine(" 'new_" & fixedTableName & "_model.Validator.Validate")
file.WriteLine("")
file.WriteLine(" 'If new_" & fixedTableName & "_model.Validator.HasErrors then")
file.WriteLine(" ' FormCache.SerializeForm ""New" & fixedTableName & """, Request.Form")
file.WriteLine(" ' Flash.Errors = new_" & fixedTableName & "_model.Validator.Errors")
file.WriteLine(" ' MVC.RedirectToAction ""Create""")
file.WriteLine(" 'Else")
file.WriteLine(" " & fixedTableName & "Repository.AddNew new_" & fixedTableName & "_model")
File.WriteLine(" ' FormCache.ClearForm ""New" & fixedTableName & """")
File.WriteLine(" Flash.Success = """ & fixedTableName & " added.""")
File.WriteLine(" MVC.RedirectToAction ""Index""")
File.WriteLine(" 'End If")
file.WriteLine(" End Sub")
file.WriteLine("")
file.WriteLine(" Public Sub Delete")
file.WriteLine(" dim id : id = Request.QueryString(""Id"")")
file.WriteLine(" set Model = new Delete_ViewModel_Class")
file.WriteLine(" set Model." & fixedTableName & " = " & fixedTableName & "Repository.FindBy" & PrimaryKeyDictionary(tableName) & "(id)")
file.WriteLine(" Model.Title = ""Delete " & fixedTableName & """")
file.WriteLine("")
file.WriteLine(" HTMLSecurity.SetAntiCSRFToken """ & fixedTableName & "DeleteForm""")
file.WriteLine("")
file.WriteLine(" %> <!--#include file=""../../Views/" & fixedTableName & "/Delete.asp""--> <%")
file.WriteLine(" End Sub")
file.WriteLine("")
file.WriteLine(" Public Sub DeletePost")
file.WriteLine(" MVC.RequirePost")
file.WriteLine(" HtmlSecurity.OnInvalidAntiCSRFTokenRedirectToAction """ & fixedTableName & "DeleteForm"", Request.Form(""nonce""), ""Create""")
file.WriteLine("")
file.WriteLine(" dim id : id = Request.Form(""Id"")")
file.WriteLine(" " & fixedTableName & "Repository.Delete id")
file.WriteLine("")
file.WriteLine(" Flash.Success = """ & fixedTableName & " deleted.""")
file.WriteLine(" MVC.RedirectToAction ""Index""")
file.WriteLine(" End Sub")
file.WriteLine("")
file.WriteLine("End Class")
file.WriteLine("MVC.Dispatch")
file.WriteLine("%>")
file.Close
Set file = fso.CreateTextFile(ScriptDirectory()& "Views\" & fixedTableName & "\edit.asp",True)
file.WriteLine("<h2><%= H(Model.Title) %></h2>")
file.WriteLine("<%= HTML.FormTag("""& tableName & """, ""EditPost"", empty, empty) %>")
file.WriteLine(" <%= HTML.Hidden(""nonce"", HTMLSecurity.GetAntiCSRFToken(""" & fixedTableName & "EditForm"")) %>")
file.WriteLine(" <%= HTML.Hidden(""Id"", Model." & fixedTableName & "." & PrimaryKeyDictionary(tableName) & ") %>")
For Each field In fieldNamesArray
If Not field = PrimaryKeyDictionary(tableName) then
file.WriteLine(" <div class=""row"">")
file.WriteLine(" <div class=""col-md-4"">")
file.WriteLine(" <div class=""form-group"">")
file.WriteLine(" <label for=""" & field & """>" & field & "</label>")
file.WriteLine(" <%= HTML.TextboxExt(""" & field & """, Model." & fixedTableName & "." & field & ", Array(""class"", ""form-control"")) %>")
file.WriteLine(" </div>")
file.WriteLine(" </div>")
file.WriteLine(" </div>")
End if
Next
file.WriteLine("<hr />")
file.WriteLine("<div class=""form-group"">")
file.WriteLine(" <% = HTML.Button(""submit"", ""<i class='glyphicon glyphicon-ok'></i> Save"", ""btn-primary"") %>")
file.WriteLine(" ")
file.WriteLine(" <%= HTML.LinkToExt(""<i class='glyphicon glyphicon-remove'></i> Delete"", """ & fixedTableName & """, ""Delete"", Array(""id"", Model." & fixedTableName & "." & PrimaryKeyDictionary(tableName) & "), Array(""class"", ""btn btn-danger"")) %>")
file.WriteLine(" ")
file.WriteLine(" <%= HTML.LinkToExt(""Cancel"", """ & fixedTableName & """, ""Index"", empty, Array(""class"", ""btn btn-default"")) %>")
file.WriteLine("</div>")
file.WriteLine("</form>")
file.Close
Set file = fso.CreateTextFile(ScriptDirectory()& "Views\" & fixedTableName & "\index.asp",True)
file.WriteLine("<h2><%= H(Model.Title) %></h2>")
file.WriteLine("<div class=""row"">")
file.WriteLine(" <div class=""col-md-8 col-sm-8 col-xs-12"">")
file.WriteLine(" <%= H(Model.RecordCount) %> " & tableName & " found. Showing <%= H(Model.PageSize) %> records per page.")
file.WriteLine(" <%= HTML.LinkToExt(""<i class='bi bi-plus-square-fill'></i> New"",""" & fixedTableName & """, ""Create"", empty, Array(""class"", ""btn btn-xs btn-primary"")) %>")
file.WriteLine(" </div>")
file.WriteLine(" <div class=""col-md-4 col-sm-4 col-xs-12"">")
file.WriteLine("")
file.WriteLine(" <%= HTML.FormTag(""" & fixedTableName & """, ""Search"", empty, empty) %>")
file.WriteLine("")
file.WriteLine(" <div class=""col-md-10 col-sm-10 col-xs-12"">")
file.WriteLine(" <label class=""sr-only"" for=""search"">Search</label>")
file.WriteLine(" <div class=""input-group"">")
file.WriteLine(" <input type=""text"" class=""form-control input-search"" value='<%= Choice(Request.Form.Count = 0,Request.QueryString(""q""),Request.Form(""q"")) %>' name=""q"" id=""search"" placeholder=""Search"">")
file.WriteLine(" <span class=""input-group-addon group-icon""><span class=""glyphicon glyphicon-eye-open""></span>")
file.WriteLine(" <button type=""submit"" class=""btn btn-success""><i class=""bi bi-search""></i>Search</buttton>")
file.WriteLine(" </div>")
file.WriteLine(" </div>")
file.WriteLine("")
file.WriteLine(" </form>")
file.WriteLine(" </div>")
file.WriteLine("</div>")
file.WriteLine("<table id=""" & fixedTableName & """ class=""table table-striped"">")
file.WriteLine(" <thead>")
file.WriteLine(" <tr>")
file.WriteLine(" <th></th>")
For Each field In fieldNamesArray
file.WriteLine(" <th style=""text-align: left"">" & field & "</th>")
Next
file.WriteLine(" <th></th>")
file.WriteLine(" </tr>")
file.WriteLine(" </thead>")
file.WriteLine("<tbody>")
file.WriteLine(" <% dim it : set it = Model." & fixedTableName & ".Iterator %>")
file.WriteLine(" <% dim " & fixedTableName & " %>")
file.WriteLine(" <% While it.HasNext %>")
file.WriteLine(" <% set " & fixedTableName & " = it.GetNext() %>")
file.WriteLine(" <tr>")
file.WriteLine(" <td>")
file.WriteLine(" <%= HTML.LinkToExt(""<i class='bi bi-search'></i>"", """& fixedTableName &""", ""Edit"", Array(""Id"", " & fixedTableName & "." & PrimaryKeyDictionary(tableName) & "), Array(""class"", ""btn btn-primary"")) %>")
file.WriteLine(" </td>")
For Each field In fieldNamesArray
file.WriteLine(" <td><% = H(" & fixedTableName & "." & field &") %></td>")
Next
file.WriteLine("</tr>")
file.WriteLine(" <% Wend %>")
file.WriteLine(" </tbody>")
file.WriteLine("</table>")
file.WriteLine(" <div>")
file.WriteLine(" <% If Model.CurrentPageNumber <> 1 then %>")
file.WriteLine(" <%= HTML.LinkToExt(""<i class='bi bi-chevron-left'></i><i class='bi bi-chevron-left'></i>"", MVC.ControllerName, MVC.ActionName, Array(""page_num"", 1,""q"", Choice(Request.Form.Count = 0,Request.QueryString(""q""),Request.Form(""q""))), Array(""class"", ""btn btn-default"")) %>")
file.WriteLine(" ")
file.WriteLine(" <%= HTML.LinkToExt(""<i class='bi bi-chevron-left'></i>"", MVC.ControllerName, MVC.ActionName, Array(""page_num"", Model.CurrentPageNumber - 1,""q"", Choice(Request.Form.Count = 0,Request.QueryString(""q""),Request.Form(""q""))), Array(""class"", ""btn btn-default"")) %>")
file.WriteLine(" ")
file.WriteLine(" <% Else %>")
file.WriteLine(" <a class='btn btn-default disabled'><i class='bi bi-chevron-left'></i><i class='bi bi-chevron-left'></i></a>")
file.WriteLine(" ")
file.WriteLine(" <a class='btn btn-default disabled'><i class='bi bi-chevron-left'></i></a>")
file.WriteLine(" ")
file.WriteLine(" <% End If %>")
file.WriteLine(" <% If CInt(Model.CurrentPageNumber) < CInt(Model.PageCount) then %>")
file.WriteLine(" <%= HTML.LinkToExt(""<i class='bi bi-chevron-right'></i>"", MVC.ControllerName, MVC.ActionName, Array(""page_num"", Model.CurrentPageNumber + 1,""q"", Choice(Request.Form.Count = 0,Request.QueryString(""q""),Request.Form(""q""))), Array(""class"", ""btn btn-default"")) %>")
file.WriteLine(" ")
file.WriteLine(" <%= HTML.LinkToExt(""<i class='bi bi-chevron-right'></i><i class='bi bi-chevron-right'></i>"", MVC.ControllerName, MVC.ActionName, Array(""page_num"", Model.PageCount,""q"", Choice(Request.Form.Count = 0,Request.QueryString(""q""),Request.Form(""q""))), Array(""class"", ""btn btn-default"")) %>")
file.WriteLine(" ")
file.WriteLine(" <% Else %>")
file.WriteLine(" <a class='btn btn-default disabled'><i class='bi bi-chevron-right'></i><i class='bi bi-chevron-right'></i></a>")
file.WriteLine(" ")
file.WriteLine(" <a class='btn btn-default disabled'><i class='bi bi-chevron-right'></i></a>")
file.WriteLine(" ")
file.WriteLine("<% End If %>")
file.WriteLine("</div>")
file.WriteLine("</div>")
file.Close
Set file = fso.CreateTextFile(ScriptDirectory()& "Views\" & fixedTableName & "\create.asp",True)
file.WriteLine("<h2>Create " & fixedTableName &"</h2>")
file.WriteLine("")
file.WriteLine("<%= HTML.FormTag(""" & fixedTableName &""", ""CreatePost"", empty, empty) %>")
file.WriteLine("<%= HTML.Hidden(""nonce"", HTMLSecurity.GetAntiCSRFToken("""& fixedTableName & "CreateForm"")) %>")
file.WriteLine("<hr />")
file.WriteLine("")
file.WriteLine("<div class=""form-group"">")
For Each field In fieldNamesArray
If Not field = PrimaryKeyDictionary(tableName) then
file.WriteLine(" <div class=""row"">")
file.WriteLine(" <div class=""col-md-4"">")
file.WriteLine(" <div class=""form-group"">")
file.WriteLine(" <label for=""" & field & """>" & field & "</label>")
file.WriteLine(" <%= HTML.TextboxExt(""" & field & """, Model." & field & ", Array(""class"", ""form-control"")) %>")
file.WriteLine(" </div>")
file.WriteLine(" </div>")
file.WriteLine(" </div>")
End if
Next
file.WriteLine(" <%= HTML.Button(""submit"", ""<i class='glyphicon glyphicon-ok'></i> Create"", ""btn-primary"") %>")
file.WriteLine(" ")
file.WriteLine(" <%= HTML.LinkToExt(""<i class='glyphicon glyphicon-remove'></i> Cancel"", """ & fixedTableName & """, ""Index"", empty, Array(""class"", ""btn btn-default"")) %>")
file.WriteLine("</div>")
file.WriteLine("")
file.WriteLine("</form>")
file.Close
Set file = fso.CreateTextFile(ScriptDirectory()& "Views\" & fixedTableName & "\delete.asp",True)
file.WriteLine("<h2><%= H(Model.Title) %></h2>")
file.WriteLine("")
file.WriteLine("<p class=""alert alert-danger"">Are you sure you want to delete this " & fixedTableName & "?</p>")
file.WriteLine("")
file.WriteLine("<%= HTML.FormTag(""" & fixedTableName & """, ""DeletePost"", empty, Array(""class"", ""form-horizontal"")) %>")
file.WriteLine("<%= HTML.Hidden(""nonce"", HTMLSecurity.GetAntiCSRFToken(""" & fixedTableName & "DeleteForm"")) %>")
file.WriteLine("<%= HTML.Hidden(""Id"", Model." & fixedTableName & "." & PrimaryKeyDictionary(tableName) & ") %>")
file.WriteLine("<div class=""col-md-10"">")
file.WriteLine("<div class=""form-group"">")
file.WriteLine(" <%= HTML.Button(""submit"", ""<i class='glyphicon glyphicon-remove'></i> Confirm Delete"", ""btn-danger"") %>")
file.WriteLine(" ")
file.WriteLine(" <%= HTML.LinkToExt(""Cancel"", """ & fixedTableName & """, ""Index"", empty, Array(""class"", ""btn btn-success"")) %>")
For Each field In fieldNamesArray
If Not field = PrimaryKeyDictionary(tableName) Then
file.WriteLine(" <div class=""row"">")
file.WriteLine(" <div class=""col-md-4"">")
file.WriteLine(" <div class=""form-group"">")
file.WriteLine(" <label for=""" & field & """>" & field & "</label>")
file.WriteLine(" <%= HTML.TextboxExt(""" & field & """, Model." & fixedTableName & "." & field & ", Array(""class"", ""form-control"")) %>")
file.WriteLine(" </div>")
file.WriteLine(" </div>")
file.WriteLine(" </div>")
End If
Next
file.WriteLine(" </div>")
file.WriteLine("</div>")
file.WriteLine("</form>")
file.Close
Set objFile = fso.OpenTextFile(ScriptDirectory() & "Views\Shared\layout.header.asp",1)
headerHtml = objFile.ReadAll()
objFile.Close
dropDownLinks = "<li role=""presentation"" class=""dropdown"">" &_
" <a class=""dropdown-toggle"" data-toggle=""dropdown"" href=""#"" role=""button"" aria-haspopup=""true"" aria-expanded=""false"">" &_
" Dropdown <span class=""caret""></span></a>" &_
""
If InStr(headerHtml,"<li class=""nav-item""><%= Html.LinkTOExt(""" & tableName & """,""" & fixedTableName & """,""Index"",empty,Array(""Class"",""nav-link"")) %></li>") = 0 then
newHeaderHtml = Replace(headerHtml,"<!--nav bar placeholder-->"," <li class=""nav-item""><%= Html.LinkTOExt(""" & tableName & """,""" & fixedTableName & """,""Index"",empty,Array(""Class"",""nav-link"")) %></li>" & vbCrLf & "<!--nav bar placeholder-->")
Set objFile = fso.OpenTextFile(ScriptDirectory() & "Views\Shared\layout.header.asp",2)
objFile.WriteLine newHeaderHtml
End If
objFile.Close
props.Clear
rs.MoveNext
Else
rs.MoveNext
End if
Loop
includedFile.Close
WScript.Quit
Sub includeFile(fSpec)
executeGlobal CreateObject("Scripting.FileSystemObject").openTextFile(IncludeDirectory & fSpec & ".vbs").readAll()
End Sub
Function PrimaryKeysFromADOConnectionToDictionary(ADOConn)
Dim rstSchema
Dim returnDictionary
If TypeName(ADOConn) = "Connection" Then
Set rstSchema = oConn.OpenSchema(adSchemaPrimaryKeys)
Set rstableNames = oConn.OpenSchema(20,Array(Empty, Empty, Empty, "Table"))
Set returnDictionary = WScript.CreateObject("scripting.dictionary")
While Not rstSchema.EOF
If returnDictionary.Exists(rstSchema.Fields("TABLE_NAME").Value) = false Then
returnDictionary.Add rstSchema.Fields("TABLE_NAME").Value,rstSchema.Fields("COLUMN_NAME").Value
End If
rstSchema.MoveNext
Wend
rstSchema.Close
End If
Set PrimaryKeysFromADOConnectionToDictionary = returnDictionary
End Function
Sub Init
MsgBox(oConn.State)
If oConn.State = 0 Then
oConn.Open()
'End If
Set PrimaryKeyDictionary = PrimaryKeysFromADOConnectionToDictionary(oConn)
If Not fso.FolderExists(ScriptDirectory()& "DomainModels\") Then fso.CreateFolder(ScriptDirectory()& "DomainModels\")
If Not fso.FolderExists(ScriptDirectory()& "ViewModels\") Then fso.CreateFolder(ScriptDirectory()& "ViewModels\")
If Not fso.FolderExists(ScriptDirectory()& "Controllers\") Then fso.CreateFolder(ScriptDirectory()& "Controllers\")
If Not fso.FolderExists(ScriptDirectory()& "Views\") Then fso.CreateFolder(ScriptDirectory()& "Views\")
Set includedFile = fso.CreateTextFile(ScriptDirectory()& "include_all.asp",True)
includedFile.WriteLine("<!--#include file=""../MVC/lib.all.asp""-->")
includedFile.WriteLine("<!--#include file=""DAL/lib.DAL.asp""-->")
includedFile.WriteLine("<!--#include file=""app.Config.asp""-->")
Set rs = oConn.OpenSchema(20,Array(Empty, Empty, Empty, "Table"))
End If
End Sub
Sub InitFieldNameIterator
Dim cmd
Set cmd = WScript.CreateObject("ADODB.COMMAND")
cmd.ActiveConnection = oConn
cmd.CommandText = "Select * From [" & tableName & "]"
Set FieldsRs = cmd.Execute()
Set fields = FieldsRs.Fields
Set props = New Stack
For Each Field In FieldsRs.Fields
props.Push(Field.Name)
file.WriteLine (" Public " & Field.Name & " '" & Field.Attributes)
Next
FieldsRs.Close
If Not PrimaryKeyDictionary.Exists(tableName) Then
PrimaryKeyDictionary.Add tableName,props.ToArray()(0)
End If
End Sub