小女巫 发表于 2015-1-16 22:43:16

ASP编程:老手初练:用ASP做一个域名查询体系

优点:简单易学、开发速度快、有很多年“历史”,能找到非常多别人做好的程序来用、配合activeX功能强大,很多php做不到的asp+activeX能做到,例如银行安全控件 开辟如许一个域名查询体系实际上是一件很简单的事变,只需我们可以让利用者举行查询后得出了局,看看本人输出的域名是否是被他人占用了就能够,假如没有被占用我们就能够自行往请求了。<%
OnErrorResumeNext
Server.ScriptTimeOut=9999999
FunctiongetHTTPPage(Path)
t=GetBody(Path)
getHTTPPage=BytesToBstr(t,"GB2312")
Endfunction
FunctionGetBody(url)
onerrorresumenext
SetRetrieval=CreateObject("Microsoft.XMLHTTP")
WithRetrieval
.Open"Get",url,False,"",""
.Send
GetBody=.ResponseBody
EndWith
SetRetrieval=Nothing
EndFunction
FunctionBytesToBstr(body,Cset)
dimobjstream
setobjstream=Server.CreateObject("adodb.stream")
objstream.Type=1
objstream.Mode=3
objstream.Open
objstream.Writebody
objstream.Position=0
objstream.Type=2
objstream.Charset=Cset
BytesToBstr=objstream.ReadText
objstream.Close
setobjstream=nothing
EndFunction
%>
<%
ifrequest("domain")""then
url="http://panda.www.net.cn/cgi-bin/Whois.cgi?domain="&request("domain")&"&"&request("root")&"=yes&work=whois&referer=http://panda.www.net.cn/cgi-bin/Check.cgi?domain="&request("domain")
url="http://panda.www.net.cn/cgi-bin/Check.cgi?domain="&request("domain")&"&ext="&request("root")
wstr=getHTTPPage(url)
response.writeInstr(wstr,"能够注册")
ifinstr(lcase(wstr),"已被注册的域名")>0then
body="域名已被注册"
elseifinstr(lcase(wstr),"未被注册的域名")>0then
body="域名未被注册"
else
body="收集提早,请从头查找"
endif
endif
%>
<tablewidth="40%"border="0"align="center"cellpadding="5"cellspacing="1"bgcolor="#999999">
<tr>
<tdheight="26"bgcolor="efefef">域名查询体系:<%ifrequest("domain")>""thenresponse.Write(request("domain")&"."&request("root")&body)endif%></td>
</tr>
<tr>
<tdbgcolor="#FFFFFF"><formname="form1"method="post"action=""><tablewidth="100%"border="0"cellspacing="1"cellpadding="1">
<tr>

<tdheight="36"><divalign="center">www.
<inputtype="text"name="domain">
<selectname="root"id="select">
<optionvalue="cn"selected>.cn</option>
<optionvalue="com">.com</option>
<optionvalue="net">.net</option>
<optionvalue="org">.org</option>
<optionvalue="com.cn">.com.cn</option>
<optionvalue="net.cn">.net.cn</option>
<optionvalue="gov.cn">.gov.cn</option>
</select>
</div></td>

</tr>
<tr>
<tdheight="35">
<divalign="center">
<inputtype="submit"name="Submit"value="查询">
</div>
<divalign="center"></div></td>
</tr>
</table></form></td>
</tr>
</table>
<palign="center"></p>
<tablewidth="40%"border="0"align="center"cellpadding="5"cellspacing="1"bgcolor="#999999">
<tr>
<tdheight="42"bgcolor="#FFFFFF">
<FORMname=search_formaction=http://search.sohu.com/webmethod=gettarget=_blank>
<divalign="center">
<inputtype="hidden"name="pid"value="hljec">
<inputname="query"type="text"style="font-size:14px;width:150"value="好域名">
<inputtype="submit"name="ss"value="检察"onclick=document.search_form.action=http://search.sohu.com/webstyle="font-size:14px;width=40;height=20">
</div>
</FORM></td>
</tr>
</table>

代码我已在当地测试过了。一般经由过程。
想法是和程序员的想法不一样的.至于为什么.大家去想一想.跟心理学有关的

只想知道 发表于 2015-1-19 21:45:07

用户端的浏览器不需要提供任何别的支持,这样大提高了用户与服务器之间的交互的速度。

灵魂腐蚀 发表于 2015-1-25 17:52:21

尽管MS自己讲C#内核中更多的象VC,但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言,而不是一种脚本,所以它具有面向对象编程语言的一切特性,比如封装性、继承性、多态性等等,这就解决了刚才谈到的ASP的那些弱点。

活着的死人 发表于 2015-2-3 12:19:24

学习ASP其实应该上升到如何学习程序设计这种境界,其实学习程序设计又是接受一种编程思想。比如ASP如何学习,你也许在以前的学习中碰到过。以下我仔细给你说几点:

乐观 发表于 2015-2-8 22:48:48

运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改,找出你觉得可以提高性能的地方,加上自己的设计,那就更上一个层次了,也就会真正地感到有所收获。

简单生活 发表于 2015-2-26 11:52:28

多看多学多思。多看一些关于ASP的书籍,一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人,向同学老师多多学习,不论知识的大小;多思则是要将学到的知识灵活运用。

仓酷云 发表于 2015-3-8 14:41:44

虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家,只是从一个例子告诉你怎么用。不会深入讨论,更不会将没有出现在例子里的方法都一一列举出来。

愤怒的大鸟 发表于 2015-3-16 02:17:39

还有如何才能在最短的时间内学完?我每天可以有效学习2小时,双休日4小时。

柔情似水 发表于 2015-3-22 18:54:51

封装性使得代码逻辑清晰,易于管理,并且应用到ASP.Net上就可以使业务逻辑和Html页面分离,这样无论页面原型如何改变,业务逻辑代码都不必做任何改动;继承性和多态性使得代码的可重用性大大提高。
页: [1]
查看完整版本: ASP编程:老手初练:用ASP做一个域名查询体系