峨眉山市峨山镇工厂:asp.net 2.o 的事情

来源:百度文库 编辑:杭州交通信息网 时间:2024/04/29 15:51:35
Imports System.Data.Common
Imports System.Data
Partial Class _Default
Inherits System.Web.UI.Page

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
showrsresults(Me.SqlDataSource1.Select(New DataSourceSelectArguments("state")))
End Sub
Protected Sub showrsresults(ByVal e As IEnumerable)
Dim idx As IEnumerator = e.GetEnumerator
While idx.MoveNext
If idx.Current.GetType() Is GetType(DataRowView) Then
Dim drv As DataRowView = DirectCast(idx.Current, DataRowView)
Response.Output.Write("{0},{1},{2} </br>", drv(0), drv(1), drv(2))
ElseIf idx.Current.GetType() Is GetType(DbDataRecord) Then
Dim dr As DbDataRecord = DirectCast(idx.Current, DbDataRecord)
Response.Output.Write("{0},{1},{2} </br>", dr(0), dr(1), dr(2))

End If
End While
End Sub
End Class
这些代码啥 意思,具体的解释一下

哥们给你点建议还是学C#.NET吧
Imports System.Data.Common
Imports System.Data
是命名空间的引用
Partial Class _Default 这个是告诉你是部分代码

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)

End Sub
End Class
这是个事件处理的代码是在服务器端执行的(是加载页面的事件)

Response.Output.Write("{0},{1},{2} </br>", dr(0), dr(1), dr(2))
是向页面输出的语句

Dim drv As DataRowView = DirectCast(idx.Current, DataRowView)
Dim dr As DbDataRecord = DirectCast(idx.Current, DbDataRecord)
定义DataRowView DataRecord(记录数)

其他的要看整个页面单看这一段代码不能明白整个页面的框架