84 lines
2.8 KiB
VB.net
84 lines
2.8 KiB
VB.net
|
|
Imports Ganss.XSS
|
|
|
|
Partial Class admin_InputBox
|
|
Inherits System.Web.UI.Page
|
|
Public laenderkuerzel As String = "de"
|
|
Public menueId As Integer = 1
|
|
Private DB As New cDBADMINFunctions
|
|
|
|
Dim hp_content As hp_content = Nothing
|
|
|
|
|
|
|
|
Public Overrides Sub VerifyRenderingInServerForm(control As Control)
|
|
|
|
End Sub
|
|
'PreviousPage ????
|
|
|
|
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
If Not IsPostBack Then 'ERSTES MAL
|
|
Page.Session("parentReload") = Nothing
|
|
Page.Session("close") = Nothing
|
|
' Page.Session("navParent") = "admin"
|
|
|
|
If Not Request.QueryString("lan") Is Nothing Then
|
|
laenderkuerzel = Request.QueryString("lan")
|
|
Else
|
|
laenderkuerzel = "de"
|
|
End If
|
|
|
|
' Dim arrayoftags(5) As String
|
|
'arrayoftags(0) = "a"
|
|
'arrayoftags(1) = "div"
|
|
'arrayoftags(2) = "iframe"
|
|
'Dim arrayofattrs(20) As String
|
|
'arrayofattrs(0) = "a"
|
|
'Dim uriattributes(5) As String
|
|
'uriattributes(0) = "Par1"
|
|
'Dim allowedcssprops(15) As String
|
|
'allowedcssprops(0) = ""
|
|
|
|
'Dim sanitizer = New HtmlSanitizer(arrayoftags, Nothing, arrayofattrs, uriattributes, allowedcssprops)
|
|
|
|
'Dim cleanHtml As String
|
|
'sanitizer.AllowDataAttributes = True
|
|
|
|
|
|
If Not Request.QueryString("menuID") Is Nothing Then
|
|
menueId = Request.QueryString("menuID")
|
|
Else
|
|
menueId = 1
|
|
End If
|
|
|
|
hp_content = DB.qry_contentNew(menueId, laenderkuerzel)
|
|
'cleanHtml = sanitizer.Sanitize(hp_content.ToString)
|
|
Page.Session("hp_content") = hp_content
|
|
|
|
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Protected Sub addPage_Click(sender As Object, e As EventArgs) Handles addPage.Click
|
|
|
|
Dim hp_content As hp_content = Nothing
|
|
hp_content = Page.Session("hp_content") 'sonst gehs ned, weil werte nicht geladen sind
|
|
' Dim title = InputBox("Bitte geben Sie den deutschen Menü-Titel an:")
|
|
' System.Web.HttpContext.Current.Response.Write("<SCRIPT LANGUAGE=""JavaScript"">alert('Hello this is an Alert')</SCRIPT>")
|
|
Dim title As String = input.Text
|
|
|
|
If title <> "" Then
|
|
'Request.QueryString("menuID")
|
|
Dim menueId As Integer = -1
|
|
menueId = DB.insert_HPContentNew(hp_content, laenderkuerzel, title, hp_content.hp_id, hp_content.hp_instance)
|
|
'Page.Parent.Page.Response.Redirect("admin.aspx?menuId=" & menueId & "&lan=" & laenderkuerzel)
|
|
|
|
Page.Session("parentReload") = "admin.aspx?menuID=" & menueId & "&lan=" & laenderkuerzel
|
|
|
|
Else
|
|
MsgBox("Der Titel darf nicht leer sein!")
|
|
End If
|
|
End Sub
|
|
End Class
|