📄 dyreg.asp

📁 大概说明: 一:登陆后台前请先smszzun_admin,找到IP_report.asp这个文件,把里面的IP地址更换成你的本机IP 如果IP不符合则不能打开后台页面,这是为了数据安全
💻 ASP
字号:
<!--#include file="phone_config.asp"-->
<!--#include file="conn.asp"-->
<%
Mobile_Phone = trim(request("phone"))
Mobile_option = trim(request("Unionid"))
Dim strRe
strRe=SendSMS(Mobile_Phone,Mobile_user,Mobile_option)
'MsgBox strRe

Public Function SendSMS(Mobile_Phone,Mobile_user,Mobile_option)

	Dim strRe
	Dim strURL
	
	strURL="http://"&Order_Url&"/Member_CmccSend.asp?Mobile_phone=" & Mobile_phone & "&Mobile_user=" & Mobile_user & "&Mobile_option=" & Mobile_option 
	
	strRe = GetURL(strURL)
	
	SendSms=strRe
End Function 

Public Function GetURL(strURL)

    on error resume next 
    set oSend=createobject("Microsoft.XMLHTTP")
    SourceCode = oSend.open ("GET",strURL,False) 
    oSend.send()
    GetURL=oSend.responseText   
    oSend = Nothing 
End Function
%><%
ismsg="00"
isserver="6000"
'在数据库中比对传递的手机号码（注意，这里默认用手机号作为会员帐号，如果你希望用自定义参数，可以自行修改）
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select top 1 * from mobile where Usernumber='"&Mobile_Phone&"'"
rs.open sql,Conn, 1, 3
if rs.eof then
rs.addnew()
rs("Usernumber")=Mobile_Phone
if Mobile_option<>"" then
rs("unionid")=Mobile_option
end if
rs("Msg")=ismsg
rs("FromServer")=isserver
rs("ChkTime") = Now()
rs("Regtime") = Now()
rs.update

else
rs("FromServer")=isserver
if rs("Msg")<>"126" then
rs("Regtime") = Now()
rs("unionid")=Mobile_option
end if
rs.update
rs.close
set rs = nothing
Conn.close
set Conn = nothing
end if
%>
<HTML><HEAD><TITLE>新互动娱乐</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="images/myrice.css" type=text/css rel=stylesheet>
<META content="Microsoft FrontPage 5.0" name=GENERATOR></HEAD>
<BODY bgColor=#666666 leftMargin=0 topMargin=0 marginheight="5" marginwidth="5">
<TABLE id="Table2" cellSpacing="0" cellPadding="0" width="780" align="center" border="0">
  <TBODY>
    <TR> 
      <TD><IMG height="242" alt="" src="images/780_1.gif" width="261"></TD>
      <TD><IMG height="242" alt="" src="images/new_7802_2.gif" width="519"></TD>
    </TR>
    <TR> 
      <TD><IMG height="142" alt="" src="images/780_3.jpg" width="261"></TD>
      <TD vAlign="top" align="left" width="519" background="images/780_4.jpg" height="142"> 
        <TABLE id="Table1" border="0" align="left" width="515">
          <TBODY>
            <TR> 
              <TD noWrap align="left" style="WIDTH: 333"><div align="center"><font color="#ffffff">你输入的手机号码：<%=Mobile_Phone%>
                  </font></div></TD>
              <TD align="left" width="172">&nbsp; <font color="#C0C0C0">
              资费标准:30元/月</font></TD>
            <TR> 
              <TD align="center" style="WIDTH: 333">　</TD>
              <TD align="left" width="172"></TD>
            </TR>
            <TR>
			<form action="getpass.asp" method="post">
			<input type="hidden" name="phone" value="<%=Mobile_Phone%>">
              <TD align="left" style="WIDTH: 333"><div align="center"> 
                    <input type="image" height="50" width="189" src="Images/a.gif" name="image">
                  </div></TD>
              <TD align="left" width="172"><font color="#FFFF00"><b><span style="background-color: #FF0000">马上回复短信126到95006000<br>
              除了享受任意下载极品影片，更可享受两性资讯!</span></b></font></TD>
            </form></TR>
          </TBODY>
        </TABLE></TD>
    </TR>
    <TR> 
      <TD><IMG height="139" alt="" src="images/780_5.gif" width="261"></TD>
      <TD><IMG height="139" alt="" src="images/780_6.gif" width="519"></TD>
    </TR>
  </TBODY>
</TABLE>
</BODY>
</HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -