DomainName =	Request.ServerVariables("SERVER_NAME")
'=============================================================================================
Function SearchUrl(VirtualUrl)
	SQL="Select * From "&application("VirtualDomainName")&" Where VirtualUrl='"&VirtualUrl&"'"
    RS.Open SQL,DSNinfo
    
	MyUrl =	RTrim(RS("Address").Value)
	MyTitle =	RS("Title").Value
	IF RS.EOF AND RS.BOF Then
		response.redirect "404.htm"
	Else
		IF RS("Enable").Value = True Then
			IF  RS("HideUrl").Value = True Then
				Call HideUrl(MyUrl,MyTitle)
			Else 
				response.redirect MyUrl
			End IF
		Else
			response.redirect "Error.htm"
		End IF
	End IF

	RS.Close
	Set RS=nothing
End Function

Function HideUrl(Url,Title)
	Response.write ("<html><title>")
	Response.write (Title)
	Response.write ("</title><meta http-equiv='Content-Type' content='text/html; charset=gb2312'>")
	Response.write ("</head>")
	Response.write ("<frameset border=0 rows='0,*' cols='*' frameBorder=NO frameSpacing=0>")
 	Response.write ("<frame src='netkiller.asp' frameborder='NO' noResize scrolling=no>")
	Response.write ("<frame src='"&Url&"'>")
	Response.write ("</frameset>")
	Response.write ("</html>")
End Function

'=============================================================================================
SearchUrl(DomainName)
'==============================================================================================