ASP编程：语音上传（二）
asp，你就只能等着微软给你解决，它不乐意你就只好悲催。而且asp跑在windows服务器上，windows服务器跟linux比起来简直弱爆了！上传表sound字段idnumeric9（自增）wavimage16wavinfovarchar50wavsizenumericsave.asp将声响文件写进数据库
<%@Language=VBScript%>
<!--#includefile="../conn.asp"-->
<%
Response.expires=0
Server.ScriptTimeout=3600
callmain()
submain()
FormSize=Request.TotalBytes
FormData=Request.BinaryRead(FormSize)
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
Wav=WavUp(FormSize,Formdata)
strTXT=mid(formdata,instr(formdata,Wav)+len(Wav)+1)
strTXT=bin2str(strTXT)
wavinfo=findVar("wavinfo",strTXT)
setRS=server.createobject("ADODB.recordset")
SQL="selectwav,wavsize,wavinfofromsound"
RS.OpenSQL,conn,1,3
RS.Addnew
RS("wavinfo")=wavinfo
RS("wavsize")=dataend-2
ifLen(Wav)>1then
RS("wav").AppendchunkWav
endif
RS.Update
RS.Close
setRS=nothing
conn.close
setconn=nothing
response.Write(Request.ServerVariables("REMOTE_ADDR"))
response.Write("<scriptlanguage=javascript>alert(语音上传乐成了，请前往！);window.location.reload(sound.asp);</script>")
response.end
endsub
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
FunctionWavUp(formsize,formdata)
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
WavUp=midb(formdata,datastart,dataend)
EndFunction
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
%>
</p>ActiveServerPage技术为应用开发商提供了基于脚本的直观、快速、高效的应用开发手段，极大地提高了开发的效果。在讨论ASP的安全性问题之前，让我们来看看ASP是怎么工作的。 没有坚实的理论做基础，那么我们连踏入社会第一步的资本都没有，特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP，从平时的学习过程中。 以上是语言本身的弱点，在功能方面ASP同样存在问题，第一是功能太弱，一些底层操作只能通过组件来完成，在这点上是远远比不上PHP/JSP，其次就是缺乏完善的纠错/调试功能，这点上ASP/PHP/JSP差不多。 Session:这个存储跟客户端会话过程的数据，默认20分钟失效 运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写，使用普通的文本编辑器编写，如记事本就可以完成。由脚本在服务器上而不是客户端运行，ASP所使用的脚本语言都在服务端上运行。 我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标. 用户端的浏览器不需要提供任何别的支持，这样大提高了用户与服务器之间的交互的速度。 先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习 以上是语言本身的弱点，在功能方面ASP同样存在问题，第一是功能太弱，一些底层操作只能通过组件来完成，在这点上是远远比不上PHP/JSP，其次就是缺乏完善的纠错/调试功能，这点上ASP/PHP/JSP差不多。
页:
[1]