<% @ Language = "vbscript" CODEPAGE = "950"%> <% OPTION Explicit%> <% Function Bytes2bstr (VIN) Strreturn = "" for i = 1 to lenb (vin) thischarcode = ASCB (MIDB (Vin, i , 1)) If ThisCharCode <& H80 Then strReturn = strReturn & Chr (ThisCharCode) Else NextCharCode = AscB (MidB (vIn, i 1,1)) strReturn = strReturn & Chr (CLng (ThisCharCode) * & H100 CInt (NextCharCode) ) i = i 1 End If Next bytes2BSTR = strReturn End Function dim conn dim connStr dim Db Set conn = Server.CreateObject ( "ADODB.Connection") Db = "db.mdb" ConnStr = "Provider = Microsoft.Jet.OLEDB .4.0; Data Source = "& Server.MapPath (Db) conn.open ConnStr dim sql dim rs set rs = server.createobject (" adodb.recordset ") dim obtain Scheckid dim Echeckid dim theID dim getDomain 'domain name dim url, oSend , SourceCode, strReturn, i, ThisCharCode, WhereNS, allLen, WhereNic, get1Nic, WhereBr, getNs2 dim get2Nic, WhereNs1, WhereNs2, getNs1, Lenget2Nic Scheckid = Request ( "Sid") Echeckid = Request ( "Eid") for theID = Scheckid To Echeckid SQL = "SELECT TDOMAIN from Sheet1 Where Id =" & Theid & "RS.Open SQL, CONN, 1, 1 getdomain = rs ("tdomain") 'response.write getdomain & "
" rs.close url = "http://domain.theplanet.net/cgi-bin/domain/lookup/ record_lookup.pl?recordtype=A&recordname="&getDomain&"&optionaldns=203.135.128.1"set oSend = createobject ( "Microsoft.XMLHTTP") SourceCode = oSend.open ( "GET", url, false) oSend.send () SourceCode = bytes2BSTR (Osend.Responsebody)
rem obtain NSWhereNS = Instr (SourceCode, "AUTHORITY SECTION") allLen = Len (SourceCode) get1Nic = Right (SourceCode, allLen-WhereNS-17) WhereBr = Instr (get1Nic, "ADDITIONAL SECTION") if WhereBr <> 0 thenget2Nic = Left (GET1NIC, WHEREBR-6) lenget2nic = len (Get2Nic) WHERENS1 = INSTR (Get2NIC, "NS1") Wherens2 = INSTR (Get2NIC, "NS2") getns2 = Right (Get2NIC, LENGET2NIC-WHERENS2 1) Endiff
SQL = "Update Sheet1 Set 2NS = '" & GetNS2 & "' Where ID =" & Theid & "Conn.execute (SQL)
NextSet RS = Nothing conn.close set conn = NothingSet OSEND = Nothing%>
