如何用asp输出日期和星期
第一种方法:
<%
d = date()
response.write d&" "&WeekdayName(Weekday(d))
%>
输出样式:2004-5-7 星期五
***********************************************************************************
第二种方法:
<%=FormatDateTime(date, vbLongDate)%><%
d = date()
response.write " "&WeekdayName(Weekday(d))
%>
输出样式:2004年5月7日 星期五
************************************************************************************************************
第三种方法:
////////////第一步:把下面语句放在顶部.
<%
'日期函数
sub datetime
dat=int(datediff("d",dateserial(2000,8,27),now) mod 7)
response.write(formatdatetime(now,1))&" "
select case dat
case 0
response.write "星期天"
case 1
response.write "星期一"
case 2
response.write "星期二"
case 3
response.write "星期三"
case 4
response.write "星期四"
case 5
response.write "星期五"
case 6
response.write "星期六"
end select
end sub
%>
/////////////////////第二步:把下面一句加在要显示的地方即可
<%datetime%>
******************************************************************************************************************88
/////产生随机函数1到10之间
<%
Randomize()
response.write Round(RND()*10)
%>
相关文档：
ASP高级技术精选集
一、GetRows的使用方法：
<%
Set conn=Server.CreateObject("Adodb.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("test.mdb")
Set Rs=Server.CreateObject("Adodb.Recordset")
Rs.Open "Select Top 2 * from 表名",conn,0,1 &nb ......
JMAIL安装配置
jmail发送邮件的实例代码网上很多.但是有些细节如果不配置好,发送失败的可能性很大.
首先说明一下jmail安装配置步骤:
1. JMail 下载地址
http://hbdx3.skycn.com/down/w3JMail43Personal.exe
2.安装
本人在Windows 2003下面配置,其它系统还没有测试.
安装到目录比如: C:\Program Files\Dimac\w3JMai ......
创建指定的文件名并返回一个 TextStream 对象，可以使用这个对象对文件进行读写。
object.CreateTextFile(filename[, overwrite[, unicode]])
参数
object
必选项。应为 FileSystemObject 或 Folder 对象的名称。
filename
必选项。指明所要创建文件的字符串表达式。
overwrite
可选项。Boolean 值，指� ......
<%
If Request.ServerVariables("HTTP_REFERER")<>"" Then
tmpstr=Request.ServerVariables("HTTP_REFERER")
Else
tmpstr="index.htm"
End If
response.Redirect(tmpstr)
%>
代码解释：
Request.ServerVariables("HTTP_REFERER")是获取上� ......
<%
'//////////// GPS：Get Picture Size //////////////
'//////////////利用ADODB.stream获取图片尺寸//////////////
Class GPS
Dim aso
Private Sub Class_Initialize
Set aso=CreateObject("Adodb.Stream")
aso.Mode=3
aso.Type=1
aso.Open
End Sub
Private Sub Class_Terminate
set aso=nothing
En ......
