domain.asp

九酷网络个人主页系统破解版

<%
class vdns_cls
	private vdns_server,domain_pass,sendstr,backvalue,messagecode
	
	private sub class_initialize()
		domain_pass="9cool888" '通信密码,可以VDNS.HK的后台设置,多个域名的话把密码设成相同的
		vdns_server="http://www.vdns.hk/api/cmsapi.asp" '接口响应地址,请不要信息,否则无法运行
		messagecode=""
	end sub
	
	private sub class_terminate()
		messagecode=""
	end sub
	
	public property get message()
		message = messagecode
	end property
	
	public function check(byval root,byval user)
		sendstr=vdns_server & "?action=chk&root=" & root & "&pass=" & domain_pass & "&user=" & user & "&rand=" & randomstr(8)
		backvalue=httpsend(sendstr)
		if instr(backvalue,"$$$")>0 then
			check=split(backvalue,"$$$")(0)
			messagecode=split(backvalue,"$$$")(1)
		else
			check=false
			msessagecode="返回数据结构不正确"
		end if
	end function

	public function create(byval root,byval user,byval title,byval url,byval hide)
		url=replace(url, "&", "###")
		sendstr=vdns_server & "?action=add&root=" & root & "&pass=" & domain_pass & "&user=" & user & "&title=" & title & "&url=" & url & "&hide=" & hide & "&rand=" & randomstr(8)
		backvalue=httpsend(sendstr)
		if instr(backvalue,"$$$")>0 then
			create=split(backvalue,"$$$")(0)
			messagecode=split(backvalue,"$$$")(1)
		else
			create=false
			msessagecode="返回数据结构不正确"
		end if
	end function

	public function modify(byval root,byval user,byval title,byval url,byval hide)
		url=replace(url, "&", "###")
		sendstr=vdns_server & "?action=mod&root=" & root & "&pass=" & domain_pass & "&user=" & user & "&title=" & title & "&url=" & url & "&hide=" & hide & "&rand=" & randomstr(8)
		backvalue=httpsend(sendstr)
		if instr(backvalue,"$$$")>0 then
			modify=split(backvalue,"$$$")(0)
			messagecode=split(backvalue,"$$$")(1)
		else
			modify=false
			msessagecode="返回数据结构不正确"
		end if
	end function

	public function delete(byval root,byval user)
		sendstr=vdns_server & "?action=del&root=" & root & "&pass=" & domain_pass & "&user=" & user & "&rand=" & randomstr(8)
		backvalue=httpsend(sendstr)
		if instr(backvalue,"$$$")>0 then
			delete=split(backvalue,"$$$")(0)
			messagecode=split(backvalue,"$$$")(1)
		else
			delete=false
			msessagecode="返回数据结构不正确"
		end if
	end function
	
	public function test()
		response.write httpsend(vdns_server & "?action=test")
	end function
	
	public function httpsend(httpurl)
		dim xml,stringreturn,issuccess,bytesstream
		set xml=createobject(getxmlhttp)
		xml.open "GET", httpurl, false
		xml.send
		issuccess=xml.responsebody
		set xml=nothing
		set bytesstream=createobject("adod"&"b.s"&"tream")
		bytesstream.type=2
		bytesstream.open
		bytesstream.writeText issuccess
		bytesstream.position=0
		bytesstream.charset="GB2312"
		bytesstream.position=2
		stringreturn=bytesstream.readtext
		bytesstream.close
		httpsend=stringreturn
		set bytesstream=nothing
	end function
	
	function getxmlhttp()
		on error resume next:err.clear
		dim tempobj
		getxmlhttp="Microsof" & "t.X" & "MLHTTP"
		set tempobj=server.createobject(getxmlhttp)
		if err then getxmlhttp="Msxml" & "2.X" & "MLHTTP.4.0"
		err.clear
		set tempobj=nothing
	end function

	function randomstr(intlength)
		dim strseed,seedlength,pos,str,i
		strseed="abcdefghijklmnopqrstuvwxyz1234567890"
		seedlength=len(strseed)
		str=""
		randomize
		for i=1 to intlength
			str=str+mid(strseed,int(seedlength*rnd)+1,1)
		next
		randomstr=str
	end function
end class
if request("do")="test" then
	dim mytest
	set mytest=new vdns_cls
	mytest.test
	set mytest=nothing
end if
%>