|
|
 |
|
|
|
Net Message
<%@
Language=VBScript
%>
<HTML>
<HEAD>
<META
NAME="GENERATOR"
Content="Microsoft
Visual
Studio 6.0">
<TITLE>Send
Net Message</TITLE>
</HEAD>
<BODY>
<P
align=center>
<%
if
request("msg")
= "" and
Request.form("txtmsg")
= "" and
Request.form("txtmsg2")
= ""
Then
'detemine
if
any messages
are present;
display send
link
%>
<A
href="message.asp?msg=send"
><STRONG><FONT
color=red>Send
Message
To
a computer</FONT></STRONG></A>
<%
Else
if
Request.Form("txtmsg")
<>
"" or
Request.form("txtmsg2")
<>
""
Then
'make sure a
message has
been entered
if
Request("txtcomputer")
= ""
Then
'direct from
the listing,
Not
the form
if
request("computer")
<>
""
Then
Response.Write
"<P
align=center>Message
being sent
To
"
Response.Write
"<B>"
&
Request("computer")
& "</B>"
Response.Write
":
<FONT
color=blue
size=4>"
Response.Write
Request.Form("txtmsg")
& "</FONT></P>"
Set
server_shell
=
Server.CreateObject("wscript.shell")
server_shell.Run
"%comspec%
/c net send
" &
Request("computer")
& " " &
Request.Form("txtmsg")
'run the
command
Else
Response.Write
"<B>No
computer
entered</B>"
End
if
Else
'the form
was used
To
enter a
computer
name
response.Write
"<P
align=center>Message
being sent
To
"
Response.Write
"<B>"
&
Request.Form("txtcomputer")
& "</B>"
Response.Write
":
<FONT
color=blue
size=4>"
Response.Write
Request.Form("txtmsg2")
& "</FONT></P>"
Set
server_shell
=
Server.CreateObject("wscript.shell")
server_shell.Run
"%comspec%
/c net send
" &
Request.Form("txtcomputer")
& " " &
Request.Form("txtmsg2")
End
if
ElseIf
request("msg")
= "send"
Then
'draw form
for sending
message
if
Request("computer")
<>
""
Then
'computer
from a
listing
Response.Write
"<FORM
id=frmmsg
name=frmmsg
method=post
action=message.asp>"
Response.Write
"<P
align=center>Type
In
the message
you want
To
send to " &
request("computer")
Response.Write
"<INPUT
type=text
name=txtmsg
id=txtmsg
length=20>"
Response.Write
"<INPUT
type=submit
name=submsg
id=submsg
value=Submit
>"
Response.Write
"</FORM>"
Response.Write
"<BR><HR>
OR
<BR>"
'give both
options
End
if
Response.Write
"<FORM
id=frmmsg2
name=frmmsg2
method=post
action=message.asp>"
Response.Write
"<P
align=center>Type
In
the message
you want
To
send to "
'draw
a form table
Response.Write
"<TABLE
border=0>"
Response.Write
"<TR>"
Response.Write
"<TD><B>Computer
Name</B></TD>"
Response.Write
"<TD><INPUT
type=text
length=20
id=txtcomputer
name=txtcomputer></TD>"
Response.Write
"</TR><TR>"
Response.Write
"<TD><B>Message<B></TD>"
Response.Write
"<TD><INPUT
type=text
name=txtmsg2
id=txtmsg2
length=20></TD>"
Response.Write
"</TR></TABLE>"
Response.Write
"<INPUT
type=submit
name=submsg2
id=submsg2
value=Submit
>"
Response.Write
"</FORM>"
End
if
End
if
%>
</P>
<P> </P>
</BODY>
</HTML>
نویسنده:
کیوان شجاعی
Email:kayvan.shojaie@gmail.com
|
|
|
|
|
|
|
|
