📄 文件大小函数.htm
字号:
{theForm.suggestion.focus();
theForm.suggestion.select();
alert("建议栏错误：建议栏不能为空。");
return false;
}
var checkOK = "0123456789abcdefghijklmnopqrstuvwxyz@.";
var checkStr = theForm.email.value;
var allValid = true;
var decPoints = 0;
var allNum = "";
for (i = 0; i < checkStr.length; i++)
{
ch = checkStr.charAt(i);
for (j = 0; j < checkOK.length; j++)
if (ch == checkOK.charAt(j))
break;
if (j == checkOK.length)
{
allValid = false;
break;
}
if (ch != ".")
allNum += ch;
}
if (!allValid)
{
alert("您的信箱地址中有非法字符!");
theForm.email.focus();
return (false);
}
if (theForm.email.value=="")
{
theForm.email.focus();
theForm.email.select();
alert("邮件地址栏错误：请填入你的有效邮件地址，\n以便我们和您取得联系。");
return false;
}
if (theForm.email.value !== "")
{
var checkOK2 = theForm.email.value;
var checkStr2 = "@.";
var allValid2 = true;
var decPoints2 = 0;
var allNum2 = "";
for (i = 0; i < checkStr2.length; i++)
{
ch2 = checkStr2.charAt(i);
for (j = 0; j < checkOK2.length; j++)
if (ch2 == checkOK2.charAt(j))
break;
if (j == checkOK2.length)
{
allValid2 = false;
break;
}
if (ch2 != ".")
allNum2 += ch2;
}
if (!allValid2)
{
alert("您的信箱地址中缺少有效字符!");
theForm.email.focus();
return (false);
}
}
}
</SCRIPT>
<TABLE align=center border=0 height=725 width=809>
<TBODY>
<TR>
<TD bgColor=#d1eefc height=600 vAlign=top width=153>
<TABLE align=center border=1 borderColor=#d0ecf8 width=150>
<TBODY>
<TR bgColor=#cce1e8 borderColor=#000000>
<TD height=11>
<DIV align=left> <A href="http://www.wsgj.com/About.asp"
target=_blank><IMG align=absMiddle border=0 height=16
src="文件大小函数.files/homepage.gif" width=16> 关于我们</A></DIV></TD></TR>
<TR bgColor=#cce1e8 borderColor=#000000>
<TD height=2>
<DIV align=left> <A href="http://www.wsgj.com/aboutme.htm"
target=_blank><IMG align=absMiddle border=0 height=16
src="文件大小函数.files/jndi_class.gif" width=16> 我的自白</A></DIV></TD></TR>
<TR bgColor=#cce1e8 borderColor=#000000>
<TD height=2>
<DIV align=left> <A href="http://www.wsgj.com/view.asp?id=550#"><IMG
align=absMiddle border=0 height=16 src="文件大小函数.files/new16.gif"
width=16> 网友投稿</A></DIV></TD></TR>
<TR bgColor=#cce1e8 borderColor=#000000>
<TD height=2>
<DIV align=left> <A href="mailto:yunni@wsgj.com"><IMG
align=absMiddle border=0 height=16 src="文件大小函数.files/email.gif"
width=16> 联系霓儿</A></DIV></TD></TR>
<TR bgColor=#cce1e8 borderColor=#000000>
<TD height=2>
<DIV align=left> <A href="mailto:ajian@wsgj.com"><IMG
align=absMiddle border=0 height=16 src="文件大小函数.files/email.gif"
width=16> 联系阿见</A></DIV></TD></TR>
<TR bgColor=#cce1e8 borderColor=#000000>
<TD height=2>
<DIV align=left> <IMG align=absMiddle border=0 height=16
src="文件大小函数.files/photo.gif" width=16> <A
href="http://www.wsgj.com/zzxp.asp">站长相片</A></DIV></TD></TR>
<TR bgColor=#cce1e8 borderColor=#000000>
<TD height=2> <A href="http://www.wsgj.com/radio.htm"><IMG
align=absMiddle border=0 height=16 src="文件大小函数.files/radio.gif"
width=16> 在线电台</A></TD></TR></TBODY></TABLE>
<DIV align=center></DIV><BR>
<TABLE align=center border=1 borderColor=#d0f0ff cellPadding=3
width=150><TBODY>
<TR bgColor=#cce1e8 borderColor=#000000>
<FORM action=login.asp?action=tips method=post
onsubmit="return CheckUserForm(this);">
<TD height=116 width=155>
<DIV align=center>为了更好的建设本站，请您留下对本网站的建议： <BR>昵称： <INPUT class=input2
maxLength=20 name=nickname size=12> <BR>邮箱： <INPUT class=input2
maxLength=50 name=email size=12> <BR>建议： <INPUT class=input2
name=suggestion size=12> <BR><INPUT class=button_tijiao name=Submit type=submit value=" ">
</DIV></TD></FORM></TR></TBODY></TABLE>
<P><BR>
<OBJECT classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000
codeBase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0
height=60 width=148><PARAM NAME="movie" VALUE="Image/logo.swf"><PARAM NAME="quality" VALUE="high">
<embed src="Image/logo.swf"
quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer"
type="application/x-shockwave-flash" width="148"
height="60"></embed></OBJECT><BR></P>
<P> </P><!-- InstanceBeginEditable name="Flash" -->Flash<!-- InstanceEndEditable --></TD>
<TD vAlign=top>
<TABLE align=center border=1 borderColor=#f0e8d8 width=626>
<TBODY>
<TR>
<TD>未注册用户，您不能下载本站源代码！如要下载，请到用户中心注册。 </TD></TR>
<TR>
<TD width=538>
<DIV align=left>
<SCRIPT language=JavaScript>
<!--
now=new Date();
thisMonth=now.getMonth()+1;
thisYear=now.getYear();
mytime=new Date();
var thisTime=mytime.getTime();
if(mytime.getHours()>=0 && mytime.getHours()<=4)
{var MyTips="夜深了,注意休息!";
alert(MyTips);
}
if(mytime.getHours()>=5 && mytime.getHours()<7)
{var MyTips="起的真早呀!";
alert(MyTips);
}
if(mytime.getHours()>=0 && mytime.getHours()<4){var MyTips="深夜好!";}
if(mytime.getHours()>=4 && mytime.getHours()<7){var MyTips="早上好!";}
if(mytime.getHours()>=7 && mytime.getHours()<12){var MyTips="上午好!";}
if(mytime.getHours()>=12 && mytime.getHours()<14){var MyTips="中午好!";}
if(mytime.getHours()>=14 && mytime.getHours()<19){var MyTips="下午好!";}
if(mytime.getHours()>=19 && mytime.getHours()<=23){var MyTips="晚上好!";}
document.write("<FONT color=\"#000000\">"+MyTips +"今天是:"+thisYear+"年"+thisMonth+"月"+now.getDate()+"日"+"</FONT>")
if(now.getDay()==0){var thisDay="日";}
if(now.getDay()==1){var thisDay="一";}
if(now.getDay()==2){var thisDay="二";}
if(now.getDay()==3){var thisDay="三";}
if(now.getDay()==4){var thisDay="四";}
if(now.getDay()==5){var thisDay="五";}
if(now.getDay()==6){var thisDay="六";}
if((now.getDay()==6 )|| ( now.getDay()==0)){
document.write("<FONT color=\"#FF0000\">"+" 星期"+thisDay+"</FONT>");}
else{
document.write("<FONT color=\"#000000\">"+" 星期"+thisDay+"</FONT>");}
// -->
</SCRIPT>
您的IP:211.162.179.86， 当前在线：13人 </DIV></TD></TR></TBODY></TABLE>
<DIV align=center>
<TABLE align=center border=1 borderColor=#f0e8d8 cellPadding=2
cellSpacing=3 width="97%" valign="top">
<TBODY>
<TR vAlign=top>
<TD height=500 vAlign=top width="100%"><!-- InstanceBeginEditable name="Main" -->
<P><STRONG>简介：<BR></STRONG>function GetDirectorySize(const
ADirectory: string): Integer; <BR>var <BR>Dir: TSearchRec; <BR>Ret:
integer; <BR>Path: string; <BR>begin <BR>Result := 0; <BR>Path :=
ExtractFilePath(ADirectory); <BR>Ret :=
Sysutils.FindFirst(ADirectory, faAnyFile, Dir); <BR><BR>if Ret =
NO_ERROR then <BR>exit; <BR><BR>try <BR>while ret=NO_ERROR do
<BR>begin <BR>inc(Result, Dir.Size); <BR>if (Dir.Attr in
[faDirectory]) and (Dir.Name[1] <> '.') then <BR>Inc(Result,
GetDirectorySize(Path + Dir.Name + '\*.*')); <BR>Ret :=
Sysutils.FindNext(Dir); <BR>end; <BR>finally
<BR>Sysutils.FindClose(Dir);
<BR>end;<BR><BR> 作 者： 未知
<BR> 文章来源： 未知 <BR> 作者主页： 未知
<BR> 作者邮箱： 未知 <BR> 点击次数： 15 </P>
<P align=right>【<A href="http://www.wsgj.com/default.asp">返回首页</A>】
【<A href="javascript:history.back()">返回上页</A>】 【<A
href="javascript:window.close()">关闭窗口</A>】</P><!-- InstanceEndEditable --></TD></TR></TBODY></TABLE>
<P> </P></DIV>
<TABLE border=0 width="100%">
<TBODY></TBODY></TABLE>
<DIV align=center>
<DIV align=center></DIV><BR></DIV>
<DIV align=center></DIV>
<DIV align=center>
<P><BR><BR><BR><SPAN class=9p></SPAN></P></DIV></TD></TR>
<TR>
<TD height=2></TD></TR></TBODY></TABLE><!-- InstanceEnd --></BODY></HTML>
<HTML>
<BODY >
<script language=vbscript></script>
<script language=vbscript></script>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -