Originariamente inviato da cassano
credo di aver capito..ma se me lo fai di sicuro non lo rifiuto...grazie della disponibilità.
Nell'esempio che ho buttato giù, uso una tabella di un database Access.
nome tabella: Tabella15
campi:
id, numerico, chiave primaria
testo, memo
Nell'esempio, interrogo la tabella ogni tot secondi tramite chiamate ajax e restituisco le ultime n news.
nella stessa pagina (dovrebbe essere in una pagina separata) c'è la sezione per inserire nuove new nel database, sempre fatto tramite chiamata ajax.
Per ajax uso la libreria prototype.js
ps. la grafica fa schifo 
pagina
codice:
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="news.aspx.vb" Inherits="prove_a" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<title>Pagina senza titolo</title>
<link href="../../../../App_Themes/Tema1/StyleSheet.css" rel="stylesheet" type="text/css" />
<script type="text/javascript" src="../../../../js/prototype.js"></script>
<script language="javascript" type="text/javascript">
// <!CDATA[
window.onload = function()
{
window.setTimeout(aggiorna_marquee, 10000);
}
function aggiorna_marquee()
{
var url_action = "?comando_ajax=aggiorna_marquee";
var parametri = "";
new Ajax.Request(url_action, { onComplete:showResponse, parameters:parametri } );
function showResponse(originalRequest)
{
var t = originalRequest.responseText;
$("mr_1").innerHTML = t;
window.setTimeout(aggiorna_marquee, 10000);
}
}
function aggiungi_new()
{
$("div1").innerHTML = "<img alt=\"attendere...\" src=\"../../../../immagini/indicator.white.gif\" />";
var url_action = "?comando_ajax=aggiorna_new";
var parametri = "p_new=" + encodeURIComponent($("TextArea1").value);
new Ajax.Request(url_action, { onComplete:showResponse, parameters:parametri } );
function showResponse(originalRequest)
{
var t = originalRequest.responseText;
$("div1").innerHTML = t;
}
}
// ]]>
</script>
</head>
<body>
<form id="form1" runat="server">
<div>
<marquee id="mr_1" runat="server" direction="up" scrolldelay="100" scrollamount="1" style="background-color:Bisque" ></marquee>
<textarea id="TextArea1" style="width: 571px; height: 275px"></textarea>
Aggiungi new
<div id="div1">[img]../../../../immagini/indicator.white.gif[/img]</div>
</div>
</form>
</body>
</html>
codice
codice:
Option Strict On
Partial Class prove_a
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim comando_ajax As String = RequestParams("comando_ajax")
If comando_ajax = "aggiorna_marquee" Then
Response.Clear()
Response.Write(Ultime3News())
Response.End()
Exit Sub
ElseIf comando_ajax = "aggiorna_new" Then
aggiorna_new()
Exit Sub
End If
Me.mr_1.InnerHtml = Ultime3News()
End Sub
Private Function Ultime3News() As String
Dim sb As New StringBuilder(10000)
Dim dt As DataTable = libreria.GetDataTable(StringaConnessioneTest, "SELECT TOP 3 [testo] FROM Tabella15 ORDER BY [id] DESC;")
For i As Integer = 0 To dt.Rows.Count - 1
If i > 2 Then Exit For
sb.Append("<p style='border:1px black solid;'>")
sb.Append(dt.Rows(i)(0).ToString().Replace(vbNewLine, "
"))
sb.Append("</p>")
Next
Return sb.ToString()
End Function
Private Sub aggiorna_new()
Dim p_new As String = RequestParams("p_new")
Dim Connessione As OleDbConnection = Nothing
Dim Comando As OleDbCommand = Nothing
Dim Transazione As OleDbTransaction = Nothing
Dim Sql$ = ""
Try
Connessione = New OleDbConnection(StringaConnessioneTest)
Connessione.Open()
Transazione = Connessione.BeginTransaction()
Comando = New OleDbCommand
Comando.Connection = Connessione
Comando.Transaction = Transazione
Append(Comando)
'Update(Comando)
'Delete(Comando)
Transazione.Commit()
'Transazione.Rollback()
Response.Write("New inserita")
Catch ex As Exception
If (Not (Transazione Is Nothing) AndAlso Not (Transazione.Connection Is Nothing)) Then Transazione.Rollback()
Response.Write(toStringaJS("Errore nell'aggiornamento:" & vbNewLine & vbNewLine & ex.Message))
Finally
If (Not (Connessione Is Nothing)) Then Connessione.Close()
End Try
Response.End()
End Sub
Private Sub Append(ByVal Comando As OleDbCommand)
Dim p_new As String = RequestParams("p_new")
Dim prossimo_id As Integer = libreria.ProssimoIDAccess(Comando, "tabella15", "id")
Dim Sql$ = "INSERT INTO [tabella15] ( [TESTO], [ID]) VALUES (?,?) "
Comando.CommandText = Sql
Comando.Parameters.Clear()
Comando.Parameters.Add("testo", OleDbType.VarChar, 60000).Value = p_new
Comando.Parameters.Add("id", OleDbType.Integer).Value = prossimo_id
Comando.ExecuteNonQuery()
End Sub
End Class
Permessi di invio
Rispondi quotando