谁能帮我把这段有问题的代码,让他能生成一个图片文件.谢谢拉

e_zzz 2006-06-04 10:13:52
谁能帮我把这段有问题的代码,让他能生成一个图片文件.

http://community.csdn.net/Expert/topic/4779/4779575.xml?temp=.3693811
这个100分问题也没有结.到时候一起结.

<%
Width = 100
Height = 100

'Response.Expires = -9999
'Response.AddHeader "Pragma","no-cache"
'Response.AddHeader "cache-ctrol","no-cache"
'Response.ContentType = "Image/bmp"


set sStream = server.CreateObject("Adodb.Stream")
sStream.Type = 1
sStream.Open

sStream.Write ChrB(66) & ChrB(77) & ChrB(230) & ChrB(4) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) &_
ChrB(0) & ChrB(0) & ChrB(54) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(40) & ChrB(0) &_
ChrB(0) & ChrB(0) & ChrB(Width Mod 256) & ChrB((Width \ 256) Mod 256) & ChrB(0) & ChrB(0) & ChrB(Height Mod 256) & ChrB((Height \ 256) Mod 256) &_
ChrB(0) & ChrB(0) & ChrB(1) & ChrB(0)


sStream.Write ChrB(24) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(176) & ChrB(4) &_
ChrB(0) & ChrB(0) & ChrB(18) & ChrB(11) & ChrB(0) & ChrB(0) & ChrB(18) & ChrB(11) &_
ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) &_
ChrB(0) & ChrB(0)



For i = 0 To Width-1
For j = 0 To Height-1
sStream.Write ChrB(255) & ChrB(0) & ChrB(0)
Next
Next

sStream.SaveToFile "test.bmp",2
sStream.Close
set sStream = nothing
%>
...全文
195 18 打赏 收藏 转发到动态 举报
写回复
用AI写文章
18 条回复
切换为时间正序
请发表友善的回复…
发表回复
e_zzz 2007-01-23
  • 打赏
  • 举报
 回复
up
e_zzz 2006-06-27
  • 打赏
  • 举报
 回复
help
vance2005 2006-06-22
  • 打赏
  • 举报
 回复
不知道。顶。。。。
e_zzz 2006-06-22
  • 打赏
  • 举报
 回复
我不是要在IE中显示一副图片.
我要想怎么在服务器硬盘上生成一个图片.

比如上面的 "asp生成图片方法- -"

能把这个生成的图片直接存在服务器硬盘上成为一个gif文件吗?
TSD 2006-06-20
  • 打赏
  • 举报
 回复
CSDN有很多这样的例子啊,搜索一下吧.
AppleBBS 2006-06-20
  • 打赏
  • 举报
 回复
asp生成图片方法- -


//一个最简单的例子
//可广泛应用于计数器、时钟等任何需要动态生成图形的地方
//通过改变ContentType的值，比如改为 "image/gif"可以作出更漂亮的图形




<%@ Language=javascript %>
<%
//一个最简单的例子
//可广泛应用于计数器、时钟等任何需要动态生成图形的地方
//通过改变ContentType的值，比如改为 "image/gif"可以作出更漂亮的图形

Response.ContentType ="image/x-xbitmap";
Response.Write ("#define counter_width 8\r\n"); //图形宽
Response.Write ("#define counter_height 10\r\n");//图形高
Response.Write ("static unsigned char counter_bits[]={\r\n");
Response.Write ("0x3c,0x66,0x60,0x60,0x30,0x18,0x0c,0x06,0x06,0x7e");//2的掩码
Response.Write ("};\r\n");

%>


此处声明0~9绘图用数组

