Vbs in Js (come fare?)

**Giuseppe C** · 18-09-2004, 18:21

Ciao a tutti, vorrei sapere come posso fare per usare il seguente script di controllo sessione (che è in Vbs) in una pagina in Js.
Oppure come fare per tradurlo da Vbs a js...

Chi mi da una mano?

Il codice è:

codice:

<%@LANGUAGE="VBSCRIPT"%>
<%
if Session("username") = "" or isNull(Session("username")) then
    'response.write ""
%>
<body>
<p align="center"><font color="#FF0000">Per entrare

  Effettua il Login</font></p>
<p align="center"><font color="#006600">o la tua connessione

  &egrave; stata inattiva 

  per pi&ugrave; di 10 min</font></p>
<p align="center">Clicca Qui

  Per effettuare il Login
<%
else
	set dbc = server.createobject("adodb.connection")
    dbc.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source= " & Server.MapPath("../../mdb-database/utentigprs.mdb")
	Sql = "SELECT * FROM utenti WHERE username = '" & Session("username") & "'"
%>

Grazie a tutti ciao

**Giuseppe C** · 18-09-2004, 19:52

up

**salvod** · 18-09-2004, 20:41

codice:

<script language="VBScript" runat="server">

if Session("username") = "" or isNull(Session("username")) then
    'response.write ""
%>
<body>
<p align="center"><font color="#FF0000">Per entrare

  Effettua il Login</font></p>
<p align="center"><font color="#006600">o la tua connessione

  è stata inattiva 

  per più di 10 min</font></p>
<p align="center">Clicca Qui

  Per effettuare il Login
<%
else
	set dbc = server.createobject("adodb.connection")
    dbc.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source= " & Server.MapPath("../../mdb-database/utentigprs.mdb")
	Sql = "SELECT * FROM utenti WHERE username = '" & Session("username") & "'"

</script>

**Giuseppe C** · 18-09-2004, 21:10

Grazie per l'aiuto, ma mi da questo errore:

Active Server Pages error 'ASP 0140'

Page Command Out Of Order

/prove/forum/forum/index.asp, line 21

The @ command must be the first command within the Active Server Page

La pagina Completa è:

codice:

<script language="VBScript" runat="server">

if Session("username") = "" or isNull(Session("username")) then
    'response.write ""
%>
<body>
<p align="center"><font color="#FF0000">Per entrare

  Effettua il Login</font></p>
<p align="center"><font color="#006600">o la tua connessione

  è stata inattiva 

  per più di 10 min</font></p>
<p align="center">Clicca Qui

  Per effettuare il Login
<%
else
	set dbc = server.createobject("adodb.connection")
    dbc.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source= " & Server.MapPath("../../mdb-database/utentigprs.mdb")
	Sql = "SELECT * FROM utenti WHERE username = '" & Session("username") & "'"

</script>
<%@LANGUAGE = JScript%>
<%
	var Cn = new ActiveXObject("ADODB.Connection");
	Cn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" + Server.MapPath("../../../mdb-database/forum.mdb"));
	var Sql = "SELECT * FROM messaggi WHERE titolo <> '' ORDER BY modificato DESC";
	var MostraMessaggi = new ActiveXObject("ADODB.Recordset");
		MostraMessaggi.Open(Sql,Cn,1);
	var pag = parseInt(Request.QueryString("id"));
		if (isNaN(pag) || pag < 1) pag = 1;
		if (!MostraMessaggi.EOF) {
			MostraMessaggi.PageSize = 20;
			MostraMessaggi.AbsolutePage = pag;
		}
	var i = 0;
	var ContaDiscussioni = Cn.Execute("SELECT COUNT(*) AS id FROM messaggi WHERE titolo <> '' AND id = id");
