即时通讯客户端的web链接方式
[ 2007-10-18 18:01:34 | 作者: admin ]
Skype:
<a href="callto://您的Tom-Skype帐号">Skype</a>
QQ:
http://wpa.qq.com/msgrd?V=1&Uin=******&Site=52News.com&Menu=yes
（******处换上你要通话的号码)
MSN:
msnim:chat?contact=***@52News.com
（***@52News.com换成你要通话人的MSN）
旺旺:
wangwang:SendIM?abcde&uid_t=abcde&suid=******&desc=123456
(abcde请改为对方的账号，******请改为自己账号，123456是商品名称．)
<a href="callto://您的Tom-Skype帐号">Skype</a>
QQ:
http://wpa.qq.com/msgrd?V=1&Uin=******&Site=52News.com&Menu=yes
（******处换上你要通话的号码)
MSN:
msnim:chat?contact=***@52News.com
（***@52News.com换成你要通话人的MSN）
旺旺:
wangwang:SendIM?abcde&uid_t=abcde&suid=******&desc=123456
(abcde请改为对方的账号，******请改为自己账号，123456是商品名称．)
p.s.此文值得借鉴，突然发现这么多年的时间荒废了，应该坚持学英语。
我在英语学习方面是十分幸运的。在下过硬工夫的过程中，我从未感到英语学习的单调和苦闷，也未感到英语学习有多么艰难。我读过一些英语名家谈体会的书，其中有中文译本，也有英文原文本。这些书给了我很多启发，使我能够在结合自身学习英语的方法和经验的基础上，总结出符合常识的学习方法，并上升到符合英语学习规律的原则。如果你能按照这些原则一步一个脚印地去做，认认真真地去学习和体味，那么你就定能学好英语。
英语学习应遵循以下六大原则。这些原则都是"常识"性的。正如美国总统林肯所说：一个人必须依据语言、逻辑和"简单的常识"来决定问题和建立自己的行动计划。在学习英语的过程中，你按照常理去做，你就可能成功。你违背了常理，就不可能成功。当然，成功与否还取决于你的"努力"。
这一次，你若按照常理去做，并且下工夫，那你就要成功了！
...
阅读全文…
我在英语学习方面是十分幸运的。在下过硬工夫的过程中，我从未感到英语学习的单调和苦闷，也未感到英语学习有多么艰难。我读过一些英语名家谈体会的书，其中有中文译本，也有英文原文本。这些书给了我很多启发，使我能够在结合自身学习英语的方法和经验的基础上，总结出符合常识的学习方法，并上升到符合英语学习规律的原则。如果你能按照这些原则一步一个脚印地去做，认认真真地去学习和体味，那么你就定能学好英语。
英语学习应遵循以下六大原则。这些原则都是"常识"性的。正如美国总统林肯所说：一个人必须依据语言、逻辑和"简单的常识"来决定问题和建立自己的行动计划。在学习英语的过程中，你按照常理去做，你就可能成功。你违背了常理，就不可能成功。当然，成功与否还取决于你的"努力"。
这一次，你若按照常理去做，并且下工夫，那你就要成功了！
...
阅读全文…
报了在职研究生，重新踏上征途。
虽然只有学位没有学历，不过依然希望自己可以享受这个过程。
生活波澜不惊，尽量可以给自己多一点激情，多一份信心。
努力，为自己加油！
虽然只有学位没有学历，不过依然希望自己可以享受这个过程。
生活波澜不惊，尽量可以给自己多一点激情，多一份信心。
努力，为自己加油！
邮件系统常见错误代码解释
[ 2007-10-08 17:11:19 | 作者: admin ]
MTA（Mail Transfer Agent ）：邮件传送代理，由「邮件服务器」扮演 MTA 角色，负责完成 MUA (邮件使用代理，即 Outlook Express 等邮件收发软件)传送信件的请求，将邮件从一个 MTA ( 您的邮件服务器 )传到另一个 MTA（对方的邮件服务器）。因此，简单地说，MTA 错误讯息代码，即是由邮局( 邮件服务器 )来函告知您寄信不成功与退信原因。
MTA 错误代码的表现方式如 550 5.1.1 ，由两大部份组成：「SMTP 代码」与「DSN 代码」所组成。以 550 5.1.1 为例，550 为 SMTP 代码， 5.1.1为 DSN 代码。SMTP 代码固定为三位数字， DSN 代码固定为由小数点隔开的三个数字。
一. SMTP 代码:
SMTP 有一组固定的响应代码，表示邮件服务器对于传送邮件要求的响应状况。其中 421、450、451、452、550、551、552、553、554 等 9 组代码表示您要求邮件服务器执行的动作不成功。
...
阅读全文…
MTA 错误代码的表现方式如 550 5.1.1 ，由两大部份组成：「SMTP 代码」与「DSN 代码」所组成。以 550 5.1.1 为例，550 为 SMTP 代码， 5.1.1为 DSN 代码。SMTP 代码固定为三位数字， DSN 代码固定为由小数点隔开的三个数字。
一. SMTP 代码:
SMTP 有一组固定的响应代码，表示邮件服务器对于传送邮件要求的响应状况。其中 421、450、451、452、550、551、552、553、554 等 9 组代码表示您要求邮件服务器执行的动作不成功。
...
阅读全文…
recordset的再次过滤
[ 2007-10-06 17:32:32 | 作者: admin ]
find是方法。在rs里查找符合条件的记录。只能是一个条件 。
filter是属性，用了它之后，rs里剩下的符合条件的记录，可以是多个条件。
filter是属性，用了它之后，rs里剩下的符合条件的记录，可以是多个条件。
asp下ado.recordset(rs) 读取后sort再排序的问题
[ 2007-10-06 13:13:24 | 作者: admin ]
p.s. 本来想直接用rs.sort来再排序，但脱离连接的rs不能更新，只好放弃自建rs而改用数组
下面的演示是需要数据库同步更新，所以不支持并发操作，纯粹是演示说明...
阅读全文…
下面的演示是需要数据库同步更新，所以不支持并发操作，纯粹是演示说明
引用
sql = " delete from temp1 "
cn.execute(sql)
set rs = server.CreateObject("adodb.recordset")
RS.CursorLocation = 3 '注意游标类型设置
RS.Open "temp1",cn,1,3
for i=0 to ubound(arrMobile) ’遍历投票方式1
arrMiss = split( arrMobile(i),"," )
arrMobile(i) = arrMiss(0)
rs.AddNew
rs("id") = i
rs("netHits") = 0
cn.execute(sql)
set rs = server.CreateObject("adodb.recordset")
RS.CursorLocation = 3 '注意游标类型设置
RS.Open "temp1",cn,1,3
for i=0 to ubound(arrMobile) ’遍历投票方式1
arrMiss = split( arrMobile(i),"," )
arrMobile(i) = arrMiss(0)
rs.AddNew
rs("id") = i
rs("netHits") = 0
阅读全文…
通过数组给您的文件排序
[ 2007-10-06 13:13:24 | 作者: admin ]
当您使用FILESYSTEMOBJECT对象获得某个目录下的文件列表的时候，你有没有发现无法控制它们的排序方式，比如按照名字排序，按照扩展名排序，按照文件大小排序等等，让我们试着用数组给它们排排序儿。
如果您想通过名字排序，那将是非常简单的，但是假如你想通过文件大小或者文件创立时间等等来排序的时候，那么将有点麻烦。我们将通过二维数组做到这一点。
下面的代码演示了如何通过选择排序方式达到的我们目的，单击排序，点两次就反着排了。
<HTML>
<HEAD>
<TITLE>文件排序演示</TITLE>
</HEAD>
<BODY>
<%
' 设定一个演示目录，：）
CONST DIRECTORY = "/"
' 用常数定义排序方式
CONST FILE_NAME = 0 '按照名字排序……依次类推
CONST FILE_EXT = 1
...
阅读全文…
如果您想通过名字排序，那将是非常简单的，但是假如你想通过文件大小或者文件创立时间等等来排序的时候，那么将有点麻烦。我们将通过二维数组做到这一点。
下面的代码演示了如何通过选择排序方式达到的我们目的，单击排序，点两次就反着排了。
<HTML>
<HEAD>
<TITLE>文件排序演示</TITLE>
</HEAD>
<BODY>
<%
' 设定一个演示目录，：）
CONST DIRECTORY = "/"
' 用常数定义排序方式
CONST FILE_NAME = 0 '按照名字排序……依次类推
CONST FILE_EXT = 1
...
阅读全文…
asp下的数组排序，一维和二维例子
[ 2007-10-06 13:09:10 | 作者: admin ]
一维...
阅读全文…
引用
Function Sort(ary)
Dim KeepChecking,I,FirstValue,SecondValue
IF Not IsArray(ary) Then Exit Function
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
Dim KeepChecking,I,FirstValue,SecondValue
IF Not IsArray(ary) Then Exit Function
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
阅读全文…
