dingzhi.asp

短信平台 短信平台 短信平台

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%response.Charset="GB2312"%>

<%
rem 网讯科技短信系统
rem 本页面实现定制业务 (GUEST->SSO->SP->CP实现注册或取消)
rem 即完成当用户发送 WWW 到长号码33144157时 将数据变更到我方数据库

'============================================================
'=====================得到SP传递数据

mobile=Request.QueryString("mobile")
content=Request.QueryString("content")
svcode=Request.QueryString("svcode")
spnum=Request.QueryString("spnum")
union_id=Request.QueryString("union_id")
link_id=Request.QueryString("link_id")
item_id=Request.QueryString("item_id")
msg_id=Request.QueryString("msg_id")


'------------------------------------------------------------
rem 如果mobile不为空,则进行处理
If mobile="" Then response.end


'=============================================================
'==================	将新注册用户保存入库,将取消用户从库中删除

'-----------------------------数据库相关的初始化
rem 忽略所有错误
On Error Resume Next
Err.Clear
Set Conn=Server.CreateObject("Adodb.Connection")
Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database/duanxin.mdb")


'----------------------------先检查库中是否存在相同的手机号
set rs=conn.execute("select * from user_dz where mobile='" & cstr(mobile) & "'")
If not rs.eof then have=true '如果有此手机号,则变量标识一下
rs.close()

'----------------------------如果参数不足
if content="" then response.write("<script>alert('参数传递错误!无法继续!')</script>"):response.end

'----------------------------如果用户注册
if content="#reg" then
   if not have then
      conn.execute("insert into user_dz(mobile) values('"+mobile+"')")
	  response.write("新用户定制成功!")
	  response.end   
   end if
end if

'----------------------------如果用户取消
if content="#can" then
   if have then
      conn.execute("update user_dz set can=True")
	  response.write("旧用户取消成功!")
	  response.end   
   end if
end if

If Err.number<>0 Then 
   rem 如果此页被显式打开,则给出错误信息
   rem page_errmsg()
   
   rem 如果此页面隐式打开,则弹出错误信息
   response.Write("<script>alert('用户注册或取消定制业务失败!\n\n本信息来自网讯科技!');window.history.back();</script>")
   Response.end
End if


rem 错误提示页面
sub page_errmsg() %><title>定制注册和取消页面</title> 
<table width="400" border="0" align="center">
  <tr>
    <td height="26" background="PIC/admin_bg_11.gif"><b> 
      系统错误信息</b></td>
  </tr>
  <tr>
    <td>
      <%If Err.Number<>0 Then' 错误处理%>
      <center> <b>后台管理系统页面错误报告</b> </center> 
      错误号:<%= Err.Number %><br>
      错误描述:<%= Err.Description %><br>
      错误源:<%= Err.Source %><br>
      错误发生行:<%=Err.Line%> 
      <%end if%>&nbsp;</td>
  </tr>
  <tr>
    <td align="center"> 
      <input type="button" name="Submit" value="返回前页" onClick="javascript:history.back();">
    </td>
  </tr>
</table>
<%response.end()
end sub%>