asp抓取页-面的代码

2019-11-02 14:30:41

字体：大中小

来源：转载

供稿：网友

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