asp实现按日期时间查询数据

合集下载

asp简单教程及示例

目录1、创建 ASP 网页 (2)2、使用脚本语言 (8)3、使用变量和常量 (11)4、与客户端脚本交互操作 (16)5、编写过程 (19)6、使用集合 (22)7、处理用户输入 (29)8、使用组件和对象 (37)9、设置对象作用域 (41)10、将内容发送到浏览器 (45)11、包含文件 (52)12、管理会话 (54)13、访问数据源 (62)14、理解事务 (77)15、调试 ASP 脚本 (82)16、内置 ASP 对象 (86)创建 ASP 网页Active Server Pages (ASP) 文件是带有 .asp 扩展名的文本文件，它由下列内容组合而成：∙文本∙HTML 标记∙服务器端脚本使用 .asp 扩展名重命名现有的 .htm 或 .html 文件可以快速创建 .asp 文件。

如果文件不包含任何 ASP 功能，则服务器不进行 ASP 脚本处理，并很快将文件发送到客户端。

这为 Web 开发人员提供了极大的灵活性，因为即使目前不希望在文件中添加 ASP 功能，也可以使用 .asp 作为扩展名。

要在 Web 上发布 .asp 文件，请将新文件保存到网站上的虚拟目录（确保目录启用了“脚本”或“执行”权限）。

然后，使用浏览器输入文件的 URL 来请求文件。

（请注意，必须处理 ASP 网页，因此您无法通过输入其物理路径请求 .asp 文件）。

在浏览器中加载文件之后，可以发现服务器返回了 HTML 页。

这看起来有些奇怪，但要记住在发送文件之前，服务器将解析并执行所有 ASP 服务器端脚本。

用户将始终接收到标准的 HTML。

可以使用任意文本编辑器创建 .asp 文件。

随着对编辑器的深入使用，您将发现使用具有更多 ASP 支持的编辑器（如 Microsoft Visual InterDev 等）效率更高。

详细信息，请访问Microsoft Visual InterDev 网站。

添加服务器端脚本命令服务器端脚本是一系列指令，用于向 Web 服务器连续发出命令。

ASP函数大全

IsDate函数：判断某一变量是否为或者可以转化为日期表达式
IsEmpty函数：判断变量是否为空
IsNull函数：判断表达式中是否包含有效数据
IsNumeric函数：判断表达式的值是否为数字
Is_object_函数：判断表达式的值是否为某一对象
VarType函数：返回指定变量的子类型
CCur函数：将表达式转化为Currency子类型
CDate函数：将日期表达式转化为Date子类型
CSng函数：将表达式转化为Single数值子类型
Asc函数：返回与字符串首字母相对应的ANSI字符代码（～）
Oct函数：返回八进制的字符串
Hex函数：返回十六进制的字符串
格式化函数
TypeName函数：返回指定变量子类型的信息
对话框函数
MsgBox函数：弹出含有提示信息的对话框
InputBox函数：弹出可输入数据的对话框
脚本引擎函数
ScriptEngine函数：返回一个代表当前所使用的脚本语言的字符串
ScriptEngineBuildVersion函数：返回所使用的脚本引擎的编译版本号
实例： <%=Date%>
返回结果: 9/9/00
DateAdd()
函数返回一个被改变了的日期。
表达式 DateAdd(timeinterval,number,date)
允许数据类型:
timeinterval is the time interval to add;
number is amount of time intervals to add;
表达式 FormatCurrency(Expression [, Digit [, LeadingDigit [, Paren [, GroupDigit]]]])

asp显示当前日期和时间

演示效果为“2007年2月25日星期日正午12:42:48”。

使用方法：将下面的JS代码放到你想要显示的页面中（支持HTML页面），然后在你想要显示时间的位置插入下面的代码即可<div id="Clock" align="center" style="font-size: 12px;color:#000000"></div>JS代码如下：<script>function tick() {var hours, minutes, seconds, xfile;var intHours, intMinutes, intSeconds;var today, theday;today = new Date();function initArray(){this.length=initArray.arguments.lengthfor(var i=0;i<this.length;i++)this[i+1]=initArray.arguments[i] }var d=new initArray("星期日","星期一","星期二","星期三","星期四","星期五","星期六");theday = today.getYear()+"年" + [today.getMonth()+1]+"月"+today.getDate() + d[today.getDay()+1];intHours = today.getHours();intMinutes = today.getMinutes();intSeconds = today.getSeconds();if (intHours == 0) {hours = "12:";xfile = "午夜";} else if (intHours < 12) {hours = intHours+":";xfile = "上午";} else if (intHours == 12) {hours = "12:";xfile = "正午";} else {intHours = intHours - 12hours = intHours + ":";xfile = "下午";}if (intMinutes < 10) {minutes = "0"+intMinutes+":";} else {minutes = intMinutes+":";}if (intSeconds < 10) {seconds = "0"+intSeconds+" ";} else {seconds = intSeconds+" ";}timeString = theday+xfile+hours+minutes+seconds; Clock.innerHTML = timeString;window.setTimeout("tick();", 100);}window.onload = tick;</script>。

如何利用ASP自动获取两位数日期值

如何利用ASP自动获取两位数日期值作者：林乐新有时候，想做一个“历史上的今天”的连接，连接到相应的网页上，但是这样的网址最后是月和日的组合，需要按照日期每日更新，当然我们可以使用代码（使用时将＜＞修改为<>）＜%=month(now())%＞和＜%=day(now())%＞来自动获取月和日，不过网址上的日期组合要求月和日必须都是两位数，即1月2日应当表示为0102。

如何得到这样的日期值呢？笔者通过实践，可以按照以下方法来自动获取，也许在大虾们看来是很菜的，但毕笔者费了九牛二虎之力竟实现了这个功能，希望能为菜鸟们提供经验，下面和大家一起交流，不当之处请指正。

其实这个问题就是当月份或者日期小于10的情况下是难题，都是大于10的话用上述代码解决就OK了。

下面我们分别用两种思路对月和日在小于10的情况下解决如何在其前面加0的问题。

一、保持月份始终是两位数。

