desidero installare sul mio server delle procedure in asp.net che componenti devo installare?. (il sistema operativo è NT4 sp6a)
grazie a tutti
desidero installare sul mio server delle procedure in asp.net che componenti devo installare?. (il sistema operativo è NT4 sp6a)
grazie a tutti
iis + framework
l'iis e il framework sono installati, però quando lancio lo script in aspx mi da un errore in riga 6 di "unterminated string constant"
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<%@ Import Namespace="AccUtenti" %>
<%@ Import Namespace="AccTrasmissioni" %>
<%@ Page aspcompat=true %>
<Script Runat="Server">
Ciao grazie
posta tutto il codice![]()
eccolo l'ho salvato come .aspx :
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<%@ Import Namespace="AccUtenti" %>
<%@ Import Namespace="AccTrasmissioni" %>
<%@ Page aspcompat=true %>
<Script Runat="Server">
'************************************************* ********************
'* Variabili comuni *
'************************************************* ********************
Dim CampoAppoggio as string
Dim FlagPg as integer
Dim Operazione as integer
Dim MioControllo as New AccUtenti
Dim MioControllo1 as New AccTrasmissioni
Dim MiaCartella as string
dim MioArchivio as string
DIM OggFso
'Dim MioControllo2 As New AccUtenti
Dim DataBase = MioCOntrollo.MioDataBase
Dim CtrlErr as string
'************************************************* ********************
'* Routine generiche *
'************************************************* ********************
Sub ControlloCartella ()
OggFso = CreateObject("Scripting.FileSystemObject")
if OggFso.FolderExists (MiaCartella) = False then
' OggFso.CreateFolder (MiaCartella)
' MsgBox ("La cartella è stata creata.")
ErrDir.text=" Attenzione cartella non generata sul sistema, prima di avviare provvedere"
CtrlErr="NO"
end if
end sub
Sub ControlloArchivio ()
OggFso = CreateObject("Scripting.FileSystemObject")
if Oggfso.FileExists (MioArchivio) then
ErrArc.text="Attenzione l'archivio esiste già e proseguendo verrà sovrascritto"
end if
end sub
Sub Zippa ()
Dim ObjWsh
Dim FileObject
Dim z as long
Dim F
' * * * * fase 1 zippa
objWSH = server.createObject("wscript.shell")
objWSH.Run ("c:\zip\PKZIP -a " & Archivio.text & " " & Direct.text)
objWSH = Nothing
Controllo:
FileObject = Server.CreateObject("Scripting.FileSystemObject")
f = FileObject.GetFile(Archivio.text)
for z= 1 to 100000000
'Response.write ("
Proprietà del file '" & archivio.text &"'
")
'Response.write ("Creazione: " & f.DateCreated)
'Response.write ("
Ultima modifica: " & f.DateLastModified)
'Response.write ("
Ultimo accesso: " & f.DateLastAccessed)
'Response.write ("
Dimensione: " & f.Size)
next z
end sub
Sub Trasmetti ()
Dim FileObject
end sub
'************************************************* ********************
'* Routine dei bottoni *
'************************************************* ********************
' * * * * * * * * * * * * * * * * Routine zip+trasmissione
Sub Trasmetti_Click(sr As Object, e As EventArgs)
call zippa
CALL TRASMETTI
end sub
' * * * * * * * * * * * * * * * * Routine azzeramento
Sub Clear_Click(sr As Object, e As EventArgs)
UteCodUte.text =" "
UtePwd.text =" "
ErrUte.text=" "
ErrPwd.text=" "
end sub
' * * * * * * * * * * * * * * * * Routine controllo
Sub Invia_Click( s As Object, e As EventArgs )
CtrlErr="OK"
Esito.text=""
ErrUte.text=" "
ErrPwd.text=" "
MioControllo.UteCodUte=UteCodUte.text
MioControllo.UtePwd=UtePwd.text
MioControllo.VerificaUtenti()
If miocontrollo.CAMPOAPPOGGIO="PW" then
ErrPwd.text="Password errata"
end if
If miocontrollo.CAMPOAPPOGGIO="NO" then
ErrUte.text="Utente non trovato"
end if
if miocontrollo.CAMPOAPPOGGIO="OK" then
MioControllo1.TrUte=miocontrollo.UteCod
MioControllo1.LeggiTrasmissioni()
' response.write(miocontrollo.UteCod)
' response.write(miocontrollo1.Campoappoggio)
If MioControllo1.CAMPOAPPOGGIO=miocontrollo.UteCod then
IF MioControllo1.TrFase1="T" then
Esito.text="Buon giorno " & miocontrollo.UteNome & " desideri iniziare la trasmissione "
DirDe.text="I dati verranno estratti dalla"
ArDe.text="Verrà generato l'archivio :"
Direct.text=miocontrollo1.TrDirPArt & miocontrollo1.TrFilePArt
Archivio.text=miocontrollo1.TrDirArr & miocontrollo1.TrFileArr
MiaCartella=miocontrollo1.TrDirPArt
MioArchivio=archivio.text
ErrDir.text=""
ErrArc.text=""
call ControlloArchivio
call ControlloCartella
if CtrlErr= "NO" then
Trasmit.visible=False
else
Trasmit.visible=True
end if
End If
If MioControllo1.CAMPOAPPOGGIO="R" then
Esito.text="Buon giorno " & miocontrollo.UteNome & " desideri iniziare la ricezione "
End If
Else
Esito.text="Buon giorno " & miocontrollo.UteNome & ",spiacente non sei abilitato/a ad operare "
End If
GestAcc.visible="False"
GestConf.visible="True"
end if
end sub
</Script>
<!'*********************************************** **********************>
<!'* Routine testata *>
<!'*********************************************** **********************>
<html>
<head><title>Gestione Accessi</title></head>
<body>
<form Runat="Server">
<asp:Panel ID="Testata" Runat="Server" Visible="True">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<div align="center">
<asp:Label ID="lblIntestazione" Text=">GESTIONE TRASMISSIONI<"
BackColor="#CCCCCC" ForeColor="Black" BorderStyle="Outset" Align="Center" Font-Name="Arial" Font-size="12" Width="300" Height="10" Runat="Server" />
</div>
</table>
</asp:Panel>
<!'*********************************************** **********************>
<!'* Pagina Password *>
<!'*********************************************** **********************>
<asp:Panel ID="GestAcc" Runat="Server" Visible="True">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<div align="center">
<tr>
Username:
<asp:TextBox ID="UteCodUte" Runat="Server" /> <asp:Label ID="ErrUte" Text="" ForeColor="Red" Width="200" Height="20" Runat="Server" />
Password:
<asp:TextBox ID="UtePwd" Runat="Server" /><asp:Label ID="ErrPwd" Text="" ForeColor="Red" Width="200" Height="20" Runat="Server" />
<!+++++++++++++++++++++++++++++++++++++++++++++>
[b]<asp:Button ID="Clear" Text="Clear" OnClick="Clear_Click" ToolTip="Azzera dati inseriti" Runat="Server" />
<asp:Label ID="Filler1" Width="50" Height="20" Runat="Server" />
<asp:Button ID="Invia" Text="Invia" OnClick="Invia_Click" ToolTip="Verifica dati inseriti" tabindex="20" Runat="Server" />
</tr>
</asp:Panel>
<!'*********************************************** **********************>
<!'* Pagina Conferme *>
<!'*********************************************** **********************>
<asp:Panel ID="GestConf" Runat="Server" Visible="False">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<div align="center">
<tr> <asp:Label ID="EsiTo" Text="" ForeColor="Red" Font-Name="Arial" Font-size="15" Width="600" Height="20" Runat="Server" /></tr>
<tr>
<asp:Label ID="DirDe" Runat="Server" /><asp:Label ID="Direct" Width="600" Runat="Server" /> <asp:Label ID="ErrDir" Text="" ForeColor="Red" Width="600" Height="20" Runat="Server" />
<asp:Label ID="ArDe" Runat="Server" /><asp:Label ID="Archivio" Width="600" Runat="Server" /><asp:Label ID="ErrArc" Text="" ForeColor="Red" Width="600" Height="20" Runat="Server" />
</tr>
</div>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<div align="center">
[b]<asp:Button ID="Refres" Text="Refresh dati" OnClick="Invia_Click" Width="150" ToolTip="Riverifica dati inseriti" Runat="Server" />
<asp:Label ID="Filler2" Width="50" Height="20" Runat="Server" />
<asp:Button ID="Trasmit" Text="Conferma trasmissione" OnClick="Trasmetti_Click" Width="150" ToolTip="Verifica dati inseriti" tabindex="20" Runat="Server" />
</div>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<asp:Label
<tr>
<asp:Label ID="lblMess1" Text ="" ForeColor="Black" Font-Bold="True" Width="150" Runat="Server" />
<asp:Label ID="lblFill1" Text ="" ForeColor="Black" Font-Bold="True" Width="40" Runat="Server" />
<asp:Label ID="lblEsit1" Text ="" ForeColor="Black" Font-Bold="True" Width="150" Runat="Server" />
</tr>
<tr>
<asp:Label ID="lblMess2" Text ="" ForeColor="Black" Font-Bold="True" Width="150" Runat="Server" />
<asp:Label ID="lblFill2" Text ="" ForeColor="Black" Font-Bold="True" Width="40" Runat="Server" />
<asp:Label ID="lblEsit2" Text ="" ForeColor="Black" Font-Bold="True" Width="150" Runat="Server" />
</tr>
</table>
</asp:Panel>
</form>
</body>
</html>
prova a sostiuire questo:
<%@ Page aspcompat=true %>
con
<%@ Page Language="VB" %>
niente non funziona, il mio dubbio è, che quando provo questo script in locale su win xp funziona, ma una volta caricato sul web server e vado a vederlo via internet mi da errore, e mi fa vedere solo le cose scritte in html.....penso che non riesca a pubblicarmi i file aspx e non so dove intervenire![]()
ciao
sicuro ke sia installato il framework?
vai sull'url del tuo sito cosi:
www.miosito.it/asdfasdf.aspx
se ti viene la pagina di errore (xkè la pagina asdfasdf.aspx dubito ke esista) "classica" il framework nn è installato (o nn è installato correttamente)
forse ci siamo.... non è configurato ho trovato una procedura x la configurazione solo che non l'ho mai fatta mi dareste una mano? come si configura??? grazie![]()