savebeyondfile.asp

SK信息采集2.0功能介绍: 1.可针对任何静态网页,动态网页进行采集。包括htm,html,shtml,ASP,ASPX,JSP,PHP等。 2.增加自定文件采集.用户可采集网页中的所有文件.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../../Conn.asp"-->
<!--#include file="../../SysCls/KS_CommonCls.asp"-->
<!--#include file="../Inc/Session.asp"-->
<link href="../Inc/ModeWindow.css" rel="stylesheet" type="text/css">
<%
Dim KSCMS:Set KSCMS=New CommonCls
Dim Wjj,BH,ext,fname,ItemName
ItemName=KSCMS.G("ItemName")
 if KSCMS.G("wjj")<>"" Then
  Wjj=KSCMS.G("WJJ")
 ELSE
  bh=year(date) & right("00"&month(date),2)
  wjj=request("CurrPath") & "/"& bh & "/"
End If
if request("action")="save" then
  call KSCMS.CreateListFolder(wjj)
  http=trim(request.Form("http"))
  if http="" then
   Response.Write"<script>alert('请输入远程" & ItemName &"地址!');</script>"
   Response.End()
  end if
  ext=right(http,4)
  fname=wjj&year(now)&month(now)&day(now)&hour(now)&second(now)&KSCMS.MakeRandom(5)&ext
  Call KSCMS.SaveBeyondFile(fname,http)
%>
 <script>
    alert('成功保存了远程<%=ItemName%>!');
   window.returnValue='<%=fname%>';
   window.close();
 </script>

<%
  Response.Write("远程" & ItemName &"保存成功!")
end if
%>
<script>
  function document.onreadystatechange()
 {
    document.myform.http.focus();
 }
   window.onunload=SetReturnValue;
	function SetReturnValue()
	{
		if (typeof(window.returnValue)!='string') window.returnValue='';
	}
</script>
<div align="center">
<br>
<form name="myform" action="?action=save" method="post">
<input type="hidden" name="ItemName" value="<%=ItemName%>" />
<input type="hidden" value="<%=wjj%>" name="wjj" />
远程<%=ItemName%>地址：<input type="text" name="http">
<input type="submit" name="Submit" value="开始抓取" onclick="if (document.myform.http.value==''){alert('请输入远程<%=ItemName%>地址！');document.myform.http.focus(); return false;}"><br><br>
形如:<font color=red>http://www.kesion.com/images/logo.gif</font>
</form>
</div>