Files
VERAG_Homepage/InfoPanel.aspx
2021-08-27 08:30:29 +02:00

199 lines
11 KiB
Plaintext

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="InfoPanel.aspx.vb" Inherits="js_InfoPanel" %>
<!DOCTYPE html>
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<!-- Bootstrap -->
<html lang="en">
<!-- Required meta tags -->
<meta charset="utf-8"/>
<meta name="viewport" content="width=device-width, initial-scale=1">
<!-- Bootstrap CSS -->
<link href="https://cdn.jsdelivr.net/npm/bootstrap@5.0.2/dist/css/bootstrap.min.css" rel="stylesheet" integrity="sha384-EVSTQN3/azprG1Anm3QDgpJLIm9Nao0Yz1ztcQTwFspd3yD65VohhpuuCOmLASjC" crossorigin="anonymous">
<link rel="stylesheet" href="https://unpkg.com/bootstrap-table@1.18.3/dist/bootstrap-table.min.css">
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>
<%@ import Namespace="MySql.Data.MySqlClient" %>
<script runat="server">
Sub Page_Load() Handles Me.Load
'Login-Validierung
If Not Me.Page.User.Identity.IsAuthenticated Then
FormsAuthentication.RedirectToLoginPage()
End If
' MsgBox ("test")
'Dim con As New MySqlConnection
'Dim cmd As New MySqlCommand
' Dim reader As MySqlDataReader
' con.ConnectionString = "Server=localhost;Database=verag_homepage;Uid=sec_user;Pwd=eKcGZr59zAa2BEWU;"
' cmd.Connection = con
'cmd.CommandText = "select * from map"
'Try
'con.Open()
'MsgBox("conn")
'reader = cmd.ExecuteReader
'grid.DataSource = reader
'reader.Read()
'MsgBox(reader("title"))
'DataBind()
'reader.Close()
'Catch ex As Exception
' MsgBox("err")
' End Try
' con.Close()
End Sub
' Public ReadOnly Property CurrentCity() As String
' Get
' Return "asd"
' End Get
' End Property,
</script>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/>
<!-- Standortnamen bekommen (über Funktion?)-->
<title>VERAG Info Panel Suben</title>
<link rel="stylesheet" type="text/css" href="../css/main.css"/>
<link rel="stylesheet" type="text/css" href="../css/style.css"/>
<LINK REL="SHORTCUT ICON" HREF="../images/Icons/favicon/favicon.ico" />
<!-- <link rel="stylesheet" type="text/css" href="css/edit_main.css"> -->
<script src="js/netzwerk.js" type="text/javascript"></script>
<link rel="stylesheet" type="text/css" href="../../stylesheets/style.css"/>
<link rel="stylesheet" type="text/css" href="../../stylesheets/example.css"/>
<script type="text/javascript">
// Vergebe den Event-Handler
document.onkeydown = handleKeyEvent;
// Funktion, die den Event verarbeitet
function handleKeyEvent(e) {
// MSIE nimmt das Event-Objekt aus window.event, DOM-kompatible Browser aus dem e-Funktionsparameter
if (!e) e = window.event;
// keyCode muss 70 sein und ctrlKey true
if (e.keyCode == 68 && e.ctrlKey) {
alert('Strg+D wurde gedrückt');
//topup
}
}
</script>
<script type="text/javascript" src="../js/toptions/top_up-min.js"></script>
<!--[if IE]>
<link rel="stylesheet" type="text/css" href="../css/main.css">
<![endif]-->
<!--[if IE 6]>
<link rel="stylesheet" type="text/css" href="../css/main.css">
<![endif]-->
<!--[if lt IE 7]>
<link rel="stylesheet" type="text/css" href="../css/main.css">
<![endif]-->
<!--[if lte IE 5.5999]>
<link rel="stylesheet" type="text/css" href="../css/main.css">
<![endif]-->
<!--[if gte IE 5.5]>
<link rel="stylesheet" type="text/css" href="../css/main.css">
<![endif]-->
<!-- Used for Progress bar!
<link rel="stylesheet" href="https://maxcdn.bootstrapcdn.com/bootstrap/3.4.0/css/bootstrap.min.css">
<script src="https://ajax.googleapis.com/ajax/libs/jquery/3.4.1/jquery.min.js"></script>
<script src="https://maxcdn.bootstrapcdn.com/bootstrap/3.4.0/js/bootstrap.min.js"></script> -->
<script type="text/javascript" src="/js/languageupdatescript.js"></script>
<link rel="stylesheet" type="text/css" href="stylesheets/StyleInfoPanel.css"/>
<link rel="stylesheet" type="text/css" href="css/Dropdown.css"/>
<style>
</style>
</head>
<body >
<div id="bodycontent">
<div id="main-page">
<%
Dim lan As String = Request.QueryString("lan")
If lan = "" Then lan = "de"
Dim menuID As String = Request.QueryString("menuID")
If menuID = "" Then menuID = "1"
Dim DB2 As New cDBFunctions
%>
<div class="pagecontent">
<div class="container-xl">
<form id="form2" runat="server">
<asp:Panel ID="Panel1" runat="server">
<div class="container-lg">
<LayoutTemplate>
<center>
<table cellpadding="0" style="font-family:Arial;font-size:11px;border:1px solid gray" >
<tr style="background-color:#003680;color:#fff;width:50px;height:30px;font-size:12px">
<td align="center" colspan="2">InfoPanel:</td>
<tr>
<td align="middle" colspan="3">
<br/> <asp:Button ID="BackButton" runat="server" Text="Back" ValidationGroup="Login1" /></td>
</tr>
</tr>
<tr>
<td align="right">
<asp:Label ID="Label2" runat="server" Text=""></asp:Label>
</td>
</tr>
<tr>
<td>
<!--<h2>Info Status Bearbeitung:</h2> -->
<asp:Label ID="Label3" runat="server" Text="Label"></asp:Label>
<div class="progress">
<div class="progress-bar progress-bar-striped bg-success" role="progressbar" style="width: 25%" aria-valuenow="25" aria-valuemin="0" aria-valuemax="100"></div>
</div>
<!--<div class="progress">
<div runat="server" id="progressBar" class="progress-bar" role="progressbar" aria-valuemin="0" aria-valuemax="100" >
<p id="lblPercentage" runat="server"></p> -->
</td>
</tr>
<tr>
<td>
</td>
</tr>
</table>
</center>
<%
Dim Nummer As String = Request.QueryString("Par1")
Dim Fraechter As String = Request.QueryString("Par2")
Dim Auftraggeber As String = Request.QueryString("Par3")
Dim Ankunft As String = Request.QueryString("Par4")
Dim Status As String = Request.QueryString("Par5")
Dim ORT As String = Request.QueryString("Par6")
Dim lan As String = Request.QueryString("Par7")
MsgBox("Nummer:" + Nummer + "Fraechter:" + Fraechter + "Auftraggeber: " + Auftraggeber + "Ankunft" + Ankunft + "Status" + Status + "Ort:" + ORT + " Language:" + lan)
%>
<h3>Infos: LKW <%=Nummer %></h3>
<h4>"Name Frächter:<%=Fraechter %> \nLKWnummer: <%=Nummer %>\nAnkunft in: <%=ORT %> in<%=lan %> und hat den Status <%=Status %> erreicht."</h4>
</LayoutTemplate>
</div>
</asp:Panel>
</form>
</div>
</div>
</div>
</div>
</body>
</html>