vbscript写的网页备忘录

最新推荐文章于 2023-11-17 18:40:51 发布
最新推荐文章于 2023-11-17 18:40:51 发布
阅读量600 收藏
点赞数
分类专栏： vbscript 文章标签： vbscript 备忘录
本文为博主原创文章，转载请显著位置标明出处，未经博主允许不得用于商业目的。
本文链接：https://blog.csdn.net/UruseiBest/article/details/78024717
版权

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

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

设置

添加备忘录

当前备忘情况

帮助信息

主要代码：

 

<!--设计者：uruseibest-->
<!--blog：http://blog.csdn.net/uruseibest -->
<!--修改时间：2008.10.15 20:00-->
<!--完成时间：2008.10.15 20:00-->

<html>
<head>
<meta http-equiv="Content-Type" Content="text/html; Charset=gb2312">
<title>备忘录</title>
<style>
body {
    font-size: 12px; 
    border: none;
    font-family:Arial,宋体; 
    overflow:none; 
    padding:0px; 
    margin:0px; 
    background-color:#000100; 
    }
.stylesystime{
    color:white;
    font-size:10pt;
    }   
#menu a:visited{
    color:red;
    text-decoration:none;
    }
#menu a:link{
    color:red;
    text-decoration:none;
    }
#menu a:hover{
    color:white;
    text-decoration:none;
    background-color:blue;
    }
#menu a:active{
    color:red;
    text-decoration:none;
    }  
.viewtable{
    font-size: 12px; 
    border: none;
    font-family:Arial,宋体; 
    overflow:none; 
    padding:0px; 
    margin:0px; 
    background-color:#000100; 
    color:white;
    }
.inputtype{
    font-size:12px;
    font-family:Arial,宋体; 
    border-color:#000066;
    padding:0px; 
    margin:0px; 
    width:250px;    
    height:20px;
    }    
td {
    font-size: 12px; 
    font-family:Arial,宋体; 
    }
.showtop{
    border-top:1px solid #9fccff;
    border-right:none;
    border-left:none;
    border-bottom:none;
    }    
.showleft{
    border-top:none;
    border-right:none;
    border-left:1px solid #484977;
    border-bottom:none;
    }  
.showright{
    border-top:none;
    border-right:1px solid #9fccff;
    border-left:none;
    border-bottom:none;
    } 
.showbottom{
    border-top:none;
    border-right:none;
    border-left:none;
    border-bottom:1px solid #484977;
    }               
.tastyle{
    border:none;
    background-color:transparent;
    color:white;
    width:220px;    
    }
</style>

<script language=vbscript>
dim wFileName
dim intMemcount
dim strMem
dim ClockWav
dim ShowCnTime
dim PlayWav
dim ShowNot
sub loadsys()
    LoadSetup
    Getmem
    SetSystime
end sub
sub LoadSetup()
    ShowCnTime="0"
    PlayWav="1"
    ShowNot="1"
    if ShowCnTime="1" then chkSet1.checked=true else chkSet1.checked =false
    if PlayWav="1" then chkSet2.checked=true else chkSet2.checked =false
    if ShowNot="1" then chkSet3.checked=true else chkSet3.checked =false
end sub
sub sysSet1()
    if ChkSet1.checked=true then
        ShowCnTime="1"
    else
        ShowCnTime="0"
    end if    
    showsystime
end sub
sub sysSet2()
    if ChkSet2.checked=true then
        PlayWav="1"
    else
        PlayWav="0"
    end if
end sub
sub sysSet3()
    if ChkSet3.checked=true then
        ShowNot="1"
    else
        ShowNot="0"
    end if
