📄 attachment.asp

📁 一套非常实用的博客源代码,功能全,界面简单易用.

💻 ASP

字号:

<!--#include file="commond.asp" -->
<!--#include file="include/function.asp" -->
<!--#include file="include/upload.inc" -->
<%On Error Resume Next%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<style type="text/css">
<!--
body {
	font-size: 12px;
	font-family: Tahoma, Verdana, "瀹嬩綋";
}
table {
	font-family: Tahoma, Verdana, "瀹嬩綋";
	color: #000000;
	font-size: 12px;
	word-break : break-all ;
}
a:link,a:visited {
	text-decoration: none;
	color: #003366;
	font-family: Tahoma, Verdana, "瀹嬩綋";
}
a:hover {
	text-decoration: none;
	color:#FF0000;
	font-family: Tahoma, Verdana, "瀹嬩綋";
}
textarea,input,object	{ 
	font-family: Tahoma, Verdana, "瀹嬩綋"; 
	font-size: 12px;  
	color: #000000; 
	font-weight: normal; 
	background-color: #FFFFFF 
}
-->
</style>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF">
<tr><%
Server.ScriptTimeOut = 999
If (memName<>Empty And MemCanUP=1) Or (memStatus="SupAdmin" Or memStatus="Admin") Then
	Dim UP_FileType,UP_FileSize
	If memStatus="SupAdmin" Or memStatus="Admin" Then
		UP_FileType=Adm_UP_FileType
		UP_FileSize=Adm_UP_FileSize
	Else
		UP_FileType=Mem_UP_FileType
		UP_FileSize=Mem_UP_FileSize
	End If
	IF Request.QueryString("action")="upload" Then
		Response.Write("<td>")
		Dim FSO,FSOIsOK
		FSOIsOK=1
		Set FSO=Server.CreateObject("Scripting.FileSystemObject")
		If Err<>0 Then
			Err.Clear
			FSOIsOK=0
		End If
		Dim D_Name,F_Name
		If FSOIsOK=1 Then
			D_Name="month_"&DateToStr(Now(),"ym")
			If FSO.FolderExists(Server.MapPath("attachments/"&D_Name))=False Then
				FSO.CreateFolder Server.MapPath("attachments/"&D_Name)
			End If
		Else
			D_Name="All_Files"
		End If
		Set FSO=Nothing
		Dim FileUP
		Set FileUP=New Upload_File
		FileUP.GetDate(-1)
		Dim F_File,F_FileType,F_FileName
		Set F_File=FileUP.File("File")
		F_FileName = F_File.FileName
		F_FileType = Ucase(F_File.FileExt)
		IF F_File.FileSize > Int(UP_FileSize) Then
			Response.Write("<a href='javascript:history.go(-1);'>鏂囦欢澶у皬瓒呭嚭锛岃

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -