asp实现本周的一周时间列表的代码_应用技巧

复制代码 代码如下:

td=date()
'此次为设置当前日期,主要是为了调试方便,实际应用中可以使用当天日期..
str="一二三四五六日"
'生成具体是周几的串,根据位置来取就可以了..
for x=1 to 7
'这个循环主要是判断是最近的周一是哪天就可以了...
if td-weekday(td)+1+x=td then
'这个判断是要让当前日期显示红色,没什么特别的价值..
response.write "<font color=red>周"&mid(str,x,1)&":"&FormatDateTime(td-weekday(td)+1+x,1)&"</font><br>"
else
response.write "周"&mid(str,x,1)&":"&FormatDateTime(td-weekday(td)+1+x,1)&"<br>"
end if
next

时间： 2024-11-04 21:44:02

asp实现本周的一周时间列表的代码_应用技巧的相关文章

asp实现本周的一周时间列表的代码

复制代码 代码如下:td=date() '此次为设置当前日期,主要是为了调试方便,实际应用中可以使用当天日期.. str="一二三四五六日" '生成具体是周几的串,根据位置来取就可以了.. for x=1 to 7 '这个循环主要是判断是最近的周一是哪天就可以了... if td-weekday(td)+1+x=td then '这个判断是要让当前日期显示红色,没什么特别的价值.. response.write "<font color=red>周"&a

asp取得本周的一周时间列表

td=date()'此次为设置当前日期,主要是为了调试方便,实际应用中可以使用当天日期..str="一二三四五六日"'生成具体是周几的串,根据位置来取就可以了..for x=1 to 7 '这个循环主要是判断是最近的周一是哪天就可以了...if td-weekday(td)+1+x=td then'这个判断是要让当前日期显示红色,没什么特别的价值..response.write "<font color=red>周"&mid(str,x,1)&a

ASP中通过该日历算法实现的具体代码_应用技巧

复制代码 代码如下: <style> td { font-family: "宋体"; font-size:9pt} </style> <body bgcolor="eeeeee"> <table width="180" cellpadding="0" cellspacing="1" bgcolor="dddddd" align=center>

asp.net动态获取Excel表名的函数代码_实用技巧

复制代码 代码如下: public string GetExcelFirstTableName(string excelFileName) { string tableName = null; if (File.Exists(excelFileName)) { using (OleDbConnection conn = new OleDbConnection("Provider=Microsoft.Jet." + "OLEDB.4.0;Extended Properties=

asp.net 自制的单选、多选列表实现代码_实用技巧

问:为什么要"自制"?不是有现成的控件吗? 答:在ASP.NET的页面上,ListBox最终是渲染成select元素,而CheckListBox最终被渲染成div或者是table,使得二者的样式无法统一,或者说要统一很麻烦. 解决: 于是,决定干脆自行组合一些元素,实现单选列表.多选列表的统一样式. 首先,无论是单选列表还是多选列表,都用一个有边框的div来做容器: <div class="list"></div> 然后,在这个div中添加数

asp格式化日期时间格式的代码_应用技巧

' ============================================ ' 格式化时间(显示) ' 参数:n_Flag ' 1:"yyyy-mm-dd hh:mm:ss" ' 2:"yyyy-mm-dd" ' 3:"hh:mm:ss" ' 4:"yyyy年mm月dd日" ' 5:"yyyymmdd" ' =========================================

asp.net 汉字转换拼音及首字母实现代码_实用技巧

Default.aspx页面 复制代码 代码如下: <%@ Page Language="C#" AutoEventWireup="true" CodeFile="Default.aspx.cs" Inherits="_Default" %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http:

A利用ASP小偷和Google实现在线翻译功能的代码_应用技巧

复制代码 代码如下: 有时候想为我们的网页提供多语言支持,如果一种语言用一张网页来做实在太麻烦了,幸好Google提供了语言工具功能,下面介绍如何利用它来实现网页多种语言之间的转换. lan.htm <form> <select name="lan"> <option value="en|de">英语 翻译成 德语</option> <option value="en|es">英语 翻译

asp删除mssql数据库中没有记录的图片代码_应用技巧

采用双重循环.把图片进行"."分割后名字问前面部分,那其余数据库中的 图片路径记录进行对比 采用vb的InStr函数 如果存在的话返回值>0,过可以得出结论 代码如下deal.asp 复制代码 代码如下: <%@ language="vbscript"%> <%response.Expires = 0%> <!--#include file="conn.asp"--> <% Dim objFSO,o