<%
if trim(request.form("url"))<>"" then
dim VBody:VBody=GetResStr(trim(request.form("url")))
dim Res:Res=VBody
dim code:code=GetCode(VBody,"charset= {0,}([^ ]+) {0,}""")
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>抓取頁面</title>
</head>
<body style="font-size:12px;margin:50px 0 0 20px;">
<form name="geturl" action="ss.asp" method="post">
請輸入%20name=" type=text value="<%=trim(request.form(" P >>< <input > url?))%>? size="60" url?>
</form>
頁面編碼:<%=code%> <br />
<textarea cols=150 rows=30><%=Res%></textarea>
</body>
</html>
<%
function GetResStr(URL)
dim ResBody,ResStr,PageCode
新聞熱點
疑難解答
