减小字体
增大字体- ·上一篇文章：代码查看器（hta格式）
- ·下一篇文章：vbs解压mdb格式压缩文件
- ·百度中搜索更多的关于“日程安排Ver2.0(HTA程序)”相关内容
- ·谷歌中搜索更多的关于“日程安排Ver2.0(HTA程序)”相关内容
- ******申明******
- 本站文章内容有部分为收录网络中其他网友内容，DOS资源站不保证所有的代码都适合你使用。
- 由于编辑匆忙，有可能造成某些脚本文件出现丢失代码或代码无法运行的情况，请网友根据情况自行修改。
- 如果能将出错部分反馈给我，那就更好了。
日程安排Ver2.0(HTA程序)
代码如下：
<HTML>
<HEAD>
<SCRIPT LANGUAGE="JavaScript">
// 把width，height的值设置成你想要的就可以了。
var iWidth=250;
var iHeight=310;
window.resizeTo(iWidth, iHeight);
//var iX = (window.screen.availWidth-iWidth);
//var iY = (window.screen.availHeight-iHeight)/8;
//window.moveTo(iX,iY);
</SCRIPT>
<TITLE>日程安排-DOS资源站-www.cmdos.net</TITLE>
<hta:application sysmenu=YES border="thin" MAXIMIZEBUTTON=no scroll=no ShowInTaskBar=no ></hta:application>
<style>
<!--
td, input { font-family: Tahoma; font-size: 8pt; color: #000080 }
-->
</style>
</head>
<script LANGUAGE="JavaScript">
//当前日期
function getNowDate()
{
var nn=new Date();
year1=nn.getYear();
mon1=nn.getMonth()+1;
date1=nn.getDate();
var monstr1;
var datestr1
if(mon1<10)
monstr1="0"+mon1;
else
monstr1=""+mon1;
if(date1<10)
datestr1="0"+date1;
else
datestr1=""+date1;
return year1+"-"+monstr1+"-"+datestr1;
}
//目标日期
function getlastweekDate()
{
var nn=new Date();
year1=nn.getYear();
mon1=nn.getMonth()+1;
date1=nn.getDate();
var mm=new Date(year1,mon1-1,date1);
var tmp1=new Date(2000,1,1);
var tmp2=new Date(2000,1,15);
var ne=tmp2-tmp1;
var mm2=new Date();
mm2.setTime(mm.getTime()-ne);
year2=mm2.getYear();
mon2=mm2.getMonth()+1;
date2=mm2.getDate();
if(mon2<10)
monstr2="0"+mon2;
else
monstr2=""+mon2;
if(date2<10)
datestr2="0"+date2;
else
datestr2=""+date2;
return year2+"-"+monstr2+"-"+datestr2;
}
var gdCtrl = new Object();
var goSelectTag = new Array();
var gcGray = "#808080";
var gcToggle = "#FB8664";
var gcBG = "#e5e6ec";
var previousObject = null;
var gdCurDate = new Date();
var giYear = gdCurDate.getFullYear();
var giMonth = gdCurDate.getMonth()+1;
var giDay = gdCurDate.getDate();
function fSetDate(iYear, iMonth, iDay){
VicPopCal.style.visibility = "hidden";
if ((iYear == 0) && (iMonth == 0) && (iDay == 0)){
gdCtrl.value = "";
}else{
iMonth = iMonth + 100 + "";
iMonth = iMonth.substring(1);
iDay = iDay + 100 + "";
iDay = iDay.substring(1);
if(gdCtrl.tagName == "INPUT"){
gdCtrl.value = iYear+"-"+iMonth+"-"+iDay;
}else{
gdCtrl.innerText = iYear+"-"+iMonth+"-"+iDay;
}
}
for (i in goSelectTag)
goSelectTag[i].style.visibility = "visible";
goSelectTag.length = 0;
window.returnValue=gdCtrl.value;
//window.close();
}
function HiddenDiv()
{
var i;
VicPopCal.style.visibility = "hidden";
for (i in goSelectTag)
goSelectTag[i].style.visibility = "visible";
goSelectTag.length = 0;
}
function fSetSelected(aCell){
var iOffset = 0;
var iYear = parseInt(tbSelYear.value);
var iMonth = parseInt(tbSelMonth.value);
aCell.bgColor = gcBG;
with (aCell.children["cellText"]){
var iDay = parseInt(innerText);
if (color==gcGray)
iOffset = (Victor<10)?-1:1;
iMonth += iOffset;
if (iMonth<1) {
iYear--;
iMonth = 12;
}else if (iMonth>12){
iYear++;
iMonth = 1;
}
}
fSetDate(iYear, iMonth, iDay);
}
function Point(iX, iY){
this.x = iX;
this.y = iY;
}
function fBuildCal(iYear, iMonth) {
var aMonth=new Array();
for(i=1;i<7;i++)
aMonth[i]=new Array(i);
var dCalDate=new Date(iYear, iMonth-1, 1);
var iDayOfFirst=dCalDate.getDay();
var iDaysInMonth=new Date(iYear, iMonth, 0).getDate();
var iOffsetLast=new Date(iYear, iMonth-1, 0).getDate()-iDayOfFirst+1;
var iDate = 1;
var iNext = 1;
for (d = 0; d < 7; d++)
aMonth[1][d] = (d<iDayOfFirst)?-(iOffsetLast+d):iDate++;
for (w = 2; w < 7; w++)
for (d = 0; d < 7; d++)
aMonth[w][d] = (iDate<=iDaysInMonth)?iDate++:-(iNext++);
return aMonth;
}
function fDrawCal(iYear, iMonth, iCellHeight, sDateTextSize) {
var WeekDay = new Array("日","一","二","三","四","五","六");
var styleTD = " bgcolor='"+gcBG+"' bordercolor='"+gcBG+"' valign='middle' align='center' height='"+iCellHeight+"' style='font:bold arial "+sDateTextSize+";";
with (document) {
write("<tr>");
for(i=0; i<7; i++){
write("<td "+styleTD+"color:maroon' >"+ WeekDay[i] + "</td>");
}
write("</tr>");
for (w = 1; w < 7; w++) {
write("<tr>");
for (d = 0; d < 7; d++) {
write("<td id=calCell "+styleTD+"cursor:hand;'
FName=Replace(Replace(document.location,"file:///",""),"/","\")
sub OnTextChange ()
on error resume next
zw.value=vView(bt.value)
END SUB
SUB vView()
ON ERROR RESUME NEXT
Dim FSO,Folder,File,str,MFile,vVal
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Folder=FSO.GetFolder(curdir)
vVal=TRUE
For Each File In Folder.Files
If bt.value & ".txt" = File.Name Then
vVal=False
Set MFile=FSO.OpenTextFile(File.Path,1,true)
str=MFile.readall()
zw.value=str
MFile.Close
Set MFile=Nothing :Set File=Nothing:EXIT FOR
End If
Next
IF vVal then
zw.value="尚未添加^_^"
End if
Set Folder=Nothing
Set FSO=Nothing
END SUB
Sub edit_file(filename,file_doc)
ON ERROR RESUME NEXT
if bt.value="edit" then CreateObject("Wscript.Shell").run "notepad.exe "&FName:exit sub
if file_doc="" then exit sub
if file_doc="尚未添加^_^" then exit sub
DIM FSObject,MFile,FN
Set FSObject = CreateObject("SCripting.FileSystemObject")
FN=curdir&"\"& bt.value & ".txt"
Set MFile=FSObject.OpenTextFile(FN,2,TRUE)
MFile.Write file_doc
MFile.Close
Set MFile = Nothing:Set FSObject = Nothing
End Sub
SUB ReStart()
ON ERROR RESUME NEXT
FName=Replace(Replace(document.location,"file:///",""),"/","\")
CreateObject("WScript.Shell").Run "WScript " & MySub & "ReStartProc.vbs " & FName
END SUB
</script>
<BODY bgcolor="#D6D3CE">
<CENTER><TABLE>
<TR>
<TD>
<input id=bt class="input" onclick="fPopCalendar(regdate,regdate);return false" type="text" name="regdate" onpropertychange="OnTextChange ()"size="9">
<SCRIPT LANGUAGE="VBScript">
bt.value=getNowDate()
</script>
</TD>
</TR>
<TR>
<TD><textarea id=zw cols=30 rows=12 style="font-family:宋体; font-size: 9pt;background-color: #eeeedd" ></textarea></TD>
<SCRIPT LANGUAGE="VBScript">vView()</script>
</TR>
</TABLE><br>
<input type="button" value="编辑" onclick="VBScript:call edit_file (bt.value,zw.value)">
<input type="button" value="查看" onclick="VBScript:call vView()">
<input type="button" value="刷新" onclick="VBScript:window.location.reload()">
</CENTER>
</body>
</html>
