asp问题？高手请进！

来源：百度知道编辑：UC知道时间：2024/05/22 04:37:51

请看以下的代码：以下的代码的功能是生成图形，请各位高手帮忙解释一下，谢谢了．

Dim Pos
Set Ados=Server.CreateObject("Adodb.Stream")
Ados.Mode=3
Ados.Type=1
Ados.Open
Set Ados1=Server.CreateObject("Adodb.Stream")
Ados1.Mode=3
Ados1.Type=1
Ados1.Open
Ados.LoadFromFile(Server.mappath("body.Fix"))
Ados1.write Ados.read(1280)
For i=0 To 3
Ados.Position=(9-zimg(i))*320
Ados1.Position=i*320
Ados1.write ados.read(320)
Next
Ados.LoadFromFile(Server.mappath("head.fix"))
Pos=lenb(Ados.read())
Ados.Position=Pos
For i=0 To 9 Step 1 （如果大家有兴趣的话，可以看看这个for循环是实现什么功能的呀）
For j=0 To 3
Ados1.Position=i*32+j*320
Ados.Position=Pos+30*j+i*120
Ados.write ados1.read(30)
Next
Next
Response.ContentType = "image/BMP"（ContentType从英文上来看的话是内容的类型，它是response对象的什么属性呢？这个属性有什么用的呢？）
Ados.Position=0 （开始位置定在0处是什么意思的呀）
Response.BinaryWrite Ado

Response.ContentType = "image/BMP" '向浏览器声明输出的是BMP格式图片
Ados.Position=0 'Stream 对象 Ados 设置当前流中的位置为 0，意思就是要从最前面开始读取
Response.BinaryWrite Ados.read() '把 Stream 对象 Ados 中的数据读出来以二进制格式输出到浏览器
Ados.Close:set Ados=nothing '关闭 Stream 对象 Ados，然后销毁它

asp问题,高手请进 asp问题,高手请进.... ASP问题，高手请进 asp问题，高手请进 asp问题?高手请进! asp问题？高手请进！ asp问题?高手请进!! ASP 问题高手请进！ ASP高手请进,Request问题 asp 数据库问题高手请进