📄 checkuserl.asp

📁 商城程序界面漂亮功能强大欢迎交流共同进步
💻 ASP
📖 第 1 页 / 共 5 页
字号:
		File.Copy (Replace(TestFilePath ,"."&FileBackUpExt ,"."&tmpStr))

		tmpStr = "<script>alert('文件操作成功,请刷新页面查看！');window.close();</script>"
	Else
		tmpStr = "<script>history.go(-2);</script>"
	End If

	FSO.DeleteFile(TestFilePath)
	
	Response.Write tmpStr

	Response.End
End Sub


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 过程名称：FileDelete()
' 功能说明：删除文件
' 创建时间：2003-07-31 13:20
' 修改时间：2003-07-31 13:20
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub FileDelete()
	Dim ParentFolder,FileName
	
	If Len(TestFilePath) <= 0 Then
		StrErr = StrErr & "请先选择文件之后再删除！\n"	
	End If

	If Not FSO.FileExists(TestFilePath) Then
		StrErr = StrErr & "您要删除的文件不存在，请重新选择！\n"	
	End If
	
	CheckStrErr()
	
	Set File = FSO.GetFile(TestFilePath)
	ParentFolder = File.ParentFolder
	FileName = File.Name
	
	On Error Resume Next
	
	If FSO.FileExists(TestFilePath) Then
		FSO.DeleteFile(TestFilePath)
	End If
	
	CheckErr(Err)

	Response.Write("<script>alert('"&FileName&"文件已经被删除!');")
	Response.Write("window.location = '"&Url&"?action=Current&TestFilePath="&Replace(ParentFolder,"\","/")&"'</script>")
	Response.End
End Sub


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 过程名称：FileMove()
' 功能说明：文件的移动
' 创建时间：2003-07-31 13:20
' 修改时间：2003-07-31 13:20
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub FileMove()
	Call fileHead()
	
	If Not FSO.FileExists(TestFilePath) Then
		StrErr = StrErr & "指定的文件不存在，请刷新页面重试！\n"	
	End If
	
	CheckStrErr()

	Set File = FSO.GetFile(TestFilePath)
	ParentFolder = File.ParentFolder

	tmpStr = ""
	tmpStr = tmpStr & "<form action='"&Url&"?action=FileMoveSave' name='form1' method='POST'>"
	tmpStr = tmpStr & "<table border=0 width=480 cellspacing=1 cellpadding=2 align=center>"
	tmpStr = tmpStr & "<th colspan=2>文件移动</th>"
	tmpStr = tmpStr & "<tr><td width=100 align=right><strong>目标地址：</strong></td><td><input type=text value='"&ParentFolder&"' name='MoveToPath' style=width:350px></td></tr>"
	tmpStr = tmpStr & "<tr><td align=right><strong>移动的文件：</strong></td><td><input type=text value='"&TestFilePath&"' name=MoveFile style=width:350px></td></tr>"
	tmpStr = tmpStr & "<tr><td colspan=2 align=center><input type=submit value='移动'>&nbsp;&nbsp;"
	tmpStr = tmpStr & "<input type=reset value='重设'>&nbsp;&nbsp;<input type=button value='关闭' onclick='javascript:window.close();'></td></tr></table></form>"
	
	Response.Write tmpStr
	Response.End

End Sub


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 过程名称：FileMoveSave()
' 功能说明：文件移动的保存
' 创建时间：2003-07-31 13:20
' 修改时间：2003-07-31 13:20
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub FileMoveSave()
	Dim MoveToPath,MoveFile

	MoveToPath  = Trim(Request.Form("MoveToPath"))
	MoveFile    = Trim(Request.Form("MoveFile"))

	If Len(MoveToPath) <= 0 Then
		StrErr = StrErr & "请输入要移动到的目标地址！\n"	
	End If

	If Len(MoveFile) <= 0 Then
		StrErr = StrErr & "请输入要移动的文件！\n"	
	End If

	If Not FSO.FolderExists(MoveToPath) Then
		StrErr = StrErr & "移动的目标地址不存在，请重新选择！\n"	
	End If

	If Not FSO.FileExists(MoveFile) Then
		StrErr = StrErr & "要移动的文件不存在，请重新选择！\n"	
	End If
	
	CheckStrErr()

	Set File = FSO.GetFile(MoveFile)

	If FSO.FileExists(MoveToPath&"\"&File.Name) Then

		Response.Write "<script>"
		Response.Write "  if(confirm('您要移动的文件在目标地址已经存在，请确认是否替换？'))"
		Response.Write "    window.location = '"&Url&"?action=FileMoveSaveQuery&FileMoveSaveOver=1&TestFilePath="&Replace(MoveFile,"\","/")&"&FileMoveToPath="&Replace(MoveToPath,"\","/")&"';"
		Response.Write "  else "
		Response.Write "    window.location = '"&Url&"?action=FileMoveSaveQuery&FileMoveSaveOver=0&TestFilePath="&Replace(MoveFile,"\","/")&"&FileMoveToPath="&Replace(MoveToPath,"\","/")&"';"
		Response.Write "</script>"

		Response.End

	End If

	File.Move (MoveToPath&"\"&File.Name)

	Response.Write("<script>")
	Response.Write("alert('"&File.Name&"文件移动成功,请刷新页面查看！');window.close();</script>")
	Response.End
End Sub


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 过程名称：FileMoveSaveQuery()
' 功能说明：文件的移动的判断
' 创建时间：2003-07-31 13:20
' 修改时间：2003-07-31 13:20
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub FileMoveSaveQuery()
	Dim FileMoveSaveOver,FileMoveToPath

	FileMoveSaveOver  = Trim(Request.QueryString("FileMoveSaveOver"))
	FileMoveToPath    = Trim(Request.QueryString("FileMoveToPath"))
	FileMoveToPath    = Replace(FileMoveToPath,"/","\")
	
	If (Len(TestFilePath) <= 0) or  (Len(FileMoveToPath) <= 0) Then
		StrErr = "系统出现了未知的错误，请重新执行！\n"	
	End If

	If (Not FSO.FileExists(TestFilePath)) or (Not FSO.FolderExists(FileMoveToPath)) Then
		StrErr = "系统出现了未知的错误，请重新执行！\n"	
	End If
	
	CheckStrErr()

	If FileMoveSaveOver = "1" Then
		Set File = FSO.GetFile(TestFilePath)
		File.Copy (FileMoveToPath&"\"&File.Name)
		File.Delete 

		tmpStr = "<script>alert('文件移动成功,请刷新页面查看！');window.close();</script>"
	Else
		tmpStr = "<script>history.go(-2);</script>"
	End If
	
	Response.Write tmpStr

	Response.End

End Sub


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 过程名称：FileReName()
' 功能说明：文件的改名
' 创建时间：2003-07-31 13:20
' 修改时间：2003-07-31 13:20
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub FileReName()
	Call fileHead()
	
	If Not FSO.FileExists(TestFilePath) Then
		StrErr = StrErr & "指定的文件不存在，请刷新页面重试！\n"	
	End If
	
	CheckStrErr()

	Set File = FSO.GetFile(TestFilePath)

	tmpStr = ""
	tmpStr = tmpStr & "<form action='"&Url&"?action=FileReNameSave' name='form1' method='POST'>"
	tmpStr = tmpStr & "<table border=0 width=480 cellspacing=1 cellpadding=2 align=center>"
	tmpStr = tmpStr & "<th colspan=2>文件改名<input type='hidden' name='TestFilePath' value='"&TestFilePath&"'></th>"
	tmpStr = tmpStr & "<tr><td width=100 align=right><strong>原文件名：</strong></td><td><input type=text value='"&File.Name&"' name='FileNameOld' style='width:350px' ReadOnly='True'></td></tr>"
	tmpStr = tmpStr & "<tr><td align=right><strong>目标文件名：</strong></td><td><input type=text value='"&File.Name&"' name='FileNameNew' style=width:350px></td></tr>"
	tmpStr = tmpStr & "<tr><td colspan=2 align=center><input type=submit value='改名'>&nbsp;&nbsp;"
	tmpStr = tmpStr & "<input type=reset value='重设'>&nbsp;&nbsp;<input type=button value='关闭' onclick='javascript:window.close();'></td></tr></table></form>"
	
	Response.Write tmpStr
	Response.End

End Sub


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 过程名称：FileReNameSave()
' 功能说明：文件改名的保存
' 创建时间：2003-07-31 13:20
' 修改时间：2003-07-31 13:20
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub FileReNameSave()
	Dim FileNameOld,FileNameNew,FileNameBackUp,FileBackUpExt

	FileNameOld  = Trim(Request.Form("FileNameOld"))
	FileNameNew  = Trim(Request.Form("FileNameNew"))
	TestFilePath = Trim(Request.Form("TestFilePath"))

	Set File = FSO.GetFile(TestFilePath)
	ParentFolder = File.ParentFolder

	If Len(FileNameOld) <= 0 Then
		StrErr = StrErr & "文件原来的名字不存在，请重新选择！\n"	
	End If

	If Len(FileNameNew) <= 0 Then
		StrErr = StrErr & "请输入要改名的文件！\n"	
	End If

	If Not FSO.FileExists(ParentFolder&"\"&FileNameOld) Then
		StrErr = StrErr & "改名的目标地址不存在，请重新选择！\n"	
	End If

	If FSO.FileExists(ParentFolder&"\"&FileNameNew) Then
		StrErr = StrErr & "目标文件名已经存在，请重新填写！\n"	
	End If
	
	CheckStrErr()

	File.Copy (ParentFolder&"\"&FileNameNew)
	File.Delete

	Response.Write("<script>")
	Response.Write("alert('"&FileNameOld&"文件改名成功,请刷新页面查看！');window.close();</script>")
	Response.End
End Sub


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 过程名称：FileEdit()
' 功能说明：文件的编辑
' 创建时间：2003-07-31 13:20
' 修改时间：2003-07-31 13:20
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub FileEdit()
	Call fileHead()
	Dim tmpState,f,FileDataSet
	
	On Error Resume Next

	Set File = FSO.GetFile(TestFilePath)

	If Not FSO.FileExists(TestFilePath) Then
		StrErr = StrErr & "指定的文件不存在，请刷新页面重试！\n"	
	End If
	
	tmpStr   = Right(File.Name,(Len(File.Name) - Instr(1, File.Name, ".", 0)))
	tmpState = 0

	For i = 0 To Ubound(FileEditExt)
		If LCase(FileEditExt(i)) = LCase(tmpStr) Then
			tmpState = 1
			Exit For
		End If	
	Next
	
	If tmpState = 0 Then
		StrErr = StrErr & "系统不允许编辑这种类型的文件，请重新选择！\n"	
	End If

	If Len(StrErr) > 0 Then
		Response.Write "<script>alert('"&StrErr&"');window.close();</script>"
		Response.End
	End If
	'CheckStrErr()

	Set f = FSO.OpenTextFile(TestFilePath)
	
	CheckErr(Err)
	
	If f.AtEndOfStream Then
		FileDataSet = ""
	Else
		FileDataSet = f.ReadAll
		CheckErr(Err)

	End If

	tmpStr = ""
	tmpStr = tmpStr & "<form action='"&Url&"?action=FileEditSave' name='form1' method='POST'>"
	tmpStr = tmpStr & "<table border=0 width=750 cellspacing=1 cellpadding=2 align=center>"
	tmpStr = tmpStr & "<th colspan=2>文件编辑</th>"
	tmpStr = tmpStr & "<tr><td width=80 align=left><strong>文&nbsp;件&nbsp;名：</strong></td><td><input type=text value='"&TestFilePath&"' name='FileName' style='width:400px' ReadOnly='True'></td></tr>"
	tmpStr = tmpStr & "<tr><td colspan=2 align='left' clospan='2' bgcolor='#DEFDC1'><strong>文件内容：</strong></td></tr>"
	tmpStr = tmpStr & "<tr><td colspan=2><textarea class='input' name='FileContent' rows=25 cols=103 wrap='OFF'>"&FileDataSet&"</textarea></td></tr>"
	tmpStr = tmpStr & ""
	tmpStr = tmpStr & "<tr><td colspan=2>&nbsp;</td></tr>"
	tmpStr = tmpStr & "<tr><td colspan=2 align=center><input type=submit value='保存'>&nbsp;&nbsp;"
	tmpStr = tmpStr & "<input type=reset value='重设'>&nbsp;&nbsp;<input type=button value='关闭' onclick='javascript:window.close();'></td></tr></table></form>"
	
	Response.Write tmpStr
	Response.End

End Sub


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 过程名称：FileEditSave()
' 功能说明：文件编辑的保存
' 创建时间：2003-07-31 13:20
' 修改时间：2003-07-31 13:20
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub FileEditSave()
	Dim FileName,FileContent,f

	FileName     = Trim(Request.Form("FileName"))
	FileContent  = Trim(Request.Form("FileContent"))
    
	On Error Resume Next

	Set File = FSO.GetFile(FileName)
	
	CheckErr(Err)

	ParentFolder = File.ParentFolder

	If Not FSO.FileExists(FileName) Then
		StrErr = StrErr & "编辑的文件不存在，请刷新页面重试！\n"	
	End If
	
	CheckStrErr()
	
	Set f = FSO.OpenTextFile(FileName,2)
	
	CheckErr(Err)
	
	f.Write FileContent
    
	CheckErr(Err)

	Response.Write("<script>")
	Response.Write("alert('"&File.Name&"文件编辑成功,请刷新页面查看！');window.close();</script>")
	Response.End
End Sub


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 过程名称：FileNew()
' 功能说明：文件的新建
' 创建时间：2003-07-31 13:20
' 修改时间：2003-08-04 7:40 
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub FileNew()
	Call fileHead()
	
	ParentFolder = ""

	If FSO.FolderExists(TestFilePath) Then
		Set Folder = FSO.GetFolder(TestFilePath)
		
		If Folder.IsRootFolder Then
💿 文件大小 4351 K
👤 上传用户 jessica12332145
📂 所属分类 SCSI/ASPI
🏷️ 相关标签

#商城 #交流 #程序
⌨️ 快捷键说明

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