日期:2009-12-14 浏览次数:20835 次
- <%
- 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=