ASP网站制作之ASP如何完成经由过程传真机把传真间接保留进... specified,function,starting,reading,计算机

小女巫 发表于 2015-1-16 22:47:15

ASP网站制作之ASP如何完成经由过程传真机把传真间接保留进...

ASP在国内异常流行，因为国内大多使用的是盗版的Windows和盗版的SQLServer，而ASP＋COM＋SQLServer实际上也是一种不错的搭配，其性能也不输于PHP+MYSQL，特别是Windows系统和SQLServer都有图形界面，比APACHE和MYSQL易于维护，因此对于不重视知识产权的国家来说也是一种不错的选择。数据|数据库传真是以TIF格局图片保留在文件体系内;关于怎样在盘算机收发传真,能够参考:http://notebook.yesky.com/ServerIndex/77128644744445952/20040823/1845371.shtml的文章;
我说的重点是"以TIF格局图片保留在文件体系内"你能够用asp编程扫描此文件夹内的图片:并存进数据库内;
有部分参考代码:
使用FSO获得BMP，JPG，PNG，GIF文件信息(巨细，宽、初等)
<%
:::BMP,GIF,JPGandPNG:::　

:::Thisfunctiongetsaspecifiednumberofbytesfromany:::
:::file,startingattheoffset(base1):::
::::::
:::Passed::::
:::flnm=>Filespecoffiletoread:::
:::offset=>Offsetatwhichtostartreading:::
:::bytes=>Howmanybytestoread:::
::::::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
functionGetBytes(flnm,offset,bytes)
DimobjFSO
DimobjFTemp
DimobjTextStream
DimlngSize
onerrorresumenext
SetobjFSO=CreateObject("Scripting.FileSystemObject")　

First,wegetthefilesize
SetobjFTemp=objFSO.GetFile(flnm)
lngSize=objFTemp.Size
setobjFTemp=nothing
fsoForReading=1
SetobjTextStream=objFSO.OpenTextFile(flnm,fsoForReading)
ifoffset>0then
strBuff=objTextStream.Read(offset-1)
endif
ifbytes=-1thenGetAll!
GetBytes=objTextStream.Read(lngSize)ReadAll
else
GetBytes=objTextStream.Read(bytes)
endif
objTextStream.Close
setobjTextStream=nothing
setobjFSO=nothing
endfunction　

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::::::
:::Functionstoconverttwobytestoanumericvalue(long):::
:::(bothlittle-endianandbig-endian):::
::::::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
functionlngConvert(strTemp)
lngConvert=clng(asc(left(strTemp,1))+((asc(right(strTemp,1))*256)))
endfunction
functionlngConvert2(strTemp)
lngConvert2=clng(asc(right(strTemp,1))+((asc(left(strTemp,1))*256)))
endfunction　

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::::::
:::Thisfunctiondoesmostoftherealwork.Itwillattempt:::
:::toreadanyfile,regardlessoftheextension,andwill:::
:::identifyifitisagraphicalimage.:::
::::::
:::Passed::::
:::flnm=>Filespecoffiletoread:::
:::width=>widthofimage:::
:::height=>heightofimage:::
:::depth=>colordepth(innumberofcolors):::
:::strImageType=>typeofimage(e.g.GIF,BMP,etc.):::
::::::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
functiongfxSpex(flnm,width,height,depth,strImageType)
dimstrPNG
dimstrGIF
dimstrBMP
dimstrType
strType=""
strImageType="(unknown)"
gfxSpex=False
strPNG=chr(137)&chr(80)&chr(78)
strGIF="GIF"
strBMP=chr(66)&chr(77)
strType=GetBytes(flnm,0,3)
ifstrType=strGIFthenisGIF
strImageType="GIF"
Width=lngConvert(GetBytes(flnm,7,2))
Height=lngConvert(GetBytes(flnm,9,2))
Depth=2^((asc(GetBytes(flnm,11,1))and7)+1)
gfxSpex=True
elseifleft(strType,2)=strBMPthenisBMP
strImageType="BMP"
Width=lngConvert(GetBytes(flnm,19,2))
Height=lngConvert(GetBytes(flnm,23,2))
Depth=2^(asc(GetBytes(flnm,29,1)))
gfxSpex=True
elseifstrType=strPNGthenIsPNG
strImageType="PNG"
Width=lngConvert2(GetBytes(flnm,19,2))
Height=lngConvert2(GetBytes(flnm,23,2))
Depth=getBytes(flnm,25,2)
selectcaseasc(right(Depth,1))
case0
Depth=2^(asc(left(Depth,1)))
gfxSpex=True
case2
Depth=2^(asc(left(Depth,1))*3)
gfxSpex=True
case3
Depth=2^(asc(left(Depth,1)))8
gfxSpex=True
case4
Depth=2^(asc(left(Depth,1))*2)
gfxSpex=True
case6
Depth=2^(asc(left(Depth,1))*4)
gfxSpex=True
caseelse
Depth=-1
endselect　

else
strBuff=GetBytes(flnm,0,-1)Getallbytesfromfile
lngSize=len(strBuff)
flgFound=0
strTarget=chr(255)&chr(216)&chr(255)
flgFound=instr(strBuff,strTarget)
ifflgFound=0then
exitfunction
endif
strImageType="JPG"
lngPos=flgFound+2
ExitLoop=false
dowhileExitLoop=FalseandlngPos<lngSize　

dowhileasc(mid(strBuff,lngPos,1))=255andlngPos<lngSize
lngPos=lngPos+1
loop
ifasc(mid(strBuff,lngPos,1))<192orasc(mid(strBuff,lngPos,1))>195then
lngMarkerSize=lngConvert2(mid(strBuff,lngPos+1,2))
lngPos=lngPos+lngMarkerSize+1
else
ExitLoop=True
endif
loop

ifExitLoop=Falsethen
Width=-1
Height=-1
Depth=-1
else
Height=lngConvert2(mid(strBuff,lngPos+4,2))
Width=lngConvert2</p>ASP脚本是采用明文（plaintext）方式来编写的。

变相怪杰 发表于 2015-1-19 23:41:12

Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write

透明发表于 2015-1-28 06:14:48

我想问如何掌握学习节奏(先学什么再学什么)最好详细点?

若相依 发表于 2015-2-5 13:49:15

那么，ASP.Net有哪些改进呢？

灵魂腐蚀 发表于 2015-2-11 22:39:53

以HTML语言整合(HTML负责界面上，ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。

只想知道 发表于 2015-3-2 20:07:05

它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。

仓酷云 发表于 2015-3-11 05:57:05

在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。

分手快乐 发表于 2015-3-17 22:08:11

先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习

再现理想 发表于 2015-3-25 03:28:20

Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write

页: [1]

仓酷云's Archiver

ASP网站制作之ASP如何完成经由过程传真机把传真间接保留进...