dim num(9,8)
'数字0
num(0,0)="0x38"
num(0,1)="0x7c"
num(0,2)="0xee"
num(0,3)="0xee"
num(0,4)="0xee"
num(0,5)="0xee"
num(0,6)="0xee"
num(0,7)="0x7c"
num(0,8)="0x38"
'数字1
num(1,0)="0x70"
num(1,1)="0x78"
num(1,2)="0x7c"
num(1,3)="0x74"
num(1,4)="0x70"
num(1,5)="0x70"
num(1,6)="0x70"
num(1,7)="0x70"
num(1,8)="0x70"
'数字2
num(2,0)="0x7c"
num(2,1)="0xfe"
num(2,2)="0xee"
num(2,3)="0xe0"
num(2,4)="0x70"
num(2,5)="0x38"
num(2,6)="0x1c"
num(2,7)="0xfe"
num(2,8)="0xfe"
'数字3
num(3,0)="0x7c"
num(3,1)="0xfe"
num(3,2)="0xee"
num(3,3)="0x60"
num(3,4)="0x30"
num(3,5)="0xe0"
num(3,6)="0xee"
num(3,7)="0xfe"
num(3,8)="0x7c"
'数字4
num(4,0)="0x70"
num(4,1)="0x78"
num(4,2)="0x7c"
num(4,3)="0x76"
num(4,4)="0x77"
num(4,5)="0xff"
num(4,6)="0xff"
num(4,7)="0x70"
num(4,8)="0x70"
'数字5
num(5,0)="0xfc"
num(5,1)="0xfc"
num(5,2)="0x0c"
num(5,3)="0x7e"
num(5,4)="0xfe"
num(5,5)="0xe0"
num(5,6)="0xee"
num(5,7)="0xfe"
num(5,8)="0x7c"
'数字6
num(6,0)="0x78"
num(6,1)="0xfc"
num(6,2)="0x0e"
num(6,3)="0x6e"
num(6,4)="0xfe"
num(6,5)="0xee"
num(6,6)="0xee"
num(6,7)="0xfc"
num(6,8)="0x78"
'数字7
num(7,0)="0xfe"
num(7,1)="0xfe"
num(7,2)="0x60"
num(7,3)="0x70"
num(7,4)="0x38"
num(7,5)="0x38"
num(7,6)="0x18"
num(7,7)="0x1c"
num(7,8)="0x1c"
'数字8
num(8,0)="0x7c"
num(8,1)="0xfe"
num(8,2)="0xee"
num(8,3)="0x7c"
num(8,4)="0x7c"
num(8,5)="0xee"
num(8,6)="0xee"
num(8,7)="0xfe "
num(8,8)="0x7c"
'数字9
num(9,0)="0x3c"
num(9,1)="0x7c"
num(9,2)="0xee"
num(9,3)="0xee"
num(9,4)="0xfe"
num(9,5)="0xec"
num(9,6)="0xe0"
num(9,7)="0x7e"
num(9,8)="0x3c"
chinastorm 2006-06-20
  • 打赏
  • 举报
 回复
study
e_zzz 2006-06-20
  • 打赏
  • 举报
 回复
