ASP中调用带参数输出的COM接口

ASP取不重复的随机数

dim arr(36),xx,tt,tmp
for xx=1 to 36
arr(xx-1)=xx
next

for xx=1 to 5
Randomize
tt=clng((ubound(arr)-xx)*rnd())
response.write(arr(tt) & "<br>")

tmp=arr(tt)
arr(tt)=arr(ubound(arr)-xx)
arr(ubou ......

Flash与ASP进行连接数据库操作

1、flash发送数据到asp
loadVariables ("url" ,"target" [, variables])
2、asp得到数据，并处理后，将数据发送到flash
如：Response.Write("login=true&des=success")
3、flash处理从asp收到的数据
如：_root.gotoAndPlay(eval("login")) ......

实例学习Dreamweaver MX ASP编程基础2

按“F12”试试效果。
　　注：常用的时间函数：
now() 获取当前系统日期和时间,ASP输出可以这样写：<%=now()%>
Year(now()) 获取年份 ......

值得收藏的一些ASP代码

1. oncontextmenu="window.event.returnvalue=false" 将彻底屏蔽鼠标右键
<table border oncontextmenu=return(false)><td>no</table> 可用于Table
2. <body onselectstart="return false"> 取消选取、防止复制
3. onpaste="return false" 不准粘贴
4. oncopy="return false;" oncut="return f ......

使用ASP验证email邮箱地址

<%
'true=是邮件;false=不是;
Function validate(ByVal str)
Dim temp,reg
Set reg = new regexp
reg.ignorecase=true
reg.global=true
reg.pattern = "^\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*$"
validate = reg.test(Trim(str))
Set reg = Nothing
End Function
'************************ ......