小问题在线等,急!就60分了, 都送了!快!!
我输入localhost/kjaspx/ch09/reader01.aspx 怎么会显示乱码?和什么有关,下面是里面的源代码程序。
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<script Language="VB" runat="server">
Sub Page_Load(sender As Object, e As EventArgs)
Dim Conn As OleDbConnection
Dim Cmd As OleDbCommand
Dim Rd As OleDbDataReader
Dim I As Integer
Dim Provider = "Provider=Microsoft.Jet.OLEDB.4.0"
Dim Database = "Data Source=" & Server.MapPath( "Sample.mdb" )
Conn = New OleDbConnection( Provider & ";" & DataBase )
Conn.Open()
Dim SQL = "Select * From 成绩单"
Cmd = New OleDbCommand( SQL, Conn )
Rd = Cmd.ExecuteReader()
Msg.Text = "成绩单:<UL>"
For I = 0 To Rd.FieldCount - 1
Msg.Text &= "<LI>" & Rd.GetName(I) & "</LI>"
Next
Msg.Text &= "</UL>"
Conn.Close()
End Sub
</script>
<Html>
<Body BgColor="White">
<H3>读取数据表每一个栏位的抬头,并将其显示在网页上
<HR></H3>
<Form runat="server">
<asp:Label runat="server" id="Msg" />
</Form>
<p>
<HR></Body>
</Html>
谁能帮我分析一下。小弟不胜感谢!!!快点哟!!