inceptmessage.asp

很好的OA办公系统

<%response.expires=0%>
<!--#include file="conn.asp"-->
<%
function checkmessagetext(textinfo)
	checkOK="0123456789"
	allValid = true
	for i1 = 1 to len(textinfo)
		ch = mid(textinfo,i1,1)
		for j1 = 1 to len(checkOK)
			if ch = mid(checkOK,j1,1) then
				exit for
			end if
			if j1 = len(checkOK) then
				allValid = false
				exit for
			end if
		next
	next
	checkmessagetext=allValid
end function
if request("Submit")=" 发 送 " then
	companycode=trim(request.form("companycode"))
	usercode=trim(request.form("usercode"))
	code=trim(request.form("code"))
	message=request.form("smstext")
	if companycode="" or usercode="" or code="" then
		response.write("<script language=""javascript"">")
		response.write("alert(""出现错误，不能发送手机短信息！"");")
		response.write("history.go(-1);")
		response.write("</script>")
		response.end
	else
		if usercode="" or len(usercode)>10 then
			response.write("<script language=""javascript"">")
			response.write("alert(""对不起，用户名为空或长度超过了5个汉字！"");")
			response.write("history.go(-1);")
			response.write("</script>")
			response.end
		end if
		if code="" then
			response.write("<script language=""javascript"">")
			response.write("alert(""对不起，接收者手机号码不能为空！"");")
			response.write("history.go(-1);")
			response.write("</script>")
			response.end
		end if
		if len(message)>70 then
			response.write("<script language=""javascript"">")
			response.write("alert(""短信息不能超过70个汉字！"");")
			response.write("history.go(-1);")
			response.write("</script>")
			response.end
		end if
		if code<>"" then
			'if instr(code,",")<=0 then
			'	code=code+","
			'end if
			codedim=split(code,",")
			on error resume next
			set conn=opendb("conn")
			conn.begintrans
			set rs=server.createobject("adodb.recordset")
			sql="select * from companyinfotable where companycode='"&companycode&"'"
			rs.open sql,conn,1
			if rs.eof or rs.bof then
				conn.close
				set rs=nothing
				set conn=nothing
				response.write("<script language=""javascript"">")
				response.write("alert(""对不起，没有这个部门！"");")
				response.write("history.go(-1);")
				response.write("</script>")
				response.end
			else
				downcode=rs("downcode")
				set rs=nothing
				successstr=""
				codesums=ubound(codedim)
				if codesums>250 then codesums=250
				for i=0 to codesums
					if (len(codedim(i))<>11 or not checkmessagetext(codedim(i))) and codedim(i)<>""  then
						errstr=errstr&codedim(i)&"号码不正确！<br>"
					elseif codedim(i)<>"" then
						successstr=successstr&codedim(i)&"发送成功！<br>"
						sql="insert into logtable (downcode,companycode,usercode,shortmessage,sendnumber) values('"&downcode&"','"&companycode&"','"&usercode&"','"&message&"','"&codedim(i)&"')"
						conn.execute(sql)
						sql="insert into temporarytable (downcode,companycode,usercode,shortmessage,sendnumber) values('"&downcode&"','"&companycode&"','"&usercode&"','"&message&"','"&codedim(i)&"')"
						conn.execute(sql)
					end if
				next
				if err.number<>0 then
					conn.rollbacktrans
					conn.close
					set conn=nothing
					response.write("<script language=""javascript"">")
					response.write("alert(""对不起，发送出错！"");")
					response.write("history.go(-1);")
					response.write("</script>")
				else
					conn.committrans
					if errstr<>"" then
						response.write("<p align=""center""><font color=""#ee0000"" size=""+1""><b>"&errstr&successstr&"</b></font></p>")
					else
						response.write("<p align=""center""><font color=""#ee0000"" size=""+1""><b>发送成功，谢谢使用！</b></font></p>")
					end if
					conn.close
					set conn=nothing
					response.end
				end if
			end if
		end if
	end if
end if
%>