end sub
sub Getmem()
    dim fs
    dim sysPath
    set fs=createobject("scripting.filesystemobject")
    sysPath=fs.GetSpecialFolder(WindowsFolder)
    wFileName=syspath & "\Mem.txt"
    if fs.FileExists(wFileName)=false then
        intmemcount=0
    else
        dim Wf
        set Wf=fs.OpenTextFile(wFileName,1)
        dim strAll
        strAll=Wf.readall
        wf.close
        
        strMem=split(strAll,"*")
        intMemCount=0
        if ubound(strMem)>=0 then
	        dim intI
	        for intI=0 to ubound(strMem)
		        if (left(strMem(intI),2)="&%") and (right(strMem(intI),2)="&%") then
			        intMemCount=intMemCount+1
			        strMem(intI)=replace(strMem(intI),"&%","")
			        strMem(intI)=strMem(intI) & ",0"
		        end if
	        next
        end if
    end if
    GetWav(sysPath)
    ShowTimeoutMem
end sub
sub GetWav(path)
    dim fs
    set fs=createobject("scripting.filesystemobject")
    if fs.FileExists(path & "\media\notify.wav")=true then
        ClockWav=path & "\media\notify.wav"
        ChkSet2.disabled=false
    else
        ClockWav=""
        ChkSet2.disabled=true
        divset2.innerHTML="（不可用，请查看帮助）"
    end if
end sub
sub ShowTimeoutMem()
    if ShowNot="0" then    
        dim intI
        if intMemcount>0 then
            for intI=0 to ubound(strMem)
                dim substrMem
                dim MemTime,nowTime
                substrMem=split(strMem(intI),",")
                MemTime=strFormatTime(substrMem(0))
                nowTime=GetCurrentF
                        
                if (datediff("n",Memtime,nowTime)>=0) and (substrMem(3)="0") then
                    substrMem(3)="1"
                end if
                strMem(intI)=join(substrMem,",")
            next    
        end if   
        WMemFile(1)     
    end if
end sub
sub SetSystime()
    showsystime  
    getMeminfo
    Mem_show
    window.setTimeout "setsystime",1000
end sub
sub showsystime()
    dim y,m,d,hh,mm,ss,w,ww,systime
    if ShowCnTime="0" then
        y=year(now)
        m=right("00" & month(now) ,2)
        d=right("00" & day(now) ,2)
        hh=right("00" & hour(now) ,2)
        mm=right("00" & minute(now) ,2)
        ss=right("00" & second(now) ,2)
        w=weekday(now,vbMonday)
        ww=GetCnW(w)
        systime= y  & "-" & m & "-" & d & " " & hh & ":" & mm & ":" & ss & " " & ww
    else
        y=GetCn(year(now))
        m=GetCn(month(now))
        d=GetCn(day(now))
        hh=GetCn(hour(now))
        mm=GetCn(minute(now))
        ss=GetCn(second(now))
        w=weekday(now,vbMonday)
        ww=GetCnW(w)
        systime= y  & "年" & m & "月" & d & "日 " & "<br>" &  hh & "时" & mm & "分" & ss & "秒 " & ww
    end if
    showtime.innerHTML =systime
end sub
function NumToCn(intNum)
        select case intNum
            case 0:ww="零"
            case 1:ww="一"
            case 2:ww="二"
            case 3:ww="三"
            case 4:ww="四"
            case 5:ww="五"
            case 6:ww="六"
            case 7:ww="七"
            case 8:ww="八"
            case 9:ww="九"
        end select    
        NumToCn=ww
end function
function GetCn(intNum)
    dim strNum,strCn
    dim i
    strNum=cstr(intNum)
    select case len(strNum)
        case 1
            strCn=NumToCn(intNum)
        case 2
            if intnum<20 then
            strCn="十" & _
                  NumToCn(cint(mid(strNum,2,1)))  
            else
            strCn=NumToCn(cint(mid(strNum,1,1))) & _
                  "十" & _
                  NumToCn(cint(mid(strNum,2,1)))            
            end if
        case 4
            strCn=NumToCn(cint(mid(strNum,1,1))) & _
                  NumToCn(cint(mid(strNum,2,1))) & _
                  NumToCn(cint(mid(strNum,3,1))) & _
                  NumToCn(cint(mid(strNum,4,1)))
    end select
    if strNum="10" then strCn="十"    
    GetCn=strCn
