表 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
  %>
    做人要厚道，请注明转自酷网动力(www.ASPCOOL.COM)。