【ASP.NET 2.0】使用App_Code作Library的限制－聽說幸福…在山的那邊 (浪機子)

1. 使用app_code的注意==其放在WEB 的路徑要為iis的虛擬路徑

意思就是說，如果IIS定義的目錄為 c:\Inetpub\wwwroot 則就要在這裡建立一個App_code

c:\Inetpub\wwwroot\App_Code\vb 裡，vb那子目錄，可有可無，程式就要放在裡面才行。

2.        app_code => inquiry.vb

Imports Microsoft.VisualBasic   Imports system Imports System.Data.SqlClient

Imports System.IO Imports System.Data Imports System.Configuration

Public Class InqueryData

Inherits System.Web.UI.Page

定義為 Shared則要注意，是否有資料要清除，否則vdt的資料會愈跑愈多(重覆記錄)

'Shared vDT As DataTable = New DataTable()

'定義 Public Shared Function才行

Public Shared Function GetConn(ByVal strconnecion As String, ByVal strsql As String) As DataTable

Dim Vconn As SqlConnection          Dim vCmd As New SqlCommand     Dim Vreader As SqlDataReader

Dim vDA As SqlDataAdapter = New SqlDataAdapter()

Dim vDT As DataTable = New DataTable()

Vconn = New SqlConnection(strconnecion)

vCmd.Connection = Vconn

Vconn.Open()

vCmd.CommandText = strsql

Vreader = vCmd.ExecuteReader

' vDT.Clear()

vDT.Load(Vreader)

Vreader.Close()           vCmd.Dispose()           Vconn.Close()

Return vDT

End Function

End Class

3. .aspx中定義

<%@ Page Language="VB" %> <%@ Import Namespace ="System.Data" %>

<%@ Import Namespace ="System.Data.SqlClient" %> <%@ Import Namespace ="system.web.configuration" %>

<%@ Import Namespace ="system.threading" %>

<script runat="server" >

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

      '取得連線字串並傳入db中，因在class無法讀一般的data file

         Dim Vconn As String

         vconn = GetSqlConnStr("Certification")

        Dim PDT as dataTable = new datatable

        PDT = InqueryData.SPLicenseCnt(Vconn)

        Dim PDR as datarow

        for each PDR in