语音上传(二)

原创 2004年09月06日 17:17:00

表  sound  字段  id   numeric  9 (自增)   wav  image  16   wavinfo   varchar   50    wavsize  numeric  
save.asp   '将声音文件写入数据库

<%@ Language=VBScript %>
<!--#include file="../conn.asp"-->
<%
Response.expires=0
Server.ScriptTimeout =3600
 
call main()

sub main()

 
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)

set RS=server.createobject("ADODB.recordset")
SQL="select wav,wavsize,wavinfo from sound"
RS.Open SQL,conn,1,3

RS.Addnew
RS("wavinfo")=wavinfo
RS("wavsize")=dataend-2
if Len(Wav)>1 then
  RS("wav").Appendchunk Wav
end if
RS.Update
RS.Close
set RS=nothing
conn.close
set conn=nothing
'response.Write(Request.ServerVariables ("REMOTE_ADDR"))
response.Write("<script language='javascript'>alert('语音上传成功了,请返回!');window.location.reload('sound.asp');</script>")
response.end
end sub

Function bin2str(binstr)
Dim varlen,clow,ccc,skipflag
skipflag=0
ccc = ""
varlen=LenB(binstr)
For i=1 To varlen
If skipflag=0 Then
clow = MidB(binstr,i,1)
If AscB(clow) > 127 Then
ccc =ccc & Chr(AscW(MidB(binstr,i+1,1) & clow))
skipflag=1
Else
ccc = ccc & Chr(AscB(clow))
End If
Else
skipflag=0
End If
Next
bin2str = ccc
End Function


Function WavUp(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)
End Function


Function findVar(varName,strTxt)
startPos=1
strLen=len(varName)+2
for i=1 to len(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)
if startPos=0 then exit for
findVar=findVar & ","
next
End function
%>

android 通过数组,流播放声音的方法,音频实时传输(转)

http://www.2cto.com/kf/201202/120310.html AudioRecord和AudioTrack类是Android获取和播放音频流的重要类,放置在androi...
  • amosye
  • amosye
  • 2013年12月13日 22:04
  • 12511

iOS 录音,播放,转码MP3,上传语音文件

//语音文件 AVAudioRecorder *recorder; NSTimer *timer; NSString *urlPlay; BOOL isPlay; #pragma ...
  • shan1991fei
  • shan1991fei
  • 2016年03月08日 14:57
  • 4325

【iOS开发】AFNetworking上传语音文件(.mp3)到服务器

一、业务环境将本地的录音文件 .caf 文件通过网络上传到服务器,服务器将此文件保存为 .mp3 格式。二、实现思路( 1 ) 通过使用AVAudioRecorder,将录音文件保存到本地( 2 )...
  • Hanrovey
  • Hanrovey
  • 2016年11月03日 15:26
  • 7827

android kotin+ ftp视频上传+android7.0 语音识别+百度地图+ 图片和拍照

  • 2017年12月06日 11:45
  • 87.96MB
  • 下载

asp实现语音上传(源码)

  • 2008年05月19日 16:50
  • 2KB
  • 下载

WebView加载html实现网页上传本地文件(图片,拍照,语音等)

前言: 这里有两个方案,第一个使用Andorid客户端和JavaScript互相调用方法来实现,这种方法极力不推荐,它会增加服务端和客户端的开发成本。 第二种就是继承WebViewChromeCl...
  • langwang2
  • langwang2
  • 2015年09月21日 23:42
  • 861

Hybrid移动应用语音录制及断点上传实现思路

前言断点上传功能在移动应用中较为常见,使用过程中,要求录制较为清晰切大小适中的语音文件,能够控制断点上传会有较好的用户体验, 下面是我在这方面的一些实践经验,分享一下,不成熟的地方欢迎指正!混合应用中...
  • jiangbo_phd
  • jiangbo_phd
  • 2016年10月14日 16:59
  • 1714

iOS 录音,播放,转码MP3,上传语音文件

//语音文件 AVAudioRecorder *recorder; NSTimer *timer; NSString *urlPlay; BOOL isPlay; #pragma ...
  • shan1991fei
  • shan1991fei
  • 2016年03月08日 14:57
  • 4325

iOS上传语音到服务器

iOS上传语音到服务器。 这里介绍用AFN上传语音文件到服务端。 如果不是NSData就要想办法把语音文件转化为NSData,然后才能上传服务器。首先我们拿到语音文件对应的NSData对象 NS...
  • wenmingzheng
  • wenmingzheng
  • 2016年01月17日 22:44
  • 1906

iOS上传语音、文字、图片(分类 多张)

需求:用户可能提交 文字,也可能有语音,还有可能有图片。当然 都有也是可以的。 在这里我的方案是 先做判断(因为我提交的类不同(也就是方法不一样)); (1)if (_imageArray.c...
  • littleSun_zheng
  • littleSun_zheng
  • 2016年05月06日 14:23
  • 915
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:语音上传(二)
举报原因:
原因补充:

(最多只允许输入30个字)