解决方法，使用判断语句，当自动获取的月份值小于10大于1时则显示“0”，代码为：＜% if Month(now())＜10 and Month(now())＞=1 then %＞0＜% end if %＞。

二、解决日始终为两位数。

解决方法，将月份乘以100加上日就可以了，比如说11月5日，就是11×100+5等于1105，要的就是这样的效果，代码为：＜%=(month(now())*100+day(now()))%＞。

最终两步合到一起的代码就是：＜% if Month(now())＜10 and Month(now())＞=1 then %＞0＜% end if %＞＜%=(month(now())*100+day(now()))%＞是不是很简单啊，有时候就是思路上难以突破。

大家有好的经验多多交流啊！。

使用sql语句查询日期在一定时间内的数据

使⽤sql语句查询⽇期在⼀定时间内的数据使⽤sql语句查询⽇期在⼀周内的数据select * from ShopOrder where datediff(week,ordTime,getdate()-1)=0 //查询当天⽇期在⼀周年的数据select * from ShopOrder where datediff(day,ordTime,getdate()-1)=0 //查询当天的所有数据SELECT * FROM A where datediff(d,datetime,getdate()) <=30 //前30天SELECT * FROM A WHERE DATEDIFF(m, shijian, GETDATE()) <=1 // 上⼀⽉--查询当天：select * from info where DateDiff(dd,datetime,getdate())=0--查询24⼩时内的:select * from info where DateDiff(hh,datetime,getDate())<=24--info为表名,datetime为数据库中的字段值--查询当天：select * from info where DateDiff(dd,datetime,getdate())=0--查询24⼩时内的:select * from info where DateDiff(hh,datetime,getDate())<=24--info为表名,datetime为数据库中的字段值Sql代码--查询当天记录另类的⽅法SELECT *FROM j_GradeShopWHERE (GAddTime BETWEEN CONVERT(datetime, LEFT(GETDATE(), 10) + ' 00:00:00.000')AND CONVERT(datetime, LEFT(GETDATE(), 10) + ' 00:00:00.000') + 1)ORDER BY GAddTime DESC--查询当天记录另类的⽅法SELECT *FROM j_GradeShopWHERE (GAddTime BETWEEN CONVERT(datetime, LEFT(GETDATE(), 10) + ' 00:00:00.000')AND CONVERT(datetime, LEFT(GETDATE(), 10) + ' 00:00:00.000') + 1)ORDER BY GAddTime DESCDATEDIFF 函数:语法:DATEDIFF ( datepart , startdate , enddate )备注:enddate 减去 startdate。

asp使用SQL语句的UpDate命令修改数据库表中的一个记录[整理]

使用SQL语句的UpDate命令修改数据库表中的一个记录
【目的】
学会修改数据库表中一个记录；
【关键语句】
1.修改记录的查询语句
修改记录：update 表名 set 字段名1=值1，… Where 关键字=值
① 使用Update语句，如果省略“Where条件”，将更新数据表内的全部记录。

② 赋值时，注意字段的类型。

若为文本型或备注型，则字段值两边要加引号，若为日期/时间型，则字段值两边要加上#号（加引号也可以）；若为布尔类型，则该字段的值为True或False；若为自动编号类型，则不要给该字段赋值。

如果字段1是数字，字段2是文本
或者
2.Asp代码
注：字符型可以转为数值型的函数有:
CInt():转为整型；Csng(),转为单精度；
CDbl,转为双精度；Clng（），转为长整型。

【过程】
一、设置IIS
二、打开Dreamweaver，创建站点
三、编辑首页
1.打开index.asp
2.添加删除链接
（1）表增加一列，
（2）编辑链接
链接代码如下：
或：
四、创建和编辑修改数据页面UpdateInput.asp
1.创建修改数据表单页UpdateInput.asp，表单提交到Update.asp
2.编辑asp代码
五、创建并编辑保持更新数据页Update.asp
1.创建保持更新数据页Update.asp
2.编辑代码
六、调试
主页单击“孙悟空”右边的修改链接
修改数据修改完后跳返回到主页。

ASP。net程序设计基础教程第2版03_第三章-课后习题答案

第3章的内置对象3.8.1 作业题1.使用Response对象，在Default.aspx上输出系统当前日期和时间。

如图1所示：图1 作业题3-12. 创建一个网页Default.aspx，用户输入姓名、年龄，如图2所示。

单击“确定”按钮后，页面跳转到Welcome.aspx，并显示用户刚才输入的信息，如图3所示。

要求只能采用Response和Request对象，页面跳转采用GET请求。

图2 Default.aspx 图3 Welcome.aspx3. 实现不同身份的用户，登录后进入不同的页面。

在Default.aspx的下拉列表中只有admin和user选项，如图4所示。

根据登录的用户名，分别进入Admin.aspx和User.aspx，并且显示如图5、图6所示的欢迎信息。

要求采用Session对象来实现。

图4 Default.aspx 图5 Admin.aspx 图6 User.aspx4.在作业题3的基础上分别统计admin和user的访问量，要求用Application对象来实现。

如图7——图9所示图7 Default.aspx 图8 Admin.aspx 图9 User.aspx5. 如图所示，在默认主页输入昵称，进入网站中的另一个页面NewPage，显示欢迎信息和客户端IP地址。

若是第一次访问，用cookie存储本次访问的时间。

下次再访问时，显示上次访问的时间。

要求采用server对象进行页面跳转并传递参数。

如图10——图12所示。

图10 输入昵称图11 第一次访问时的欢迎信息图12 非第一次访问时的欢迎信息见“课后习题源代码”文件夹下的“homework3-1——homework3-5”3.8.2 思考题有哪些常用内置对象？能否对每个内置对象用一句话简述他们的作用？答案：(1)Response:向浏览器输出信息。

(2)Request:从浏览器获取信息。

(3)Application:为所有用户提供共享信息。

ASP实验基础

ASP实验指导书实验一ASP编程环境设置一、实验目的及要求1．了解并掌握Windows XP/NT服务器上IIS（Internet服务管理器）的安装与配置；2．了解并掌握虚拟目录的设置方法；3．了解并掌握ASP文件上传、下载与运行方法。

