Models文件夹里的：
DiyModels.vb
Public Class DiyModels
Public Property Id As Integer
Public Property Name As String
End Class
SqlDB.vb
Imports System.Data.SqlClient
Public Class SqlDB
Private db As String = ConfigurationManager.ConnectionStrings("DBConnection").ConnectionString
Function GetVal()
Dim connection As SqlConnection
Dim command As SqlCommand
Dim cmdString As String = "SQL存储过程"
connection = New SqlConnection(db)
command = New SqlCommand(cmdString, connection)
connection.Open()
Dim reader As SqlDataReader
reader = command.ExecuteReader(CommandBehavior.CloseConnection)
Dim DataList As New List(Of DiyModels)()
While reader.Read()
DataList.Add(New DiyModels With {.Name = reader("Name").ToString(), .Id = reader("Id").ToString()})
End While
Return DataList
End Function
End Class
Controllers文件夹里的：
HomeController.vb
Public Class HomeController
Inherits System.Web.Mvc.Controller
Function Index() As ActionResult
Dim aaa As New SqlDB
Return View(aaa.GetVal)
End Function
End Class
Views文件夹里的：
Index.aspx
<%@ Page Language="VB" MasterPageFile="~/Views/Shared/Site.Master" Inherits="System.Web.Mvc.ViewPage" %>
<%@ Import Namespace="Diy" %>
<asp:Content ID="indexContent" ContentPlaceHolderID="MainContent" runat="server">
<ul>
<%For Each row As DiyModels In ViewData.Model%>
<li><a href="http://www.xxx.com/article/<%=row.Id%>"><%=row.Name%></a></li>
<%Next%>
</ul>
</asp:Content>
如果哪里有写得不对 或者有不足都希望请各位高手指出 谢谢
------解决方案--------------------
MVC是一个很自由的框架，没有标准一说。