【正文】 tview.[0].types) = a href=39。?cid= amp。 (ds, tables[type].defaultview.[0].typeid) amp。 39。 font color=000000更多 /font/a Dim adpnews1 As New OleDbDataAdapter(select top 5 * from info where typeid= amp。 (ds, tables[type].defaultview.[0].typeid) amp。 order by id desc , conn) Dim dsnews1 As New DataSet (dsnews1, info) = dsnews1 = info = id () Catch ex As Exception End Try Try = (ds, tables[type].defaultview.[1].types) = a href=39。?cid= amp。 (ds, tables[type].defaultview.[1].typeid) amp。 39。 font color=000000更多 /font/a Dim adpnews2 As New OleDbDataAdapter(select top 5 * from info where typeid= amp。 (ds, tables[type].defaultview.[1].typeid) amp。 order by id desc, conn) Dim dsnews2 As New DataSet (dsnews2, info) = dsnews2 = info = id () Catch ex As Exception End Try Try = (ds, tables[type].defaultview.[2].types) = a href=39。?cid= amp。 (ds, tables[type].defaultview.[2].typeid) amp。 39。 font color=000000更多 /font/a Dim adpnews3 As New OleDbDataAdapter(select top 5 * from info where typeid= amp。 (ds, tables[type].defaultview.[2].typeid) amp。 order by id desc, conn) Dim dsnews3 As New DataSet (dsnews3, info) = dsnews3 = info = id () 25 Catch ex As Exception End Try Try = (ds, tables[type].defaultview.[3].types) = a href=39。?cid= amp。 (ds, tables[type].defaultview.[3].typeid) amp。 39。 font color=000000更多 /font/a Dim adpnews4 As New OleDbDataAdapter(select top 5 * from info where typeid= amp。 (ds, tables[type].defaultview.[3].typeid) amp。 order by id desc, conn) Dim dsnews4 As New DataSet (dsnews4, info) = dsnews4 = info = id () Catch ex As Exception End Try Try = (ds, tables[type].defaultview.[4].types) = a href=39。?cid= amp。 (ds, tables[type].defaultview.[4].typeid) amp。 39。 font color=000000更多 /font/a Dim adpnews5 As New OleDbDataAdapter(select top 5 * from info where typeid= amp。 (ds, tables[type].defaultview.[4].typeid) amp。 order by id desc, conn) Dim dsnews5 As New DataSet (dsnews5, info) = dsnews5 = info = id () Catch ex As Exception End Try Try = (ds, tables[type].defaultview.[5].types) = a href=39。?cid= amp。 (ds, tables[type].defaultview.[5].typeid) amp。 39。 font color=000000更多 /font/a Dim adpnews6 As New OleDbDataAdapter(select top 5 * from info where typeid= amp。 (ds, tables[type].defaultview.[5].typeid) amp。 order by id desc, conn) Dim dsnews6 As New DataSet (dsnews6, info) = dsnews6 = info = id 26 () Catch ex As Exception End Try Try = (ds, tables[type].defaultview.[6].types) = a href=39。?cid= amp。 (ds, tables[type].defaultview.[6].typeid) amp。 39。 font color=000000更多 /font/a Dim adpnews7 As New OleDbDataAdapter(select top 5 * from info where typeid= amp。 (ds, tables[type].defaultview.[6].typeid) amp。 order by id desc, conn) Dim dsnews7 As New DataSet (dsnews7, info) = dsnews7 = info = id () Catch ex As Exception End Try Try = (ds, tables[type].defaultview.[7].types) = a href=39。?cid= amp。 (ds, tables[type].defaultview.[7].typeid) amp。 39。 font color=000000更多 /font/a Dim adpnews8 As New OleDbDataAdapter(select top 5 * from info where typeid= amp。 (ds, tables[type].defaultview.[7].typeid) amp。 order by id desc, conn) Dim dsnews8 As New DataSet (dsnews8, info) = dsnews8 = info = id () Catch ex As Exception End Try End Sub End Class 27 程序代碼： Dim conn As New OleDbConnection Private Sub Page_Load(ByVal sender As , ByVal e As ) Handles = (ConnString) () End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles If jiance() = 1 Then () Else () End If End Sub Function jiance() Try () () Dim adp As New OleDbDataAdapter(select * from userinf where username=39。 amp。 amp。 39。, conn) Dim ds As New DataSet (ds, userinf) Dim u As String u = (ds, tables[userinf].defaultview.[0].id) () Return 0 28 Catch ex As Exception Return 1 End Try End Function Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles If jiance() = 1 Then () () Dim sqlstr As String sqlstr = insert into userinf(username,password,name,address,tel,,regtime) values( sqlstr = sqlstr amp。 39。 amp。 amp。 39。,39。 amp。 (Trim(), md5) amp。 39。 sqlstr = sqlstr amp。 ,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 Now() amp。 39。) Dim cmd As New OleDbCommand(sqlstr, conn) () ()