addfile.asp

来自「房地产管理系统 vb写的,很不错!!!!!!!!!!!」· ASP 代码 · 共 98 行

ASP
98 行
字号 
<html>
<head>
<title>添加文件</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<!--#include file="Inc.asp" -->
<!--#include file="ConnectDB.asp" -->
<!--#include file="fupload.inc" -->
<!--#include file="Config.asp" -->
<%
AddFile()
%>
</body>
</html>
<%
'###########添加文件
Function AddFile()
	Dim Fields
	UploadSizeLimit=File_MaxSize
	Set Fields = GetUpload()
	If FileSizeOut=true Then
		Response.Write "<SCRIPT LANGUAGE='JavaScript'>"
		Response.Write "alert('失败，文件过大！');"
		Response.Write "window.history.back();"
		Response.Write "</SCRIPT>"		
		Exit Function
	End If
	Dim pID,Title,Parent,File,fName,fType,fValue
	For Each Field In Fields.Items
		Select Case Field.name
			Case "Title"
				Title=BinaryToString(Field.value)
			Case "NowPath"
				Parent=BinaryToString(Field.value)
			Case "file"
				fName=Field.FileName
				fType=Field.ContentType
				fValue=Field.value
		End Select
	next


	'判断文件类型是否允许
	If Instr(LCase(TypeOfFile_Enable),LCase(GetEx(fName)))=0 Then
		Response.Write "<SCRIPT LANGUAGE='JavaScript'>"
		Response.Write "alert('不允许上传此类型的文件！');"
		Response.Write "window.history.back();"
		Response.Write "</SCRIPT>"		
		Conn.Close()
		Set Conn=Nothing
		Exit Function
	End If

	Sql="Select Top 1 * From FileLibrary Where Title='"& Title &"' And Parent='"& Parent &"' And [Type]=0"
	Set Rs=Conn.ExeCute(Sql)
	If Not (Rs.Eof And Rs.Bof) Then
		Response.Write "<SCRIPT LANGUAGE='JavaScript'>"
		Response.Write "alert('已有相同文件存在！');"
		Response.Write "window.history.back();"
		Response.Write "</SCRIPT>"		
		Conn.Close()
		Set Conn=Nothing
		Exit Function
	End If

	set Rs=server.createobject("adodb.recordset")
	Sql="Select Top 1 * From FileLibrary"
	Rs.open Sql,conn,1,3
	Rs.AddNew

	Rs("pID")=Create_id(Now)
	Rs("Title")=Title
	Rs("UpdateTime")=Now
	Rs("Type")=0
	Rs("Parent")=Parent
	Rs("ContentType")=fType
	Rs("FileName")=fName

	If fName<>"" Then
		Rs("Data").appendchunk fValue
	End If

	Rs.Update()
	Rs.Close
	Set Rs=Nothing
	conn.close
	Set Conn=Nothing
%>
<SCRIPT LANGUAGE="JavaScript">
<!--
	opener.Ref();
	window.close();
//-->
</SCRIPT>
<%
End Function
%>

addfile.asp - 源码说明

本页面展示了「房地产管理系统 vb写的,很不错!!!!!!!!!!!」中的 addfile.asp 源码文件，采用 ASP 编程语言编写，共 98 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与房地产相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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