submit.asp

获取远程接口程序

<!--#include file="Func.asp"-->
<%
'------------接口配置------------

UserID         = "1001" 					'平台节目号
FromURL        = Request.ServerVariables("HTTP_REFERER")	'注册页面地址
IP             = Request.ServerVariables("REMOTE_ADDR")		'注册IP
MobilePhone    = Request("MobilePhone")				'注册号码
FromActionURL  = "http://Movie.xx.com/UserPass.Asp"		'资源站接口地址	  

'------------判断参数是否正确----

If Not(Len(MobilePhone)>10 And Len(MobilePhone)<=12 and (Left(MobilePhone,2)="13" or Left(MobilePhone,1)="0")) then
	Response.Write("参数错误")
	Response.End
End if

'------------接口地址------------

PostUrl     = "http://www.vodsp.cn/Connection/Submit.Aspx?MobilePhone="&MobilePhone&"&UserID="&UserID&"&IP="&IP&"&FromURL="&FromUR

'------------判断参数是否正确----
				

Rvalue=SendToSp(PostUrl)
Rvalue=Bytes2bStr(Rvalue)
		
IF InStr(Rvalue,"&") Then
	A = Split(Rvalue,"&")
	If A(0)="1000" Then
		Call SaveToData()

		'如果包含http://,则跳转到此页面
		I=InStr(Rvalue,"http://")
		If I>0 then
			rURL=Mid(Rvalue,I)
			Response.Redirect(rURL)
			Response.End
		End If

		'不跳转则分分割定制信息
		
		Number  = A(3)		
		Content = A(2)
	Else

		Response.Write("配置错误")
		Response.End
	End If 
Else

	Response.Write("连接错误")
	Response.End
End if


Sub SaveToData()

	'保存手机注册记录
	'自行添加写入数据库处理程序
End Sub
%>		














<style type="text/css">
<!--
body,td,th {
	font-size: 12px;
}
-->
</style>
<form id="form1" name="form1" method="post" action="<%=FromActionURL%>">
  <table width="44%" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr>
      <td height="30" align="center" bgcolor="#f1f1f1">您已经成功注册了影视会员,请发送<font color="#ff0000" Size="3"><%=Content%></font>到<font color="#ff0000" Size="3"><%=Number%></font>获取登录密码</td>
    </tr>
    <tr>
      <td height="30" align="center">您的手机号是：<%=MobilePhone%></td>
    </tr>
    <tr>
      <td height="30" align="center">请输入您收到的密码
        <input name="PassWord" type="text" id="PassWord" size="12" />
          <input name="UserID" type="hidden" id="PassWord" value="<%=MobilePhone%>" />
          <input type="submit" name="Submit" value="登录" /></td>
    </tr>
    <tr>
      <td height="30" align="center" bgcolor="#f1f1f1"><font color="#666666">影视30元包月</font></td>
    </tr>
  </table>
</form>