ASP编程：图片的导进导出

仓酷云

ASP一般认为只能运行在IIS上，正如前面所提到的，这并不是十分正确，事实上，ASP也能运行在Apache上。ApacheASP可在任意Apache服务器上运行有限的ASP功能，所需做的，只需打开mod_perl。<%
response.buffer=true
formsize=request.totalbytes
formdata=request.binaryread(formsize)
bncrlf=chrb(13)&chrb(10)
divider=leftb(formdata,clng(instrb(formdata,bncrlf))-1)
datastart=instrb(formdata,bncrlf&bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
mydata=midb(formdata,datastart,dataend)

setconn=server.createobject("adodb.connection")
conn.connectionstring="driver={microsoftaccessdriver(*.mdb)};dbq="&server.mappath("images.mdb")
conn.open

setrs=server.createobject("adodb.recordset")
rs.open"select*from[images]whereidisnull",conn,1,3
rs.addnew
rs("img").appendchunkmydata
rs.update
rs.close
setrs=nothing
setconn=nothing
%>


“showimg.asp”文件代码以下：

<!--#includefile="Conn.asp"-->
<%
Response.Expires=0
Response.Buffer=TRUE
Response.Clear

ID=trim(Request("id"))
Response.ContentType="image/*"
setrs_img=Server.Createobject("ADODB.Recordset")
sql="selectimgfromTImagewhereID="&id
rs_img.opensql,conn,1,1


img_size=rs_img("img").ActualSize
Response.BinaryWriters_img("img").getChunk(img_size)
rs_img.close
setrs_img=nothing
setconn=nothing
%>

</p>对用户来说可预见费用、节约费用，可以做到花少钱办大事。由于省去了购买软件和硬件等的前期费用，用户可以租用较高级的应用软件。ASP的收费是根据软件的类型、客制化程度、用户数量、服务期限来定的，对客户来说这笔费用是可以预见的。方便于客户应用软件的升级。