国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > ASP > 正文

asp實現(xiàn)的可以提醒生日的幾種方法附代碼

2024-05-04 11:00:44
字體:
供稿:網(wǎng)友
asp生日自動提醒小程式 用ASP編寫,調(diào)試通過,使用方便-asp birthday automatically remind small programs with the preparation of ASP, debug, easy to use
方法一:

最初寫的一個用于班級網(wǎng)站的最近一個月同學生日的提醒小程序。雖然不怎么樣,而且很亂,但是最起碼是自己動腦筋去想的,所以我比較看重。ASP程序雖然有好多可以借鑒人家的。但是我想更多時候,我們應該在經(jīng)典上有所突出,有所創(chuàng)新那不至于默守陳規(guī)而無永遠只能做一個平凡的程序員。

<%
      dim     daydif
      dim     days '定義查詢前后多少天內(nèi)生日的同學,如60則查詢前一個月后下一個月生日的同學名單。
      SQL="Select name,brithday from class "
            Set rs=server.CreateObject("ADODB.RecordSet")
            rs.Open SQL,con,1,1
            for i=1 to rs.recordcount     '讀出所有的數(shù)據(jù) 
                    if rs.eof then exit for
                    daydif=abs(datediff("d",date,rs("birthday")) )mod 365
                    if daydif < days  
                          response.write rs("name")%> 
                          response.write "<font color="#FF0000">" 
                          response.write rs("birthday")&"、</font>"
                    end if
                    rs.movenext
            loop 
            rs.Close
            Set rs=nothing
發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板: 重庆市| 迁西县| 凤庆县| 凉城县| 郓城县| 五峰| 祁阳县| 上饶市| 达拉特旗| 合江县| 柳河县| 洛宁县| 略阳县| 洞口县| 镇赉县| 纳雍县| 安塞县| 中卫市| 长武县| 江津市| 青浦区| 获嘉县| 赤城县| 隆子县| 顺平县| 柘荣县| 平武县| 土默特左旗| 杭锦旗| 文成县| 长葛市| 望奎县| 营山县| 曲麻莱县| 泾川县| 五家渠市| 百色市| 巴彦淖尔市| 四会市| 普陀区| 涿鹿县|