⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 insertupfile.asp

📁 SK信息采集2.0功能介绍: 1.可针对任何静态网页,动态网页进行采集。包括htm,html,shtml,ASP,ASPX,JSP,PHP等。 2.增加自定文件采集.用户可采集网页中的所有文件.
💻 ASP
字号:
🔍 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<!--#include file="../Conn.asp"-->
<!--#include file="../SysCls/KS_CommonCls.asp"-->
<!--#include file="../Inc/Session1.asp"-->
<%
'===================================================================================================================
'软件名称：科汛网站管理系统
'当前版本：科汛网站管理系统 V2.2 SP2 Free
'Copyright (C) 2006-2008 Kesion.Com  All rights reserved.
'产品咨询QQ：9537636,41904294
'技术支持QQ：111394,54004407 
'程序版权：科汛网络
'程序开发：科汛网络开发组（总策划：林文仲）
'E-Mail  :kesioncms@hotmail.com webmaster@kesion.com
'官方网站：http://www.kesion.com  
'演示站点：http://test.kesion.com 
'郑重声明:
'    ①、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
'    ②、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
'    ③、科汛网络保留此软件的法律追究权利
'===================================================================================================================
Response.Buffer = True 
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1 
Response.Expires = 0 
Response.CacheControl = "no-cache" 
Dim KSCls
Set KSCls = New InsertUpfile
KSCls.Execute()
Set KSCls = Nothing

Class InsertUpfile
        Private KSCMS
		Private AdminDir
		Private ChannelID
		Private FromUrl,AllowUpFilesType
        Private CurrPath,InstallDir
		Private Sub Class_Initialize()
		  Set KSCMS=New CommonCls
		End Sub
        Private Sub Class_Terminate()
		 Set KSCMS=Nothing
		End Sub
        Public Sub Execute()
			FromUrl=KSCMS.G("FromUrl")
	
	       IF FromUrl=1 Then  '后台调用，检查是否登录
				Dim KSLoginCls
				Set KSLoginCls = New LoginCheckCls1
				KSLoginCls.Execute()
				Set KSLoginCls= Nothing
			End IF

			ChannelID = KSCMS.G("ChannelID")
			AllowUpFilesType=KSCMS.ReturnChannelAllowUpFilesType(1,0)
			CurrPath=KSCMS.ReturnChannelUpFilesDir(ChannelID)
			InstallDir=KSCMS.GetConfig("InstallDir")
			AdminDir=InstallDir & KSCMS.GetConfig("AdminDir")
			Set KSCMS=Nothing
			%>
<HTML>
<HEAD>
<TITLE>插入附件下载</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Editor.css" rel="stylesheet" type="text/css">
<script language="JavaScript" src="../inc/Common.js"></script>
<script language="JavaScript">
function OK()
{

  var str1="";
  var strurl=document.UpfileForm.url.value;
  var sFilePic = getFilePic(strurl);
  if (!IsExt(strurl,'<%=AllowUpFilesType%>'))
  {
	  alert('文件类型不对，请重新选择！');
	  return;
  }
  if (strurl==""||strurl=="http://")
  {
  	alert("请先输入附件地址，或者上传附件！");
	document.UpfileForm.url.focus();
	return false;
  }
  else
  {
    str1="<img border=0 src='<%=InstallDir%>syscls/FileIcon/"+sFilePic+"'> <A href="+document.UpfileForm.url.value+" class='newsContent'>"+document.UpfileForm.title.value+"</A>"
    window.returnValue = str1+"$$$"+document.UpfileForm.UpFileName.value;
    window.close();
  }
}

function IsExt(url,opt)
{  
	var sTemp; 
	var b=false; 
	var s=opt.toUpperCase().split("|");  
	for (var i=0;i<s.length ;i++ ) 
	{ 
		sTemp=url.substr(url.length-s[i].length-1); 
		sTemp=sTemp.toUpperCase();
		s[i]="."+s[i];
		if (s[i]==sTemp)
		{
			b=true;
			break;
		}
	}
	return b;
}