4．掌握Dreamweaver MX站点环境的设置。

二、实验内容1、按教材所介绍的方法，在自己的个人计算机上不同的Windows 系统安装IIS或PWS（Personal Web Server，是微软开发的个人网站服务器）。

2、编写一个简单的ASP网页程序，实现在浏览器IE中输出“这是我的第一个ASP程序！”。

三、实验步骤（一）IIS的安装与配置ASP必须运行在服务器上，因此实验的第一项工作是构建服务器运行环境。

本实验指导以Windows 2000操作系统下的IIS 5.0进行操作说明。

1．安装IIS开始－>控制面板－>添加删除程序－>添加/删除Windows组件－>Windows组件向导，则出现如下对话框：若没选取IIS信息服务（IIS），则选择，并点按“下一步”按钮，按屏幕提示安装。

2．检验安装在IE浏览器的地址栏输入：或，观察其结果。

3．配置IIS 5.0开始－>控制面板－>管理工具－> Internet服务管理器，则出现如下对话框：对“默认网站”单击鼠标右键，出现弹出菜单，选择“属性”，则屏幕显示：可根据需要修改默认网站的属性，一般多为“主目录”与“文档”。

主目录中主要包括网站在本地机器中的实际路径以及相关权限；文档则设置网站启用的默认文档。

（二）虚拟目录的设置要从主目录以外的其他目录中进行发布，就必须创建虚拟目录。

“虚拟目录”不包含在主目录中，但在显示给客户浏览器时就象位于主目录中一样。

虚拟目录有一个“别名”，供Web浏览器用于访问此目录。

别名通常要比目录的路径名短，便于用户输入。

使用别名更安全，因为用户不知道文件是否真的存在于服务器上，所以便无法使用这些信息来修改文件。

ASP之数据类型转换讲解

注意 CDec 函数不能返回独立的数据类型，而总是返回一个 Variant，它的值已经被转换为 Decimal 子类型。
cint() 是ASP中的函数
函数将一个表达式转化为数字类型
表达式 CInt(expression)
允许数据类型: 任何有效的字符均可
实例：
<%
f = "234"
Is_Lng = false
exit function
elseif len(str) < 10 then
Is_Lng = true
exit function
end if
if clng(left(a_str , 9)) > 214748367 then
if not isnumeric(a_str) or len(str) > 5 then
Is_Int = false
exit function
elseif len(str) < 5 then
Is_Int = true
exit function
end if
Is_Lng = true
exit function
end if
end function
response.write cINT(f) 2
%>
返回结果: 236
转化字符"234"为数字"234"，如果字符串为空，则返回0值
经常见到cint和clng的溢出出错，如果有检测函数就不会出这个问题，下面这两个函数是应朋友要求写的，看一下吧
'检测字符串是否是整数
function Is_Int(a_str)

asp实验题

Dim smallNum,bigNum For i =1 To 25 If i*4 + (100-i)/4 =100 Then bigNum=i smallNum=100-i End if Next response.write "小和尚的数量为：" & smallNum & ";大和尚的数量为：" & bigNum
1．Response 的 Write 方法的两种写法有何区别。答：Response对象的Write方法将信息从Web服务器输出到浏览器。两种写法分别为Response.write和<%=%>,前者多用于在VBScript代码中，用来向客户端输出服务器端的信息；后者则多用于大量HTML代码中嵌入少量VBScript代码的时候。 2．Redirect 方法和超链接的区别是什么？答：两者都可以引导用户至另一个页面，但是超链接必须要用户单击超链接才行，而Redirect可以自动引导用户至另一个页面。 3．当使用 Redirect 方法时，为什么有时要在文件开头加 <% Reponse.Buffer=True %>这句话？答：因为如果Response.Buffer=False，就表示将页面直接输出到客户端，那么如果已经输出了部分页面内容到客户端，又想重定向到另一个页面，这是不允许的。而令Buffer等于True后，将把页面先输出到缓冲
1．在你的个人主页上添加时间显示信息，显示当天的日期、时间及星期几。 <html> <head> <title>习题3-2-（1）</title> </head> <body> <% Response.Write Date() & " " & Time() Select Case Weekday(Date()) Case 1 Response.Write "星期日" Case 2 Response.Write "星期一" Case 3 Response.Write "星期二" Case 4 Response.Write "星期三" Case 5 Response.Write "星期四" Case 6 Response.Write "星期五" Case 7 Response.Write "星期六" End Select %> </ head > </ html > 2．请编写程序段，将字符串“祖国”和“万岁”两边的空格去掉，并连成一个字符串“祖国万岁”。 <% dim combine combine = Trim(" 祖国 ") & Trim(" 万岁 ") response.write(combine) %> 3.请编写程序段，判断当天日期，如果是25日，则显示“请注意，

dateadd(),asp,vb中计算时间日期相加的函数

DateAdd()先举个例子：DateAdd("d",-2,now),函数返回的值是当前时间加上(-2)天的值。

不明白的话接着往下看。

DateAdd函数返回包含一个日期的 Variant (Date)，这一日期还加上了一段时间间隔。

语法DateAdd(interval, number, date)DateAdd 函数语法中有下列命名参数：部分描述interval 必要。

字符串表达式，是所要加上去的时间间隔。

number 必要。

数值表达式，是要加上的时间间隔的数目。

其数值可以为正数（得到未来的日期），也可以为负数（得到过去的日期）。

date 必要。

Variant (Date) 或表示日期的文字，这一日期还加上了时间间隔。

设置 >>相关链接>>DateDiff(),asp,vb,中时间间隔(计算时间差)函数interval 参数具有以下设定值：设置描述yyyy 年q 季m 月y 一年的天数d 日 >>相关链接>>split()函数在javascript中和VB中用法w 一周的天数ww 周h 时n 分钟s 秒说明可以使用 DateAdd 函数对日期加上或减去指定的时间间隔。

例如，可以用 DateAdd 来计算距今天为三十天的日期；或者计算距现在为 45 分钟的时间。

为了对 date 加上“日”，可以使用“一年的日数” (“y”)，“日” (”d”) 或“一周的日数” (”w”)。

