Microsoft har sitt eget programmeringsspråk - ASP.net , som står for Active Server Pages. Dette programmet kjører inne IIS ( Internet Information Services) , som er en gratis komponent av visse Microsoft-operativsystemer , for eksempel Windows 2000 og Windows NT 4.0. Du kan bruke ASP for ulike prosjekter , som for eksempel å lage rapporter og bygge websider . ASP kan inneholde elementer som HTML koder og script , så det er svært fleksibel og enkel å bruke . Instruksjoner
en

Run Microsoft Visual Studio . NET . Pek på "Ny" på Fil-menyen , og klikk deretter på "Project ". Når dialogboksen Nytt prosjekt dukker opp , klikk på " Visual Basic Project" fra prosjekttyper , og deretter under Maler , klikk på " ASP.NET Web Application ".
2

Type " ExcelVBTest " i navnet boksen og klikk den aktuelle serveren i Plassering-boksen . Forlate serveren navn som " http://localhost , " hvis filene er plassert i den lokale serveren , og klikk " OK . " Dra en " HYPERLINK" kontroll fra verktøykassen til webskjema i WebForm1.aspx filen. Høyreklikk på " WebForm1.aspx "-filen , og klikk deretter på " Vis kode " for å vise prosjektets kildekode
3

Lim koden nedenfor til toppen av siden : .

Import System.Data

Import System.Data.Common

Import System.Data.SqlClient

Import System.IO

Imports System.Text

Og så inkluderer den etterfølgende koden til " Page_Load " hendelse : en

Dim i As Integer

Dim strLine As String , filePath , fileName , fileExcel , link

Dim objFileStream Som FileStream

Dim objStreamWriter Som StreamWriter

Dim nRandom Som Random = Ny Random ( DateTime.Now.Millisecond )

Dim fs som objekt , minFil som objekt

Dim cNN som SqlConnection = Ny SqlConnection ( "server = (local ) ; database = puber , " & _

"Integrated Security = SSPI " )
< p > 'Opprett en pseudo -random filnavn.

fileExcel = " t" og nRandom.Next ( ) . toString ( ) & " . xls "

' Sett en virtuell mappe for å lagre filen.

' Pass på at du endrer navnet på programmet som passer din mappe .

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

fileName = filePath & " \\ "& fileExcel

' bruk FileStream å skape den . xLS-fil .

objFileStream = Ny FileStream (filnavn , FileMode.OpenOrCreate , FileAccess.Write )

objStreamWriter = Ny StreamWriter ( objFileStream )

' Bruk en DataReader å koble til Pubs database .

cnn.Open ( )

Dim sql As String = " select au_id , au_lName , au_fname , telefon , "& _

" adresse , by, stat, zip, kontrakt fra forfattere "

Dim cmd Som SqlCommand = Ny SqlCommand ( sql , dagbladet )

Dim dr som SqlDataReader

dr = cmd.ExecuteReader ( )

' nummerere feltnavn og poster som brukes til å bygge filen.

for i = 0 til DR . FieldCount - . . 1

strLine = strLine & dr.GetName ( i) toString & Chr ( 9 )

Neste

' Skriv feltnavnet informasjon til fil

objStreamWriter.WriteLine ( strLine )

' Initialiser strengen for data .

strLine = ""

' Liste opp databasen som brukes til å fylle filen .

Mens dr.Read ( )

For i = 0 For å dr.FieldCount - en

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

Neste

objStreamWriter.WriteLine ( strLine )

strLine = ""

End Mens

' Clean en kobling til Excel-filen .

HyperLink1.Text = "Åpne Excel "

HyperLink1.NavigateUrl = fileExcel
4

Klikk " Lagre alle" på Fil menyen for å lagre prosjektfiler. Klikk "Build " for å opprette prosjektet på Build -menyen i Visual Studio. NET Integrated Development Environment. Høyreklikk på " WebForm1.aspx " form i Visual Studio. NET Integrated Development Environment Solution Explorer , og kjøre koden ved å klikke på " Vis i leser . "