%>
<html>
 <head>
  <title>Forum :: Homepage</title>
  <style type="text/css">
   body { margin: 0px, 0px, 0px, 0px; }
   div, td, input, textarea { font-size: 10px; font-family: Verdana; }
   a { color: #0000FF; text-decoration: None; }
   a:hover { color: #FF0000; text-decoration: Underline; }
  </style>
 </head>
<body scroll="Yes">
<div align="center">
  <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="500" height="60">
    <param name="movie" value="testata_forum.swf">
    <param name="quality" value="high">
    <embed src="testata_forum.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="500" height="60"></embed></object>
  <table align="center" width="100%" cellpadding="1" cellspacing="0">
    <tr> 
      <td width="300" align="center" style="color: #FF0000;"> Discussione</td>
      <td width="30" align="center" style="color: #FF0000;">Risp.</td>
      <td width="120" align="center" style="color: #FF0000;">Autore</td>
    </tr>
    <%
 var n = 0;
 while (!MostraMessaggi.EOF && i < 5) {
 if (n%2 == 1) {
 %>
    <tr bgcolor="#EEEEEE"> 
      <td style="border-bottom: Solid 1px #CCCCCC;">&#187; "><%=Server.HTMLEncode(MostraMessaggi("titolo"))%></td>
      <td style="border-bottom: Solid 1px #CCCCCC;" align="center"><%=Server.HTMLEncode(MostraMessaggi("risposte"))%></td>
      <td style="border-bottom: Solid 1px #CCCCCC;" align="center"><%=Server.HTMLEncode(MostraMessaggi("nome"))%></td>
    </tr>
    <%
 } else {
 %>
    <tr bgcolor="#FFFFFF"> 
      <td style="border-bottom: Solid 1px #CCCCCC;">&#187; "><%=Server.HTMLEncode(MostraMessaggi("titolo"))%></td>
      <td style="border-bottom: Solid 1px #CCCCCC;" align="center"><%=Server.HTMLEncode(MostraMessaggi("risposte"))%></td>
      <td style="border-bottom: Solid 1px #CCCCCC;" align="center"><%=Server.HTMLEncode(MostraMessaggi("nome"))%></td>
    </tr>
    <%
 }
 n++;
 i++;
 MostraMessaggi.MoveNext();
 }
 %>
  </table>
  

  <table align="center" width="450" cellpadding="1" cellspacing="0">
    <tr> 
      <td width="225">
        <%if (pag > 1) {%>
        Precedenti
        <%} else {%>
        Precedenti
        <%}%>
      </td>
      <td width="225" align="right">
        <%if (!MostraMessaggi.EOF) {%>
        Successivi
        <%} else {%>
        Successivi
        <%}%>
      </td>
    </tr>
  </table>
  

  Ci sono <%=ContaDiscussioni("id")%> discussioni presenti<a href="nuovo.htm">

  Inserisci un nuovo messaggio</a></div>
</body>
</html>
<%Cn.Close()%>

Come posso fare...?

Grazie a tutti...

**kluster** · 18-09-2004, 21:15

Sposta <%@LANGUAGE="Jscript"%> in cima alla pagina
Il comando si puo' omettere ma in caso di omissione prende come predefinito il vbscript (a meno che non vengano modificate le opzioni di default di IIS), in ogni caso se viene incluso deve essere il primo comando dato alla pagina (e non va ripetuto negli eventuali include)

**Giuseppe C** · 18-09-2004, 21:24

in questo modo funziona a metà...

perchè, io vorrei che nel caso in cui non ci fosse la sessione aperta la pagina non viene visualizzata, e si viene rimandati alla pagina di login...

il codice completo è:

codice:

<%@LANGUAGE = JScript%>
<script language="VBScript" runat="server">

if Session("username") = "" or isNull(Session("username")) then
    response.write "Non c'è la sessione"
else
	set dbc = server.createobject("adodb.connection")
    dbc.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source= " & Server.MapPath("../../mdb-database/utentigprs.mdb")
	Sql = "SELECT * FROM utenti WHERE username = '" & Session("username") & "'"

end if

</script>

<%
	var Cn = new ActiveXObject("ADODB.Connection");
	Cn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" + Server.MapPath("../../../mdb-database/forum.mdb"));
	var Sql = "SELECT * FROM messaggi WHERE titolo <> '' ORDER BY modificato DESC";
	var MostraMessaggi = new ActiveXObject("ADODB.Recordset");
		MostraMessaggi.Open(Sql,Cn,1);
	var pag = parseInt(Request.QueryString("id"));
		if (isNaN(pag) || pag < 1) pag = 1;
		if (!MostraMessaggi.EOF) {
			MostraMessaggi.PageSize = 20;
			MostraMessaggi.AbsolutePage = pag;
		}
	var i = 0;
	var ContaDiscussioni = Cn.Execute("SELECT COUNT(*) AS id FROM messaggi WHERE titolo <> '' AND id = id");
%>
<html>
 <head>
  <title>Forum :: Homepage</title>
  <style type="text/css">
   body { margin: 0px, 0px, 0px, 0px; }
   div, td, input, textarea { font-size: 10px; font-family: Verdana; }
   a { color: #0000FF; text-decoration: None; }
   a:hover { color: #FF0000; text-decoration: Underline; }
  </style>
 </head>
<body scroll="Yes">
<div align="center">
  <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="500" height="60">
    <param name="movie" value="testata_forum.swf">
    <param name="quality" value="high">
    <embed src="testata_forum.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="500" height="60"></embed></object>
  <table align="center" width="100%" cellpadding="1" cellspacing="0">
    <tr> 
      <td width="300" align="center" style="color: #FF0000;"> Discussione</td>
      <td width="30" align="center" style="color: #FF0000;">Risp.</td>
      <td width="120" align="center" style="color: #FF0000;">Autore</td>
    </tr>
    <%
 var n = 0;
 while (!MostraMessaggi.EOF && i < 5) {
 if (n%2 == 1) {
 %>
    <tr bgcolor="#EEEEEE"> 
      <td style="border-bottom: Solid 1px #CCCCCC;">&#187; "><%=Server.HTMLEncode(MostraMessaggi("titolo"))%></td>
      <td style="border-bottom: Solid 1px #CCCCCC;" align="center"><%=Server.HTMLEncode(MostraMessaggi("risposte"))%></td>
      <td style="border-bottom: Solid 1px #CCCCCC;" align="center"><%=Server.HTMLEncode(MostraMessaggi("nome"))%></td>
    </tr>
    <%
 } else {
 %>
    <tr bgcolor="#FFFFFF"> 
      <td style="border-bottom: Solid 1px #CCCCCC;">&#187; "><%=Server.HTMLEncode(MostraMessaggi("titolo"))%></td>
      <td style="border-bottom: Solid 1px #CCCCCC;" align="center"><%=Server.HTMLEncode(MostraMessaggi("risposte"))%></td>
      <td style="border-bottom: Solid 1px #CCCCCC;" align="center"><%=Server.HTMLEncode(MostraMessaggi("nome"))%></td>
    </tr>
    <%
 }
 n++;
 i++;
 MostraMessaggi.MoveNext();
 }
 %>
  </table>
  

  <table align="center" width="450" cellpadding="1" cellspacing="0">
    <tr> 
      <td width="225">
        <%if (pag > 1) {%>
        Precedenti
        <%} else {%>
        Precedenti
        <%}%>
      </td>
      <td width="225" align="right">
        <%if (!MostraMessaggi.EOF) {%>
        Successivi
        <%} else {%>
        Successivi
        <%}%>
      </td>
    </tr>
  </table>
  

  Ci sono <%=ContaDiscussioni("id")%> discussioni presenti<a href="nuovo.htm">

  Inserisci un nuovo messaggio</a></div>
</body>
</html>
<%Cn.Close()%>

Come posso fare?

Grazie tante per l'aiuto

**kluster** · 18-09-2004, 21:27

invece di
response.write "Non c'è la sessione"

fai un
response.redirect "PAGINADILOGIN.asp"

**Giuseppe C** · 18-09-2004, 21:38

quel problema grazie a te è stato risolto... E TI RINGRAZIO

ora c'è una cavolata che ho fatto io e non riesco a capire dov'è...

in questo codice...

codice:

<%
    if (azione == "OK")
    {
        var username = new String(Request.Form("username"));
        var password = new String(Request.Form("password"));
        var username2 = username.replace(/'/g,"''");
        var password2 = password.replace(/'/g,"''");
		var cn = Server.CreateObject("ADODB.Connection");
 		cn.Open"driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../../../../mdb-database/utenti.mdb");
		var Sql = "SELECT * FROM e_blue_users WHERE uname = '" + username2 + "' AND actkey = '" + password2 + "'";
        var EseguiLogin = Cn.Execute(Sql);
            if (EseguiLogin.EOF)
            {
                Cn.Close();
                Response.Write("ACCESSO NEGATO");
                Response.End;
            }
            else
            {
                Cn.Close();
                Session("username") = username;
                with (Response)
                {
                      Write("<p align='center'>");
                      Write("Benvenuto " + username + "!

");
                      Write("Ora puoi accedere a tutti i servizi
");
                      Write("Clicca qui!");
                      Write("</p>");
                }

            }
    }
    else
    {
%>

c'è questo errore...

Microsoft JScript compilation error '800a03ec'

Expected ';'

/prove/forum/forum/login/login.asp, line 20

cn.Open"driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../../../../mdb-database/utenti.mdb");
-------^

come posso correggerlo?

GRAZIE PER IL TUO PREZIOSO AIUTO

**kluster** · 18-09-2004, 21:40

non sono sicuro perchè sviluppo in asp ma dovrebbe essere

cn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" + Server.MapPath("../../../../mdb-database/utenti.mdb"));

**kluster** · 18-09-2004, 21:43

scusa svista

codice:

cn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" ")+ Server.MapPath("../../../../mdb-database/utenti.mdb"));

Discussione: Vbs in Js (come fare?)

Strumenti discussione

Ricerca discussione

Visualizza

Vbs in Js (come fare?)

Permessi di invio