allaf2
شنبه 01 اسفند 1388, 18:56 عصر
من يه فرم دارم كه در يك قسمتش ميشه يك متن رو وارد كرد و با زدن دكمه Submit متن به سرور ارسال ميشه.
حالا من ميخوام به جاي اين كار از روشي استفاده كنم به شكل زير:
http://127.0.0.1/defult.asp?ID=test
يعني بعد از defult.asp ميخوام ID=test? اضافه كنم و با زدن Enter كلمه test ارسال بشه
اين هم كد :
ممنونم:قلب:
<HTML>
<H1></H1>
<form method="POST" action="default.asp">
<table border="0" width="100%">
<tr>
<td width="24%">Data To Send</td>
<td width="76%"><input type="text" name="data" size="20" value=""></td>
</tr>
<tr>
<td width="24%">Remote IP</td>
<td width="76%"><input type="text" name="ip" size="20" value="localhost"></td>
</tr>
<tr>
<td width="24%">Remote Port</td>
<td width="76%"><input type="text" name="port" size="20" value="4000"></td>
</tr>
</table>
<p><input type="submit" value="Submit" name="B1"><input type="reset" value="Reset" name="B2"></p>
</form>
<%
'Get the form contents
ip=request.form("ip")
port=request.form("port")
data=request.form("data")
if ip<>"" and port<>"" and data<>"" then
'Simply declaring a variable.
Dim mySock
'Create an instance
set mySock=server.createobject("sockobject.socket")
'Now attempt to connect. Connect method
'Param 1: Host Name
'Param 2: Port
Result=mySock.connect(ip,port)
'If result is successfull, send that data
'Param 1: Data to send
'Param 2: Timeout in Seconds
'Timeout is the timedelay our COM component may wait, for getting the result back.
Mydata="Your Data" 'Construct the data string
if Result="NOERROR" then
Ret=MySock.SendData(Data,10)
response.write ret
end if
'The socket will be closed automatically, terminating the class
set mySock=nothing
end if
%>
</HTML>
حالا من ميخوام به جاي اين كار از روشي استفاده كنم به شكل زير:
http://127.0.0.1/defult.asp?ID=test
يعني بعد از defult.asp ميخوام ID=test? اضافه كنم و با زدن Enter كلمه test ارسال بشه
اين هم كد :
ممنونم:قلب:
<HTML>
<H1></H1>
<form method="POST" action="default.asp">
<table border="0" width="100%">
<tr>
<td width="24%">Data To Send</td>
<td width="76%"><input type="text" name="data" size="20" value=""></td>
</tr>
<tr>
<td width="24%">Remote IP</td>
<td width="76%"><input type="text" name="ip" size="20" value="localhost"></td>
</tr>
<tr>
<td width="24%">Remote Port</td>
<td width="76%"><input type="text" name="port" size="20" value="4000"></td>
</tr>
</table>
<p><input type="submit" value="Submit" name="B1"><input type="reset" value="Reset" name="B2"></p>
</form>
<%
'Get the form contents
ip=request.form("ip")
port=request.form("port")
data=request.form("data")
if ip<>"" and port<>"" and data<>"" then
'Simply declaring a variable.
Dim mySock
'Create an instance
set mySock=server.createobject("sockobject.socket")
'Now attempt to connect. Connect method
'Param 1: Host Name
'Param 2: Port
Result=mySock.connect(ip,port)
'If result is successfull, send that data
'Param 1: Data to send
'Param 2: Timeout in Seconds
'Timeout is the timedelay our COM component may wait, for getting the result back.
Mydata="Your Data" 'Construct the data string
if Result="NOERROR" then
Ret=MySock.SendData(Data,10)
response.write ret
end if
'The socket will be closed automatically, terminating the class
set mySock=nothing
end if
%>
</HTML>