|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
使用filesystemobject,可以对服务器上的文件进行操作,浏览、复制、移动、删除等。有ado的支持,asp对数据库的操作非常得心应手。你甚至可以像使用本地数据库那样,管理远程主机上的数据库,对表格、记录进行各种操作。asp+|程序终究偶然间能够学点新器材了,明天大抵看了一下有关asp+的材料,而且写了个域名查询的页面,感到很不错,asp+比
起asp来前进其实是太年夜了,只管用asp+组件也能完成域名查询的功效,而且头几天我用vc写过这么个组件,但用asp+复杂
便利多了。好了,空话少提,看源码吧。
<%@PageLanguage="C#"%>
<%@AssemblyName="System.Net"%>
<%@ImportNamespace="System.Net.Sockets"%>
<%@ImportNamespace="System.Text"%>
<%@ImportNamespace="System.IO"%>
<%@ImportNamespace="System.Collections"%>
<scriptlanguage="C#"runat="server">
voiddoQuery(Objectsender,EventArgse)
{
StringstrDomain=txtDomain.Text;
char[]chSplit={.};
string[]arrDomain=strDomain.Split(chSplit);
intnLength=arrDomain[1].Length;
Hashtabletable=newHashtable();
table.Add("de","whois.denic.de");
table.Add("be","whois.dns.be");
table.Add("gov","whois.nic.gov");
table.Add("mil","whois.nic.mil");
StringstrServer;//definewhoisserver
//ifthedomainnamesendiscnthentheserveriscnnic,otherwiseisnetworksolutions
if(arrDomain[arrDomain.Length-1]=="cn")
{
strServer="159.226.6.139";
}
else
{
strServer="whois.networksolutions.com";
}
if(table.ContainsKey(arrDomain[1]))
{
strServer=table[arrDomain][1]].ToString();
}
elseif(nLength==2)
{
//2-letterTLDsalwaysdefaulttoRIPEinEurope
strServer="whois.ripe.net";
}
StringstrResponse;
boolbSuccess=DoWhoisLookup(strDomain,strServer,outstrResponse);
if(bSuccess)
{
txtResult.Text=strResponse;
}
else
{
txtResult.Text="Lookupfailed";
}
}
boolDoWhoisLookup(StringstrDomain,StringstrServer,outStringstrResponse)
{
strResponse="none";
boolbSuccess=false;
TCPClienttcpc=newTCPClient();
if(0==tcpc.Connect(strServer,43))
{
strDomain+="
";
Byte[]arrDomain=Encoding.ASCII.GetBytes(strDomain.ToCharArray());
try
{
Streams=tcpc.GetStream();
s.Write(arrDomain,0,strDomain.Length);
StreamReadersr=newStreamReader(tcpc.GetStream(),Encoding.ASCII);
StringBuilderstrBuilder=newStringBuilder();
while(-1!=sr.Peek())
{
strBuilder.Append(sr.ReadLine()+"<br>");
}
tcpc.Close();
bSuccess=true;
strResponse=strBuilder.ToString();
}
catch(Exceptione)
{
strResponse=e.ToString();
}
returnbSuccess;
}
else
{
strResponse="CouldnotconnecttoWhoisserver";
returnfalse;
}
returnfalse;
}
</script>
<html>
<head>
<title></title>
</head>
<body>
<formrunat="server">
Domainname:WWW.<asp:TextBoxid="txtDomain"value=""runat="server"/>
<asp:Buttonid="btnQuery"OnClick="doQuery"text="Query!"runat="server"/>
<BR><HRwidth="100%"><BR>
<asp:labelid="txtResult"runat="server"/>
</form>
</body>
</html>
</p>减少客户内IT专业人才缺乏带来的影响。ASP的客户员工利用浏览器进入相关的应用软件,简单易用,无需专业技术支持。 |
|