写的很简单,只是实现了功能 <% Function formaturl(yes) If mid(yes,5,1)<"" then yes1 = left(yes,3) yes2 = right(yes,cint(len(yes))-3) formaturl = yes1 & "." & yes2 else formaturl=yes end if End Function '取得远程网页二进制源代码 Function getBoy(url) 'on error resume next Set objXml = Server.CreateObjec...[ 查看全文 ]
<% On Error Resume Next Server.ScriptTimeOut=9999999 Function getHTTPPage(Path) t = GetBody(Path) getHTTPPage=BytesToBstr(t,"GB2312") End function Function GetBody(url) on error resume next Set Retrieval = CreateObject("Microsoft....[ 查看全文 ]
随手写个注册域名程序,你自己可以扩展,这只是三位字母的。 <% '制作:默飞 'asp程序制作:http://mofei.xinxiu.com b1="a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z" b2=split(b1,",") for ii1=0 to ubound(b2) for ii2=0 to ubound(b2) for ii3=0 to ubound(b2) response.write b2(ii1)&b2(ii2)&b2(ii3)&".com<br"...[ 查看全文 ]