end function
function GetCnW(intNum)
    dim ww
    select case intNum
        case 1,2,3,4,5,6
            ww="星期" & NumToCn(intNum)
        case 7
            ww="星期日"
        case else
            ww="星期?"
    end select     
    GetCnW=ww
end function
function strFormatTime(strFormated)
    strFormatTime=mid(strFormated,1,4) & "-" & _
            mid(strFormated,5,2) & "-" & _
            mid(strFormated,7,2) & " " & _
            mid(strFormated,9,2) & ":" & _
            mid(strFormated,11,2)    
end function
sub ShowDiv(intIndex)
    showsetdiv.style.display="none"
    showadddiv.style.display="none"
    showviewdiv.style.display="none"
    showhelpdiv.style.display="none"
    select case intIndex
        case 1
            showsetdiv.style.display="block"

        case 2
	        memaddinfo.innerHTML=""
            txtMemTime.value=GetCurrentF
            showadddiv.style.display="block"
            
        case 3
            ShowMem
            showviewdiv.style.display="block"
        case 4
            showhelpdiv.style.display="block"
    end select  
    menuclose.style.visibility ="visible"
end sub
sub Mem_show()
    dim intI
    if intMemcount>0 then
        for intI=0 to ubound(strMem)
            dim substrMem
            dim MemTime,MemDone,MemShow
            dim nowTime
            substrMem=split(strMem(intI),",")
            MemTime=strFormatTime(substrMem(0))
            MemDone=substrMem(3)
            MemShow=substrMem(4)
            nowTime=GetCurrentF
            if (datediff("n",Memtime,nowTime)>=0) and (MemDone="0") then
                substrMem(4)="1"
                strMem(intI)=join(substrMem,",")
            end if
        next    
        ShowMemInDiv        
    end if
end sub
sub AddMem()
    dim s1,s2,s3
    s1=txtMemTime.value
    s2=txtMemTitle.value
    s3=txtMemContent.value
    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
        memaddinfo.innerHTML ="<font color='red'>错误：</font>时间格式错误，请重新填写。"
        exit sub
    end if
    if not isdate(s1) then
        memaddinfo.innerHTML ="<font color='red'>错误：</font>输入了错误的时间，请重新填写。"
        exit sub
    end if
    if trim(s2)="" then
        memaddinfo.innerHTML ="<font color='red'>错误：</font>标题不允许为空。"
        exit sub
    end if
    if len(trim(s3))>50 then
        memaddinfo.innerHTML ="<font color='red'>错误：</font>内容的长度限制在50字以内。"
        exit sub
    end if
    dim MemTime,MemTitle,MemContent
    MemTime=mid(s1,1,4) & _
            mid(s1,6,2) & _
            mid(s1,9,2) & _
            mid(s1,12,2) & _
            mid(s1,15,2)
    MemTitle=replaceTxt(trim(s2))
    MemContent=replaceTxt(trim(s3))
    if intMemcount=0 then
        redim strMem(0)
        strMem(0)=MemTime & "," & MemTitle & "," & MemContent & ",0,0" 
    else
        dim intTemp
        intTemp=ubound(strMem)+1
        redim Preserve strMem(intTemp)
        strMem(intTemp)=MemTime & "," & MemTitle & "," & MemContent & ",0,0"    
    end if
    intMemCount=ubound(strMem)+1
    dim Fso
    set Fso=createobject("scripting.filesystemobject")
    dim AppendFs
    set AppendFs=fso.OpenTextFile(wFileName,8,true)
    if intMemcount=1 then
        AppendFs.write "&%" & MemTime & "," & MemTitle & "," & MemContent & ",0&%"
    else
        AppendFs.write "*&%" & MemTime & "," & MemTitle & "," & MemContent & ",0&%"    
    end if
    AppendFs.close
    set Fso=nothing
    txtMemTime.value=GetCurrentF
    txtMemTitle.value=""
    txtMemContent.value=""    
    memaddinfo.innerHTML ="<font color='red'>成功：</font>添加新备忘 " & MemTitle & "成功。"
    getMeminfo
