<%
Function KvRndNum(Min,Max) '生成随机数字
Randomize
KvRndNum=Int((Max - Min + 1) * Rnd() + Min)
End Function

查看更多...

yyyy   年    
q   季    
m   月    
y   一年的日数    
d   日    

查看更多...

用户帐户：<input type="text" id="user" name="user" size="22" maxlength="16" onkeyup="value=value.replace(/[\W]/g,'') "onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))" /> <font color="red">*</font>
<input type="button" value="检测用户名" onclick="checkName()">
<script language="javascript">
function checkName()
{

查看更多...

<%
gml="E:\web"
A1=gml&"\asai\guoyansaimdb\gysai.mdb"
A2=gml&"\asai\guoyansaimdb-bak\gysai.mdb"
A7=gml&"\asai\guoyansaimdb\gysai-new.mdb"

查看更多...

通常是利用数据库来保存数据，但也可以使用xml文件来保存数据。假设xml文件的内容是：
test.xml
<?xml version="1.0" encoding="gb2312"?>
<site>
<root>

查看更多...

<%
Dim IP,IPString,VisitIP
'要禁止的IP地址
IPString="|219.142.118.71|127.0.0.1|"
'获取IP地址

查看更多...

<%
Dim RefreshTime, IdleTime, TotalUsers, OnlineUser(), Tmp(), Num, I, ID
RefreshTime = 10           '设置网页自动更新时间为10秒
IdleTime = RefreshTime * 3 '设置闲置时间为自动更新时间的3倍
Application.Lock

查看更多...

<%
Function autoLink(str)
str=" "&str
Set re=new regExp '建立正则表达式对象regular e­xpression
re.IgnoreCase=true '忽略大小写

查看更多...

<%
set fs=server.createobject("scripting.filesystemobject")
file=server.mappath("time.txt")
set txt=fs.opentextfile(file,1,true)
if not txt.atendofstream then

查看更多...

同上，使用 format 函数：
如：
Dim MyTime, MyDate, MyStr
MyTime = #17:04:23#
MyDate = #January 27, 1993#

查看更多...

上一星期（七天之内）：
select * from art where [now] between dateadd("ww",-1,now()) and now()
上一星期（上周一至周日）：
select * from art where [now] between dateadd("d",-Weekday(Now())-5,now()) and dateadd("d",-Weekday(Now())+1,now())
上一月（上月的今天至今天）：

查看更多...

我用asp做了一个提交数据到数据库这个功能的显示页面，但是由于显示页面数据量比较大，每次提交完成后显示页面会自动刷新一次，我想用ajax的无刷新技术让每次提交数据时显示页面不刷新，但是没有用过ajax，希望大家帮我实现这个功能

我的源代码 显示页面：yunxingtu.asp 提交页面：yxtu.asp
注：这里我用的yunxingtu.asp代码只是一个简答的显示页面，仅做示例。
yunxingtu.asp代码：

查看更多...