<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %><% Response.ContentType="text/vnd.wap.wml; charset=utf-8" %><?xml version="1.0" encoding="utf-8"?><!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<!--#include file="66zn.asp"-->
<head>
<meta http-equiv="Cache-Control" content="max-age=0" forua="true"/>
</head>
<card title="文字转MP3系统"><p align="left">
<%

   dim name,id,bid,yd,bjyy
  name=request("name")
  id=request("id")
  ys=request("ys")
  yl=request("yl")
  yd=request("yd")
  bjyy=request("bjyy")
     Response.write "<b>文字转MP3系统--</b><br/>----------<br/>"
   if name<>""  then
  Dim tj,go,start,over,bodyb,wstr
  tj="name%3D"&name&"%26id%3D"&id&"%26ys%3D"&ys&"%26yl%3D"&yl&"%26yd%3D"&yd&"%26bjyy%3D"&bjyy&""       '转换表单 
  go="http://66zn.com/cj/post.asp?gurl=http://3g.skybl.cn/diy/wzzmp3.asp%3Ffox%3Dmid.upze.cn&geshi=post&tjcs="&tj&"" 
  wstr=getHTTPPage(go)
  startb=Instr(wstr,"<p>")+3                                       '捕抓开始
  overb=Instr(wstr,"点击免费下载</a>")                             '捕抓结束
  bodyb=mid(wstr,startb,overb-startb)
  '-----------------------------------------------  
  bodyb=replace(bodyb,"<a href=' ' '","")
  bodyb=replace(bodyb,"<img src=' ' '","")
  '-----------------------------------------------                        '替换
  Response.Write bodyb                                                   '输出结果
   if bodyb=""  then
     Response.write "服务器繁忙请稍后再试！！！<br/> "
   else
     Response.write "点击免费下载</a>！<br/>----------<br/> "
   end if
   end if
%>
输入转换文字(70字内)<br/><input name="name" type="text" maxlength="70" value="<%=name%>"/>
<br/>发音样式<select name='id'>
<option value='84316E85-143E-4410-B00B-9DF681684C6C'>女声XiaoKun</option>
<option value='62593506-67BD-4A7D-BE2E-9CEBB4629CBB'>女声ZhuYun</option>
<option value='7F36BF25-25AE-4696-8840-490C2EBF3617'>女声Hui</option>
<option value='7B01AC00-8630-4158-BEDC-5723B2D348F8'>男声Liang</option>
<option value='510D6500-B486-4767-8379-0EB59AB7AAAF'>男声HaoBo</option>
<option value='E102414F-C9F0-4E89-AAB0-9ACBB9D4AEF1'>广东话ShuYi</option>
</select><br/>选择语速<select name='ys'>
<option value='1'>最慢</option>
<option value='3'>较慢</option>
<option value='5'>正常</option>
<option value='7'>较快</option>
<option value='9'>最快</option>
</select><br/>选择音量<select name='yl'>
<option value='2'>较低</option>
<option value='5'>正常</option>
<option value='8'>较高</option>
</select><br/>选择音调<select name='yd'>
<option value='1'>很低</option>
<option value='3'>较低</option>
<option value='5'>正常</option>
<option value='7'>较高</option>
<option value='9'>最高</option>
</select><br/>背景音乐<select name='bjyy'>
<option value='0'>无</option>
<option value='1'>欢乐时光</option>
<option value='2'>永远的爱</option>
</select><br/>
<anchor title="submit">提交制作<go href="index.asp?" method="post">
<postfield name="name" value="$(name)"/>
<postfield name="id" value="$(id)"/>
<postfield name="ys" value="$(ys)"/>
<postfield name="yl" value="$(yl)"/>
<postfield name="yd" value="$(yd)"/>
<postfield name="bjyy" value="$(bjyy)"/>
</go></anchor><br/>
快告诉你的朋友来这里也做几首铃声吧，古话说的好，独乐乐不如众乐乐。<br/>
<br/>----------<br/>
报时:<%=time%><br/>
<a href="../../">返回首页</a>
</p>
</card>
</wml>