<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Option Explicit%>
<!--#include file="fxconn.asp"-->
<% On Error Resume Next 
Server.ScriptTimeOut=9999999
Response.ContentType = "text/vnd.wap.wml; charset=utf-8"
Response.Write "<?xml version=""1.0"" encoding=""utf-8""?>"
Response.Write "<!DOCTYPE wml PUBLIC ""-//WAPFORUM//DTD WML 1.2//EN"" ""http://www.wapforum.org/DTD/wml12.dtd"">"
Response.Write "<wml>"
Response.Write "<head>"
Response.Write "<meta http-equiv=""Cache-Control"" content=""ust-revalidate"" forua=""true""/>"
Response.Write "<meta http-equiv=""Cache-Control"" content=""no-cache"" forua=""true""/>"
Response.Write "<meta http-equiv=""Cache-Control"" content=""max-age=0"" forua=""true""/>"
Response.Write "<meta http-equiv=""Expires"" content=""0"" forua=""true""/>"
Response.Write "<meta http-equiv=""Pragma"" content=""no-cache"" forua=""true""/>"
Response.Write "</head>"
Response.Write "<card id='index' title='飞信'><p>"
Dim Url,start,over,body,wstr,username,password,sendto,message,qtwap
password = Request("password")
if password = "" then
Response.Write "密码不能为空!<br/>"
end if
username = Request("username")
if username = "" then
Response.Write "你的手机号不能为空!<br/>"
end if
sendto = Request("sendto")
if sendto = "" then
Response.Write "接收方手机号不能为空!<br/>"
end if
qtmessage = "[http://3spp.cn"
message = Request(utf8(("message")("qtmessage")))
Url="http://sms.api.bz/fetion.php?username="&username&"&password="&password&"&sendto="&sendto&"&message="&message&""
wstr=getHTTPPage(url)
start=Instr(wstr,"短信")
over=Instr(wstr,"到发送队列")
body=mid(wstr,start,over-start)
Response.write body&"!"    

Response.Write "<br/>你的手机号:<input name=""num"" value=""""  emptyok=""true"" /><br/>"  
Response.Write "飞信密码:<input name=""pw"" value=""""  emptyok=""true"" /><br/>"
Response.Write "发送内容:<input name=""txt"" value=""""  emptyok=""true"" /><br/>"  
Response.Write "接收手机号:<input name=""to"" value=""""  emptyok=""true"" /><br/>"
Response.Write "<anchor>发送<go href=""fetion.asp"" method=""post"">"
Response.Write "<postfield name=""username"" value=""$(num)"" />"
Response.Write "<postfield name=""password"" value=""$(pw)"" />"
Response.Write "<postfield name=""sendto"" value=""$(to)"" />"
Response.Write "<postfield name=""message"" value=""$(txt)[http://3spp.cn]"" /></go></anchor>" 
Response.Write "<br/><a href='../index.asp'>返回首页</a></p></card></wml>"
%>