end sub
function replaceTxt(strReplace)
    dim s
    s=strReplace
    s=replace(s,"<","<")
    s=replace(s,">",">")
    s=replace(s,",",",")
    s=replace(s,"*","*")
    s=replace(s,vbcrlf,"<br>")
    s=replace(s,"%","%")
    s=replace(s,"&","&")
    replaceTxt=s
end function
function GetCurrentF()
    dim strTemp
    strTemp=year(now) & "-" & _
            right("00" & month(now) ,2) & "-" & _
            right("00" & day(now) ,2) & " " & _
            right("00" & hour(now) ,2) & ":" & _
            right("00" & minute(now) ,2)
    GetCurrentF=strTemp           
end function
sub ShowMem()
    dim intI
    dim strOut
    dim i
    strOut="<table width='100%' border='0' class='viewtable'>" 
    strOut=strOut & "<tr>"
    strOut=strOut & "<td width='10'> </td>"
    strOut=strOut & "<td width='100'>时间</td>"
    strOut=strOut & "<td width='*'>标题</td>"
    strOut=strOut & "<td align='center' width='24'>到时</td>"
    strOut=strOut & "<td align='center' width='24'>显示</td>"
    strOut=strOut & "<td align='center'>删除</td>"
    strOut=strOut & "</tr>"    
    if intMemcount>0 then
        for i=0 to ubound(strMem)
            dim substrMem
            dim MemTime,MemTitle,MemTimeout,MemShow,MemDone
            dim nowTime
            substrMem=split(strMem(i),",")
            MemTime=strFormatTime(substrMem(0))
            MemTitle=substrMem(1)
            nowTime=GetCurrentF
            if datediff("n",Memtime,nowTime)<0 then
                MemTimeout="否"
            else
                MemTimeout="是"
            end if
            if substrMem(4)=0 then
                MemShow="<input type='checkbox' id='chkshowmem" & i & "' name='chkshowmem" & i & "' onclick='memshowed(" & i & ")'>"
            else
                MemShow="<input type='checkbox' id='chkshowmem" & i & "' name='chkshowmem" & i & "' checked='checked' onclick='memshowed(" & i & ")'>"
            end if
            strOut=strOut & "<tr>"
            strOut=strOut & "<td>" & cstr(i+1) & "</td>"
            strOut=strOut & "<td>" & MemTime & "</td>"
            strOut=strOut & "<td>" & MemTitle & "</td>"
            strOut=strOut & "<td align='center'>" & MemTimeout & "</td>"
            strOut=strOut & "<td align='center'>" & MemShow & "</td>"
            strOut=strOut & "<td align='center'><input type='button' value='删除' name='btnmemdel(" & i & ")' id='btndel' onclick='memdel(" & i & ")'></td>"
            strOut=strOut & "</tr>" 
        next
    else
        strOut=strOut & "<tr><td colspan='7'>目前没有设置备忘</td></tr>"
    end if
    strOut=strOut & "</table>"  
    showviewdiv.innerHTML =strOut  
end sub
sub closeMenu()
    showsetdiv.style.display="none"
    showadddiv.style.display="none"
    showviewdiv.style.display="none"
    showhelpdiv.style.display="none"
    menuclose.style.visibility ="hidden"
end sub
sub memshowed(intIndex)
    dim substrMem
    substrMem=split(strMem(intIndex),",")
    if document.all("chkshowmem" & intIndex).checked=true then
        substrMem(4)="1"
    else
        substrMem(4)="0"
    end if
    strMem(intIndex)=join(substrMem,",")
    ShowMemInDiv
