addfolder.asp

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

ASP

75 行

<%
'┌─  风云ASP在线  ────────────────────────┐
'│                                                                 │
'│  作者：赵振波.	http://www.fyasp.com	    				    │
'│                                                                 │
'│   Q Q：176189168  										   	    │
'│                                                                 │
'│ Email：fy96@163.com                                             │
'│                                                                 │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│                                                                 │
'│【版权声明】                                                     │
'│                                                                 │
'│     本程序版权归坐看风云所有，未经授权擅自修改、复制或散布本程序│
'│                                                                 │
'│的部分或全部，将承受严厉的民事和刑事处罚，对已知的违反者将给予法 │
'│                                                                 │
'│律范围内的全面制裁。对非法使用此程序所造成的一切后果本人概不负责!│
'│                                                                 │
'└───────────────────  http://www.fyasp.com ──┘
%><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" -->
<%
NowPath=Request("NowPath")
WorkType=Request("WorkType")
AddFolder Request("Floder"),NowPath   '55是我赋给Function AddFolder(str,parent,user)里面user的值
%>
<%
'###########添加目录
Function AddFolder(str,parent)
	Sql="Select * From FileLibrary Where Title='"& str &"' And Parent='"& Parent &"' And [Type]=1"
	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")=str
	Rs("UpdateTime")=Now
	Rs("Type")=1
	Rs("Parent")=Parent
	Rs.Update()
	Rs.Close
	Set Rs=Nothing
	conn.close
	Set Conn=Nothing
	
	Response.Write "<SCRIPT LANGUAGE='JavaScript'>"
	Response.Write "opener.Ref();window.close();"
	Response.Write "</SCRIPT>"

End Function
%>
</body>
</html>

addfolder.asp - 源码说明

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

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

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?