＜Title＞
＜title_id＞BU1032＜/title_id＞
＜au_id＞213-46-8915＜/au_id＞
＜title＞The Busy Executive's Database Guide＜/title＞
＜price＞19.99＜/price＞
＜pubdate＞1991-06-12T07:00:00＜/pubdate＞
＜/Title＞
＜/DocumentElement＞
＜/root＞

public void Session_OnStart() {
// 将样例中所用的数据载入会话范围的 DataSet.

FileStream fs = null;
DataSet ds = null;
try {
fs = new FileStream(Server.MapPath("Data\\TitlesDB.xml"),
FileMode.Open, FileAccess.Read);
ds = new DataSet();
ds.ReadXml(fs);
} finally {
if (fs != null) {
fs.Close();
fs = null;
}
}
Session["AppData"] = ds;
}

Imports System.DBNull
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb
Imports System.DateTime
Imports DataAccess

Public Class Borrow
Inherits System.Web.UI.Page
Public DB As New OleDataAccess()
Dim myDataSet As New DataSet()

Dim SelectTable As New DataTable()
Dim SelectView As New DataView()
…
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim info As String, time
If Not Page.IsPostBack Then
If Now.Hour ＞= 6 And Now.Hour ＜ 12 Then
info = "早上好！！"
ElseIf Now.Hour ＞ 12 And Now.Hour ＜ 18 Then
info = "下午好！！"
Else
info = "晚上好！！"
End If
Dim Counter As Int16
Counter = Application("Counter")
lblInfo.Text = Application("UserName") + "," + info + Chr(13) + "欢迎你前来借阅 。." + Chr(10) + "你是第" + Counter.ToString + "位来访者！"

End If
If IsNothing(Session("mTable")) Then
SelectTable = CreateTable()
Session("mTable") = SelectTable
SetText()
Else
SelectTable = Session("mTable")
End If
End Sub
Private Function CreateTable() As DataTable
Dim dt As New DataTable()
Dim dr As DataRow
dt.Columns.Add(New DataColumn("ID", GetType(String)))
dt.Columns.Add(New DataColumn("Name", GetType(String)))
' dt.Columns(0).ColumnName = "系号"
' dt.Columns(1).ColumnName = "名称"
Return dt
End Function
End Class

Imports System.DBNull
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb
Imports System.DateTime
Imports DataAccess

Public Class Borrow
Inherits System.Web.UI.Page
Public DB As New OleDataAccess()
Dim myDataSet As New DataSet()
Dim SelectTable As New DataTable()
Dim SelectView As New DataView()
…
Private Sub SetText()
Select Case Application("Index")
Case 0
lblFind1.Text = "检索号 "
lblFind2.Text = "图书分类"
lblFind3.Text = "图书名称"
lblFind4.Text = "分类号"
lblFind5.Text = "作者"
lblFind6.Text = "有效性"
Case 1
lblFind1.Text = "编号 "
lblFind2.Text = "卷册名称"
lblFind3.Text = "设计专业代码"
lblFind4.Text = "专业代码"
lblFind5.Text = "馆藏号"
lblFind6.Text = "负责人 "
Case 2
End Select
End Sub

Private Sub Data2bind()
DataGrid2.DataSource = SelectTable.DefaultView
DataGrid2.DataBind()
End Sub

Private Sub LinkButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
Application("Index") = 0
SetText()
End Sub

Private Sub LinkButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkButton2.Click
Application("Index") = 1
SetText()
End Sub

Private Sub LinkFind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkFind.Click
Dim strSql As String
Dim txt(6) As String
Dim i As Int16 = 0
txt(0) = Trim(txtFind1.Text)
txt(1) = Trim(txtFind2.Text)
txt(2) = Trim(txtFind3.Text)
txt(3) = Trim(txtFind4.Text)
txt(4) = Trim(txtFind5.Text)
txt(5) = Trim(txtFind6.Text)
If txt(0) = "" And txt(1) = "" And txt(2) = "" And txt(3) = "" And txt(4) = "" And txt(5) = "" Then
Exit Sub
End If
For i = 0 To 5
If txt(i) = "" Then txt(i) = "!!!!"
Next
Try
If Application("Index") = 0 Then
strSql = "SELECT JSH AS 检索号, TSMC AS 图书名称, TSFL AS 图书分类, CS AS 册数, FLH AS 分类号, DJ AS 单价, ZZ AS 作者, BZ AS 备注, ZBBM AS 主编部门, FBRQ AS 发布日期, SSRQ AS 实施日期, YXX AS 有效性, ZT AS 状态 FROM G2272.KPK " & _
" WHERE JSH LIKE '%" & txt(0) & _
"%' OR TSFL LIKE '%" & txt(1) & _
"%' OR TSMC LIKE '%" & txt(2) & _
"%' OR FLH LIKE '%" & txt(3) & _
"%' OR ZZ LIKE '%" & txt(4) & _
"%' OR YXX LIKE '%" & txt(5) & "%'"
Else
strSql = "SELECT SYSTEM_ID AS 编号, JCMC AS 卷册名称, GCDM AS 工程代码, ZYDM AS 专业代码, GCH AS 馆藏号, RKRQ AS 入库日期, TZZS AS 图纸张数, GDZB AS 归档正本, GDFB AS 归档副本, JC AS 说明书, ZSR AS 清册, ZBR AS 负责人 FROM DOCSADM.TWML " & _
" WHERE SYSTEM_ID LIKE '%" & txt(0) & _
"%' OR JCMC LIKE '%" & txt(1) & _
"%' OR GCDM LIKE '%" & txt(2) & _
"%' OR ZYDM LIKE '%" & txt(3) & _
"%' OR GCH LIKE '%" & txt(4) & _
"%' OR ZBR LIKE '%" & txt(5) & "%'"
End If
myDataSet = Application("DB").ExecuteSQL(strSql)
DataGrid1.DataSource = myDataSet.Tables(0).DefaultView
DataGrid1.DataBind()
Catch ex As Exception
' MsgBox("错误信息", ex.Message & vbCrLf & "stack step")
End Try
End Sub
End Class