数据库中的数字数据以图片形式显示问题
以下代码一保存为test.asp后运行。会显示一张显示88888的图片。但是我想把这个88888换成读取我数据库中的数字再显示出来，则要改代码。换成代码二。那么在代码二中的88888处应该怎么改，在数据库中表示商品数量的段是shulian，请高手指教。因论坛限制所以全部代码发不上来。

代码一
<%
'要控制图片显示的高和框可以把以下代码保存为一个文件，如test.asp,在另一个文件可以这样调用
<img src="test.asp" width="180">
Call CreatImage("88888")

Public Sub CreatImage(sNum)
'----------禁止缓存
Response.Expires = 0
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "cache-ctrol","no-cache"
Response.ContentType = "Image/BMP"

Randomize
Dim i, ii, iii ,rndColor,strLen,sql,rs
…………
%>

代码二
<!-- #include file="conn.asp" -->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from cpzs where id="&request.QueryString("id")
rs.open sql,conn,3,3

Call CreatImage("88888") '把这个88888改成段shulian。应该怎么改。

Public Sub CreatImage(sNum)
'----------禁止缓存
Response.Expires = 0
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "cache-ctrol","no-cache"
Response.ContentType = "Image/BMP"

Randomize
Dim i, ii, iii ,rndColor,strLen,sql,rs
Const cOdds = 5 '------------杂点出现的机率
Const str="0123456789-"
strLen = len(sNum)
rndColor = ChrB(cint(rnd*255)) & ChrB(cint(rnd*255)) & ChrB(cint(rnd*255))

Dim vColorData(1)
………………
%>


以上完整的代码可以看下面这个网址。
http://www.zhidao123.net/HTML/CONTENT/1/HTML_104.html

[解决办法]

VB code

<%Dim idid = CInt(request("id"))Set rs = server.CreateObject("adodb.recordset")sql = "select * from cpzs where id="&id & ""rs.Open sql, conn, 1, 1If (rs.EOF And rs.BOF) Then    '提示错误信息End IfCall CreatImage(rs("shulian"))%>