devbox
知新_RL
这个屌丝很懒，什么也没留下！
关注作者
热门标签
热门文章
当前位置:   article > 正文

vbscript写的网页备忘录_用vbs写备忘录

作者：知新_RL | 2024-06-04 22:07:28

赞

踩

用vbs写备忘录

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。
今天翻出来很早之前写的一个备忘录，只要这个网页打开的，就可以实现定时提醒功能。

代码为vbscript编写，现在的高版本ie已经不再支持，只有按下F12，选择低版本的ie了。

设置

添加备忘录

当前备忘情况

帮助信息

主要代码：

 

  1. <!--设计者：uruseibest-->
  2. <!--blog：http://blog.csdn.net/uruseibest -->
  3. <!--修改时间：2008.10.15 20:00-->
  4. <!--完成时间：2008.10.15 20:00-->
  5.  
  6. <html>
  7. <head>
  8. <meta http-equiv="Content-Type" Content="text/html; Charset=gb2312">
  9. <title>备忘录</title>
  10. <style>
  11. body {
  12.     font-size: 12px; 
  13.     border: none;
  14.     font-family:Arial,宋体; 
  15.     overflow:none; 
  16.     padding:0px; 
  17.     margin:0px; 
  18.     background-color:#000100; 
  19.     }
  20. .stylesystime{
  21.     color:white;
  22.     font-size:10pt;
  23.     }   
  24. #menu a:visited{
  25.     color:red;
  26.     text-decoration:none;
  27.     }
  28. #menu a:link{
  29.     color:red;
  30.     text-decoration:none;
  31.     }
  32. #menu a:hover{
  33.     color:white;
  34.     text-decoration:none;
  35.     background-color:blue;
  36.     }
  37. #menu a:active{
  38.     color:red;
  39.     text-decoration:none;
  40.     }  
  41. .viewtable{
  42.     font-size: 12px; 
  43.     border: none;
  44.     font-family:Arial,宋体; 
  45.     overflow:none; 
  46.     padding:0px; 
  47.     margin:0px; 
  48.     background-color:#000100; 
  49.     color:white;
  50.     }
  51. .inputtype{
  52.     font-size:12px;
  53.     font-family:Arial,宋体; 
  54.     border-color:#000066;
  55.     padding:0px; 
  56.     margin:0px; 
  57.     width:250px;    
  58.     height:20px;
  59.     }    
  60. td {
  61.     font-size: 12px; 
  62.     font-family:Arial,宋体; 
  63.     }
  64. .showtop{
  65.     border-top:1px solid #9fccff;
  66.     border-right:none;
  67.     border-left:none;
  68.     border-bottom:none;
  69.     }    
  70. .showleft{
  71.     border-top:none;
  72.     border-right:none;
  73.     border-left:1px solid #484977;
  74.     border-bottom:none;
  75.     }  
  76. .showright{
  77.     border-top:none;
  78.     border-right:1px solid #9fccff;
  79.     border-left:none;
  80.     border-bottom:none;
  81.     } 
  82. .showbottom{
  83.     border-top:none;
  84.     border-right:none;
  85.     border-left:none;
  86.     border-bottom:1px solid #484977;
  87.     }               
  88. .tastyle{
  89.     border:none;
  90.     background-color:transparent;
  91.     color:white;
  92.     width:220px;    
  93.     }
  94. </style>
  95.  
  96. <script language=vbscript>
  97. dim wFileName
  98. dim intMemcount
  99. dim strMem
  100. dim ClockWav
  101. dim ShowCnTime
  102. dim PlayWav
  103. dim ShowNot
  104. sub loadsys()
  105.     LoadSetup
  106.     Getmem
  107.     SetSystime
  108. end sub
  109. sub LoadSetup()
  110.     ShowCnTime="0"
  111.     PlayWav="1"
  112.     ShowNot="1"
  113.     if ShowCnTime="1" then chkSet1.checked=true else chkSet1.checked =false
  114.     if PlayWav="1" then chkSet2.checked=true else chkSet2.checked =false
  115.     if ShowNot="1" then chkSet3.checked=true else chkSet3.checked =false
  116. end sub
  117. sub sysSet1()
  118.     if ChkSet1.checked=true then
  119.         ShowCnTime="1"
  120.     else
  121.         ShowCnTime="0"
  122.     end if    
  123.     showsystime
  124. end sub
  125. sub sysSet2()
  126.     if ChkSet2.checked=true then
  127.         PlayWav="1"
  128.     else
  129.         PlayWav="0"
  130.     end if
  131. end sub
  132. sub sysSet3()
  133.     if ChkSet3.checked=true then
  134.         ShowNot="1"
  135.     else
  136.         ShowNot="0"
  137.     end if
  138. end sub
  139. sub Getmem()
  140.     dim fs
  141.     dim sysPath
  142.     set fs=createobject("scripting.filesystemobject")
  143.     sysPath=fs.GetSpecialFolder(WindowsFolder)
  144.     wFileName=syspath & "\Mem.txt"
  145.     if fs.FileExists(wFileName)=false then
  146.         intmemcount=0
  147.     else
  148.         dim Wf
  149.         set Wf=fs.OpenTextFile(wFileName,1)
  150.         dim strAll
  151.         strAll=Wf.readall
  152.         wf.close
  153.         
  154.         strMem=split(strAll,"*")
  155.         intMemCount=0
  156.         if ubound(strMem)>=0 then
  157. 	        dim intI
  158. 	        for intI=0 to ubound(strMem)
  159. 		        if (left(strMem(intI),2)="&%") and (right(strMem(intI),2)="&%") then
  160. 			        intMemCount=intMemCount+1
  161. 			        strMem(intI)=replace(strMem(intI),"&%","")
  162. 			        strMem(intI)=strMem(intI) & ",0"
  163. 		        end if
  164. 	        next
  165.         end if
  166.     end if
  167.     GetWav(sysPath)
  168.     ShowTimeoutMem
  169. end sub
  170. sub GetWav(path)
  171.     dim fs
  172.     set fs=createobject("scripting.filesystemobject")
  173.     if fs.FileExists(path & "\media\notify.wav")=true then
  174.         ClockWav=path & "\media\notify.wav"
  175.         ChkSet2.disabled=false
  176.     else
  177.         ClockWav=""
  178.         ChkSet2.disabled=true
  179.         divset2.innerHTML="（不可用，请查看帮助）"
  180.     end if
  181. end sub
  182. sub ShowTimeoutMem()
  183.     if ShowNot="0" then    
  184.         dim intI
  185.         if intMemcount>0 then
  186.             for intI=0 to ubound(strMem)
  187.                 dim substrMem
  188.                 dim MemTime,nowTime
  189.                 substrMem=split(strMem(intI),",")
  190.                 MemTime=strFormatTime(substrMem(0))
  191.                 nowTime=GetCurrentF
  192.                         
  193.                 if (datediff("n",Memtime,nowTime)>=0) and (substrMem(3)="0") then
  194.                     substrMem(3)="1"
  195.                 end if
  196.                 strMem(intI)=join(substrMem,",")
  197.             next    
  198.         end if   
  199.         WMemFile(1)     
  200.     end if
  201. end sub
  202. sub SetSystime()
  203.     showsystime  
  204.     getMeminfo
  205.     Mem_show
  206.     window.setTimeout "setsystime",1000
  207. end sub
  208. sub showsystime()
  209.     dim y,m,d,hh,mm,ss,w,ww,systime
  210.     if ShowCnTime="0" then
  211.         y=year(now)
  212.         m=right("00" & month(now) ,2)
  213.         d=right("00" & day(now) ,2)
  214.         hh=right("00" & hour(now) ,2)
  215.         mm=right("00" & minute(now) ,2)
  216.         ss=right("00" & second(now) ,2)
  217.         w=weekday(now,vbMonday)
  218.         ww=GetCnW(w)
  219.         systime= y  & "-" & m & "-" & d & " " & hh & ":" & mm & ":" & ss & " " & ww
  220.     else
  221.         y=GetCn(year(now))
  222.         m=GetCn(month(now))
  223.         d=GetCn(day(now))
  224.         hh=GetCn(hour(now))
  225.         mm=GetCn(minute(now))
  226.         ss=GetCn(second(now))
  227.         w=weekday(now,vbMonday)
  228.         ww=GetCnW(w)
  229.         systime= y  & "年" & m & "月" & d & "日 " & "<br>" &  hh & "时" & mm & "分" & ss & "秒 " & ww
  230.     end if
  231.     showtime.innerHTML =systime
  232. end sub
  233. function NumToCn(intNum)
  234.         select case intNum
  235.             case 0:ww="零"
  236.             case 1:ww="一"
  237.             case 2:ww="二"
  238.             case 3:ww="三"
  239.             case 4:ww="四"
  240.             case 5:ww="五"
  241.             case 6:ww="六"
  242.             case 7:ww="七"
  243.             case 8:ww="八"
  244.             case 9:ww="九"
  245.         end select    
  246.         NumToCn=ww
  247. end function
  248. function GetCn(intNum)
  249.     dim strNum,strCn
  250.     dim i
  251.     strNum=cstr(intNum)
  252.     select case len(strNum)
  253.         case 1
  254.             strCn=NumToCn(intNum)
  255.         case 2
  256.             if intnum<20 then
  257.             strCn="十" & _
  258.                   NumToCn(cint(mid(strNum,2,1)))  
  259.             else
  260.             strCn=NumToCn(cint(mid(strNum,1,1))) & _
  261.                   "十" & _
  262.                   NumToCn(cint(mid(strNum,2,1)))            
  263.             end if
  264.         case 4
  265.             strCn=NumToCn(cint(mid(strNum,1,1))) & _
  266.                   NumToCn(cint(mid(strNum,2,1))) & _
  267.                   NumToCn(cint(mid(strNum,3,1))) & _
  268.                   NumToCn(cint(mid(strNum,4,1)))
  269.     end select
  270.     if strNum="10" then strCn="十"    
  271.     GetCn=strCn
  272. end function
  273. function GetCnW(intNum)
  274.     dim ww
  275.     select case intNum
  276.         case 1,2,3,4,5,6
  277.             ww="星期" & NumToCn(intNum)
  278.         case 7
  279.             ww="星期日"
  280.         case else
  281.             ww="星期?"
  282.     end select     
  283.     GetCnW=ww
  284. end function
  285. function strFormatTime(strFormated)
  286.     strFormatTime=mid(strFormated,1,4) & "-" & _
  287.             mid(strFormated,5,2) & "-" & _
  288.             mid(strFormated,7,2) & " " & _
  289.             mid(strFormated,9,2) & ":" & _
  290.             mid(strFormated,11,2)    
  291. end function
  292. sub ShowDiv(intIndex)
  293.     showsetdiv.style.display="none"
  294.     showadddiv.style.display="none"
  295.     showviewdiv.style.display="none"
  296.     showhelpdiv.style.display="none"
  297.     select case intIndex
  298.         case 1
  299.             showsetdiv.style.display="block"
  300.  
  301.         case 2
  302. 	        memaddinfo.innerHTML=""
  303.             txtMemTime.value=GetCurrentF
  304.             showadddiv.style.display="block"
  305.             
  306.         case 3
  307.             ShowMem
  308.             showviewdiv.style.display="block"
  309.         case 4
  310.             showhelpdiv.style.display="block"
  311.     end select  
  312.     menuclose.style.visibility ="visible"
  313. end sub
  314. sub Mem_show()
  315.     dim intI
  316.     if intMemcount>0 then
  317.         for intI=0 to ubound(strMem)
  318.             dim substrMem
  319.             dim MemTime,MemDone,MemShow
  320.             dim nowTime
  321.             substrMem=split(strMem(intI),",")
  322.             MemTime=strFormatTime(substrMem(0))
  323.             MemDone=substrMem(3)
  324.             MemShow=substrMem(4)
  325.             nowTime=GetCurrentF
  326.             if (datediff("n",Memtime,nowTime)>=0) and (MemDone="0") then
  327.                 substrMem(4)="1"
  328.                 strMem(intI)=join(substrMem,",")
  329.             end if
  330.         next    
  331.         ShowMemInDiv        
  332.     end if
  333. end sub
  334. sub AddMem()
  335.     dim s1,s2,s3
  336.     s1=txtMemTime.value
  337.     s2=txtMemTitle.value
  338.     s3=txtMemContent.value
  339.     if(mid(s1,5,1)<>"-") or (mid(s1,8,1)<>"-") or (mid(s1,11,1)<>" ") or (mid(s1,14,1)<>":") or (len(s1)<>16) then
  340.         memaddinfo.innerHTML ="<font color='red'>错误：</font>时间格式错误，请重新填写。"
  341.         exit sub
  342.     end if
  343.     if not isdate(s1) then
  344.         memaddinfo.innerHTML ="<font color='red'>错误：</font>输入了错误的时间，请重新填写。"
  345.         exit sub
  346.     end if
  347.     if trim(s2)="" then
  348.         memaddinfo.innerHTML ="<font color='red'>错误：</font>标题不允许为空。"
  349.         exit sub
  350.     end if
  351.     if len(trim(s3))>50 then
  352.         memaddinfo.innerHTML ="<font color='red'>错误：</font>内容的长度限制在50字以内。"
  353.         exit sub
  354.     end if
  355.     dim MemTime,MemTitle,MemContent
  356.     MemTime=mid(s1,1,4) & _
  357.             mid(s1,6,2) & _
  358.             mid(s1,9,2) & _
  359.             mid(s1,12,2) & _
  360.             mid(s1,15,2)
  361.     MemTitle=replaceTxt(trim(s2))
  362.     MemContent=replaceTxt(trim(s3))
  363.     if intMemcount=0 then
  364.         redim strMem(0)
  365.         strMem(0)=MemTime & "," & MemTitle & "," & MemContent & ",0,0" 
  366.     else
  367.         dim intTemp
  368.         intTemp=ubound(strMem)+1
  369.         redim Preserve strMem(intTemp)
  370.         strMem(intTemp)=MemTime & "," & MemTitle & "," & MemContent & ",0,0"    
  371.     end if
  372.     intMemCount=ubound(strMem)+1
  373.     dim Fso
  374.     set Fso=createobject("scripting.filesystemobject")
  375.     dim AppendFs
  376.     set AppendFs=fso.OpenTextFile(wFileName,8,true)
  377.     if intMemcount=1 then
  378.         AppendFs.write "&%" & MemTime & "," & MemTitle & "," & MemContent & ",0&%"
  379.     else
  380.         AppendFs.write "*&%" & MemTime & "," & MemTitle & "," & MemContent & ",0&%"    
  381.     end if
  382.     AppendFs.close
  383.     set Fso=nothing
  384.     txtMemTime.value=GetCurrentF
  385.     txtMemTitle.value=""
  386.     txtMemContent.value=""    
  387.     memaddinfo.innerHTML ="<font color='red'>成功：</font>添加新备忘 " & MemTitle & "成功。"
  388.     getMeminfo
  389. end sub
  390. function replaceTxt(strReplace)
  391.     dim s
  392.     s=strReplace
  393.     s=replace(s,"<","<")
  394.     s=replace(s,">",">")
  395.     s=replace(s,",",",")
  396.     s=replace(s,"*","*")
  397.     s=replace(s,vbcrlf,"<br>")
  398.     s=replace(s,"%","%")
  399.     s=replace(s,"&","&")
  400.     replaceTxt=s
  401. end function
  402. function GetCurrentF()
  403.     dim strTemp
  404.     strTemp=year(now) & "-" & _
  405.             right("00" & month(now) ,2) & "-" & _
  406.             right("00" & day(now) ,2) & " " & _
  407.             right("00" & hour(now) ,2) & ":" & _
  408.             right("00" & minute(now) ,2)
  409.     GetCurrentF=strTemp           
  410. end function
  411. sub ShowMem()
  412.     dim intI
  413.     dim strOut
  414.     dim i
  415.     strOut="<table width='100%' border='0' class='viewtable'>" 
  416.     strOut=strOut & "<tr>"
  417.     strOut=strOut & "<td width='10'> </td>"
  418.     strOut=strOut & "<td width='100'>时间</td>"
  419.     strOut=strOut & "<td width='*'>标题</td>"
  420.     strOut=strOut & "<td align='center' width='24'>到时</td>"
  421.     strOut=strOut & "<td align='center' width='24'>显示</td>"
  422.     strOut=strOut & "<td align='center'>删除</td>"
  423.     strOut=strOut & "</tr>"    
  424.     if intMemcount>0 then
  425.         for i=0 to ubound(strMem)
  426.             dim substrMem
  427.             dim MemTime,MemTitle,MemTimeout,MemShow,MemDone
  428.             dim nowTime
  429.             substrMem=split(strMem(i),",")
  430.             MemTime=strFormatTime(substrMem(0))
  431.             MemTitle=substrMem(1)
  432.             nowTime=GetCurrentF
  433.             if datediff("n",Memtime,nowTime)<0 then
  434.                 MemTimeout="否"
  435.             else
  436.                 MemTimeout="是"
  437.             end if
  438.             if substrMem(4)=0 then
  439.                 MemShow="<input type='checkbox' id='chkshowmem" & i & "' name='chkshowmem" & i & "' onclick='memshowed(" & i & ")'>"
  440.             else
  441.                 MemShow="<input type='checkbox' id='chkshowmem" & i & "' name='chkshowmem" & i & "' checked='checked' onclick='memshowed(" & i & ")'>"
  442.             end if
  443.             strOut=strOut & "<tr>"
  444.             strOut=strOut & "<td>" & cstr(i+1) & "</td>"
  445.             strOut=strOut & "<td>" & MemTime & "</td>"
  446.             strOut=strOut & "<td>" & MemTitle & "</td>"
  447.             strOut=strOut & "<td align='center'>" & MemTimeout & "</td>"
  448.             strOut=strOut & "<td align='center'>" & MemShow & "</td>"
  449.             strOut=strOut & "<td align='center'><input type='button' value='删除' name='btnmemdel(" & i & ")' id='btndel' onclick='memdel(" & i & ")'></td>"
  450.             strOut=strOut & "</tr>" 
  451.         next
  452.     else
  453.         strOut=strOut & "<tr><td colspan='7'>目前没有设置备忘</td></tr>"
  454.     end if
  455.     strOut=strOut & "</table>"  
  456.     showviewdiv.innerHTML =strOut  
  457. end sub
  458. sub closeMenu()
  459.     showsetdiv.style.display="none"
  460.     showadddiv.style.display="none"
  461.     showviewdiv.style.display="none"
  462.     showhelpdiv.style.display="none"
  463.     menuclose.style.visibility ="hidden"
  464. end sub
  465. sub memshowed(intIndex)
  466.     dim substrMem
  467.     substrMem=split(strMem(intIndex),",")
  468.     if document.all("chkshowmem" & intIndex).checked=true then
  469.         substrMem(4)="1"
  470.     else
  471.         substrMem(4)="0"
  472.     end if
  473.     strMem(intIndex)=join(substrMem,",")
  474.     ShowMemInDiv
  475. end sub
  476. sub ShowMemInDiv()
  477.     showmemdiv.innerHTML =""
  478.     dim intPlaysound    
  479.     dim intI
  480.     dim strShowmem
  481.     strShowmem=""
  482.     intPlaysound=0
  483.     if intMemcount=0 then exit sub
  484.     for intI=0 to Ubound(strMem)
  485.         dim substrMem
  486.         substrMem=split(strMem(intI),",")
  487.         dim MemTime
  488.         MemTime=strFormatTime(substrMem(0))
  489.         if substrMem(4)="1" then
  490.             strShowmem=strShowmem & "<table class='viewtable' width='100%'>"
  491.             strShowmem=strShowmem & "<tr>"
  492.             strShowmem=strShowmem & "<td colspan='2' align='right' class='showtop' height='10' background='bar.jpg'>"
  493.             strShowmem=strShowmem & "</td>"
  494.             strShowmem=strShowmem & "</tr>"
  495.             strShowmem=strShowmem & "<tr>"
  496.             strShowmem=strShowmem & "<td rowspan ='2' width='64'>"
  497.             if substrMem(3)="0" then
  498.                 strShowmem=strShowmem & "<img src='clock.gif' width='64' height='64'/>"
  499.                 intPlaysound=intPlaysound+1
  500.             else
  501.                 strShowmem=strShowmem & "<img src='icon64.gif' width='64' height='64'/>"
  502.             end if
  503.             strShowmem=strShowmem & "</td>"
  504.             strShowmem=strShowmem & "<td style='font-weight :bolder;'>"
  505.             strShowmem=strShowmem & "<font color=red>★</font> " & substrMem(1) & "(" & MemTime & ")"
  506.             strShowmem=strShowmem & "</td>"
  507.             strShowmem=strShowmem & "</tr>"
  508.             strShowmem=strShowmem & "<tr>"
  509.             strShowmem=strShowmem & "<td class='showtop'>"
  510.             strShowmem=strShowmem & "<textarea cols='25' rows='2' readonly='readOnly' class='tastyle'>"
  511.             strShowmem=strShowmem & replace(substrMem(2),"<br>",vbcrlf)
  512.             strShowmem=strShowmem & "</textarea>"
  513.             strShowmem=strShowmem & "</td>"
  514.             strShowmem=strShowmem & "</tr>"
  515.             strShowmem=strShowmem & "<tr> "
  516.             strShowmem=strShowmem & "<td colspan='2' align='right' class='showtop'>"
  517.             if substrMem(3)="0" then
  518.                 strShowmem=strShowmem & "<input type='button' value='知道' id='btnmemknow" & intI & "' name='btnmemknow" & intI & "' onclick='Memknow(" & intI & ")'/>"
  519.             end if
  520.             strShowmem=strShowmem & "<input type='button' value='删除' id='btnmemdel" & intI & "' name='btnmemdel" & intI & "' onclick='Memdel(" & intI & ")'/>"
  521.             strShowmem=strShowmem & "<input type='button' value='关闭' id='btnmemclose" & intI & "' name='btnmemclose" & intI & "' onclick='Memclose(" & intI & ")'/>"
  522.             strShowmem=strShowmem & "</td>"
  523.             strShowmem=strShowmem & "</tr>"
  524.             strShowmem=strShowmem & "</table>"
  525.         end if
  526.     next
  527.     showmemdiv.innerHTML =strShowmem
  528.     showmemdiv.style.display="block"
  529. end sub
  530. sub Memknow(intIndex)
  531.     dim substrMem
  532.     substrMem=split(strMem(intIndex),",")
  533.     substrMem(3)="1"
  534.     strMem(intIndex)=join(substrMem,",")
  535.     
  536.     document.all("btnmemknow" & intIndex).style.visibility="hidden"
  537.   
  538.     WMemFile(1)
  539.     getMeminfo
  540. end sub
  541. sub Memdel(intIndex)
  542.     
  543.     if ubound(strMem)=0 then
  544.         if intIndex=0 then
  545.             WMemFile(0)
  546.         else
  547.             exit sub
  548.         end if
  549.     else
  550.          if intIndex<>ubound(strMem) then
  551.             dim loopI
  552.             for loopI=intIndex to ubound(strMem)-1
  553.                 strMem(loopI)=strmem(loopI+1)
  554.             next
  555.          end if
  556.          redim Preserve strMem(ubound(strMem)-1)
  557.          WMemFile(1)
  558.     end if
  559.     intMemcount=intMemcount-1
  560.     
  561.     getMeminfo
  562.     if showviewdiv.innerHTML<>"" and showviewdiv.style.display="block" then
  563.         ShowMem
  564.     end if      
  565. end sub
  566. sub WMemFile(intFlag)
  567.     dim fs
  568.     set fs=createobject("scripting.filesystemobject")
  569.     select case intFlag
  570.         case 0
  571.             if fs.FileExists(wFileName)=true then
  572.                 fs.DeleteFile(wFileName)
  573.             end if
  574.         case 1
  575.             dim intI
  576.             dim strForW
  577.             for intI=0 to Ubound(strMem)
  578.                 strForW=strForW & "&%" & left(strMem(intI),len(strMem(intI))-2) & "&%" & "*"
  579.             next
  580.             strForW=left(strForW,len(strForW)-1)
  581.             
  582.             dim WF
  583.             set WF=fs.CreateTextFile(wFileName, True)
  584.             WF.write strForW
  585.     end select
  586. end sub
  587. sub Memclose(intIndex)
  588.     dim substrMem
  589.     substrMem=split(strMem(intIndex),",")
  590.     substrMem(3)="1"
  591.     substrMem(4)="0"
  592.     strMem(intIndex)=join(substrMem,",")
  593.     getMeminfo
  594.     if showviewdiv.innerHTML<>"" and showviewdiv.style.display="block" then
  595.         ShowMem
  596.     end if  
  597. end sub
  598. sub getMeminfo()
  599.     dim intDoneyes
  600.     dim intDonenot
  601.     
  602.     intDoneyes=0
  603.     intDonenot=0
  604.     if intMemcount>0 then
  605.         dim intI        
  606.         for intI=0 to ubound(strMem)
  607.             dim substrMem
  608.             substrMem=split(strMem(intI),",")
  609.             if substrMem(3)="1" then intDoneyes=intDoneyes+1
  610.         next
  611.         intDonenot=intMemcount-intDoneyes
  612.     end if
  613.     lblall.innerHTML =intMemcount
  614.     lblDoneyes.innerHTML =intDoneyes
  615.     lblDonenot.innerHTML =intdonenot
  616. end sub
  617. </script>
  618.   
  619. </head>
  620. <body onload="loadsys"> 
  621.  
  622.     <div style="width:300px; height: 18px;vertical-align:bottom;" id="showtime" name="showtime" class="stylesystime">
  623.     </div>
  624.     <div style="width:300px; height: 18px;vertical-align:bottom;" id="showmeminfo" name="showmeminfo" class="stylesystime">
  625.     目前备忘总数：<label id="lblAll" name="lblAll"></label>  
  626.     已处理：<label id="lblDoneyes" name="lblDoneyes"></label>  
  627.     待处理：<label id="lblDonenot" name="lblDonenot"></label>
  628.     </div>    
  629.     <div style="width: 300px; height: 18px;padding-top:0px;" id="menu" name="menu">
  630.         <table border="0" width="100%">
  631.             <tr>
  632.                 <td align ="left" width="80%">
  633.                     <font color=white>[</font>
  634.                     <a href="#" onclick="ShowDiv(1)" class="menu">设置</a>
  635.                     <font color=white>]</font>  
  636.                     <font color=white>[</font>
  637.                     <a href="#" onclick="ShowDiv(2)" class="menu">添加</a>
  638.                     <font color=white>]</font>
  639.                     <font color=white>[</font>
  640.                     <a href="#" onclick="ShowDiv(3)" class="menu">查看</a>
  641.                     <font color=white>]</font>
  642.                     <font color=white>[</font>
  643.                     <a href="#" onclick="ShowDiv(4)" class="menu">帮助</a>
  644.                     <font color=white>]</font>                
  645.                 </td>
  646.                 <td align ="right">
  647.                     <div style="width:40px; height:18px;text-align:left;padding-top:6px;visibility:hidden;font-size:12px;" id="menuclose" name="menuclose">
  648.                         <font color=white>[</font>
  649.                         <a href="#" class="menu" onclick="closeMenu">关闭</a>
  650.                         <font color=white>]</font> 
  651.                     </div>                
  652.                 </td>
  653.             </tr>
  654.         </table>
  655.  
  656.  
  657.      </div>
  658.      <div style="width: 400px; height: 56px;color:White;display:none;" id="showsetdiv" name="showsetdiv">
  659.          <input id="ChkSet1" name="ChkSet1" type="checkbox" onclick="sysSet1" />显示中文时间<br />
  660.          <input id="ChkSet2" name="ChkSet2" type="checkbox" onclick="sysSet2" />播放声音
  661.          <div id="divset2" name="divset2" style="width: auto;color:red;display:inline;"> </div>
  662.          <br />
  663.          <input id="ChkSet3" name="ChkSet3" type="checkbox" onclick="sysSet3" />显示上次关闭时未处理的备忘（即使已经超时）
  664.      </div>
  665.      <div style="width: 300px; height:auto;color:White;display:none;" id="showadddiv" name="showadddiv">
  666.         <table width="100%" border="0" class="viewtable">
  667.             <tr>
  668.                 <td width="40" align ="center">标题 </td>
  669.                 <td>
  670.                     <input id="txtMemTitle" name="txtMemTitle" type="text" class="inputtype" maxlength="10"/>
  671.                 </td>
  672.             </tr>
  673.             <tr>
  674.                 <td align ="center">时间                </td>
  675.                 <td>
  676.                     <input id="txtMemTime" name="txtMemTime" type="text" class="inputtype" maxlength="16"/>
  677.                 </td>
  678.             </tr>
  679.             <tr>
  680.                 <td align ="center" valign="top">内容                </td>
  681.                 <td>
  682.                     <textarea id="txtMemContent" name="txtMemContent" cols="25" rows="2" style="width:250px;"></textarea>
  683.                 </td>
  684.             </tr>
  685.             <tr>
  686.                 <td>
  687.                     <input type="button" id="btnAdd" name="btnAdd" onclick="AddMem" value="增加"/>
  688.                 </td>
  689.                 <td>
  690.                     <div style="width: 300px; height: 20px;text-align:left;padding-top:6px;" id="MemAddInfo" name="MemAddInfo"></div>
  691.                 </td>       
  692.             </tr>
  693.         </table>
  694.      </div>      
  695.      <div style="width: 300px; height: 56px;color:White;display:none;" id="showviewdiv" name="showviewdiv">
  696.      </div>
  697.      <div style="width: 300px; height: 56px;color:White;display:none;" id="showhelpdiv" name="showhelpdiv">
  698.         <textarea style="border:none;color:white;background-color:transparent;width:300px;" rows="7" readonly="readOnly">
  699.   ★ 设置——备忘录系统设置
  700. 播放声音：备忘到时，声音提示。
  701. 默认声音为 Win$\media\notify.wav
  702. 如果没有该文件，将不能选择。  
  703.   ★ 增加——增加新的备忘录
  704. 标题：最长10个字符；
  705. 时间：格式如：2008-09-10 10:02；
  706. 内容：最长50个字符，换行最好不超过2次。
  707.   ★ 查看——查看现在已有的备忘录：
  708. 显示：将备忘显示在提示窗口；
  709. 删除：删除备忘。         
  710.   ★ 帮助——您现在看到的信息
  711. 提供了本系统的操作说明。
  712.   ★ 备忘提示窗口
  713. 知道：标记为处理，但不关闭提示窗口；
  714. 关闭：标记为处理，并关闭提示窗口；
  715. 删除：关闭备忘提示窗口，并删除备忘。
  716.   ---------------------------
  717.   感谢使用本备忘录系统！
  718.   详细说明请查看readme.txt！
  719.   希望能够对您有所帮助！
  720.                  --uruseibest
  721.   ---------------------------
  722.          </textarea>
  723.          
  724.      </div>     
  725.     <div style="width:300px; height:auto;color:White;display:none;" id="showmemdiv" name="showmemdiv">
  726.     
  727.     </div>
  728.  
  729. </body>
  730. </html>

 

使用到的几个图片文件：

    bar.jpg

clock.gif         icon64.gif

 

vbscript终于退出了舞台，真是太遗憾了。

声明：本文内容由网友自发贡献，不代表【wpsshop博客】立场，版权归原作者所有，本站不承担相应法律责任。如您发现有侵权的内容，请联系我们。转载请注明出处：https://www.wpsshop.cn/w/知新_RL/article/detail/673700
推荐阅读
相关标签

Copyright © 2003-2013 www.wpsshop.cn 版权所有，并保留所有权利。

  

闽ICP备14008679号