<%@ CodePage=65001 LCID=14337 %> <% Const EW_PAGE_ID = "view" Const EW_TABLE_NAME = "Content" %> <% Response.Expires = 0 Response.ExpiresAbsolute = Now() - 1 Response.AddHeader "pragma", "no-cache" Response.AddHeader "cache-control", "private, no-cache, no-store, must-revalidate" %> <% ' Open connection to the database Dim conn Set conn = Server.CreateObject("ADODB.Connection") conn.Open EW_DB_CONNECTION_STRING %> <% Dim Security Set Security = New cAdvancedSecurity %> <% If Not Security.IsLoggedIn() Then Call Security.AutoLogin() If Not Security.IsLoggedIn() Then Call Security.SaveLastUrl() Call Page_Terminate("login.asp") End If %> <% ' Common page loading event (in userfn60.asp) Call Page_Loading() %> <% ' Page load event, used in current page Call Page_Load() %> <% Response.Buffer = True If Request.QueryString("id").Count > 0 Then Content.id.QueryStringValue = Request.QueryString("id") Else Call Page_Terminate("Contentlist.asp") ' Return to list page End If If Request.QueryString("Navigation_Name").Count > 0 Then Content.Navigation_Name.QueryStringValue = Request.QueryString("Navigation_Name") Else Call Page_Terminate("Contentlist.asp") ' Return to list page End If If Request.QueryString("Language_Name").Count > 0 Then Content.Language_Name.QueryStringValue = Request.QueryString("Language_Name") Else Call Page_Terminate("Contentlist.asp") ' Return to list page End If ' Get action If Request.Form("a_view").Count > 0 Then Content.CurrentAction = Request.Form("a_view") Else Content.CurrentAction = "I" ' Display form End If Select Case Content.CurrentAction Case "I" ' Get a record to display If Not LoadRow() Then ' Load record based on key Session(EW_SESSION_MESSAGE) = "No records found" ' Set no record message Call Page_Terminate("Contentlist.asp") ' Return to list End If End Select ' Set return url Content.ReturnUrl = "Contentview.asp" ' Render row Content.RowType = EW_ROWTYPE_VIEW Call RenderRow() %>

View TABLE: Content

Back to List  <% If Security.IsLoggedIn() Then %> Add  <% End If %> <% If Security.IsLoggedIn() Then %> Edit  <% End If %> <% If Security.IsLoggedIn() Then %> Copy  <% End If %> <% If Security.IsLoggedIn() Then %> Delete  <% End If %>

<% If Session(EW_SESSION_MESSAGE) <> "" Then %>

<%= Session(EW_SESSION_MESSAGE) %>

<% Session(EW_SESSION_MESSAGE) = "" ' Clear message End If %>

> ><%= Content.id.ViewValue %> > ><%= Content.Navigation_Name.ViewValue %> > ><%= Content.Language_Name.ViewValue %> > ><%= Content.Content.ViewValue %> > <% If Content.Thumb_Image.HrefValue <> "" Then %> <% If Not IsNull(Content.Thumb_Image.Upload.DbValue) Then %> > <% End If %> <% Else %> <% If Not IsNull(Content.Thumb_Image.Upload.DbValue) Then %> > <% End If %> <% End If %> > <% If Content.Image.HrefValue <> "" Then %> <% If Not IsNull(Content.Image.Upload.DbValue) Then %> > <% End If %> <% Else %> <% If Not IsNull(Content.Image.Upload.DbValue) Then %> > <% End If %> <% End If %> > <% If Content.Hide.CurrentValue&"" = "1" Then %> <% Else %> <% End If %> > ><%= Content.CreatedDate.ViewValue %>
id
Navigation Name
Language Name
Content
Thumb Image
Image
Hide
Created Date