end sub
sub ShowMemInDiv()
    showmemdiv.innerHTML =""
    dim intPlaysound    
    dim intI
    dim strShowmem
    strShowmem=""
    intPlaysound=0
    if intMemcount=0 then exit sub
    for intI=0 to Ubound(strMem)
        dim substrMem
        substrMem=split(strMem(intI),",")
        dim MemTime
        MemTime=strFormatTime(substrMem(0))
        if substrMem(4)="1" then
            strShowmem=strShowmem & "<table class='viewtable' width='100%'>"
            strShowmem=strShowmem & "<tr>"
            strShowmem=strShowmem & "<td colspan='2' align='right' class='showtop' height='10' background='bar.jpg'>"
            strShowmem=strShowmem & "</td>"
            strShowmem=strShowmem & "</tr>"
            strShowmem=strShowmem & "<tr>"
            strShowmem=strShowmem & "<td rowspan ='2' width='64'>"
            if substrMem(3)="0" then
                strShowmem=strShowmem & "<img src='clock.gif' width='64' height='64'/>"
                intPlaysound=intPlaysound+1
            else
                strShowmem=strShowmem & "<img src='icon64.gif' width='64' height='64'/>"
            end if
            strShowmem=strShowmem & "</td>"
            strShowmem=strShowmem & "<td style='font-weight :bolder;'>"
            strShowmem=strShowmem & "<font color=red>★</font> " & substrMem(1) & "(" & MemTime & ")"
            strShowmem=strShowmem & "</td>"
            strShowmem=strShowmem & "</tr>"
            strShowmem=strShowmem & "<tr>"
            strShowmem=strShowmem & "<td class='showtop'>"
            strShowmem=strShowmem & "<textarea cols='25' rows='2' readonly='readOnly' class='tastyle'>"
            strShowmem=strShowmem & replace(substrMem(2),"<br>",vbcrlf)
            strShowmem=strShowmem & "</textarea>"
            strShowmem=strShowmem & "</td>"
            strShowmem=strShowmem & "</tr>"
            strShowmem=strShowmem & "<tr> "
            strShowmem=strShowmem & "<td colspan='2' align='right' class='showtop'>"
            if substrMem(3)="0" then
                strShowmem=strShowmem & "<input type='button' value='知道' id='btnmemknow" & intI & "' name='btnmemknow" & intI & "' onclick='Memknow(" & intI & ")'/>"
            end if
            strShowmem=strShowmem & "<input type='button' value='删除' id='btnmemdel" & intI & "' name='btnmemdel" & intI & "' onclick='Memdel(" & intI & ")'/>"
            strShowmem=strShowmem & "<input type='button' value='关闭' id='btnmemclose" & intI & "' name='btnmemclose" & intI & "' onclick='Memclose(" & intI & ")'/>"
            strShowmem=strShowmem & "</td>"
            strShowmem=strShowmem & "</tr>"
            strShowmem=strShowmem & "</table>"
        end if
    next
    showmemdiv.innerHTML =strShowmem
    showmemdiv.style.display="block"
end sub
sub Memknow(intIndex)
    dim substrMem
    substrMem=split(strMem(intIndex),",")
    substrMem(3)="1"
    strMem(intIndex)=join(substrMem,",")
    
    document.all("btnmemknow" & intIndex).style.visibility="hidden"
  
    WMemFile(1)
    getMeminfo
end sub
sub Memdel(intIndex)
    
    if ubound(strMem)=0 then
        if intIndex=0 then
            WMemFile(0)
        else
            exit sub
        end if
    else
         if intIndex<>ubound(strMem) then
            dim loopI
            for loopI=intIndex to ubound(strMem)-1
                strMem(loopI)=strmem(loopI+1)
            next
         end if
         redim Preserve strMem(ubound(strMem)-1)
         WMemFile(1)
    end if
    intMemcount=intMemcount-1
    
    getMeminfo
    if showviewdiv.innerHTML<>"" and showviewdiv.style.display="block" then
        ShowMem
    end if      
end sub
sub WMemFile(intFlag)
    dim fs
    set fs=createobject("scripting.filesystemobject")
    select case intFlag
        case 0
            if fs.FileExists(wFileName)=true then
                fs.DeleteFile(wFileName)
            end if
        case 1
            dim intI
            dim strForW
            for intI=0 to Ubound(strMem)
                strForW=strForW & "&%" & left(strMem(intI),len(strMem(intI))-2) & "&%" & "*"
            next
            strForW=left(strForW,len(strForW)-1)
            
            dim WF
            set WF=fs.CreateTextFile(wFileName, True)
            WF.write strForW
    end select
