asp 取得反日期
<%
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))调用
%>
相关文档：
这段代码的功能是：将一个数组打乱顺序，显示出来，让每一次显示的顺序都不一样。
<%
Dim tt
tt=Split("1,2,3,4,5,6",",")
'随机排序
leng=UBound(tt)
randomize
for ii=0 to leng-1
b=int(rnd()*leng)
temp=tt(b)
tt(b ......
怎么用asp判断下面的信息这里我是看到动态网的.
FSO文件读写 √ Jmail发送邮件支持 ×
CDONTS发送邮件支� ......
我写了一个表单就是用来向数据库中添加数据的 action=post.asp method=post
然后再post.asp当中我又通过request.form获取了相应的值，然后添加的数据库当中
所有的代码如下
------------------------------------conn.asp-----------------------------
<%
dim db
const databasetype="access"
db="data\meiyijix ......
ASP连接数据库的11种方法——本文总结了使用ASP链接各种数据库的方法：
1.Access数据库的DSN-less连接方法:
set adocon=Server.Createobject("adodb.connection")
adoconn.Open"Driver={Microsoft Access Driver(*.mdb)};DBQ="& _
Server.MapPath("数据库所在路径")
2.Access OLE DB连接方法� ......
废话不多说，贴代码：
先来看看ByVal传值：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Dim arr(2)
arr(0) = 0
arr(1) = 1
arr(2) = 2
Call sub1(arr)
Sub sub1(ByVal a)
a(0) = 9
a(1) = 8
a(2) = 7
Response.Write("我在sub过程中更改了值："&a(0)&","&a(1)&","&a(2))
......
