dianbo.asp

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

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%response.Charset="GB2312"%>
<%
'============================================================
'=====================得到SP传递数据

mobile=Request.QueryString("mobile")
msg=Request.QueryString("msg")
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

if cstr(spnum)="33144158" then


		rem 网讯科技短信系统
		rem 实现点播业务 (GUEST->SSO->SP->CP,CP->SP->SSO->GUEST)
		rem 即完成当用户发送 XQL 到长号码33144158时 我们将点播信息发送给用户的功能
		'=============================================================
		'==================	下行 将点播信息发送给SP,并保存记录
		
		'-----------------------------数据库相关的初始化
		
		Set Conn=Server.CreateObject("Adodb.Connection")
		Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("admin/smss.mdb")
		
		'-------------------随机读取一条点播业务的短信
		
		set rsread=conn.execute("select * from articles where classid=11")
		if rsread.eof then 
		   msgtemp="这是一条网科技测试信息！"
		else
		   randomize
		   while not rsread.eof
				 i=i+1
				 rsread.movenext
		   wend
		   rndmsg=int(i*rnd())
		   rsread.movefirst
		   i=0
		   do while not rsread.eof
			  i=i+1
			  if i=rndmsg then msgtemp=rsread("title"):exit do
			  rsread.movenext
		  loop
		end if
		
		
		If Err.number<>0 Then 
		   rem 如果此页被显式打开,则给出错误信息
		   rem page_errmsg()
		   
		   rem 如果此页面隐式打开,则弹出错误信息
		   response.Write("<script>alert('读取短信数据库出错!\n\n本信息来自网讯科技!\n\n请反馈给我们，谢谢！');window.history.back();</script>")
		   Response.end
		End if
		
		Err.Clear
		conn.close()
		set conn=nothing
		
		
		'=============================================================
		'==================将本次操作记录写入数据库
		Set Conn=Server.CreateObject("Adodb.Connection")
		Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database/duanxin.mdb")
		
		sql="insert into dianbo_mo(mobile,msg_rece,svcode,spnum,union_id,link_id,item_id,msg_id,msg_send) values('"+mobile+"','"+msg+"','"+svcode+"','"+spnum+"','"+union_id+"','"+link_id+"','"+item_id+"','"+msg_id+"','"+msgtemp+"')"
		conn.execute(sql)
		
		If Err.number<>0 Then 
		   rem 如果此页被显式打开,则给出错误信息
		   rem page_errmsg()
		   
		   rem 如果此页面隐式打开,则弹出错误信息
		   response.Write("<script>alert('插入数据库出错!\n\n本信息来自网讯科技!');window.history.back();</script>")
		   Response.end
		End if
		
		
		response.redirect("http://210.51.0.191/mt/SendServlet?dstmobile=" & mobile & "&feemobile=" & mobile & "&msg=" & server.URLEncode(trim(msgtemp)) & "&svcode=XX018&spnum=33141058&cp_id=wzelongs500&cp_pass=wtdwtiaw6&ip=211.100.167.105&item_id=" & cstr(item_id) & "&link_id=" & cstr(link_id) &"&msg_id=" & cstr(msg_id) & "")



Else  '

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

	'=============================================================
	'==================	将新注册用户保存入库,将取消用户从库中删除
	
	'-----------------------------数据库相关的初始化
	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

End If '判断是定制还是点播结束


rem 错误提示页面
sub page_errmsg() %> 
<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%>