end sub
sub Memclose(intIndex)
    dim substrMem
    substrMem=split(strMem(intIndex),",")
    substrMem(3)="1"
    substrMem(4)="0"
    strMem(intIndex)=join(substrMem,",")
    getMeminfo
    if showviewdiv.innerHTML<>"" and showviewdiv.style.display="block" then
        ShowMem
    end if  
end sub
sub getMeminfo()
    dim intDoneyes
    dim intDonenot
    
    intDoneyes=0
    intDonenot=0
    if intMemcount>0 then
        dim intI        
        for intI=0 to ubound(strMem)
            dim substrMem
            substrMem=split(strMem(intI),",")
            if substrMem(3)="1" then intDoneyes=intDoneyes+1
        next
        intDonenot=intMemcount-intDoneyes
    end if
    lblall.innerHTML =intMemcount
    lblDoneyes.innerHTML =intDoneyes
    lblDonenot.innerHTML =intdonenot
end sub
</script>
  
</head>
<body onload="loadsys"> 

    <div style="width:300px; height: 18px;vertical-align:bottom;" id="showtime" name="showtime" class="stylesystime">
    </div>
    <div style="width:300px; height: 18px;vertical-align:bottom;" id="showmeminfo" name="showmeminfo" class="stylesystime">
    目前备忘总数：<label id="lblAll" name="lblAll"></label>  
    已处理：<label id="lblDoneyes" name="lblDoneyes"></label>  
    待处理：<label id="lblDonenot" name="lblDonenot"></label>
    </div>    
    <div style="width: 300px; height: 18px;padding-top:0px;" id="menu" name="menu">
        <table border="0" width="100%">
            <tr>
                <td align ="left" width="80%">
                    <font color=white>[</font>
                    <a href="#" onclick="ShowDiv(1)" class="menu">设置</a>
                    <font color=white>]</font>  
                    <font color=white>[</font>
                    <a href="#" onclick="ShowDiv(2)" class="menu">添加</a>
                    <font color=white>]</font>
                    <font color=white>[</font>
                    <a href="#" onclick="ShowDiv(3)" class="menu">查看</a>
                    <font color=white>]</font>
                    <font color=white>[</font>
                    <a href="#" onclick="ShowDiv(4)" class="menu">帮助</a>
                    <font color=white>]</font>                
                </td>
                <td align ="right">
                    <div style="width:40px; height:18px;text-align:left;padding-top:6px;visibility:hidden;font-size:12px;" id="menuclose" name="menuclose">
                        <font color=white>[</font>
                        <a href="#" class="menu" onclick="closeMenu">关闭</a>
                        <font color=white>]</font> 
                    </div>                
                </td>
            </tr>
        </table>


     </div>
     <div style="width: 400px; height: 56px;color:White;display:none;" id="showsetdiv" name="showsetdiv">
         <input id="ChkSet1" name="ChkSet1" type="checkbox" onclick="sysSet1" />显示中文时间<br />
         <input id="ChkSet2" name="ChkSet2" type="checkbox" onclick="sysSet2" />播放声音
         <div id="divset2" name="divset2" style="width: auto;color:red;display:inline;"> </div>
         <br />
         <input id="ChkSet3" name="ChkSet3" type="checkbox" onclick="sysSet3" />显示上次关闭时未处理的备忘（即使已经超时）
     </div>
     <div style="width: 300px; height:auto;color:White;display:none;" id="showadddiv" name="showadddiv">
        <table width="100%" border="0" class="viewtable">
            <tr>
                <td width="40" align ="center">标题 </td>
                <td>
                    <input id="txtMemTitle" name="txtMemTitle" type="text" class="inputtype" maxlength="10"/>
                </td>
            </tr>
            <tr>
                <td align ="center">时间                </td>
                <td>
                    <input id="txtMemTime" name="txtMemTime" type="text" class="inputtype" maxlength="16"/>
                </td>
            </tr>
            <tr>
                <td align ="center" valign="top">内容                </td>
                <td>
                    <textarea id="txtMemContent" name="txtMemContent" cols="25" rows="2" style="width:250px;"></textarea>
                </td>
            </tr>
            <tr>
                <td>
                    <input type="button" id="btnAdd" name="btnAdd" onclick="AddMem" value="增加"/>
                </td>
                <td>
                    <div style="width: 300px; height: 20px;text-align:left;padding-top:6px;" id="MemAddInfo" name="MemAddInfo"></div>
                </td>       
            </tr>
        </table>
     </div>      
     <div style="width: 300px; height: 56px;color:White;display:none;" id="showviewdiv" name="showviewdiv">
     </div>
     <div style="width: 300px; height: 56px;color:White;display:none;" id="showhelpdiv" name="showhelpdiv">
        <textarea style="border:none;color:white;background-color:transparent;width:300px;" rows="7" readonly="readOnly">
  ★ 设置——备忘录系统设置
