Microsoft har sit eget programmeringssprog - ASP.net , som står for Active Server Pages. Denne applikation kører inden IIS ( Internet Information Services) , som er en gratis komponent i visse Microsoft-operativsystemer, som Windows 2000 og Windows NT 4.0. Du kan bruge ASP til forskellige projekter , såsom at oprette rapporter og opbygge websider. ASP kan indeholde elementer som HTML-tags og scripts , så det er meget fleksibel og nem at bruge. Instruktioner
1

Run Microsoft Visual Studio. NET . Peg på "Ny" i menuen Filer , og klik derefter på "Projekt ". Når dialogen Nyt projekt popper op , klik på " Visual Basic Project" fra Projekt Typer , og derefter under Skabeloner , klik på " ASP.NET Web Application ".
2

Type " ExcelVBTest " i navnet boks og klik på den relevante server i boksen Placering . Lad servernavnet som " http://localhost ", hvis dine filer er opstaldet i din lokale server, og klik på "OK". Træk et " HyperLink " kontrol fra værktøjskassen til webformular i WebForm1.aspx fil. Højreklik på " WebForm1.aspx " fil , og klik derefter på " View Code " for at vise dit projekt kildekode
3

Indsæt koden nedenfor til toppen af siden: . < br >

Import System.Data

Importerer System.Data.Common

Import System.Data.SqlClient

Import System.IO

Import System.Text

Og så omfatter den efterfølgende koden til " Page_Load " begivenhed : Hej

Dim i As Integer

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

Dim objFileStream Som FileStream

Dim objStreamWriter Som StreamWriter

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

Dim fs As Object , minfil As Object

Dim cnn Som SqlConnection = Ny SqlConnection ( "server = (lokal ), database = pubber ," & _

" Integrated Security = SSPI " )
< p > 'Opret en pseudo- tilfældig filnavn.

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

' Sæt en virtuel mappe til at gemme de fil.

' Sørg for at du ændrer programmet svarer til navnet mappen .

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

filename = filepath & " \\ "& fileExcel

' Brug FileStream at oprette . xls-fil .

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

objStreamWriter = Ny StreamWriter ( objFileStream )

'Brug en DataReader at oprette forbindelse til Pubs -databasen.

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 , cnn )

Dim dr som SqlDataReader

dr = cmd.ExecuteReader ()

' opregne de feltnavne og poster , der bruges til at bygge filen.

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

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

Næste

' Skriv feltnavnet information til fil < br >

objStreamWriter.WriteLine ( strLine )

' Geninitialiser strengen for data .

strLine = " "

' opregne den database, der bruges til at udfylde filen .

dr.Read ()

For i = 0 Til dr.FieldCount - 1

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

Næste

objStreamWriter.WriteLine ( strLine )

strLine = " "

End Mens

' Clean et link til Excel-fil.

HyperLink1.Text = "Åbn Excel "

HyperLink1.NavigateUrl = fileExcel
4

klikke på "Gem alle" på File menu for at gemme projektfiler. Klik på " Build " for at oprette projektet på Build menuen i Visual Studio. NET Integrated Development Environment. Højreklik på " WebForm1.aspx " formular i Visual Studio. NET Integrated Development Environment Solution Explorer og køre koden ved at klikke på " Vis i Browser . "