仓酷云

标题: ASP网站制作之用ASP做的DNS LOOKUP程序 [打印本页]

作者: 飘灵儿 时间: 2015-1-16 23:33
标题: ASP网站制作之用ASP做的DNS LOOKUP程序
因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。还无法完全实现一些企业级的功能：完全的集群、负载均横。程序文章转译自ASP101

运转情况，NT（SERVER、WORKSTATION）、W2K

服务器上必要安装WSH2.0大概更高版本

假如您的体系今朝没有安装WSH2.0，您能够从以下这个地点往下载它

http://www.microsoft.com/msdownload/vbscript/scripting.asp

内里包括了WSH2.0

上面是源代码

<%@Language="VBScript"%>
<%OptionExplicit%>
<%
IfRequest.Form("frmHost")=""Then
设置初始值
strIP=Request.ServerVariables("REMOTE_ADDR")
Else
strIP=Request.Form("frmHost")
EndIf
%>
<html>
<head>
<title>DNSLookup[v1.0]</title>
</head>
<bodybgcolor="#FFFFFF">

<formMethod="POST"Name="frmRDNS">
<labelfor="frmHost">Host:</label>
<inputtype="text"name="frmHost"ID="frmHost"
value="<%=strIP%>">
<inputtype="button"name="btnSubmit"ID="btnSubmit"
value="Lookup"onClick="document.frmRDNS.submit()">
</form>

<fontface="arial"size="2"color="#003366">
<%
rMethod=uCase(Request.ServerVariables("REQUEST_METHOD"))
IfrMethod="POST"Then
LookupHost
strReturn=nsLookup(strIP)
IfstrReturn""Then
Response.WritestrReturn
Else
ALameHostisanyValidHostthatDNSCannotResolve
SeeInterNicforDetails
Response.Write"LameHost-CouldNotResolveDNSFor"_
&strIP&" "
EndIf
EndIf

FunctionNSlookup(strHost)
CreateShellObject
SetoShell=Server.CreateObject("Wscript.Shell")
RunNSLookupviaCommandPrompt
DumpResultsintoatemptextfile
oShell.Run"%ComSpec%/cnslookup"&strHost_
&">C:"&strHost&".txt",0,True

OpenthetempTextFileandReadouttheData
SetoFS=Server.CreateObject("Scripting.FileSystemObject")
SetoTF=oFS.OpenTextFile("C:"&strHost&".txt")

tempData=Null
Data=Null
i=0
DoWhileNotoTF.AtEndOfStream
Data=Trim(oTF.Readline)
Ifi>2ThenDontwanttodisplaylocalDNSInfo.
tempData=tempData&Data&" "
EndIf
i=(i+1)
Loop

Closeit
oTF.Close
DeleteIt
oFS.DeleteFile"C:"&strHost&".txt"

SetoFS=Nothing
nsLookup=tempData
EndFunction
%>


</body>
</html>

代码很复杂，我未几说了，假如您对WSH有甚么疑问的话，请往下载WSH的电子文档
中文版本的，CHINAASP下载区就有的吧

但愿能对你有所匡助。

当然了,现在国内CRM厂商的产品与其说是CRM,但从至少从我的角度分析上来看,充其量只是一个大型的进销存而已了,了解尚浅,不够胆详评,这里只提技术问题

作者: 再见西城 时间: 2015-1-18 12:13
Server:这个表示的服务器，操作服务器的一些工具使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件

作者: 深爱那片海 时间: 2015-1-21 21:37
哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的?

作者: 仓酷云 时间: 2015-1-30 22:36
兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的

作者: 第二个灵魂 时间: 2015-2-6 16:26
代码逻辑混乱，难于管理：由于ASP是脚本语言混合html编程，所以你很难看清代码的逻辑关系，并且随着程序的复杂性增加，使得代码的管理十分困难，甚至超出一个程序员所能达到的管理能力，从而造成出错或这样那样的问题。

作者: 再现理想 时间: 2015-2-17 04:44
如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:

作者: 分手快乐 时间: 2015-3-5 15:54
Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件

作者: 爱飞 时间: 2015-3-12 09:23
ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。　　因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。

作者: 柔情似水 时间: 2015-3-19 19:34
我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。

欢迎光临仓酷云 (http://ckuyun.com/)