DateAdd 函数将不返回有效日期。

在以下实例中将 1 月31 日加上一个月：DateAdd(m, 1, 31-Jan-95)上例中，DateAdd 返回 1995 年 2 月 28 日，而不是 1995 年 2 月 31 日。

如果 date 是1996 年 1 月 31 日，则由于 1996 年是闰年，返回值是 1996 年 2 月 29 日。

如果计算的日期超前 100 年（减去的年度超过 date 中的年份），就会导致错误发生。

ASP获取时间属于第几周,获取时间属于第几周的日期范围

<%'获取时间属于第几周'整理 Function GetWeekNo(InputDate)dim pytY,pytNewYear,pytNewYearWeek,pytAllDay,pytBanWeek,NumWeek NumWeek = 0pytY = Year(InputDate)pytNewYear=pytY &"-1-1"pytNewYearWeek = Weekday(pytNewYear)pytAllDay = DateDiff("d",pytNewYear,InputDate)pytBanWeek = 8-pytNewYearWeekif pytBanWeek<7 ThenNumWeek = 1pytAllDay = pytAllDay - pytBanWeekend iftempx = pytAllDay/7tempx = -Int(-tempx)NumWeek = NumWeek+tempxGetWeekNo = NumWeekend Function%><%'获取时间属于第几周的日期范围'整理 Function getDateRange(byVal Index)Dim CurDate, retDate, Days, retValCurDate = CDate(Year(Date()) & "-1-1")if (WeekDay(CurDate)<>1) Then Index =Index-1Days=Index * 7retDate=DateAdd("d", (Days - 1), CurDate)if (retDate < CurDate) Then retDate=CurDateretDate=DateAdd("d", -Weekday(retDate), retDate)if (retDate< CurDate) thenretVal=CurDate & "->" & DateAdd("d", 7, retDate)elseretVal=retDate + 1 & "->" & DateAdd("d", 7, retDate)end ifgetDateRange = retValEnd Function%><%'调用函数'获取当前日期是第几周以及该周的时间范围'整理 response.Write "第"&GetWeekNo(date())&"周（"&getDateRange(GetWeekNo(date()))&"）"%>。

asp常用自定义函数大全(网站开发必备)

