复制代码 代码如下:<% Dim Domain Set Domain = New Cls_DomainFunctionClass Cls_DomainFunction Private vListURL Private Thief_ Private vDomainArr, vDomainName Private vLoopI Private vDomainsName, vDomainMainBody Private TLDCode Private Rs, Sql Private ExtraDataArr Private WhoisArr, WhoisCreationDate, WhoisExpirationDate, WhoisORG, WhoisName, WhoisBaiduSite, WhoisBaiduBody, WhoisPageRank Public SqlQueryLengthID, SqlQueryComposeTypeID, SqlQueryTLDID, SqlOrderByID Private SqlQueryLength, SqlQueryComposeType, SqlQueryTLD, SqlOrderBy Public Function GetDomainList(vListID) Select Case vListID Case 1 : vListURL = "http://www.cnnic.net.cn/download/registar_list/pendingDel.txt" Case 2 : vListURL = "http://www.cnnic.net.cn/download/registar_list/future2todayDel.txt" Case 3 : vListURL = "http://www.cnnic.net.cn/download/registar_list/future1todayDel.txt" Case 4 : vListURL = "http://www.cnnic.net.cn/download/registar_list/1todayDel.txt" Case 5 : vListURL = "http://www.cnnic.net.cn/download/registar_list/2todayDel.txt" Case 6 : vListURL = "http://www.cnnic.net.cn/download/registar_list/3todayDel.txt" Case Else : vListURL = "http://www.cnnic.net.cn/download/registar_list/future1todayDel.txt" End Select Set Thief_ = New Cls_Thief Thief_.Source = vListURL Thief_.Steal vDomainArr = Split(Thief_.Value, vbLf) Set Thief_ = Nothing If UBound(vDomainArr) < 2 Then Call Cmd.OutputJavaInfo("CNNIC最新数据库尚未发布。") Call ConnDB() For vLoopI = 0 To UBound(vDomainArr) vDomainsName = LCase(vDomainArr(vLoopI)) If Instr(vDomainsName, ".") > 0 Then vDomainMainBody = Split(vDomainsName, ".")(0) Conn.Execute("INSERT INTO [CNDomainList](DomainName, Body, Length, ComposeType, TLD) VALUES('" & vDomainsName & "', '" & vDomainMainBody & "', " & Len(vDomainMainBody) & ", " & GetDomainComposeType(vDomainMainBody) & ", " & GetDomainLTD(vDomainsName) & ")") End If Next Call DisconnDB() Call CompactDataBase(vDatabasePath, False) End Function Public Function ClearUpDatabase() Call ConnDB() Conn.Execute("DELETE * FROM [CNDomainList]") Call DisconnDB() Call CompactDataBase(vDatabasePath, False) End Function Private Function GetDomainComposeType(DomainName) If Cmd.IsAlpha(DomainName) Then GetDomainComposeType=1 ElseIf Cmd.IsDigit(DomainName) Then GetDomainComposeType=2 ElseIf Cmd.IsAlphaDigit(DomainName) Then GetDomainComposeType=3 Else GetDomainComposeType=4 End If End Function Private Function GetDomainLTD(DomainName) If UBound(Split(DomainName, ".")) > 1 Then Select Case Split(DomainName, ".")(1) Case "com" TLDCode = 10011 Case "net" TLDCode = 10021 Case "org" TLDCode = 10051 Case "gov" TLDCode = 10061 Case "ac" TLDCode = 10071 Case Else TLDCode = 10041 End Select Else TLDCode = 10001 End If GetDomainLTD = TLDCode End Function Private Sub CompactDataBase(DataBasePath, boolIs97) On Error Resume Next Dim Fso, Engine, strDataBasePath,JET_3X strDataBasePath = Left(DataBasePath,InstrRev(DataBasePath,"")) Set Fso = CreateObject("Scripting.FileSystemObject") If Err.Number <> 0 Then Err.Clear() Exit Sub End If If Fso.FileExists(DataBasePath) Then Fso.CopyFile DataBasePath,strDataBasePath & "CompactDBTemp.mdb" Set Engine = CreateObject("JRO.JetEngine") If BoolIs97 = "True" Then Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDataBasePath & "CompactDBTemp.mdb", _ "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDataBasePath & "CompactDBTemp1.mdb;" _ & "Jet OLEDB:Engine Type=" & JET_3X Else Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDataBasePath & "CompactDBTemp.mdb", _ "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDataBasePath & "CompactDBTemp1.mdb" End If Fso.CopyFile strDataBasePath & "CompactDBTemp1.mdb",DataBasePath Fso.DeleteFile(strDataBasePath & "CompactDBTemp.mdb") Fso.DeleteFile(strDataBasePath & "CompactDBTemp1.mdb") Set Fso = nothing Set Engine = nothing If Err.Number <> 0 Then Err.Clear() Exit Sub End If End If End Sub End Class %>

　　推荐阅读

　　关于静态页生成问题 突破form数量限制

我们知道生成静态页，一般用模板的方式，这个我是会的，现在我想直接将ASP文件生成的HTML代码存成静态页，这个非常适合做首页，于时我在网上找这方面的内容，找到这个：《不用模板只用ASP+FSO生成静态HTML页的一个>>>详细阅读

本文标题：域名查询系统用到的类

地址：http://www.17bianji.com/kaifa2/ASP/33099.html

 1/2    1