您现在的位置:计算机技术学习网 > 技术中心 > WEB编程 > ASP >

asp实现语音上传

来源:网络收集 责任编辑:栏目编辑 发表时间:2013-07-01 14:29 点击:

以下是引用片段:
<script language="javascript"> 

function openScript(url, width, height){ 
var Win = window.open(url,"openScript",’width=’ + width + ’,height=’ + height + ’,resizable=1,scrollbars=yes,menubar=no,status=yes’ ); 

</script> 

<form action="save.asp" method="POST" enctype="multipart/form-data"> 
<tr> 
<td width="17%" height="66">选择语音</td> 
<td height="66" colspan="5"> 
<input type="file" name="wav" class="lan"> 
<input type="submit" name="Submit4" value="确定上传" class="lan"> <input name="button" type="button" class="bu" value="有声档案" onClick="openScript(’../play.asp?id=<%=session("id")%>’,’’,’scrollbars=no,resizable=no,width=340,height=200’)"></td> 
</tr> 
</form> 
表 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,ins
    发表评论
    请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
    用户名: 验证码:点击我更换图片
    最新评论 更多>>

    推荐热点

    • WAP常见问题问答大全(四)
    • ASP开发必备:WEB打印代码大全
    • ASP调用系统ping命令
    • asp缓存技术
    • ASP教程:第三篇 ASP基础
    • 用ASP+XML打造留言本(4)
    • 关于ASP Recordset 分页出现负数解决方法及建议
    • 用asp怎样编写文档搜索页面(5)
    • ASP处理多关键词查询实例代码
    网站首页 - 友情链接 - 网站地图 - TAG标签 - RSS订阅 - 内容搜索
    Copyright © 2008-2015 计算机技术学习交流网. 版权所有

    豫ICP备11007008号-1