Private Sub BindData(Optional ByVal myID As String = "")
Dim ds As New DataSet()
Dim ssql As String
If Not Cache("DataSet_LiangJv") Is Nothing And myID = "" Then
ds = CType(Cache("DataSet_LiangJv"), DataSet)
Else
If myID <> "" Then
ssql = "SELECT * FROM JILIANG.JGQJ where FENLEIDAIMA='%" & myID & "%' order by FENLEIDAIMA"
Else
Response.Write("没有分类代码参数")
End If
Dim cn As New OleDb.OleDbConnection("Provider=MSDAORA;Password=1212;User ID=web;Data Source=stcorcle")
Dim Da As New OleDb.OleDbDataAdapter()
Da.SelectCommand = New OleDb.OleDbCommand(ssql, cn)
Da.Fill(ds, "LiangJv")
Cache("DataSet_LiangJv") = ds
cn.Close()
End If
End Sub