来源:作者: 发布时间:2007-12-19 10:03:55

首先,您的表单的类型设为
然后在下一页,用分离的办法先分出文本,此时不能用request.form,应变为
FormData = Request.BinaryRead( FormSize )
FormSize = Request.TotalBytes
bnCRLF = chrB( 13 ) & chrB( 10 )
Divider = LEFTB( FormData, INSTRB( FormData, bnCRLF ) - 1 )
DataStart = INSTRB( FormData, bnCRLF & bnCRLF ) + 4
DataEnd = INSTRB( DataStart + 1, FormData, divider ) - DataStart
Response.ContentType = "image/gif"
Response.BinaryWrite MIDB( FormData, DataStart, DataEnd )
这里先分出的是图像
然后在将其二进制转换为文本。(见金华区)
求出大小。
FormSize = Request.TotalBytes
之后用总大小减去刚才求出的大小。得出文本大小。然后用字符串函数得出其值。
最后分别存在数据库中。
注意,此方法不能完成另存为文档。因为Vbscript中的文档对象不能处理二进制格式。(图象事二进制的)
但Vb中能够,所以我们可已利用组件完成以上工作。
我自己使用自己编写的组件,这样即能够完成存为数据库,又能够存位文档。还能够限制大小,文档类型(gif,jpg,Htm,exe)等等,但具体思路代码仍是上面的代码。假如需要能够和我联系。
|
还没有关于此文章的相关评论!