ASP网页设计将二进制字符转换成一般字符(multipart...

asp,jsp,php是web开发的三大技术,asp简单易用且有microsoft做靠山,jsp功能强大是因为有java支持,php则开源跨平台.在国内,asp应用范围最广,jsp发展势头最猛,php则处于劣势.这可能与公司的支持以及技术的培训有关.form-data|multipart|二进制|转换<%
response.expires=0
目标：将二进制字符转换成一般字符
Functionbin2str(binstr)
Dimvarlen,clow,ccc,skipflag
skipflag=0
ccc=""
varlen=LenB(binstr)
Fori=1Tovarlen
Ifskipflag=0Then
clow=MidB(binstr,i,1)
IfAscB(clow)>127Then
ccc=ccc&Chr(AscW(MidB(binstr,i+1,1)&clow))
skipflag=1
Else
ccc=ccc&Chr(AscB(clow))
EndIf
Else
skipflag=0
EndIf
Next
bin2str=ccc
EndFunction
目标：把表单中的图像数据分别出来
个中参数formsize为表双数据巨细，formdata为表单的总数据
FunctionImageUp(formsize,formdata)
bncrlf=chrb(13)&chrb(10)
divider=leftb(formdata,instrb(formdata,bncrlf)-1)formdata第一个bncrlf右边的数据
datastart=instrb(formdata,bncrlf&bncrlf)+4两个bncrlf右侧的数据的肇端位
dataend=instrb(datastart+1,formdata,divider)-datastart
Imageup=midb(formdata,datastart,dataend)
EndFunction
目标：把表单中的变量值掏出
个中参数varName为要寻觅的字段变量，strTXT为已从图像平分离出来的的一切文本
FunctionfindVar(varName,strTxt)
startPos=1
strLen=len(varName)+2
表单中大概有多个同名变量(用在有主表与明细表中的数据更新中）
fori=1tolen(strTXT)
varStart=instr(startPos,strTXT,varName)+strLen+3
varEnd=instr(varStart,strTXT,"--")-2
varValLen=varEnd-varStart

inVar=mid(strTXT,varStart,varValLen)
findVar=findVar&inVar

startPos=instr(varStart,strTXT,varName)
ifstartPos=0thenexitfor假如找不到则加入轮回
findVar=findVar&","以","作为多个同名变量值间的分开符,实践上本例倒不必要
next
Endfunction

FormSize=Request.TotalBytes
FormData=Request.BinaryRead(FormSize)
Image=ImageUp(FormSize,Formdata)
以下两步不克不及省略，不然取不出笔墨
strTXT=mid(formdata,instr(formdata,image)+len(image)+1)掏出笔墨
strTXT=bin2str(strTXT)二进制转换成一般笔墨

aaa=findVar("aaa",strTXT)相称于request.form("aaa")
%>
使用filesystemobject，可以对服务器上的文件进行操作，浏览、复制、移动、删除等。有ado的支持，asp对数据库的操作非常得心应手。你甚至可以像使用本地数据库那样，管理远程主机上的数据库，对表格、记录进行各种操作。