actionselect.asp

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

<!--#include file="ConnectDB.asp" -->
<!--#include file="Inc.asp" --><%
'┌─  风云ASP在线  ────────────────────────┐
'│                                                                 │
'│  作者：赵振波.	http://www.fyasp.com	    				    │
'│                                                                 │
'│   Q Q：176189168  										   	    │
'│                                                                 │
'│ Email：[e-mail]                                             │
'│                                                                 │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│                                                                 │
'│【版权声明】                                                     │
'│                                                                 │
'│     本程序版权归坐看风云所有，未经授权擅自修改、复制或散布本程序│
'│                                                                 │
'│的部分或全部，将承受严厉的民事和刑事处罚，对已知的违反者将给予法 │
'│                                                                 │
'│律范围内的全面制裁。对非法使用此程序所造成的一切后果本人概不负责!│
'│                                                                 │
'└───────────────────  http://www.fyasp.com ──┘
%>
<%
WorkType=Request("WorkType")
Select Case WorkType
	Case "Del"
		DelSelect()
	Case "ChangeTitle"
		ChangeTitle()
End Select


'####删除文件或目录
Function DelSelect()
	pID=Request("pID")
	If pID="" Then
		Response.Write "<SCRIPT LANGUAGE='JavaScript'>"
		Response.Write "alert('没有任何对象被选中！');"
		Response.Write "window.history.back();"
		Response.Write "</SCRIPT>"
	Else
		arr=Split(pID,",",-1,1)
		For I=0 To UBound(arr)
			Conn.ExeCute("Delete * From FileLibrary Where Parent='"&Trim(arr(I))&"'")
			Conn.ExeCute("Delete * From FileLibrary Where pID='"&Trim(arr(I))&"'")
		Next
		Response.Write "<SCRIPT LANGUAGE='JavaScript'>"
		Response.Write "top.Ref();"
		Response.Write "</SCRIPT>"
	End If
	Conn.close()
	Set Conn=Nothing

End Function

'####更改文件\目录名
Function ChangeTitle()
	pID=Trim(Request("pID"))
	If pID="" 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
	If Request("NewTitle")<>"" Then
		'是否存在相同目录/文件
		Sql="Select Top 1 FL.title From FileLibrary FL Where FL.Title='"& Request("NewTitle") &"' And Fl.pID<>'"&pID&"' And FL.[Type]=(Select Fl1.[Type] From FileLibrary Fl1 Where Fl1.pID='"&pID&"') And FL.[Parent]=(Select Fl2.[Parent] From FileLibrary Fl2 Where Fl2.pID='"&pID&"')"
'		Response.write Sql
'		Response.End
		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
		'更新
		Conn.ExeCute("Update FileLibrary Set Title='"&Request("NewTitle")&"' Where pID='"&pID&"'")
		Conn.close()
		Set Conn=Nothing

		Response.Write "<SCRIPT LANGUAGE='JavaScript'>"
		Response.Write "top.Ref();"
		Response.Write "window.close();"
		Response.Write "</SCRIPT>"

		Exit Function
	End If

	arr=Split(pID)
	If Ubound(arr)>=1 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
		Response.Write "<SCRIPT LANGUAGE='JavaScript'>"
		Response.Write "var new_title=prompt('输入文件/目录的新[标题]:','');"
		Response.Write "if(new_title=='' || new_title==null)"
		Response.Write "{"
		Response.Write "	alert('操作失败！');"
		Response.Write "	window.history.back();"
		Response.Write "}else{"
		Response.Write "	window.location='ActionSelect.asp?pID="&arr(0)&"&WorkType=ChangeTitle&NewTitle='+new_title;"
		Response.Write "}"
		Response.Write "</SCRIPT>"
		Conn.close()
		Set Conn=Nothing
End Function
%>