函数列表：'1：建立数据库的连接ConnOpen(DataBaseConnectStr,DBType,Conn_object)'2：断开数据库的连接ConnClose(Conn_object)'3：防止SQL注入SafeRequest(paraName,paraType)'4：格式化日期DateFormat(dateStr,dateType)'5：显示错误提示ShowErr(errStr)'6：查询字符串中特定数据SelectStr(contentStr,patternStr,patternNum)'7：过滤指定字符Leach(contentStr,badWords)'8：远程文件内容抓取Seize(urlStr)'9：数据流编码处理BytesToBstr(body,cset)'10：编码cookies codeCookie(contentStr)'11：解码cookies DecodeCookie(contentStr)'12：检验数据提交来源是否合法ChkPost()'13：个性化加密MyEncrypt(StrPassword)'14：禁止浏览器缓存本页NoBuffer()'15：网页格式化输入文本HTMLEncode(fString)'16：从头部截取字符串的指定长度(按字符数算) GotTopic(Str,StrLen)'17：检测验证码CheckRadomPass(RadomPass)'18：生成验证码GetCode()'19：获取客户端操作系统版本GetSystem()'20：数据库事务处理ConnManage(Conn_object)'21：快速排序（递归）QuickSort(arr,Low,High)'22：将数组的元素以特定字符串连起来arr_join(arr,character)'23：返回字符串以某分割符分割的数目count_character(str,character)'24：截取含有分割符的字符串中指定数目的字符串inter_str_by_character_num(str,character,start,num)'25：利用Stream下载文件downloadFile(strFile)'26：返回信息send_back(ResultWords)'27：获取错误信息get_err()'28：与SafeRequest相反SafeResponse(content)'29：保存远程图片SaveRemoteFile(LocalFileName,RemoteFileUrl)'30： ...dim language_arr(10)language_arr(0) = "数据库连接的参数设置错误！"language_arr(1) = "数据库连接的类型参数设置错误！"language_arr(2) = "数据库连接失败！"language_arr(3) = "非法的参数值！"language_arr(4) = "参数值不是有效的日期格式！"language_arr(5) = "操作失败！"language_arr(6) = "栏目有重名！"language_arr(7) = "栏目名称为空！"language_arr(8) = "栏目文件夹创建失败！"language_arr(9) = "您没有此权限！"'============================================================================================================================'函数ID：1'函数作用：建立数据库的连接'作者名称：茫仔xiamangmang@ 博客：'建立时间：2006-2-15 10：28'修改时间：'传人参数：' connectStr：数据库连接字符串' connectType：数据库类别-数字型，0为Access,1为MS SQL'返回值：'=================================================================== =========================================================sub ConnOpen(DataBaseConnectStr,DBType,Conn_object)Set Conn_object = Server.Createobject("adodb.connection")if DataBaseConnectStr = "" then call ShowErr(language_arr(0))if DBType = 0 thenConn_object.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DataBaseConnectStrelseif DBType = 1 thenConn_object.Open "Provider=SQLOLEDB.1;" & DataBaseConnectStrelsecall ShowErr(language_arr(1))end iferr.clearend sub'=================================================================== ========================================================='函数ID：2'函数作用：断开数据库的连接'作者名称：茫仔xiamangmang@ 博客：'建立时间：2006-2-16 15:10'修改时间：'传人参数：'返回值：'=================================================================== =========================================================Sub ConnClose(Conn_object)Conn_object.closeset Conn_object = nothingEnd sub'=================================================================== ========================================================='函数ID：3'函数作用：防止SQL注入'作者名称：/infoview/Article_2906.html'建立时间：2006-2-16 15:32'修改时间：'传人参数：' paraName:参数名称-字符型' paraType:参数类型-数字型(1表示以上参数是数字，0表示以上参数为字符)'返回值：' 过滤后的字符串'=================================================================== =========================================================Function SafeRequest(paraName,paraType)dim paraValueparaValue = Request(paraName)select case paraTypecase 0paraValue = replace(paraValue,"'","[system:34]")paraValue = replace(paraValue,"=","[system:61]")case 1if not IsNumeric(paraValue) then call ShowErr(language_arr(3))case -1if not IsNumeric(paraValue) then call ShowErr(language_arr(3))if paraValue = "" then paraValue = 0case elseif len(paraValue) > paraType then call ShowErr(language_arr(3))paraValue = replace(paraValue,"'","[system:34]")paraValue = replace(paraValue,"=","[system:61]")end selectSafeRequest = paraValueEnd function'=================================================================== ========================================================='函数ID：4'函数作用：格式化日期'作者名称：茫仔xiamangmang@ 博客：'建立时间：2006-2-16 15:45'修改时间：'传人参数：' dateStr:日期字符串' paraType:日期类型-数字型'返回值：' 格式化后的日期'=================================================================== =========================================================Function DateFormat(dateStr,dateType)Dim dateStringif IsDate(dateStr) = False thencall ShowErr(language_arr(4))end ifSelect Case dateTypeCase "1"dateString = Year(dateStr)&"-"&Month(dateStr)&"-"&Day(dateStr)Case "2"dateString = Year(dateStr)&"."&Month(dateStr)&"."&Day(dateStr)Case "3"dateString = Year(dateStr)&"/"&Month(dateStr)&"/"&Day(dateStr)Case "4"dateString = Month(dateStr)&"/"&Day(dateStr)&"/"&Year(dateStr)Case "5"dateString = Day(dateStr)&"/"&Month(dateStr)&"/"&Year(dateStr)Case "6"dateString = Month(dateStr)&"-"&Day(dateStr)&"-"&Year(dateStr)Case "7"dateString = Month(dateStr)&"."&Day(dateStr)&"."&Year(dateStr)Case "8"dateString = Month(dateStr)&"-"&Day(dateStr)Case "9"dateString = Month(dateStr)&"/"&Day(dateStr)Case "10"dateString = Month(dateStr)&"."&Day(dateStr)Case "11"dateString = Month(dateStr)&language_arr(6)&Day(dateStr)&language_arr(7)Case "12"dateString = Day(dateStr)&language_arr(7)&Hour(dateStr)&language_arr(8)case "13"dateString = Day(dateStr)&language_arr(7)&Hour(dateStr)&language_arr(8)Case "14"dateString = Hour(dateStr)&language_arr(8)&Minute(dateStr)&language_arr(9)Case "15"dateString = Hour(dateStr)&":"&Minute(dateStr)Case "16"dateString = Year(dateStr)&language_arr(5)&Month(dateStr)&language_arr(6)&Day(dateStr)&languag e_arr(7)Case ElsedateString = dateStrEnd SelectDateFormat = dateStringEnd Function'=================================================================== ========================================================='函数ID：5'函数作用：显示错误提示'作者名称：茫仔xiamangmang@ 博客：'建立时间：2006-2-16 16:29'修改时间：'传人参数：' errStr:错误提示-字符型'返回值：返回提交页面'=================================================================== =========================================================sub ShowErr(errStr)Response.Write("<script>alert("""&errStr&""");location.href=""javascript:history.back()"";</ script>")Response.EndEnd sub'=================================================================== ========================================================='函数ID：6'函数作用：查询字符串中特定数据'作者名称：茫仔xiamangmang@ 博客：'建立时间：2006-2-16 16:40'修改时间：'传人参数：' contentStr:查询字符串' patternStr:匹配式字符串' patternNum:查询定位-数字型'返回值：' 找不到返回false' patternNum为-1返回所有匹配字符串并以[10]隔开' 否则返回指定位置的字符串'=================================================================== =========================================================Function SelectStr(contentStr,patternStr,patternNum)dim objRegExp,matches,matcheif contentStr = "" thencall ShowErr(language_arr(12))end ifSet objRegExp=new RegExp '建立正则表达式objRegExp.pattern = patternStr '设置模式objRegExp.IgnoreCase =False '设置是否区分字符大小写objRegExp.Global=true '设置全局可用性objRegExp.pattern = patternStr '匹配式if objRegExp.test(contentStr) = false then '全局匹配SelectStr = falseelseSet matches = objRegExp.Execute(contentStr) '执行搜索if patternNum = -1 thenfor each matche in matchesSelectStr = SelectStr &"[10]"& matche.valuenextelseSelectStr = matches.Item(patternNum).valueend ifend ifSet objRegExp=NothingEnd Function'=================================================================== ========================================================='函数ID：7'函数作用：过滤指定字符'作者名称：茫仔xiamangmang@ 博客：'建立时间：2006-2-16 16:59'修改时间：'传人参数：' contentStr:源字符串' badWords:要过滤的字符串，若数目大于1则用英文状态的"^"隔开'返回值：' 返回过滤后的字符串'=================================================================== =========================================================Function Leach(contentStr,badWords)dim badWordsArr,ibadWordsArr = Split(badWords,"^")for i = 0 to UBound(badWordsArr)contentStr = replace(contentStr,badWordsArr(i),"")nextleach = contentStrend Function'=================================================================== ========================================================='函数ID：8'函数作用：远程文件内容抓取'作者名称：茫仔xiamangmang@ 博客：'建立时间：2006-2-16 17:24'修改时间：'传人参数：' urlStr:远程文件地址'返回值：' 返回远程文件内容'=================================================================== =========================================================function Seize(urlStr)dim connectif urlStr = "" thencall ShowErr(language_arr(13))elseSet connect = CreateObject("Microsoft.XMLHTTP") '建立XMLHTTP对象connect.open "GET",urlStr,false '设置参数，通信方式为get，请求为同步，后面还有两个可选属性：userID，password用于用户验证connect.send() '数据发送，Send方法的参数类型可以是字符串、DOM树或任意数据流Seize = BytesToBStr(connect.responseBody,"GB2312") '返回信息，编码为中文set connect = nothingend ifend function'=================================================================== ========================================================='函数ID：9'函数作用：数据流编码处理'作者名称：茫仔xiamangmang@ 博客：'建立时间：2006-2-16 17:30'修改时间：'传人参数：' body:数据内容' cset:编码格式'返回值：' 编码处理后的信息'=================================================================== =========================================================Function BytesT oBstr(body,cset)dim objstreamset objstream = Server.CreateObject("adodb.stream")objstream.Type = 1 '以二进制模式打开objstream.Mode =3objstream.Openobjstream.Write bodyobjstream.Position = 0objstream.Type = 2objstream.Charset = csetBytesToBstr = objstream.ReadT extobjstream.Closeset objstream = nothingEnd Function'=================================================================== ========================================================='函数ID：10'函数作用：编码cookies'作者名称：茫仔xiamangmang@ 博客：'建立时间：2006-2-16 17:36'修改时间：'传人参数：' contentStr:数据内容'返回值：' 编码处理后的信息，字符以"a"隔开'=================================================================== =========================================================Function codeCookie(contentStr)Dim i,returnStrFor i = Len(contentStr) to 1 Step -1returnStr = returnStr & Ascw(Mid(contentStr,i,1))If (i <> 1) Then returnStr = returnStr & "a"NextCodeCookie = returnStrEnd Function'=================================================================== ========================================================='函数ID：11'函数作用：解码cookies'作者名称：茫仔xiamangmang@ 博客：'建立时间：2006-2-17 16:58'修改时间：'传人参数：' contentStr:数据内容'返回值：' 解码处理后的信息'=================================================================== =========================================================Function DecodeCookie(contentStr)Dim iDim StrArr,StrRtnStrArr = Split(contentStr,"a")For i = 0 to UBound(StrArr)If isNumeric(StrArr(i)) = True ThenStrRtn = Chrw(StrArr(i)) & StrRtnElseStrRtn = contentStrExit FunctionEnd IfNextDecodeCookie = StrRtnEnd Function'=================================================================== ========================================================='函数ID：12'函数作用：检验数据提交来源是否合法'作者名称：茫仔xiamangmang@ 博客：'建立时间：2006-2-18 18:55'修改时间：'传人参数：''返回值：' Boolean'=================================================================== =========================================================Function ChkPost()Dim server_v1,server_v2Chkpost=Falseserver_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))If Mid(server_v1,8,len(server_v2))=server_v2 Then Chkpost=TrueEnd Function'=================================================================== =========================================================。

asp中时间的获取与加减

xxxx‎x xxxx‎x xxxx‎x xxxx‎x xxxx‎x xxxx‎x xxxx‎x xxxx‎x xxxx‎x x在G‎l obal‎.asax‎.cs文件‎中获取当‎前时间p‎r otec‎t ed v‎o id A‎p plic‎a tion‎_Begi‎n Requ‎e st(O‎b ject‎send‎e r, E‎v entA‎r gs e‎){‎ App‎l icat‎i on["‎S tart‎T ime"‎] = S‎y stem‎.Date‎T ime.‎N ow;‎}x‎x xxxx‎x xxxx‎x xxxx‎x xxxx‎x xxxx‎x xxxx‎x xxxx‎x xxxx‎x xx‎1、最简单‎的代码<‎%‎ res‎p onse‎.writ‎e n‎o w() ‎‎%>2、‎可显示星期‎的代码<‎s crip‎t l‎a ngua‎g e="J‎a vaSc‎r ipt"‎>‎‎‎‎ ‎‎‎‎</‎s crip‎t>3、‎可显示几分‎几秒和星期‎几的时间‎<% ‎re‎s pons‎e.wri‎t e ‎f orma‎t date‎t ime(‎d ate(‎),vbl‎o ngda‎t e) ‎r‎e spon‎s e.wr‎i te ‎hour‎(now(‎)) ‎re‎s pons‎e.wri‎t e"点"‎‎resp‎o nse.‎w rite‎ mi‎n ute(‎n ow()‎)‎ res‎p onse‎.writ‎e "‎分" ‎re‎s pons‎e.wri‎t e ‎s econ‎d(now‎()) ‎r‎e spon‎s e.wr‎i te ‎"秒" ‎‎r espo‎n se.w‎r ite ‎ wee‎k dayn‎a me(w‎e ekda‎y(dat‎e()))‎‎%>则‎会显示"2‎004年4‎月23日1‎7点54分‎56秒星期‎五"no‎w()当前‎日期和时间‎‎date‎()当前日‎期xxx‎x xxxx‎x xxxx‎x xxxx‎x xxxx‎x xxxx‎x xxxx‎x xxxx‎x xxxx‎x xxxx‎x xxxx‎x xxxx‎x xxxx‎x xxp‎r otec‎t ed v‎o id A‎p plic‎a tion‎_EndR‎e ques‎t(Obj‎e ct s‎e nder‎, Eve‎n tArg‎s e)‎{‎Syst‎e m.Da‎t eTim‎e sta‎r tTim‎e = (‎S yste‎m.Dat‎e Time‎)Appl‎i cati‎o n["S‎t artT‎i me"]‎;‎S yste‎m.Dat‎e Time‎endT‎i me =‎Syst‎e m.Da‎t eTim‎e.Now‎;‎S yste‎m.Tim‎e Span‎ts =‎endT‎i me -‎star‎t Time‎;‎R espo‎n se.W‎r ite(‎"页面执行‎时间:"+‎ts.M‎i llis‎e cond‎s +" ‎毫秒");‎xx‎x xxxx‎x xxxx‎x xxxx‎x xxxx‎x xxxx‎x xxxx‎x xxxx‎x xxxx‎x xxxx‎x xxxx‎‎相减‎publ‎i c do‎u ble ‎g etTo‎t alDa‎y s(st‎r ing ‎o ldDa‎t e)‎‎ {‎‎‎doub‎l e to‎t alDa‎y s = ‎0;‎‎‎s trin‎g[] d‎a te =‎oldD‎a te.S‎p lit(‎'-');‎‎‎ Da‎t eTim‎e dt1‎= ne‎w Dat‎e Time‎(int.‎P arse‎(date‎[0]),‎int.‎P arse‎(date‎[1]),‎int.‎P arse‎(date‎[2]),‎00, ‎00, 0‎0);‎‎‎Date‎T ime ‎d t2 =‎Date‎T ime.‎N ow;‎‎‎ tot‎a lDay‎s = M‎a th.R‎o und(‎d t2.S‎u btra‎c t(dt‎1).To‎t alDa‎y s);‎‎‎ ret‎u rn t‎o talD‎a ys;‎‎ } ‎}‎xxxx‎x xxxx‎x xxxx‎x xxxx‎x xxxx‎x xxxx‎x xxxx‎x xxxx‎x xxxx‎x xxxx‎x xxxx‎x xxxx‎x xxxx‎x xxx ‎加一月‎‎热心网友‎d atea‎d d("m‎",1,n‎o w())‎m表示月‎d表示日‎ww表示‎周n表示‎分钟q表‎示季y表‎示一年的日‎数w表示‎一周的日数‎h表示小‎时s表示‎秒yyy‎y表示年‎d atea‎d d函数,‎返回一个被‎改变的日期‎,也以是未‎来的日期(‎正数),也‎可以是过去‎的日期(负‎数)‎x xxxx‎x xxxx‎x xxxx‎x xxxx‎x xxxx‎x xxxx‎x xxxx‎x xxxx‎x xxxx‎x xxxx‎x一、A‎S P中两个‎日期相加‎所用函‎数：Dat‎e Add ‎（ I ,‎N , ‎D）‎将一个日‎期加上一段‎期间后的日‎期。

asp格式化日期时间格式的代码

asp格式化日期时间格式的代码' ====================================== ======' 格式化时间(显示)' 参数：n_Flag' 1:"yyyy-mm-dd hh:mm:ss"' 2:"yyyy-mm-dd"' 3:"hh:mm:ss"' 4:"yyyy年mm月dd日"' 5:"yyyymmdd"' ====================================== ======Function Format_Time(s_Time, n_Flag)Dim y, m, d, h, mi, sFormat_Time = ""If IsDate(s_Time) = False Then Exit Functiony = cstr(year(s_Time))m = cstr(month(s_Time))If len(m) = 1 Then m = "0" & md = cstr(day(s_Time))If len(d) = 1 Then d = "0" & dh = cstr(hour(s_Time))If len(h) = 1 Then h = "0" & hmi = cstr(minute(s_Time))If len(mi) = 1 Then mi = "0" & mis = cstr(second(s_Time))If len(s) = 1 Then s = "0" & sSelect Case n_FlagCase 1' yyyy-mm-dd hh:mm:ssFormat_Time = y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & sCase 2' yyyy-mm-ddFormat_Time = y & "-" & m & "-" & dCase 3' hh:mm:ssFormat_Time = h & ":" & mi & ":" & sCase 4' yyyy年mm月dd日Format_Time = y & "年" & m & "月" & d & "日"Case 5' yyyymmddFormat_Time = y & m & dEnd SelectEnd Function。

ASP文本框显示当前日期时间

ASP文本框显示当前日期时间now() 获取当前系统日期和时间,ASP输出可以这样写：<%=now()%>Year(now()) 获取年份，ASP输出：<%=Year(now())%>Month(now()) 获取当前月份，ASP输出：<%=Month(now())%>day(now()) 获取当天数，ASP输出：<%=day(now())%>Minute(now()) 获取分钟数，ASP输出：<%=Minute(now())%>Second(now()) 获取秒钟数，ASP输出：<%=Second(now())%>date() 获取当前系统日期，格式为：2004-2-28time() 获取当前系统时间，格式为：22:24:59以2005-5-2 22:37:30星期一为例：2005-5-2：<%=date()%>2005：<%=year(date())%>5：<%=month(date())%>2：<%=day(date())%>22：<%=hour(now())%>37：<%=minute(now())%>30：<%=second(now())%>星期一：<%=weekdayname(weekday(now)) %>ASP时间函数详解Date 函数描述:返回当前系统日期。

语法:DateDateAdd 函数描述:返回已添加指定时间间隔的日期。

语法:DateAdd(interval, number, date)interval: 必选。

字符串表达式，表示要添加的时间间隔。

有关数值，请参阅“设置”部分。

number: 必选。

数值表达式，表示要添加的时间间隔的个数。

数值表达式可以是正数（得到未来的日期）或负数（得到过去的日期）。

date: 必选。

ASP常用日期格式化函数FormatDate（）

ASP常⽤⽇期格式化函数FormatDate（）核⼼代码<%'功能:多功能⽇期格式化函数'来源:/article.asp?id=477Function FormatDate(sDateTime, sReallyDo)Dim sJorkinsJorkin = GetLocale()If Not IsDate(sDateTime) Then sDateTime = Now()sDateTime = CDate(sDateTime)Select Case UCase(sReallyDo & "")Case "0", "1", "2", "3", "4"FormatDate = FormatDateTime(sDateTime, sReallyDo)Case "00"FormatDate = FormatDate(sDateTime, "YYYY-MM-DD hh:mm:ss")Case "01"FormatDate = FormatDate(sDateTime, "YYYY年MM⽉DD⽇")Case "02"FormatDate = FormatDate(sDateTime, "YYYY-MM-DD")Case "03"FormatDate = FormatDate(sDateTime, "hh:mm:ss")Case "04"FormatDate = FormatDate(sDateTime, "hh:mm")Case "ISO8601", "GOOGLE", "SITEMAP" '//ISO8601格式, ⼀般⽤于GoogleSiteMap, "+08:00" 为时区.FormatDate = FormatDate(sDateTime, "YYYY-MM-DDThh:mm:ss.000+08:00")Case "RFC822", "RSS", "FEED" '//RFC822格式, ⼀般⽤于RSS, "+0800" 为时区.SetLocale("en-gb")FormatDate = FormatDate(sDateTime, "ew, DD eMM YYYY hh:mm:ss +0800")SetLocale(sJorkin)Case "RND", "RAND", "RANDOMIZE" '//随机字符串RandomizesJorkin = Rnd()FormatDate = FormatDate(sDateTime, "YYYYMMDDhhmmss") & _Fix((9 * 10^6 -1) * sJorkin) + 10^6Case ElseFormatDate = sReallyDoFormatDate = Replace(FormatDate, "YYYY", Year(sDateTime))FormatDate = Replace(FormatDate, "DD", Right("0" & Day(sDateTime), 2))FormatDate = Replace(FormatDate, "hh", Right("0" & Hour(sDateTime), 2))FormatDate = Replace(FormatDate, "mm", Right("0" & Minute(sDateTime), 2))FormatDate = Replace(FormatDate, "ss", Right("0" & Second(sDateTime), 2))FormatDate = Replace(FormatDate, "YY", Right(Year(sDateTime), 2))FormatDate = Replace(FormatDate, "D", Day(sDateTime))FormatDate = Replace(FormatDate, "h", Hour(sDateTime))FormatDate = Replace(FormatDate, "m", Minute(sDateTime))FormatDate = Replace(FormatDate, "s", Second(sDateTime))If InStr(1, FormatDate, "EW", 1) > 0 ThenSetLocale("en-gb")FormatDate = Replace(FormatDate, "EW", UCase(WeekdayName(Weekday(sDateTime), False)))FormatDate = Replace(FormatDate, "eW", WeekdayName(Weekday(sDateTime), False))FormatDate = Replace(FormatDate, "Ew", UCase(WeekdayName(Weekday(sDateTime), True)))FormatDate = Replace(FormatDate, "ew", WeekdayName(Weekday(sDateTime), True))SetLocale(sJorkin)ElseFormatDate = Replace(FormatDate, "W", WeekdayName(Weekday(sDateTime), False))FormatDate = Replace(FormatDate, "w", WeekdayName(Weekday(sDateTime), True))End IfIf InStr(1, FormatDate, "EMM", 1) > 0 ThenSetLocale("en-gb")FormatDate = Replace(FormatDate, "EMM", MonthName(Month(sDateTime), False))FormatDate = Replace(FormatDate, "eMM", MonthName(Month(sDateTime), True))SetLocale(sJorkin)ElseFormatDate = Replace(FormatDate, "MM", Right("0" & Month(sDateTime), 2))FormatDate = Replace(FormatDate, "M", Month(sDateTime))End IfEnd SelectEnd Function%>⽤法如下：<%'将⽇期格式化为ISO8601格式Response.Write(FormatDate("2008-03-06 08:03:06", "SITEMAP")) '将⽇期格式化为RFC822格式Response.Write(FormatDate("2008-03-06 08:03:06", "RSS"))'将⽇期格式化为(英星期, 英⽉/⽇/年)Response.Write(FormatDate(Now(), "eW, EMM/DD/YYYY"))'将⽣成⼀个以年⽉⽇时分秒随机数的字符串Response.Write(FormatDate(Now(), "RND"))%>更多的可以查看下⾯的相关⽂章。

Asp.net中时间格式化的6种方法详细总结

中时间格式化的6种⽅法详细总结1. 数据控件绑定时格式化⽇期⽅法:复制代码代码如下:<asp:BoundColumn DataField="AddTime" HeaderText="添加时间" DataFormatString="{0:yyyy-MM-dd HH:mm}> </asp:BoundColumn><asp:BoundField DataField="AddTime" HeaderText="添加时间" DataFormatString="{0:yyyy-MM-dd}" />2. ⽤DataBinder.Eval进⾏数据绑定时:复制代码代码如下:DataBinder.Eval(Container.DataItem,"AddTime","{0:yyyy-MM-dd}")3. 直接⽤ToString⽅法转换⽇期显⽰格式:复制代码代码如下:DateTime.Now.ToString("yyyy-MM-dd HH:mm:ss")4. ⽤String类转换⽇期显⽰格式:复制代码代码如下:String.Format("{0:yyyy-MM-dd}", DateTime.Now)5. ⽤DateTime.Parse⽅法转换⽇期显⽰格式复制代码代码如下:DateTime.Parse("2012-2-22").ToString("yyyy-MM-dd")6. ⽤Convert.ToDateTime⽅法转换⽇期显⽰格式:复制代码代码如下:Convert.ToDateTime("2012-12-21").ToString("yyyy-MM-dd")标准 DateTime 格式说明符/zh-cn/library/az4se3k1(v=vs.80).aspx⾃定义 DateTime 格式说明符/zh-cn/library/8kb3ddd4(v=vs.80).aspx。

以ASP实现数据查询及输入

一、利用ASP和ADO实现数据库操作的工作流程ASP内嵌了五个对象Resquest、Response、Server、Seesion、Application，实现信息的获取、传送及保存等。

ADO的主要对象有Connection、Command、Recordset等。

利用ADO的Connection 对象和ODBC的设定，可以建立与多种数据库（Informix、Oracle、Access等）的连接，从而实现数据的输入、查询、更新等操作。

首先，利用ASP 的Server对象的CreateObject方法创建一个ADO的对象实例，以ADO的Connection对象建立相应数据库与应用程序之间的联接；接着，通过Command对象将数据请求的SQL （Standard Query Language）标准描述语句指定到Command对象的属性，然后执行数据库的输入、查询等操作；最后，数据库服务器将响应的数据结果存储到Recordset对象，在服务器端的脚本语言环境中就可以加以处理、分析、显示数据于客户端浏览器上。

二、实现数据输入、查询的实例公司的分支机构众多、分布广泛，上级机构经常要对各基层机构的业务数据进行汇总，统计。

以前主要是通过电话上报数据，然后手工汇总、统计，编制成报表。

随着公司内部的联网，就可以将网络技术和数据库技术结合，将数据的汇总、统计实现自动化。

以下将结合公司的实际，通过与Informix数据库的连接实现此功能：本教程来自/article/html/28021.html1．创建数据库在UNIX操作系统上创建一个用于数据汇总、统计的数据库，将数据库命名为cxdb，在此数据库上创建如下表：Create table test(br char(6), #单位代码dt date, #日期sco money,#业绩)2．连接数据库在WINDOWS98操作系统上，安装数据库连接驱动程序Informix-CLI，并运行Informix-CLI的SetNet32进行配置，然后运行Ilogin 32 Demo 测试配置是否正确。