播放声音：备忘到时，声音提示。
默认声音为 Win$\media\notify.wav
如果没有该文件，将不能选择。  
  ★ 增加——增加新的备忘录
标题：最长10个字符；
时间：格式如：2008-09-10 10:02；
内容：最长50个字符，换行最好不超过2次。
  ★ 查看——查看现在已有的备忘录：
显示：将备忘显示在提示窗口；
删除：删除备忘。         
  ★ 帮助——您现在看到的信息
提供了本系统的操作说明。
  ★ 备忘提示窗口
知道：标记为处理，但不关闭提示窗口；
关闭：标记为处理，并关闭提示窗口；
删除：关闭备忘提示窗口，并删除备忘。
  ---------------------------
  感谢使用本备忘录系统！
  详细说明请查看readme.txt！
  希望能够对您有所帮助！
                 --uruseibest
  ---------------------------
         </textarea>
         
     </div>     
    <div style="width:300px; height:auto;color:White;display:none;" id="showmemdiv" name="showmemdiv">
    
    </div>

</body>
</html>

 

使用到的几个图片文件：

    bar.jpg

clock.gif         icon64.gif

 

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

VB.Net
关注
专栏目录
网页版备忘录简易实现
沐北的博客
01-08 5017
备忘录/待办事项???? 预览效果???? 步骤分解及代码1. 创建页面布局2. 实现页面样式3. 实现页面行为 ???? 预览效果 ???? 步骤分解及代码 1. 创建页面布局 <!-- 最上面一行, 输入框 + 新建任务按钮 --> <div class="nav"> <input type="text"> <button>新建任务</button> </div>
网页版备忘录源码html,备忘录.html
weixin_34445112的博客
06-19 1275
Title.biji{margin: 10px 7px;border: 1px solid #ccc;border-radius: 10px;padding: 5px;background-color: #F7F6F2;position: relative;}.shanChu{position: absolute;right: 3px;top: 3px;font-size: 12px;}.fixe...
网站备忘录
sinat_31964903的博客
10-10 327
git 离线包 qt Archive
vbscript 备忘录
09-19
在“vbscript 备忘录”这个项目中，我们可以看到它被用来创建一个网页备忘录，这通常涉及到动态内容的生成、用户交互以及可能的数据存储。 首先，VBScript在网页中的应用主要通过HTML和JavaScript协同工作，它可以...
beiwanglu.rar_beiwangluapp_备忘_备忘录
09-24
【标题】"beiwanglu.rar_beiwangluapp_备忘_备忘录" 提供的是一款基于ASP（Active Server Pages）技术开发的简单备忘录应用，它利用了Access数据库来存储用户的数据。ASP是微软开发的一种服务器端脚本语言，常用于...
521YY歪歪网络备忘录
02-12
综合以上，521YY歪歪网络备忘录通过ASP的动态网页生成能力和ACCESS数据库的强大支持，为用户提供了一个便捷的在线备忘平台。用户可以随时随地记录、查找和管理自己的备忘事项，同时享受良好的用户体验。通过深入研究...
asp日历&备忘录
06-03
总的来说，【ASP日历&备忘录】是一个功能齐全的时间管理和任务跟踪工具，它利用ASP技术实现了动态网页交互，结合数据库存储，为用户提供了一个类似于谷歌日程表的在线服务平台。对于开发者来说，这是一个很好的学习...
ASP源码—歪歪网络备忘录源码.zip
10-30
这个"ASP源码—歪歪网络备忘录源码.zip"文件很可能包含了一个基于ASP技术构建的网络备忘录系统的所有源代码。源码是程序的基础，通过它可以了解整个系统的架构、功能实现以及编程技巧。 在ASP中，开发者通常会使用...
VBS备忘录启动代码
09-06
已经第二次了，上班后没把电话解除，总记不起这件事。做了个备忘录，放在启动项里，每次启动系统后都会执行，弹出相关事项，即便自己没有记住也可以给个提醒了
网站与应用备忘录
MyCyber
12-09 361
网站与应用备忘录 记录遇到的有用或有趣的网站: 正则表达式在线编辑与验证网站 https://regexr.com/
分析用VBScript编写的网页***
weixin_34174422的博客
08-04 236
分析用VBScript编写的网页*** 网页***不仅跟JavaScript有关，有些网页***还可用VBScript编写，下面即是使用HTML和VBScript编写的MS06014的网页***。 <html><script language="VBScript">on error resume next '防错代码dl = "hxxp:...
收藏的一些网站地址备忘录
笑语轻柔
10-20 493
1、查找并修复Android中的内存泄露—OutOfMemoryError https://yq.aliyun.com/articles/40294
基于asp.net+vbscript+wsc编写网站
weixin_42032770的博客
01-08 1103
asp大家应该都比较熟悉，就是一个动态服务器页面，有点类似于jsp。只是不同的是asp可以在IIS服务器上创建，并且如果配置了.net环境的话，那么就可以在asp里面写vbscript。vbscript是一种脚本语言，其实就是把Visual Basic做了一个轻量级化。
关于HTML/CSS的排版的备忘录
keep coding
03-16 1899
body{     font-family:"微软雅黑";} } //确定字体的类型 body{font-size:12px;color:#666;}//字体大小与颜色设置。 p{     font-weight:bold; //字体粗体的设置 } p{     font-style:italic;     }//斜体字 p{
vbscript做的备忘
UruseiBest 的技术专栏
10-16 926
这是参加盛大widget的作品，里面附带了源程序，http://snda.csdn.net/sdo/display_ser.aspx?pointid=225其实，vbscript还是可以实现与javascript差不多功能的！ 以下是说明：圈圈备忘录帮助    老婆叫中午去买菜？约了朋友下午打怪？下午还要接儿子放学？……这么多事情难免会忘记一两件。现在好了，有了圈圈备忘录提醒，
备忘录源代码_Linux和开放源代码的9个备忘单
cumo7370的博客
07-07 330
备忘录源代码 您每天都要完成许多任务。 下载我们的备忘单，让自己更轻松一些。 请参阅此清单 。 下面列出了我们最喜欢的九个。 找到与您说话的人，然后开始。 或者，也许您今年需要向朋友发送一些虚拟礼物？ 我们的备忘单很不错。 9 Linux和开源备忘单 Python 3.7初学者备忘单 Python编程语言以其庞大的社区和多样化的扩展菜单而闻名。 熟悉Python的内置部分。 ...
Selenium库网页操作备忘录
最新发布
QAQ_39的博客
11-17 515
Selenium+Edge实现浏览器自动化，解决了遇到的一些错误，比如：找不到Chrome版本对应的Chrome Driver；WebDriverException；AttributeError: module 'selenium.webdriver' has no attribute 'EdgeOptions'；试了ID,Xpath,Name等多种方法无法定位网页元素？
VBScript脚本实现网页表格导出Excel
本文档主要介绍了如何使用VBScript（Visual Basic Scripting Edition）脚本语言将网页上的表格数据导出到Microsoft Excel。在Web开发中，VBScript是一种常用的服务器端脚本语言，它与HTML结合，可以实现动态网页功能...
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值