<% ' If control is passed here, simply terminate the page without redirect Call Page_Terminate("") ' ----------------------------------------------------------------- ' Subroutine Page_Terminate ' - called when exit page ' - clean up ADO connection and objects ' - if url specified, redirect to url, otherwise end response ' Sub Page_Terminate(url) ' Page unload event, used in current page Call Page_Unload() ' Global page unloaded event (in userfn60.asp) Call Page_Unloaded() conn.Close ' Close Connection Set conn = Nothing Set Security = Nothing Set Content = Nothing ' Go to url if specified If url <> "" Then Response.Clear Response.Redirect url End If ' Terminate response Response.End End Sub ' ' Subroutine Page_Terminate (End) ' ---------------------------------------- %> <% ' Load row based on key values Function LoadRow() Dim rs, sSql, sFilter sFilter = Content.SqlKeyFilter If Not IsNumeric(Content.id.CurrentValue) Then LoadRow = False ' Invalid key, exit Exit Function End If sFilter = Replace(sFilter, "@id@", ew_AdjustSql(Content.id.CurrentValue)) ' Replace key value If Not IsNumeric(Content.Navigation_Name.CurrentValue) Then LoadRow = False ' Invalid key, exit Exit Function End If sFilter = Replace(sFilter, "@Navigation_Name@", ew_AdjustSql(Content.Navigation_Name.CurrentValue)) ' Replace key value If Not IsNumeric(Content.Language_Name.CurrentValue) Then LoadRow = False ' Invalid key, exit Exit Function End If sFilter = Replace(sFilter, "@Language_Name@", ew_AdjustSql(Content.Language_Name.CurrentValue)) ' Replace key value ' Call Row Selecting event Call Content.Row_Selecting(sFilter) ' Load sql based on filter Content.CurrentFilter = sFilter sSql = Content.SQL Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sSql, conn If rs.Eof Then LoadRow = False Else LoadRow = True rs.MoveFirst Call LoadRowValues(rs) ' Load row values ' Call Row Selected event Call Content.Row_Selected(rs) End If rs.Close Set rs = Nothing End Function ' Load row values from recordset Sub LoadRowValues(rs) Content.id.DbValue = rs("id") Content.Navigation_Name.DbValue = rs("Navigation_Name") Content.Language_Name.DbValue = rs("Language_Name") Content.Content.DbValue = rs("Content") Content.Thumb_Image.Upload.DbValue = rs("Thumb_Image") Content.Image.Upload.DbValue = rs("Image") Content.Hide.DbValue = ew_IIf(rs("Hide"), "1", "0") Content.CreatedDate.DbValue = rs("CreatedDate") End Sub %> <% ' Render row values based on field settings Sub RenderRow() ' Call Row Rendering event Call Content.Row_Rendering() ' Common render codes for all row types ' id Content.id.CellCssStyle = "" Content.id.CellCssClass = "" ' Navigation_Name Content.Navigation_Name.CellCssStyle = "" Content.Navigation_Name.CellCssClass = "" ' Language_Name Content.Language_Name.CellCssStyle = "" Content.Language_Name.CellCssClass = "" ' Content Content.Content.CellCssStyle = "" Content.Content.CellCssClass = "" ' Thumb_Image Content.Thumb_Image.CellCssStyle = "" Content.Thumb_Image.CellCssClass = "" ' Image Content.Image.CellCssStyle = "" Content.Image.CellCssClass = "" ' Hide Content.Hide.CellCssStyle = "" Content.Hide.CellCssClass = "" ' CreatedDate Content.CreatedDate.CellCssStyle = "" Content.CreatedDate.CellCssClass = "" If Content.RowType = EW_ROWTYPE_VIEW Then ' View row ' id Content.id.ViewValue = Content.id.CurrentValue Content.id.CssStyle = "" Content.id.CssClass = "" Content.id.ViewCustomAttributes = "" ' Navigation_Name If Not IsNull(Content.Navigation_Name.CurrentValue) And Content.Navigation_Name.CurrentValue <> "" Then sSqlWrk = "SELECT [Navigation_Name] FROM [Side_Navigation] WHERE [id] = " & ew_AdjustSql(Content.Navigation_Name.CurrentValue) & "" Set rswrk = conn.Execute(sSqlWrk) If Not rswrk.Eof Then Content.Navigation_Name.ViewValue = rswrk("Navigation_Name") Else Content.Navigation_Name.ViewValue = Content.Navigation_Name.CurrentValue End If rswrk.Close Set rswrk = Nothing Else Content.Navigation_Name.ViewValue = Null End If Content.Navigation_Name.CssStyle = "" Content.Navigation_Name.CssClass = "" Content.Navigation_Name.ViewCustomAttributes = "" ' Language_Name If Not IsNull(Content.Language_Name.CurrentValue) And Content.Language_Name.CurrentValue <> "" Then sSqlWrk = "SELECT [Language_Name] FROM [Languages] WHERE [id] = " & ew_AdjustSql(Content.Language_Name.CurrentValue) & "" Set rswrk = conn.Execute(sSqlWrk) If Not rswrk.Eof Then Content.Language_Name.ViewValue = rswrk("Language_Name") Else Content.Language_Name.ViewValue = Content.Language_Name.CurrentValue End If rswrk.Close Set rswrk = Nothing Else Content.Language_Name.ViewValue = Null End If Content.Language_Name.CssStyle = "" Content.Language_Name.CssClass = "" Content.Language_Name.ViewCustomAttributes = "" ' Content Content.Content.ViewValue = Content.Content.CurrentValue If Not IsNull(Content.Content.ViewValue) Then Content.Content.ViewValue = Replace(Content.Content.ViewValue, vbLf, "
") End If Content.Content.CssStyle = "" Content.Content.CssClass = "" Content.Content.ViewCustomAttributes = "" ' Thumb_Image If Not IsNull(Content.Thumb_Image.Upload.DbValue) Then Content.Thumb_Image.ViewValue = Content.Thumb_Image.Upload.DbValue Content.Thumb_Image.ImageAlt = "" Else Content.Thumb_Image.ViewValue = "" End If Content.Thumb_Image.CssStyle = "" Content.Thumb_Image.CssClass = "" Content.Thumb_Image.ViewCustomAttributes = "" ' Image If Not IsNull(Content.Image.Upload.DbValue) Then Content.Image.ViewValue = Content.Image.Upload.DbValue Content.Image.ImageAlt = "" Else Content.Image.ViewValue = "" End If Content.Image.CssStyle = "" Content.Image.CssClass = "" Content.Image.ViewCustomAttributes = "" ' Hide If Content.Hide.CurrentValue = "1" Then Content.Hide.ViewValue = "Yes" Else Content.Hide.ViewValue = "No" End If Content.Hide.CssStyle = "" Content.Hide.CssClass = "" Content.Hide.ViewCustomAttributes = "" ' CreatedDate Content.CreatedDate.ViewValue = Content.CreatedDate.CurrentValue Content.CreatedDate.CssStyle = "" Content.CreatedDate.CssClass = "" Content.CreatedDate.ViewCustomAttributes = "" ' id ' *** view refer script Content.id.HrefValue = "" ' Navigation_Name ' *** view refer script Content.Navigation_Name.HrefValue = "" ' Language_Name ' *** view refer script Content.Language_Name.HrefValue = "" ' Content ' *** view refer script Content.Content.HrefValue = "" ' Thumb_Image ' *** view refer script Content.Thumb_Image.HrefValue = "" ' Image ' *** view refer script Content.Image.HrefValue = "" ' Hide ' *** view refer script Content.Hide.HrefValue = "" ' CreatedDate ' *** view refer script Content.CreatedDate.HrefValue = "" ElseIf Content.RowType = EW_ROWTYPE_ADD Then ' Add row ElseIf Content.RowType = EW_ROWTYPE_EDIT Then ' Edit row ElseIf Content.RowType = EW_ROWTYPE_SEARCH Then ' Search row End If ' Call Row Rendered event Call Content.Row_Rendered() End Sub %> <% ' Set up Starting Record parameters based on Pager Navigation Sub SetUpStartRec() Dim nPageNo ' Exit if nDisplayRecs = 0 If nDisplayRecs = 0 Then Exit Sub ' Check for a START parameter If Request.QueryString(EW_TABLE_START_REC).Count > 0 Then nStartRec = Request.QueryString(EW_TABLE_START_REC) Content.StartRecordNumber = nStartRec ElseIf Request.QueryString(EW_TABLE_PAGE_NO).Count > 0 Then nPageNo = Request.QueryString(EW_TABLE_PAGE_NO) If IsNumeric(nPageNo) Then nStartRec = (nPageNo-1)*nDisplayRecs+1 If nStartRec <= 0 Then nStartRec = 1 ElseIf nStartRec >= ((nTotalRecs-1)\nDisplayRecs)*nDisplayRecs+1 Then nStartRec = ((nTotalRecs-1)\nDisplayRecs)*nDisplayRecs+1 End If Content.StartRecordNumber = nStartRec Else nStartRec = Content.StartRecordNumber End If Else nStartRec = Content.StartRecordNumber End If ' Check if correct start record counter If Not IsNumeric(nStartRec) Or nStartRec = "" Then ' Avoid invalid start record counter nStartRec = 1 ' Reset start record counter Content.StartRecordNumber = nStartRec ElseIf CLng(nStartRec) > CLng(nTotalRecs) Then ' Avoid starting record > total records nStartRec = ((nTotalRecs-1)\nDisplayRecs)*nDisplayRecs+1 ' Point to last page first record Content.StartRecordNumber = nStartRec ElseIf (nStartRec-1) Mod nDisplayRecs <> 0 Then nStartRec = ((nStartRec-1)\nDisplayRecs)*nDisplayRecs+1 ' Point to page boundary Content.StartRecordNumber = nStartRec End If End Sub %> <% ' Page Load event Sub Page_Load() '***Response.Write "Page Load" End Sub ' Page Unload event Sub Page_Unload() '***Response.Write "Page Unload" End Sub %>