📄 attachment.asp

📁 1、日志增加首页显示调用index_show.asp 2、日志增加用户的修改和删除权利 3、日志增加文件上传大小修改和限制 4、时间的动态修改 5、增加日志的日志推荐功能 6、用户的ip查询
💻 ASP
字号:
<!--#include file="commond.asp" -->
<!--#include file="include/function.asp" -->
<!--#include file="include/upload.asp" -->
<%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 (memStatus<>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);'>文件大小超出，请返回重新上传</a>")
		ElseIF IsvalidFileName(F_FileName) = False Then
			Response.Write("<a href='javascript:history.go(-1);'>文件名称非法，请返回重新上传</a>")
		ElseIF IsvalidFileExt(F_FileType) = False Then
			Response.Write("<a href='javascript:history.go(-1);'>文件格式非法，请返回重新上传</a>")
		Else
			F_Name=Generator(4)&"_"&F_FileName
			F_File.SaveToFile Server.MapPath("attachments/"&D_Name&"/"&F_Name)
			Select Case F_FileType
			Case "GIF"
				Response.Write("<SCRIPT>parent.input.message.value+='\n[img]attachments/"&D_Name&"/"&F_Name&"[/img]'</SCRIPT>")
			Case "JPG"
				Response.Write("<SCRIPT>parent.input.message.value+='\n[img]attachments/"&D_Name&"/"&F_Name&"[/img]'</SCRIPT>")
			Case "JPEG"
				Response.Write("<SCRIPT>parent.input.message.value+='\n[img]attachments/"&D_Name&"/"&F_Name&"[/img]'</SCRIPT>")
			Case "PNG"
				Response.Write("<SCRIPT>parent.input.message.value+='\n[img]attachments/"&D_Name&"/"&F_Name&"[/img]'</SCRIPT>")
			Case "SWF"
				Response.Write("<SCRIPT>parent.input.message.value+='\n[swf]attachments/"&D_Name&"/"&F_Name&"[/swf]'</SCRIPT>")
			Case "WMA"
				Response.Write("<SCRIPT>parent.input.message.value+='\n[wma]attachments/"&D_Name&"/"&F_Name&"[/wma]'</SCRIPT>")
			Case "MP3"
				Response.Write("<SCRIPT>parent.input.message.value+='\n[wma]attachments/"&D_Name&"/"&F_Name&"[/wma]'</SCRIPT>")
			Case "MIDI"
				Response.Write("<SCRIPT>parent.input.message.value+='\n[mid]attachments/"&D_Name&"/"&F_Name&"[/mid]'</SCRIPT>")
			Case "AVI"
				Response.Write("<SCRIPT>parent.input.message.value+='\n[wmv]attachments/"&D_Name&"/"&F_Name&"[/wmv]'</SCRIPT>")
			Case "WMV"
				Response.Write("<SCRIPT>parent.input.message.value+='\n[wmv]attachments/"&D_Name&"/"&F_Name&"[/wmv]'</SCRIPT>")
			Case "RA"
				Response.Write("<SCRIPT>parent.input.message.value+='\n[ra]attachments/"&D_Name&"/"&F_Name&"[/ra]'</SCRIPT>")
			Case "RM"
				Response.Write("<SCRIPT>parent.input.message.value+='\n[rm]attachments/"&D_Name&"/"&F_Name&"[/rm]'</SCRIPT>")
			Case "RMVB"
				Response.Write("<SCRIPT>parent.input.message.value+='\n[rm]attachments/"&D_Name&"/"&F_Name&"[/rm]'</SCRIPT>")
			Case "MOV"
				Response.Write("<SCRIPT>parent.input.message.value+='\n[qt]attachments/"&D_Name&"/"&F_Name&"[/qt]'</SCRIPT>")
			Case Else
				Response.Write("<SCRIPT>parent.input.message.value+='\n[down=attachments/"&D_Name&"/"&F_Name&"]点击下载此文件[/down]'</SCRIPT>")
			End Select
			Response.Write("<SCRIPT>parent.input.message.focus()</SCRIPT><a href='javascript:history.go(-1);'>文件上传成功，请返回继续上传</a><meta http-equiv='refresh' content='1;url=attachment.asp'>")
		End IF
		Set F_File=Nothing
		Set FileUP=Nothing
		Response.Write("</td>")
	Else
		Response.Write("<form enctype=""multipart/form-data"" method=""post"" action=""attachment.asp?action=upload""><td><input name=""File"" type=""File"" size=""50"">&nbsp;<input type=""Submit"" name=""Submit"" value="" 确定上传 ""></td></form>")
	End IF
Else
	Response.Write("对不起，你没有权限上传附件！")
End  If

Function IsvalidFileName(File_Name)
	IsvalidFileName = False
	Dim re,reStr
	Set re=new RegExp
	re.IgnoreCase =True
	re.Global=True
	re.Pattern="[^_\.a-zA-Z\d]"
	reStr=re.Replace(File_Name,"")
	If File_Name = reStr Then IsvalidFileName=True
	Set re=Nothing
End Function

Function IsvalidFileExt(File_Type)
	Dim GName,UP_FileTypeArr
	UP_FileTypeArr=Split(UP_FileType,",")
	IsvalidFileExt = False
	For Each GName In UP_FileTypeArr
		If File_Type = GName Then
			IsvalidFileExt = True
			Exit For
		End If
	Next
End Function

%></tr></table></body>
⌨️ 快捷键说明

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