聽說幸福…在山的那邊 (浪機子)

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