help me ~~~~~~~~~~~~`
e_zzz 2006-06-14
  • 打赏
  • 举报
 回复
help me
coder1 2006-06-14
  • 打赏
  • 举报
 回复
帮顶
e_zzz 2006-06-12
  • 打赏
  • 举报
 回复
感谢
wanghui0380(放歌)
提供的代码
但这段代码我有了,这个代码只能显示出一个stream图片不能在服务器上生成一个图片文件.
还是无法 stream.savetofile 生成一个文件呀
e_zzz 2006-06-05
  • 打赏
  • 举报
 回复
help me
jspadmin 2006-06-05
  • 打赏
  • 举报
 回复
stream.savetofile
e_zzz 2006-06-05
  • 打赏
  • 举报
 回复
已经可以在IE看到一张图片了
但这个图片不能存成文件
wanghui0380 2006-06-05
  • 打赏
  • 举报
 回复
Call Com_CreatValidCode("ValidCode")

Sub Com_CreatValidCode(pSN)

'Author: Layen
'QQ: 84815733
'E-mail: support@ssaw.net

' 禁止缓存
Response.Expires = -9999
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "cache-ctrol","no-cache"
Response.ContentType = "Image/BMP"

Randomize

Dim i, ii, iii

Const cOdds = 8 ' 杂点出现的机率
Const cAmount = 36 ' 文字数量
Const cCode = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"

' 颜色的数据(字符，背景)
Dim vColorData(1)
vColorData(0) = ChrB(0) & ChrB(0) & ChrB(0) ' 蓝0，绿0，红0（黑色）
vColorData(1) = ChrB(250) & ChrB(236) & ChrB(211) ' 蓝250，绿236，红211（浅蓝色）

' 随机产生字符
Dim vCode(4), vCodes
For i = 0 To 3
vCode(i) = Int(Rnd * cAmount)
vCodes = vCodes & Mid(cCode, vCode(i) + 1, 1)
Next

Session(pSN) = vCodes '记录入Session

' 字符的数据
Dim vNumberData(35)
vNumberData(0) = "1110000111110111101111011110111101001011110100101111010010111101001011110111101111011110111110000111"
vNumberData(1) = "1111011111110001111111110111111111011111111101111111110111111111011111111101111111110111111100000111"
vNumberData(2) = "1110000111110111101111011110111111111011111111011111111011111111011111111011111111011110111100000011"
vNumberData(3) = "1110000111110111101111011110111111110111111100111111111101111111111011110111101111011110111110000111"
vNumberData(4) = "1111101111111110111111110011111110101111110110111111011011111100000011111110111111111011111111000011"
vNumberData(5) = "1100000011110111111111011111111101000111110011101111111110111111111011110111101111011110111110000111"
vNumberData(6) = "1111000111111011101111011111111101111111110100011111001110111101111011110111101111011110111110000111"
vNumberData(7) = "1100000011110111011111011101111111101111111110111111110111111111011111111101111111110111111111011111"
vNumberData(8) = "1110000111110111101111011110111101111011111000011111101101111101111011110111101111011110111110000111"
vNumberData(9) = "1110001111110111011111011110111101111011110111001111100010111111111011111111101111011101111110001111"
vNumberData(10) = "1111011111111101111111101011111110101111111010111111101011111100000111110111011111011101111000100011"
vNumberData(11) = "1000000111110111101111011110111101110111110000111111011101111101111011110111101111011110111000000111"
vNumberData(12) = "1110000011110111101110111110111011111111101111111110111111111011111111101111101111011101111110001111"
vNumberData(13) = "1000001111110111011111011110111101111011110111101111011110111101111011110111101111011101111000001111"
vNumberData(14) = "1000000111110111101111011011111101101111110000111111011011111101101111110111111111011110111000000111"
vNumberData(15) = "1000000111110111101111011011111101101111110000111111011011111101101111110111111111011111111000111111"
vNumberData(16) = "1110000111110111011110111101111011111111101111111110111111111011100011101111011111011101111110001111"
vNumberData(17) = "1000100011110111011111011101111101110111110000011111011101111101110111110111011111011101111000100011"
vNumberData(18) = "1100000111111101111111110111111111011111111101111111110111111111011111111101111111110111111100000111"
vNumberData(19) = "1110000011111110111111111011111111101111111110111111111011111111101111111110111110111011111000011111"
vNumberData(20) = "1000100011110111011111011011111101011111110001111111010111111101101111110110111111011101111000100011"
vNumberData(21) = "1000111111110111111111011111111101111111110111111111011111111101111111110111111111011110111000000011"
vNumberData(22) = "1000100011110010011111001001111100100111110101011111010101111101010111110101011111010101111001010011"
vNumberData(23) = "1000100011110011011111001101111101010111110101011111010101111101100111110110011111011001111000110111"
vNumberData(24) = "1110001111110111011110111110111011111011101111101110111110111011111011101111101111011101111110001111"
vNumberData(25) = "1000000111110111101111011110111101111011110000011111011111111101111111110111111111011111111000111111"
vNumberData(26) = "1110001111110111011110111110111011111011101111101110111110111011111011101001101111011001111110001011"
vNumberData(27) = "1000001111110111011111011101111101110111110000111111010111111101101111110110111111011101111000110011"
vNumberData(28) = "1110000011110111101111011110111101111111111001111111111001111111111011110111101111011110111100000111"
vNumberData(29) = "1000000011101101101111110111111111011111111101111111110111111111011111111101111111110111111110001111"
vNumberData(30) = "1000100011110111011111011101111101110111110111011111011101111101110111110111011111011101111110001111"
vNumberData(31) = "1000100011110111011111011101111101110111111010111111101011111110101111111010111111110111111111011111"
vNumberData(32) = "1001010011110101011111010101111101010111110101011111001001111110101111111010111111101011111110101111"
vNumberData(33) = "1000100011110111011111101011111110101111111101111111110111111110101111111010111111011101111000100011"
vNumberData(34) = "1000100011110111011111011101111110101111111010111111110111111111011111111101111111110111111110001111"
vNumberData(35) = "1100000011110111011111111101111111101111111110111111110111111111011111111011111111101110111100000011"

' 输出图像文件头
Response.BinaryWrite ChrB(66) & ChrB(77) & ChrB(230) & ChrB(4) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) &_
ChrB(0) & ChrB(0) & ChrB(54) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(40) & ChrB(0) &_
ChrB(0) & ChrB(0) & ChrB(40) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(10) & ChrB(0) &_
ChrB(0) & ChrB(0) & ChrB(1) & ChrB(0)

' 输出图像信息头
Response.BinaryWrite ChrB(24) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(176) & ChrB(4) &_
ChrB(0) & ChrB(0) & ChrB(18) & ChrB(11) & ChrB(0) & ChrB(0) & ChrB(18) & ChrB(11) &_
ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) &_
ChrB(0) & ChrB(0)

For i = 9 To 0 Step -1 ' 历经所有行
For ii = 0 To 3 ' 历经所有字
For iii = 1 To 10 ' 历经所有像素
' 逐行、逐字、逐像素地输出图像数据
If Rnd * 99 + 1 < cOdds Then ' 随机生成杂点
Response.BinaryWrite vColorData(0)
Else
Response.BinaryWrite vColorData(Mid(vNumberData(vCode(ii)), i * 10 + iii, 1))
End If
Next
Next
Next
End Sub
e_zzz 2006-06-05
  • 打赏
  • 举报
 回复
各位老大help me
cnrk_net 2006-06-04
  • 打赏
  • 举报
 回复
以下给你一个参考，你可以搜索asp+无组件生成图片，查阅相关资料。

<!--#include file="Inc/Const.asp" -->
<!--#include file="Inc/iXs_Ip.asp" -->
<!--#include file="Inc/Wh_BmpText.asp" -->
<%
Dim IP, Screen
IP = iXs.ReqIP()
Screen = iXs.ReqStr("Screen")
iXs.User_Agent = Request.ServerVariables("HTTP_USER_AGENT")

Dim objbmp, mexp, ms
Set objbmp = New Wh_bmpText
objbmp.FontPath = server.mappath("DataBase/Font_12.asp")
objbmp.loadBMP(server.mappath("Skins/IpImg.bmp"))

ms = split(mexp, ";")
' =====================================
' Guidy注：DrawTextWE(lX,lY,sText,color) 参数说明
' lX ：文字的X坐标（左上角为0）
' lY ：文字的Y坐标（左上角为0）
' sText ：要输出的文字
' color ：文字色彩 这里的颜色是叠加颜色
' =====================================
' 修改时要注意：
' 您制作的IP签名图片必须是8位BMP格式
' 图片宽度最好大一点，因为有些IP定位的地址会很长
' 我这个只是演示，所以没有制作的很大
' 并且我这里过滤了浏览器信息的：Microsoft<sup>®</sup>
' =====================================
objbmp.DrawTextWE 20, 18, "这是您的来访信息:", 250
objbmp.DrawTextWE 180, 18, "做人要厚道", 100
objbmp.DrawTextWE 20, 26, "-----------------------------------", 200
objbmp.DrawTextWE 24, 36, "IP地址: " & IP, 200
objbmp.DrawTextWE 24, 52, "IP定位: " & Look_Ip(iXs.ReqIp()), 200
objbmp.DrawTextWE 24, 68, "操作系统: " & iXs.ClientInfo(0), 200
objbmp.DrawTextWE 24, 84, "浏览器: " & iXs.RegExpFilter("Microsoft<sup>®</sup> ", iXs.ClientInfo(1), 0, ""), 200
objbmp.DrawTextWE 24, 100, "屏幕信息: " & Screen, 200
objbmp.DrawTextWE 20, 110, "-----------------------------------", 200
objbmp.DrawTextWE 30, 126, "欢迎光临[北京周末]", 129
objbmp.DrawTextWE 30, 144, "http://www.bipt.org", 129

objbmp.write()
set objbmp = nothing
%>
e_zzz 2006-06-04
  • 打赏
  • 举报
 回复
搞了一个礼拜了 那位老大帮帮俺
大学生创新创业训练计划经验分享.zip
大学生创新创业训练计划（以下简称为“大创计划”）是一项旨在提升大学生创新能力和创业精神的实践活动。通过这项计划，学生可以在导师的指导下，自主开展研究性学习和创业实践。下面我将分享一些关于大创计划的经验和建议。
node-v12.22.3-x86.msi
Node.js，简称Node，是一个开源且跨平台的JavaScript运行时环境，它允许在浏览器外运行JavaScript代码。Node.js于2009年由Ryan Dahl创立，旨在创建高性能的Web服务器和网络应用程序。它基于Google Chrome的V8 JavaScript引擎，可以在Windows、Linux、Unix、Mac OS X等操作系统上运行。 Node.js的特点之一是事件驱动和非阻塞I/O模型，这使得它非常适合处理大量并发连接，从而在构建实时应用程序如在线游戏、聊天应用以及实时通讯服务时表现卓越。此外，Node.js使用了模块化的架构，通过npm（Node package manager，Node包管理器）,社区成员可以共享和复用代码，极大地促进了Node.js生态系统的发展和扩张。 Node.js不仅用于服务器端开发。随着技术的发展，它也被用于构建工具链、开发桌面应用程序、物联网设备等。Node.js能够处理文件系统、操作数据库、处理网络请求等，因此，开发者可以用JavaScript编写全栈应用程序，这一点大大提高了开发效率和便捷性。 在实践中，许多大型企业和组织已经采用Node.js作为其Web应用程序的开发平台，如Netflix、PayPal和Walmart等。它们利用Node.js提高了应用性能，简化了开发流程，并且能更快地响应市场需求。
毕业设计-The coding solutions of Leetcode and 剑指Offer using .zip
这里为你收集整理了关于毕业设计、课程设计可参考借鉴的资料一份，质量非常高，如果你投入时间去研究几天相信肯定对你有很大的帮助。到时候你会回来感谢我的。 本资源是经过本地编译测试、可打开、可运行的项目、文件或源码，可以用于毕业设计、课程设计的应用、参考和学习需求，请放心下载。 祝愿你在这个毕业设计项目中取得巨大进步，顺利毕业！ 但还需强调一下，这些项目源码仅供学习和研究之用。在使用这些资源时，请务必遵守学术诚信原则和相关法律法规，不得将其用于任何商业目的或侵犯他人权益的行为。对于任何因使用本资源而导致的问题，包括但不限于数据丢失、系统崩溃或安全漏洞，风险自担哦！
【微信小程序毕业设计】宠物店商城系统开发项目(源码+演示视频+说明).rar
【微信小程序毕业设计】宠物店商城系统开发项目(源码+演示视频+说明).rar 【项目技术】 微信小程序开发工具+java后端+mysql 【演示视频-编号：282】 https://pan.quark.cn/s/cb634e7c02b5 【实现功能】 本系统实现的是和宠物相关的信息管理和发布，加入了商品销售的功能。操作角色为管理员和用户、商家，管理员的功能为用户管理、商家管理、宠物分类管理、宠物信息管理、商品分类管理、宠物用品管理、项目类型管理、服务项目管理、宠物日志管理、订单管理等；用户的功能为购买宠物、商品、预约服务发表日志管理订单等。商家功能为提供宠物、宠物用品、宠物服务，管理订单和服务预约等。
雷迪森的工具包（95分以上课程大作业）.zip
Java SSM项目是一种使用Java语言和SSM框架（Spring + Spring MVC + MyBatis）开发的Web应用程序。SSM是一种常用的Java开发框架组合，它结合了Spring框架、Spring MVC框架和MyBatis框架的优点，能够快速构建可靠、高效的企业级应用。 1. Spring框架：Spring是一个轻量级的Java开发框架，提供了丰富的功能和模块，用于开发企业级应用。它包括IoC（Inverse of Control，控制反转）容器、AOP（Aspect-Oriented Programming，面向切面编程）等特性，可以简化开发过程、提高代码的可维护性和可测试性。 2. Spring MVC框架：Spring MVC是基于Spring框架的Web框架，用于开发Web应用程序。它采用MVC（Model-View-Controller，模型-视图-控制器）的架构模式，将应用程序分为模型层、视图层和控制器层，提供了处理请求、渲染视图和管理流程的功能。 3. MyBatis框架：MyBatis是一个持久层框架，用于与数据库进行交互。它提供了一种将数据库操作与Java对象映射起来的方式，避免了手动编写繁琐的SQL语句，并提供了事务管理和缓存等功能，简化了数据库访问的过程
ASP

28,391

社区成员

357,060

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章