获取毫秒数，时间戳 的函数
[ 2007-04-23 13:31:43 | 作者: admin ]
javascript：
asp：
c#：
var dt = new Date();
var ms = dt.getUTCMilliseconds();
var ms = dt.getUTCMilliseconds();
asp：
'获取13位时间戳
'1970-01-01 08:00:00 到现在的毫秒数
'Timer()是返回今天的0点到现在的秒数,但精确到了小数点后两位,基本上是毫秒
Public Function getTime()
getTime = DateDiff("s", "1970-01-01 08:00:00", Date()) * 1000 + Int(CDbl(Timer()) * 1000)
End Function
'1970-01-01 08:00:00 到现在的毫秒数
'Timer()是返回今天的0点到现在的秒数,但精确到了小数点后两位,基本上是毫秒
Public Function getTime()
getTime = DateDiff("s", "1970-01-01 08:00:00", Date()) * 1000 + Int(CDbl(Timer()) * 1000)
End Function
c#：
DateTime dt= DateTime.Now;
string s = dt.ToString("yyyyMMddHHmmss") + now.Millisecond.ToSring();
string s = dt.ToString("yyyyMMddHHmmss") + now.Millisecond.ToSring();
asp制作编程 用sql server数据库与access有什么不同的？
[ 2007-04-02 15:01:07 | 作者: admin ]
1.数据库导入以后，自动增加字段需要重写，部分数字类型需要增加长度，有需要就用bigint。
2.所有的默认值都丢失了。主要是数字类型和日期类型。
3.所有sql语句中的now()，time()，date()要改成getdate()。
4.所有sql语句中的datediff('d', time1, time2)要改成datediff(day, time1, time2)，相应的其他日期属性也需要更改。
5.有可能一些true/false的判断语句不能正常使用了，这里是指用整数型来表达bool的情况，要变为1/0。
6.备注类型要通过cast(column as varchar)来使用。
7.CursorType要改成1,也就是打开数据库时要给出第一个数字参数为1，否则记录可能 显示不完整。也就是说，一般要写成rs.open sql, conn, 1。
8.isnull(rowname)要改成rowname = null
...
阅读全文…
2.所有的默认值都丢失了。主要是数字类型和日期类型。
3.所有sql语句中的now()，time()，date()要改成getdate()。
4.所有sql语句中的datediff('d', time1, time2)要改成datediff(day, time1, time2)，相应的其他日期属性也需要更改。
5.有可能一些true/false的判断语句不能正常使用了，这里是指用整数型来表达bool的情况，要变为1/0。
6.备注类型要通过cast(column as varchar)来使用。
7.CursorType要改成1,也就是打开数据库时要给出第一个数字参数为1，否则记录可能 显示不完整。也就是说，一般要写成rs.open sql, conn, 1。
8.isnull(rowname)要改成rowname = null
...
阅读全文…
保存远程图片到本地 同时取得第一张图片并创建缩略图
[ 2007-04-02 14:47:19 | 作者: admin ]
http://www.52la.cn/article.asp?id=703
采集中 或者 在线添加文章中 都可以用到此功能
SNA新闻采集系统 For 3.62 (程序制作:ansir)里函数 比较简单好用
以下是函数
阅读全文…
采集中 或者 在线添加文章中 都可以用到此功能
SNA新闻采集系统 For 3.62 (程序制作:ansir)里函数 比较简单好用
以下是函数
<%
'==================================================
'函数名：CheckDir2
'作 用：检查文件夹是否存在
'参 数：FolderPath ------文件夹地址
'==================================================
Function CheckDir2(byval FolderPath)
dim fso
folderpath=Server.MapPath(".")&"\"&folderpath
...'==================================================
'函数名：CheckDir2
'作 用：检查文件夹是否存在
'参 数：FolderPath ------文件夹地址
'==================================================
Function CheckDir2(byval FolderPath)
dim fso
folderpath=Server.MapPath(".")&"\"&folderpath
阅读全文…
asp获取远程文件并保存
[ 2007-04-02 14:38:20 | 作者: admin ]
asp保存远程文件的简单函数
阅读全文…
Sub SaveRemoteFile(LocalFileName,RemoteFileUrl)
Dim StreamObj,Retrieval,GetRemoteData
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", RemoteFileUrl, False, "", ""
.Send
GetRemoteData = .ResponseBody
End With
Set Retrieval = Nothing
Set StreamObj = Server.CreateObject("Adodb.Stream")
With StreamObj
.Type = 1
...Dim StreamObj,Retrieval,GetRemoteData
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", RemoteFileUrl, False, "", ""
.Send
GetRemoteData = .ResponseBody
End With
Set Retrieval = Nothing
Set StreamObj = Server.CreateObject("Adodb.Stream")
With StreamObj
.Type = 1
阅读全文…
asp 数组排序函数
[ 2007-02-05 04:15:55 | 作者: admin ]
p.s. 如果排序不对，看看是不是字符串的数组，而没有转化成数字
<%
Function Sort(ary)
Dim KeepChecking,I,FirstValue,SecondValue
KeepChecking = TRUE
Do Until KeepChecking = FALSE
KeepChecking = FALSE
For I = 0 to UBound(ary)
If I = UBound(ary) Then Exit For
If ary(I) > ary(I+1) Then
FirstValue = ary(I)
SecondValue = ary(I+1)
ary(I) = SecondValue
ary(I+1) = FirstValue...
阅读全文…
<%
Function Sort(ary)
Dim KeepChecking,I,FirstValue,SecondValue
KeepChecking = TRUE
Do Until KeepChecking = FALSE
KeepChecking = FALSE
For I = 0 to UBound(ary)
If I = UBound(ary) Then Exit For
If ary(I) > ary(I+1) Then
FirstValue = ary(I)
SecondValue = ary(I+1)
ary(I) = SecondValue
ary(I+1) = FirstValue
阅读全文…
<%
dim i,a,n1,n2
i="0"
a="bbs"
n1="i"
n2="a"
execute n1 & n2 & "=" & """value"""
Response.Write(eval(n1 & n2))
%>
输出 value
execute 和 eval 的用法就能行
dim i,a,n1,n2
i="0"
a="bbs"
n1="i"
n2="a"
execute n1 & n2 & "=" & """value"""
Response.Write(eval(n1 & n2))
%>
输出 value
execute 和 eval 的用法就能行
Access数据库所在目录写权限问题相关
[ 2006-12-27 21:26:53 | 作者: admin ]
几天在一个客户那里遇到一个问题：
但错误的产生却又是随机的，有时候没有错误，有时候刷新就错误了。
后来在网上检索才找到个答案，一下豁然。
access打开的时候会产生 .ldb 文件,当 iusr_* 用户无写权限时，则无法自动生成该文件了。
所以所有含access目录其实都应该加上写权限，而不要只把mdb设为可写。
下面是关于access锁的说明
来字：http://www.aspnets.com/data/Access/26458.html
阅读全文…
不能使用 ''；文件已在使用中。
错误类型：
Microsoft JET Database Engine (0x80004005)
不能使用 ''；文件已在使用中。
错误的产生是在建立数据库连接的时候。错误类型：
Microsoft JET Database Engine (0x80004005)
不能使用 ''；文件已在使用中。
但错误的产生却又是随机的，有时候没有错误，有时候刷新就错误了。
后来在网上检索才找到个答案，一下豁然。
access打开的时候会产生 .ldb 文件,当 iusr_* 用户无写权限时，则无法自动生成该文件了。
所以所有含access目录其实都应该加上写权限，而不要只把mdb设为可写。
下面是关于access锁的说明
来字：http://www.aspnets.com/data/Access/26458.html
一访问网站，系统数据库就被锁定，有什么办法解决吗？
读完数据后及时释放连接
...读完数据后及时释放连接
阅读全文…
发现以前都是在瞎用
If InStr("被搜索串", "搜索串") = 0 Then '没有找到返回０，找到返回位置
这里do点something
End If
【名称】
InStr
【类别】
字符串函数
【原形】
InStr([start, ]string1, string2[, compare])
【参数】
InStr 函数的语法具有下面的参数：
部分
说明
start
可选参数。为数值表达式，设置每次搜索的起点。如果省略，将从第一个字符的位置开始。如果 start 包含 Null，将发生错误。如果指定了 compare 参数，则一定要有 start 参数。
string1
必要参数。接受搜索的字符串表达式。
string2
必要参数。被搜索的字符串表达式。
Compare
可选参数。指定字符串比较。如果...
阅读全文…
If InStr("被搜索串", "搜索串") = 0 Then '没有找到返回０，找到返回位置
这里do点something
End If
【名称】
InStr
【类别】
字符串函数
【原形】
InStr([start, ]string1, string2[, compare])
【参数】
InStr 函数的语法具有下面的参数：
部分
说明
start
可选参数。为数值表达式，设置每次搜索的起点。如果省略，将从第一个字符的位置开始。如果 start 包含 Null，将发生错误。如果指定了 compare 参数，则一定要有 start 参数。
string1
必要参数。接受搜索的字符串表达式。
string2
必要参数。被搜索的字符串表达式。
Compare
可选参数。指定字符串比较。如果
阅读全文…
