用SQL Server为Web浏览器提供图像（三）3

e As String '图片字的名称。
　　Private mstrImageTypeColumnName As String '图片类型字段的名称。
　　Private mstrImageIdColumnName As String '图片ID字段的名称。
　　Private mstrFileName() As String '数组，里面包含文件名和路径。
　　Private mlngImageId() As Long '数组，里面包含图片ID
　　Private mlngNumberOfFiles As Long
　　Const BLOCKSIZE = 102400
　　
　　
　　Public Property Let DbName(ByVal strVal As String)
　　　mstrDbName = strVal
　　End Property
　　
　　Public Property Let TableName(ByVal strVal As String)
　　　mstrTableName = strVal
　　End Property
　　
　　Public Property Let NameOfImageColumn(ByVal strVal As String)
　　　mstrImageColumnName = strVal
　　End Property
　　
　　Public Property Let NameOfImageTypeColumn(ByVal strVal As String)
　　　mstrImageTypeColumnName = strVal
　　End Property
　　页码：[1] [2] [3] [4] [5] [6] [7] [8] [9] 第3页、共9页

设为首页 | 加入收藏 | 广告服务 | 友情链接 | 版权申明