在 SQLServer 中 BLOB 类型包含以下几种：text，ntext，image
- Private Sub disp_photo()
- dim buffer,buffer_size
-
- buffer_size = 8192
- Response.ContentType = "image/JPEG"
- do
- buffer = RS("PHOTO_IMG").GetChunk(buffer_size)
- Response.BinaryWrite buffer
- if LenB(buffer)
- loop
- end Sub
'过程 显示结果图象
Private Sub disp_photo()
dim buffer,buffer_size
buffer_size = 8192 '以8K为单位向 Client 端写数据
'设置文档类型
Response.ContentType = "image/JPEG"
'取得图象数据并显示
do
buffer = RS("PHOTO_IMG").GetChunk(buffer_size)
Response.BinaryWrite buffer
if LenB(buffer)
分页计算一次搞定：
intNumPage = Abs(Int(-(intNumRecord/intPerPage))) |
