ASP教程之域名查询体系--合适老手
楼上说交互性不好，太牵强了吧。在微软提供的一套框架中，利用asp做网站，开发效率高，使用人数少，减少不必要的开销。交互性是互动方式，是有开发人员决定的。查询体系<%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">
<inputn</p>实现规模效益。与传统的用户拥有硬件软件所有权和使用权以及传统的应用服务商提供一对一的服务模式不同，ASP拥有应用系统所有权，用户拥有使用权，应用系统集中放在ASP的数据中心中，集中管理，分散使用，以一对多的租赁的形式为众多用户提供有品质保证的应用技术服务，实现规模效益。 运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。 运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。 如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助: 完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。 用户端的浏览器不需要提供任何别的支持，这样大提高了用户与服务器之间的交互的速度。 兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的 不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍
页:
[1]