复件 inceptmessage.asp

中国计生委网络办公系统,政府电子商务程序

<%response.expires=0%>
<!--#include file="conn.asp"-->
<%
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 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
				codesums=ubound(codedim)
				if codesums>5 then codesums=4
				for i=0 to codesums
					if len(codedim(i))>11 then
						errstr=errstr&codedim(i)&"号码太长！<br>"
					else
					if codedim(i)<>"" then
						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
					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("hisoty.go(-1);")
					response.write("</script>")
				else
					conn.committrans
					if errstr<>"" then
						response.write("<p align=""center""><font color=""#ee0000"" size=""+1""><b>"&errstr&"其他手机号码发送成功！</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
		else
			response.write("<script language=""javascript"">")
			response.write("alert(""接收者手机号码不能为空！"");")
			response.write("hisotry.go(-1);")
			response.write("</script>")
			response.end
		end if
		'分割号码和判断号码正确性
		'判断输入短信息的长度
		'搜索部门信息表，确定是否存在该部门和对应的手机下放代码，最后写入日志表和临时表
	end if
end if
%>