function IsDigit()
{
  return ((event.keyCode >= 48) && (event.keyCode <= 57));
}
window.onunload=SetReturnValue;
function SetReturnValue()
{
	if (typeof(window.returnValue)!='string') window.returnValue='';
}
// 按文件扩展名取图，并产生链接
function getFilePic(url)
{
	var sExt;
	sExt=url.substr(url.lastIndexOf(".")+1);
	sExt=sExt.toUpperCase();
	var sPicName;
	switch(sExt)
	{
	case "TXT":
		sPicName = "txt.gif";
		break;
	case "CHM":
	case "HLP":
		sPicName = "hlp.gif";
		break;
	case "DOC":
		sPicName = "doc.gif";
		break;
	case "PDF":
		sPicName = "pdf.gif";
		break;
	case "MDB":
		sPicName = "mdb.gif";
		break;
	case "GIF":
		sPicName = "gif.gif";
		break;
	case "JPG":
		sPicName = "jpg.gif";
		break;
	case "BMP":
		sPicName = "bmp.gif";
		break;
	case "PNG":
		sPicName = "pic.gif";
		break;
	case "ASP":
	case "JSP":
	case "JS":
	case "PHP":
	case "PHP3":
	case "ASPX":
		sPicName = "code.gif";
		break;
	case "HTM":
	case "HTML":
	case "SHTML":
		sPicName = "htm.gif";
		break;
	case "ZIP":
	case "RAR":
		sPicName = "zip.gif";
		break;
	case "EXE":
		sPicName = "exe.gif";
		break;
	case "AVI":
		sPicName = "avi.gif";
		break;
	case "MPG":
	case "MPEG":
	case "ASF":
		sPicName = "mp.gif";
		break;
	case "RA":
	case "RM":
		sPicName = "rm.gif";
		break;
	case "MP3":
		sPicName = "mp3.gif";
		break;
	case "MID":
	case "MIDI":
		sPicName = "mid.gif";
		break;
	case "WAV":
		sPicName = "audio.gif";
		break;
	case "XLS":
		sPicName = "xls.gif";
		break;
	case "PPT":
	case "PPS":
		sPicName = "ppt.gif";
		break;
	case "SWF":
		sPicName = "swf.gif";
		break;
	default:
		sPicName = "unknow.gif";
		break;
	}
	return sPicName;

}
</script>
</head>
<BODY bgColor=menu topmargin=15 leftmargin=15 >
<form name="UpfileForm" method="post" action="">
  <table width=100% border="0" cellpadding="0" cellspacing="2">
    <tr>
      <td> <FIELDSET align=left>
        <LEGEND align=left>附件参数</LEGEND>
        <TABLE border="0" cellpadding="0" cellspacing="3" >
		  <TR>
            <TD height="17" >名称： <INPUT name="title" id=title value=" 附件下载" size=30>
            </td>
          </TR>
		<TR>
			<TD height="17" >地址： <INPUT name="url" id=url value="http://" size=30 >
				<%if FromUrl=1 Then%>
				<input type="button" name="Button" value="选择附件" onClick="var TempReturnValue=OpenWindow('<%=AdminDir%>Dialog/SelectPic.asp?ChannelID=<% = ChannelID %>&CurrPath=<% = CurrPath %>',500,290,window);if (TempReturnValue!='') document.all.url.value=TempReturnValue" class=Anbutc> 
				<%End If%>
				</td>
		</TR>
          <TR>
            <TD align=center>支持格式为：<%=left(AllowUpFilesType,50)%>等</TD>
          </TR>
        </TABLE>
        </fieldset></td>
      <td width=80 align="center"><input name="cmdOK" type="button" id="cmdOK" value="  确定  " onClick="OK();"> 
        <br> <br>
        <input name="UpFileName" type="hidden" id="UpFileName2" value="None"> 
		<input name="cmdCancel" type=button id="cmdCancel" onClick="window.close();" value='  取消  '></td>
    </tr>
  </table>
</form>
</body>
</html>
<%
  End Sub
End Class
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -