msg.asp

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

<!--#include file="top.asp"-->
<%
msgsort=trim(request("msgsort"))
msg=trim(request("msg"))


if request("action")="add" then

if  msg="" then
	response.write "<script>alert('对不起，短信内容不能为空！');history.go(-1);</Script>"
	Response.End 
elseif  msgsort="" then
	response.write "<script>alert('对不起，短信分类不能为空！');history.go(-1);</Script>"
	Response.End 
end if


'---------------------保存记录-----------------------------
set rs1=server.createobject("adodb.recordset")
sql1="select * from es_msg" 
rs1.open sql1,conn,1,3
rs1.addnew
rs1("msg_id")=session("id")
rs1("msg_info")=msg
rs1("msg_sort")=msgsort
rs1.update
rs1.close
set rs1=nothing

response.write"<script>alert('提交成功  请查看经典短信');window.open('esmsg.asp','_self');</script>"
response.end

end if

%>
<%usertopview%>
<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>


<table cellSpacing="0" cellPadding="0" width="760" height="100%" border="0" bgcolor="#ffffff">

<tr>
<td width="160" valign=top bgcolor=#efefef>
<!--==============-->
<!--#include file="left.asp"-->
<!--==============-->
</td>
<td width="600" align="left" valign=top>
<!--==============-->
<table border="0" width="100%">
<form name="from1" method="post" action="msg.asp?action=add">	<tr>
		<td>
<table cellSpacing="0" cellPadding="0" width="100%" align="center" border="0" style="border:1px #cccccc solid;" id="table1">
<%sql1="select *  from es_smsuser where es_id="&session("id")
set rs1=server.createobject("ADODB.Recordset")
rs1.open sql1,conn,1,1%>
  <tr>
    <td width="358" height=33 background="img/tt2.gif">　　<font color=black>短信添加</font></td>
  </tr>
  <tr>
    <td bgcolor=#ffffff height=25>
<!--======-->
<table width="80%" border="0" cellspacing="0" cellpadding="0" align=center id="table2">
  <tr>  
 <td width="28%" height="30" align=right>
	<p align="left"><font color=red>*选择分类： &nbsp;</font></td>
	<td width="72%" valign="middle"><p style="line-height:180%">
	<select name="msgsort">
<option value="" selected>选择分类</option>
                    <%
sql="select *  from es_msgsort order by es_date desc"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,1
while not rs.eof%>
<option value="<%=rs("id")%>"><%=rs("es_msgsort")%></option>
<%rs.movenext
wend
rs.Close()
%> 
</select><br>请根据短信内容选择相应的分类．</td>
  </tr>
    <tr>  
 <td width="28%" height="120" align=right>
	<p align="left"><font color=red>*短信内容： &nbsp;</font></td>
	<td><p style="line-height:180%">
	<textarea name="msg" cols=40 rows=5 onkeyUp="textLimitCheck(this, 70);"></textarea>
	<br><font color=#666666>限 70 个字符  已输入 <font color="#CC0000">
	<span id="messageCount">0</span></font> 个字</font></td>
  </tr>

  <tr>
 <td align=left width="28%" valign="top">
	<p align="left"><font color=red>*说明：</font></td>
	<td width="72%" align="left" valign="top"><font color="#0000FF">
	添加短信有奖。</font>
</td>
  </tr>
  <tr>
    <td height=30 align="center" colspan="2" rowspan="2">
	<input type="submit" name="Submit" value="发　送" class="input1"></td>
      </tr>	</table>
<!--======-->
	</td>
  </tr>
</table>
		</form>
		</td>
	</tr>
	</table>
<!--==============-->
</td>
</tr>
</table>
<!--====== bottom ========-->
<!--====== bottom ========-->
    <table width="100%" border="0" cellspacing="0" cellpadding="0" style="border:0px #cccccc solid;">
      <tr>
        <td width="30%" align="right" valign="middle"><img src="../images/index_04.gif" alt=""></td>
        <td width="70%" align="left"><%=citybottom%></td>
  </tr>
</table>
				  </body>
</html>