OFFICE办公自动化
源代码在线查看: sendmsg.asp
bicq
function document_onkeydown() {
if(event.ctrlKey && window.event.keyCode==78)
{
window.alert ("欢迎使用B-ICQ")
}
}
//-->
document_onkeydown()
//-->
function window_onload() {
window.resizeTo(370, 200);
}
function window_onresize() {
window.resizeTo(370, 200);
}
//检查发送对象是否为空
function check_form(){
if(PostTopic.touser.value==""){
window.alert ("提示\n\n发送对象不能为空\n\n请先填写!")
PostTopic.touser.focus ()
return false
}else if(PostTopic.touser.value==""){
window.alert ("提示\n\n发送对象不能是自己\n\n请重新填写!")
PostTopic.touser.focus ()
return false
}else{
return true
}
}
function Message_onfocus() {
check_form()
}
//-->
onload="return window_onload()" onresize="return window_onresize()">
method=post>
发送给:
BORDER-BOTTOM-STYLE: solid; BORDER-LEFT-STYLE: solid; BORDER-RIGHT-STYLE: solid; BORDER-TOP-STYLE: solid"
name="touser"
>
(按ALT+S或者CTRL+ENTER发送)