⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 phone.asp

📁 功能非常强大的一款办公自动化软件原代码,其中的文档签收功能特别实用.不相信下下来看下.
💻 ASP
📖 第 1 页 / 共 2 页
字号:
<!--#include file="check.asp"-->
<!--#INCLUDE FILE="connect.asp" --> 
<SCRIPT language=JavaScript>
function selectmsg(str)
	{
		document.form.message.value = str;
		onCharsChange(document.form.message);
		document.form.message.focus();
		document.form.message.select();
	}

	function inputs(str)
	{
		document.form.message.value=document.form.message.value+str;
		onCharsChange(document.form.message);
		document.form.message.focus();
	}
 function onCharsChange(varField) {
     var leftChars = getLeftChars(varField);
     if ( leftChars >= 0) {	 	
 	document.form.charsmonitor.value=leftChars;
 	return true;
     } else {
     	document.form.charsmonitor.value="0";
     	window.alert("短信内容超过字数限制!");
     	var len = document.form.message.value.length + leftChars; 	
 	document.form.message.value = document.form.message.value.substring(0, len);
 	leftChars = getLeftChars(document.form.message);
     	if ( leftChars >= 0) {	 	
 	    document.form.charsmonitor.value=leftChars;
	}
        return false;    	
     }	
 }
 function getLeftChars(varField) {
    var i = 0;
    var counter = 0;
    var cap = 140;    
    
    if (document.form.isflash.checked == true) {
    	cap = 70;
    } else {
    
      for (i = 0; i< varField.value.length; i++) {    	
    	if (varField.value.charCodeAt(i) > 127 || varField.value.charCodeAt(i) == 94) {
    		cap = 70;    	
	} 
      }
    }
    
    var leftchars = cap - varField.value.length;    
    
    return (leftchars);
 }
function checksendsms(){
var checkOK = "0123456789";
	var checkStr = document.form.mobile.value
	var allValid = true;
	var decPoints = 0;
	var allNum = "";
	if (checkStr==""){
     alert("没有输入手机号码");
     document.form.mobile.focus()
     return false;
                     }
	 if (checkStr.length!=11){
     alert("不是正确的手机号码");
     document.form.mobile.focus()
     return false;
                     }
	for (i = 0;  i < checkStr.length;  i++)
	{
	  ch = checkStr.charAt(i);
	  for (j = 0;  j < checkOK.length;  j++)
	    if (ch == checkOK.charAt(j))
	      break;
	  if (j == checkOK.length)
	  {
	    allValid = false;
	    break;
	  }
	  if (ch != ",")
	    allNum += ch;
	}
	if (!allValid)
	{
	 alert("不是正确的手机号码");
	  document.form.mobile.focus();
	  return (false);
	}
	if (form.message.value.length==0){
		alert("请填写短信内容");
		form.message.focus();
		return false;	
	}
  
	if(!confirm("您确定要发送短信吗?"))
	{return false;}
	else {
	alert("试用版本不能发送手机短信")
	return false;
	}
	
}

function choose() {
document.form.mobile.value=document.form.select.value
}
</script>
<html>
<head>
<title>手机短信</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="apply.css" type="text/css">
</head>

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form name="form" method="POST" action="sendsms.asp" onSubmit="return checkSendto()">
  <table width="100%" border="0" cellspacing="0" cellpadding="0">
    <tr> 
      <td align="center" valign="top"> 
        <table width="100" border="0" cellspacing="0" cellpadding="0" height="15">
          <tr> 
            <td></td>
          </tr>
        </table>
        <TABLE cellSpacing=0 cellPadding=0 width=483 border=0 height="23">
          <TBODY> 
          <TR> 
            <TD background="images/title01.gif"> 
              <table width="90%" border="0" cellspacing="0" cellpadding="0" height="23">
                <tr> 
                  <td width="6%" align="center"><img height=21 
                  src="images/phone1.gif"></td>
                  <td width="94%" valign="baseline">手机短信</td>
                </tr>
              </table>
            </TD>
          </TR>
          </TBODY> 
        </TABLE>
        <table height=39 cellspacing=0 cellpadding=0 width=483 
background="images/title04.gif" border=0>
          <tbody> 
          <tr> 
            <td align=center width=100 class="9blue"><b>[精彩短信]</b></td>
            <td class=whitetd width=383> 
<MARQUEE onmouseover=this.stop() onmouseout=this.start() scrollDelay=500 direction=up width=340 height=39> 
             <%set rs=server.createobject("adodb.recordset")
			 sql="select * from goodsms"
			 rs.open sql,conn,1,1
			 while not rs.eof
			 %>
			  <P><A class=aapply onClick="javascript:selectmsg('<%=rs("sms")%>');" href="phone.asp#">
	     <%temp=rs("sms") 
	  	if len(temp)>24 then temp=left(temp,24)&"..." 
		response.write temp
		%></A></P>
              <%rs.movenext
			  wend
			  rs.close
			  set rs=nothing
			  %>
              </MARQUEE> </td>
          </tr>
          </tbody> 
        </table>
        <table width="483" border="0" cellspacing="0" cellpadding="0" bgcolor="#D6E1F8" height="7" style="BORDER-RIGHT: #B8C8EB 1px solid;BORDER-left: #B8C8EB 1px solid;BORDER-top: #b8c8eb 1px solid;">
          <tr> 
            <td></td>
          </tr>
        </table>
        <table bordercolor=#A7BAE4 cellspacing=0 cellpadding=0 width=483 
bgcolor=#D6E1F8 border=0>
          <tbody> 
          <tr> 
            <td valign=center align=center style="BORDER-RIGHT: #B8C8EB 1px solid;BORDER-left: #B8C8EB 1px solid;BORDER-BOTTOM:#B8C8EB 1px solid;"> 
              <table cellspacing=0 cellpadding=0 border=0 
      width=100%>
                <tbody> 
                <tr> 
                  <td valign=top align=center> 
                    <table bordercolor=#A7BAE4 cellspacing=0 cellpadding=0 
      width=462 bgcolor=#EEF2FA border=0>
                      <tbody> 
                      <tr> 
                        <td valign=top align=center> 
                          <table cellspacing=0 cellpadding=0 width=446 border=0>

⌨️ 快捷键说明

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