一个完整的网上追捕的原程序

豆腐制作都是精品
http://www.asp888.net 豆腐技术站

前面讲过很多的用asp+实现网长追捕的程序，现在就在这里给大家提供这个完整应用的原程序，希望大家首先先看看
以前的文章，带者问题来看这个程序，其实是很简单的。同时我也给大家带来了这个程序的下载！
这个程序现在还是有些小问题，比如在处理通过IP 地址查找主机域名的时候，如果输入的不是合法的IP地址，则程序会
返回一个错误，大家如果有兴趣，可以自己修改修改这个程序的：）

1@ Import NameSpace="System.Net"

1 @Import Namespace="System.Net.Sockets"

1@ Import Namespace="System.IO"

 1<script language="C#" runat="server">   
 2String strRet;   
 3protected void doClick(Object Src, EventArgs E){ 
 4
 5if(dropdown1.SelectedItem.Value.ToInt16()==2){ 
 6
 7IPHostEntry hostInfo = DNS.GetHostByName(txtSearch.Text);   
 8strRet= hostInfo.AddressList[0].ToString() + "<br>"; //域名转换成IP地址   
 9}   
10else{   
11IPHostEntry hostInfo = DNS.GetHostByAddr(txtSearch.Text);   
12strRet= hostInfo.Hostname + "<br>"; //IP地址转换成域名   
13} 
14
15if(CheckBox1.Checked){   
16String host=txtSearch.Text; 
17
18TCPClient tcpc = new TCPClient();   
19strRet=strRet + "SMTP Server:" + TcpConnect(tcpc,host,25) + "<br>"; //SMTP 端口 
20
21tcpc = new TCPClient();   
22strRet=strRet + "WWW Server:" + TcpConnect(tcpc,host,80) + "<br>"; //WWW 端口 
23
24tcpc = new TCPClient();   
25strRet=strRet + "FTP Server: " + TcpConnect(tcpc,host,21) + "<br>"; //FTP 端口 
26
27tcpc = new TCPClient();   
28strRet=strRet + "Pop3 Server:" + TcpConnect(tcpc,host,110) + "<br>"; //Pop 端口 
29
30tcpc = new TCPClient();   
31strRet=strRet + "代理 Server:" + TcpConnect(tcpc,host,1080) + "<br>"; //Socket5 端口 代理服务器使用的端口 
32
33tcpc = new TCPClient();   
34strRet=strRet + "DNS Server:" + TcpConnect(tcpc,host,53) + "<br>"; //DNS 端口   
35}   
36showmsg.Text=strRet;   
37} 
38
39String TcpConnect(TCPClient tcpc,String host,int port){   
40//这个函数的功能是 检查 指定的 host 的 port 是否在用？   
41String strRet="服务没有找到";   
42if(0 == tcpc.Connect(host,port)){   
43//联结服务器成功   
44strRet="正在运行";   
45}   
46return strRet;   
47} 
48
49</script>

 1<html>
 2<head>
 3<title>WEB追捕</title>
 4<script language="JScript">   
 5//这两个函数是功能是对 剪贴板 进行存取   
 6function doufucopy() {   
 7textRange = txtSearch.createTextRange();   
 8textRange.execCommand("Copy");   
 9}   
10function doufupaste() {   
11textRange = txtSearch.createTextRange();   
12textRange.execCommand("Paste");   
13}   
14\-->   
15</script>
16</head>
17<body>
18<form id="testForm" runat="server">
19<asp:dropdownlist id="dropdown1" runat="server">
20<asp:listitem id="ListItem1" value="1">查找域名</asp:listitem>
21<asp:listitem id="ListItem2" value="2">查找IP</asp:listitem>
22</asp:dropdownlist>
23<asp:textbox id="txtSearch" runat="server"></asp:textbox>
24<br/>
25<asp:checkbox id="CheckBox1" runat="server" text="检查对方的机器"></asp:checkbox>
26<br/>
27<asp:button id="do" onclick="doClick" runat="server" text="查找"></asp:button>
28</form>
29<asp:label id="showmsg" runat="server"></asp:label>
30<input onclick="doufucopy();" type="button" value="复制"/>
31<input onclick="doufucopy();" type="button" value="粘贴"/>
32</body>
33</html>