雷蛇耳麦怎么调:谁能给我看看这段代码的问题吗?

来源:百度文库 编辑:高考问答 时间:2024/05/01 16:43:57
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
Dim conn As New OleDb.OleDbConnection
Dim cmd As New OleDb.OleDbCommand

conn.ConnectionString = "provider=microsoft.jet.oledb.4.0; data sourse=C:\Inetpub\wwwroot\news"
conn.open()
cmd.connection = conn
cmd.commandtext = "select newID,title from [new]"
Dim dr As OleDb.OleDbDataReader = cmd.executereader()

Response.Write("新闻")
Response.Write("<hr color =#ff0000>")

Do While dr.Read
Response.Write("<a href=shownews.aspx?newId=" & dr.Item(0) & ">" & dr.Item(1) & "</a>")
Loop
End Sub

我看好象是VB语言,但由于我们学的少,我只能看懂一点点