<%
function dt(v)
dim dy
dy=31
Marr=array(4,6,9,11)
yyyy=Year(Date())
mm=Month(Date())
dd=Day(Date())
if mm=2 then
if yyyy mod 400 or (yyyy mod 4=0 and yyyy mod v0=0) then
dy=29
else
dy=28
end if
else
for i=0 to 3
if Marr(i)=mm then
dy=30
exit for
end if
next
end if
if dd-v<=0 then
if Month(Date())-1<=0 then
dt=(Year(Date())-1)&"-"&(12-(Month(Date())-1))&"-"&(dy-abs(dd-v))&" 00:00:00"
else
dt=(Year(Date()))&"-"&(12-(Month(Date())-1))&"-"&(dy-abs(dd-v))&" 00:00:00"
end if
else
dt=(Year(Date()))&"-"&(Month(Date()))&"-"&(dd-v)&" 00:00:00"
end if
end function
%>
<body>
<%
response.Write(dt(4))调用
%> ......
ASP.NET Web 部件是一组集成控件，用于创建网站使最终用户可以直接从浏览器修改网页的内容、外观和行为。这些修改可以应用于网站上的所有用户或个别用户。当用户修改页和控件时，可以保存这些设置以便跨以后的各浏览器会话保留用户的个人首选项，这种功能称为个性化设置。这些 Web 部件功能意味着开发人员可以使最终用户动态地对 Web 应用程序进行个性化设置，而无需开发人员或管理员的干预。
通过使用 Web 部件控件集，开发人员可以使最终用户执行下列操作：
·对页内容进行个性化设置。用户可以像操作普通窗口一样在页上添加新 Web 部件控件，或者移除、隐藏或最小化这些控件。
·对页面布局进行个性化设置。用户可以将 Web 部件控件拖到页的不同区域，也可以更改控件的外观、属性和行为。
·导出和导入控件。用户可以导入或导出 Web 部件控件设置以用于其他页或站点，从而保留这些控件的属性、外观甚至是其中的数据。这样可减少对最终用户的数据输入和配置要求。
·创建连接。用户可以在各控件之间建立连接；例如，Chart 控件可以为 Stock Ticker 控件中的数据显示图形。用 ......
ASP.NET Web 部件是一组集成控件，用于创建网站使最终用户可以直接从浏览器修改网页的内容、外观和行为。这些修改可以应用于网站上的所有用户或个别用户。当用户修改页和控件时，可以保存这些设置以便跨以后的各浏览器会话保留用户的个人首选项，这种功能称为个性化设置。这些 Web 部件功能意味着开发人员可以使最终用户动态地对 Web 应用程序进行个性化设置，而无需开发人员或管理员的干预。
通过使用 Web 部件控件集，开发人员可以使最终用户执行下列操作：
·对页内容进行个性化设置。用户可以像操作普通窗口一样在页上添加新 Web 部件控件，或者移除、隐藏或最小化这些控件。
·对页面布局进行个性化设置。用户可以将 Web 部件控件拖到页的不同区域，也可以更改控件的外观、属性和行为。
·导出和导入控件。用户可以导入或导出 Web 部件控件设置以用于其他页或站点，从而保留这些控件的属性、外观甚至是其中的数据。这样可减少对最终用户的数据输入和配置要求。
·创建连接。用户可以在各控件之间建立连接；例如，Chart 控件可以为 Stock Ticker 控件中的数据显示图形。用 ......
在将 ASP.NET Web 部件的集成控件集中的控件包括在网页中时，这些控件将遵守该页的规则；具体而言就是，这些控件将在该页的生命周期内运行。
每个网页都具有一个生命周期，网页在其生命周期内将执行一系列处理步骤。这些步骤包括初始化、创建控件、还原和维护状态、运行事件处理程序代码以及进行呈现。了解页面的生命周期及其应用于 Web 部件的方式具有重要意义，这样您才能在该周期中的适当阶段实现您的逻辑。具体而言就是，您必须让自己熟悉页面的生命周期，才能正确初始化 Web 部件控件、用个性化设置数据填充属性以及运行任何行为逻辑。
1、初始化
在初始化阶段，将执行下列主要任务：
·WebPartZone 对象注册到 WebPartManager 控件中。
·WebPartManager 控件加载静态 WebPart 对象。
·WebPartManager 控件订阅控件生命周期事件。
·WebPartManager 控件为此时已处于控件层次结构中的每个静态 WebPart 对象均调用 TrackViewState 方法。
如果需要以编程方式设置 GenericWebPart 控件的属性，则应在此阶段执行这一操作，这样便可以在适当的时刻（例如，加载个性化设置时）使用这些属性。
......
在将 ASP.NET Web 部件的集成控件集中的控件包括在网页中时，这些控件将遵守该页的规则；具体而言就是，这些控件将在该页的生命周期内运行。
每个网页都具有一个生命周期，网页在其生命周期内将执行一系列处理步骤。这些步骤包括初始化、创建控件、还原和维护状态、运行事件处理程序代码以及进行呈现。了解页面的生命周期及其应用于 Web 部件的方式具有重要意义，这样您才能在该周期中的适当阶段实现您的逻辑。具体而言就是，您必须让自己熟悉页面的生命周期，才能正确初始化 Web 部件控件、用个性化设置数据填充属性以及运行任何行为逻辑。
1、初始化
在初始化阶段，将执行下列主要任务：
·WebPartZone 对象注册到 WebPartManager 控件中。
·WebPartManager 控件加载静态 WebPart 对象。
·WebPartManager 控件订阅控件生命周期事件。
·WebPartManager 控件为此时已处于控件层次结构中的每个静态 WebPart 对象均调用 TrackViewState 方法。
如果需要以编程方式设置 GenericWebPart 控件的属性，则应在此阶段执行这一操作，这样便可以在适当的时刻（例如，加载个性化设置时）使用这些属性。
......
编写过程
过程是一组能执行指定任务且具有返回值的脚本命令。您可以定义自己的过程，然后在脚本中反复调用它们。
您可以将过程定义放在调用过程的 .asp 文件中，也可以将通用过程放在一个共享的 .asp 文件中，然后用 SSI #include 指令将其包含进其他调用其过程的 .asp 文件中。您还可选择另一种方法，即把这些功能打包在 ActiveX 组件中。
定义过程
过程定义可出现在 <SCRIPT> 和 </SCRIPT> 标记内部且必须遵循声明脚本语言的规则。如果过程所用的语言与主脚本语言不同，则要使用 <SCRIPT> 元素。主脚本语言中的过程用脚本分界符 (<% 和 %>) 分隔。
用 HTML <SCRIPT> 标记时，必须使用两个属性来保证服务器端能够处理脚本。使用 <SCRIPT> 标记的语法是：
<SCRIPT RUNAT=SERVER LANGUAGE=JSCRIPT>
procedure definition
</SCRIPT>
RUNAT=SERVER 属性通知 Web 服务器在服务器上处理脚本。若不设置该属性，脚本将由客户端浏览器处理。LANGUAGE 属性决定此脚本块所用的脚本语言。您可以指定任何一种具有脚本引擎的语言。请使用 VBSCRIPT 指定 VBScript； 用 JSCRIPT 指定 JScript。若不设置 LANGUAGE 属性，� ......
使用ASP发送飞信的免费短信
要实现在asp网站上发送飞信，要求是中国移动的手机用户，并且开通移动飞信功能。
使用以下asp代码，修改参数为你的手机号及飞信密码，就可以实现在网站发免费短信功能。
fsend.asp文件源代码如下：
<%
Dim fno,fp,tofno,rurl
fno="138xxxxxxxx" '手机号
fp="xxxxxxxx" '飞信密码
tofno="137xxxxxxxx" '发送目标手机号(要求是自己的号码或飞信好友)
rurl="" '提交后转移到的目标地址(留空将不转移)
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>请留下你的联系信息</title>
</head>
<body style="font-size: 10pt; font-family: 宋体">
<%if (Request("msg")="") then%>
& ......
照例使用xmlhttp同步方式获取数据,可是由于网络不稳定,经常造成'死锁'状况,既send之后一直不返回服务器结果,也不出错.
被这个问题折磨了好久,最后才查到还有ServerxmlHTTP这个对象,看了介绍才知道它才是天生为了服务器端获取其他网站信息设计的.利用他的超时机制，问题轻松解决:D
参考：
http://support.microsoft.com/kb/290761/zh-cn
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/xmlsdk/html/97884cf6-5fdf-4b1f-8273-73c0e098b8f3.asp
下面付简单封装了ServerxmlHTTP的简单类,共参考:
<%
'使用范例
'读取URL 的HTML
dim myHttp
set myHttp=new xhttp
myHttp.URL="http://www.baidu.com"
Response.Write(myHttp.html)
'保存远程图片到本地
myHttp.URL="http://www.baidu.com/img/logo.gif"
myHttp.saveimage="myfile.gif"
'为防止xhttp卡死的情况，使用超时，错误处理
dim sHtmlcode,iStep
myHttp.URL="http://www.acnow.net"
sHtmlcode=myHttp.html
do while myHttp.xhttpError=""
Response.Error("ERROR: AGAIN!
")
sHtmlcode=myHttp.html
iStep=iStep+1
if iStep>100 then
Response.Wr ......
最新文章 : asp