sms.asp

本系统旨在帮助您快速建立自己的WEB短信平台

<%dbdns="../"%>
<!--#include file="../inc/conn.asp"-->
<%

'--------------------取数据-----------------------------
user=trim(request("user"))
tel=request("tel")
msg2=trim(request("msg2"))
msg=""&tel&":"&msg2&""
'------------------------------------------------------------
rem 如果user不为空,则进行处理
If user="" Then response.end

rem 忽略所有错误
On Error Resume Next
Err.Clear

set rs=server.createobject("adodb.recordset")
sql="select * from es_smsuser where es_user='"&user&"'"
	rs.open sql,conn,1,1
if not(rs.bof and rs.eof) then
qq=rs("es_qq")
else
response.write"<script>alert('用户不存在或未开通短信客服功能！');window.close()</script>"
response.end
end if

if request("action")="save" then
'------------------------------------------------------------
rem 如果user不为空,则进行处理
If user="" Then response.end

set rs=server.createobject("adodb.recordset")
sql="select * from es_smsuser where es_user='"&user&"'"
	rs.open sql,conn,1,1
  phone=rs("es_phone")
   if rs("es_pay")>=1 then
     if rs("es_type")=0 then
esid=rs("es_id")

'---------------------发送短信-----------------------------

	strurl="http://demosms.wuxicity.com/sms/send.asp"
	set objHttp = CreateObject("Microsoft.XMLHTTP")
	strdata="phone="&phone&"&msg="&msg&""
	strurl=strurl & "?" & strdata

	objHttp.Open "get",strURL,false
	objHttp.setrequestheader "content-length",len(stra)
	objHttp.send

zt=objHttp.responseText

userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR") 


'将发送内容记录到数据库
set rs=server.createobject("adodb.recordset")
sql="select * from es_smsmt" 
rs.open sql,conn,1,3
rs.addnew
rs("es_id")=esid
rs("es_msg")=msg
rs("es_phone")=phone
rs("es_zt")=zt
rs("es_zl")=2
rs("es_ip")=userip
rs.update
rs.close
set rs=nothing


if zt=0 then
'从会员帐户扣除费用
conn.execute("update es_smsuser set es_pay=es_pay-1 where es_id="&esid)

response.write"<script>alert('留言成功！');window.close()</script>"
response.end

else

response.write"<script>alert('留言失败！');window.close()</script>"
response.end

end if

      
      else
response.write"<script>alert('该用户被锁定！');window.close()</script>"
response.end
      end if
    else
response.write"<script>alert('该用户已欠费！');window.close()</script>"
response.end
    end if

			rs.close
			set rs=nothing

end if     
%>
<%
	set objHttp = CreateObject("Microsoft.XMLHTTP")

	strurl="http://webpresence.qq.com/getonline?Type=1&"&qq&":"

	objHttp.Open "get",strURL,false
	objHttp.setrequestheader "content-length",len(stra)
	objHttp.send
	
    zt=objHttp.responseText   
    cmd=mid(zt,11,1)
  if cmd=1 then
  		response.redirect("http://wpa.qq.com/msgrd?V=1&Uin="&qq&"&Exe=QQ&Site=门户短信客服&Menu=yes")
else
%>
<script LANGUAGE=JavaScript>
  function textLimitCheck(thisArea, maxLength){
    if (thisArea.value.length > maxLength){
      alert(maxLength + ' 个字限制. \r超出的将自动去除.');
      thisArea.value = thisArea.value.substring(0, maxLength);
      thisArea.focus();
    }
    /*回写span的值，当前填写文字的数量*/
    messageCount.innerText = thisArea.value.length;
  }
</script>
<meta http-equiv="Content-Type" content="text/html;charset=GBK">
<link href="es.css" rel="stylesheet" type="text/css">
<script language="JavaScript">
<!--
function checkdata() {
if( isNumberString(addform.tel.value,"1234567890")!=1 || addform.tel.value=="" || addform.tel.value.length<11 || addform.tel.value.length>12) {
alert("\请正确输入您的联系电话或手机：\n\n·固定电话 小灵通请加区号")
return false;
}
if( addform.msg2.value =="" ) {
alert("\请输入留言内容")
return false;
}
return true;
}
function isNumberString (InString,RefString)
{
if(InString.length==0) return (false);
for (Count=0; Count < InString.length; Count++)  {
	TempChar= InString.substring (Count, Count+1);
	if (RefString.indexOf (TempChar, 0)==-1)  
	return (false);
}
return (true);
}
// -->
</script>

				<boby>	<table width="409" border="0" align="center" cellpadding="0"
						cellspacing="0" background="yy_60.gif" id="table1">
						<form name="addform" method="post" action="sms.asp?action=save" onSubmit="return checkdata()">
<tr>
							<td>
								<img src="yy_51.gif" width="409" height="30" alt="">
							</td>
						</tr>
						<tr>
							<td>
								<table width="409" border="0" cellspacing="0" cellpadding="0" id="table2">
									<tr>
										<td colspan="4" height="6" background="yy_54.gif">
										</td>
									</tr>
									<tr>
										<td width="43">
											<div align="center" class="zi122">
												电话：
											</div>
										</td>
										<td colspan="3" width="366">
										&nbsp;<input name="tel" type="text"  class="zi12"size="40" maxlength="40" onpropertychange="if(/\D/g.test(value))value=value.replace(/\D/g,'')" style="ime-mode:disabled" ondragenter="return false"></td>
									</tr>
									<tr>
										<td colspan="4" height="6" width="409" background="yy_54.gif">
										</td>
									</tr>
									<tr>
										<td width="43">
											<div align="center" class="zi122">
												内容：
											</div>
										</td>
										<td colspan="3" width="366">
										<p>	&nbsp;<textarea name="msg2" cols=40 rows=5 onkeyUp="textLimitCheck(this, 55);"></textarea>
	<br><font color=#666666>限 55 个字符  已输入 <font color="#CC0000"><span id="messageCount">0</span></font> 个字</font></td>

									</tr>
									<tr>
										<td height="35" colspan="4" valign="middle">
											<table width="200" border="0" align="center" cellpadding="0"
												cellspacing="0" id="table3">
												<tr>
													<td width="112">
													<input type="image" src="yy_63.gif"  width="89" height="19" alt="" name="I1">
													</td>
													<td width="88">
													<input type="image" src="yy_65.gif"  width="89" height="19" onclick="this.form.reset();return false;" alt="" name="I2">
													</td>
												</tr>
											</table>
										</td>
									</tr> <input type="hidden" name="user" value="<%=user%>">	</form>

					</table>
							</td>
						</tr>			<tr>
				<td height="10" background="tonghua1_44.gif">
				</td>
			</tr>

						</table>
	</body></html>
<%end if%>