Microsoft ha un proprio linguaggio di programmazione - ASP.net , acronimo di Active Server Pages . Questa applicazione viene eseguita all'interno di IIS ( Internet Information Services ) , che è un componente gratuito di alcuni sistemi operativi Microsoft , come Windows 2000 e Windows NT 4.0 . È possibile utilizzare ASP per vari progetti , come ad esempio la creazione di report e la costruzione di pagine web . ASP può contenere elementi come i tag HTML e script , quindi è molto flessibile e facile da usare . Istruzioni
1

Run Microsoft Visual Studio. NET. Puntare su "Nuovo" dal menu File , quindi fare clic su "Progetto ". Quando la finestra di dialogo Nuovo progetto si apre, fare clic su "Progetto di Visual Basic " dai Tipi progetto e quindi in Modelli , fare clic su " Applicazione Web ASP.NET . "
2

tipo " ExcelVBTest " nel nome casella e fare clic sul server appropriato nella casella Posizione. Lasciare il nome del server come " http://localhost ", se i file sono ospitati in server locale , quindi fare clic su "OK". Trascinare un controllo "Collegamento ipertestuale " dalla casella degli strumenti al form Web nel file WebForm1.aspx . Fare clic destro sul file " WebForm1.aspx " , e quindi fare clic su " Visualizza codice " per visualizzare il codice sorgente del progetto
3

incolla il codice sottostante per la parte superiore della pagina : .

Imports System.Data Imports

System.Data.Common

Imports System.Data.SqlClient

Imports System.IO Imports

System.Text

e quindi includere il codice successivo per l'evento " Load " :

Dim i As Integer Dim

strLine As String , filePath , fileName , fileExcel , collegamento

Dim objFileStream Come FileStream

Dim objStreamWriter Come StreamWriter

Dim nRandom come casuale = new Random ( DateTime.Now.Millisecond ) per

Dim fs As Object , myFile As Object

Dim cnn Come SqlConnection = New SqlConnection ( "server = ( local) ; database = pubs , " & _

" Integrated Security = SSPI " ) per < p > 'Crea un nome di file di pseudo-casuale .

fileExcel = " t" e nRandom.Next ( ) . ToString ( ) & " . xls "

' Imposta una cartella virtuale per salvare il file.

' assicurarsi di modificare il nome dell'applicazione per abbinare la vostra cartella .

filePath = Server.MapPath ( " \\ ExcelVBTest " ) per

fileName = filePath & " \\ "& fileExcel

'Usa FileStream per creare il file . xls .

objFileStream = New FileStream ( fileName , FileMode.OpenOrCreate , FileAccess.Write )

objStreamWriter = Nuovo StreamWriter ( objFileStream ) per

' utilizzare un DataReader per la connessione al database pubs .

cnn.Open ( ) per

Dim sql As String = "select au_id , au_lname , au_fname , telefono , "& _

" indirizzo , città, stato , zip , contratto da autori "

Dim cmd Come SqlCommand = New SqlCommand ( sql , cnn ) per

Dim dr As SqlDataReader

dr = cmd.ExecuteReader ( ) per

' enumerare i nomi dei campi ei record che vengono utilizzati per creare il file .

For i = 0 To dr . FieldCount - . 1.

strLine = strLine & dr.GetName ( i) ToString & Chr ( 9 ) per

Successivo

'Scrive le informazioni del nome campo per il file < br

objStreamWriter.WriteLine > ( strLine ) per

' Re-inizializza la stringa di dati .

strLine = " "

' enumerare i database che viene utilizzato per popolare il file .

Mentre dr.Read ( ) per

For i = 0 To dr.FieldCount - 1

strLine = strLine & dr.GetValue ( i) & Chr ( 9)

Avanti

objStreamWriter.WriteLine ( strLine ) per

strLine = " "

End While

'Clean un collegamento al file di Excel .

HyperLink1.Text = "Apri Excel "

HyperLink1.NavigateUrl = fileExcel
4

Fare clic su "Save All" sul file menu per salvare i file di progetto . Fare clic su "Build" per creare il progetto dal menu Genera nell'IDE di Visual Studio . NET ambiente di sviluppo integrato . Fare clic con il modulo " WebForm1.aspx " in Visual Studio . NET ambiente di sviluppo integrato Esplora soluzioni , ed eseguire il codice facendo clic su " Visualizza nel browser . "