qq184156766 很垃圾的一个骗子
叽里呱啦 08月 12th, 2008
q
q184156766 很垃圾的一个骗子
智力障碍
试管婴儿（你的代孕“母亲”质量有问题，所以导致你现在智力障碍）
不要以为智障就可以骗人了
破BLJ
骗的钱就当给你妈买老鼠药了，死了我可以友情把你妈弄我家沼气池去
千万不要感谢我哦 ，反正烂了以后还够我家多做几顿饭
做猪食和狗食
班
上某sb已经拿到录取通知说去绵阳南山中学了，是我的好兄弟，十分想念，昨天还打电话过来边哭边说啥对不起的，结果最多一分钟我就挂了。。。。
昨天还去看了精武门，35块钱一张票靠，我们这里10块钱暑假12张在某某电影院的啊
天啊
完毕
显
示器挂了3天
某日中午12点过，某人正在玩电脑
某时显示器黑了，速度关上显示器又打开显示器
发现正常
经过n分钟后到某某时
显示器挂了，咋也打不开
RECORDSET的bof属性和eof属性
ASP学习笔记 06月 10th, 2008
很
让新手头疼的东西最后终于搞懂了
收集了几条关于这个东西的解释
1.
假如记录集没有记录，则bof eof都为真
假如有记录，游标是在第一条记录，这时如果rs.moveprevious，则bof为真
假如有记录，游标是在最后记录，这时如果rs.movenext，则eof为真
2.
If rs.EOF Then
' 到记录集末尾了
End If
If rs.BOF Then
' 到记录集最开始了
End If
If rs.EOF And rs.BOF Then
' 空记录集
End If
3.
说明：ADO帮助文档中说，如果打开没有记录的 Recordset 对象，BOF 和 EOF 属性将设置为 True，而 Recordset 对象的属性设置为零。打开至少包含一条记录的 Recordset 对象时，第一条记录为当前记录，而 BOF 和 EOF 属性为 False。但在使用中若果有一条记录时，EOF并不总是False。
4.
通常我们在程序中编写代码来检验BOF与EOF属性，从而得知目前指标所指向的RecordSet的位置，使用BOF与EOF属性，可以得知一个Recordset对象是否包含有记录或者得知移动记录行是否已经超出该Recordset对象的范围。
若当前记录的位置是在一个Recordset对象第一行记录之前时，BOF属性返回true，反之则返回false。
若当前记录的位置是在一个Recordset对象最后一行记录之后时，EOF属性返回true，反之则返回false。
（BOF与EOF都为True表示在RecordSet里没有任何记录。）
例如：
dim rs11,sqlcmd2
set rs11=Server.CreateObject("ADODB.RecordSet")
sqlcmd2="select * from PicTure where PicID =1234"
rs11.open sqlcmd2,conn,1,3
'当查询的记录确定只有1条时，最好使用RecordCount判读，不要使用Eof 。
'Eof 不准确，有时为true,有时为false
if (rs11.recordcount=1) then
getimgstr=rs11("PicPath")
end if
rs11.close
也就是说bof和eof只需要用一个，不过
当查询的记录确定只有1条时，最好使用RecordCount判读，不要使用Eof 。
Eof 不准确，有时为true,有时为false
所以一般bof和eof一起用了
==================有了上面对bof和eof的了解就看下面把============
not rs.bof and not rs.eof
表示：指针位于 RecordSet 的当中（并不一定是最后一条和第一条） ，如果为真说明一定有记录。
rs.bof or rs.eof
表示：指针在第一行记录之前，或者最后一个记录之后。如果为真指针不在任何记录上。如果变成 and ，为真就是数据库没有任何记录
rs.eof 数据指针指到记录集的最后面(但注意不是最后一个记录)
rs.bof 数据指针指到记录集的最前面(但注意不是第一个记录)
他们的区别是，当你从第一条纪录开始查找数据时，如果直到最后一条记录（也就是从头到尾）都没有找到所需要的数据时，rs.eof就为true(这时rs.bof是不会为true的)
而当你从最后一条纪录开始查找数据时，如果直到前面一条记录（也就是从尾到头）都没有找到所需要的数据时，rs.bof就为true(这时rs.eof是不会为true的)
不知道我有没有表达清楚。
－－－－－－－－－－－－－－－－－－
rs.EOF and rs.BOF该语句里面涉及到了rs.EOF 和rs.BOF 以及两者的逻辑运算 and 。 rs.EOF 表示到达数据库表中的最后一行，rs.BOF 表示到达数据库表中的第一行。整个语句可以理解为，如果当前数据库中的最后一行就是数据库表中第一行。可以肯定：当前数据库表中没有任何数据。 rs.eof 数据指针指到记录集的最后面(但注意不是最后一个记录)
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
eof=end of file
bof=begin of file
recordset对象Open方法省略规则
ASP学习笔记 06月 10th, 2008
r
ecordset对象的语法是这样的recordset.Open Source,ActiveConnection,CursorType,LockType,Options
为什么这样写也能执行
set rst=Server.CreateObject("ADODB.recordset")
rst.open "select * from user where u_user='" & request.form("f_user") & "'",conn,1,1
他是省略了哪一个呢？
答案是他把Options省略掉了
也许我说的不清楚
反正也就是这样
============
在rs.open后面的参数设定
rs.open sql,conn,0,1 顺序遍历，不需要定位跳转，不需要添加删除更新操作，速度最快
rs.open sql,conn,1,3 遍历，可以进行更新操作，但不能进行定位跳转
rs.open sql,conn,2,3 可以进行所有操作，可以跳转
这样就好了
options参数
你可以使用下面的常量作为Options参数：
adCMDTable。被执行的字符串包含一个表的名字。
adCMDText。被执行的字符串包含一个命令文本。
adCMDStoredProc。被执行的字符串包含一个存储过程名。
adCMDUnknown。不指定字符串的内容。（这是缺省值。）
一般我们都是用的adCMDText
自
己看着迷糊，弄到博客上分析分析
1.
select * from bm left join yg on bm.b_id=yg.y_bmid
2.
select * from bm right join yg on bm.b_id=yg.y_bmid
3.
select * from yg left join bm on bm.b_id=yg.y_bmid
4.
select * from yg right join bm on bm.b_id=yg.y_bmid
郁
闷了
根据我玩冒险岛（一款骗子和人要随处可见的游戏）多年的经验判断出他是个骗子
此人先卖QQ 88660 只卖500
--------------------------聊天记录-----------------
无辜的人们啊 20:59:31
你打算卖多少
℡心宁之星. 20:59:37
500
无辜的人们啊 20:59:58
能淘宝交易吗
℡心宁之星. 21:00:09
淘宝?
℡心宁之星. 21:00:12
那是什么?
℡心宁之星. 21:00:17
我不是专业卖号的 朋友
无辜的人们啊 21:00:26
www.taobao.com
无辜的人们啊 21:01:40
？
℡心宁之星. 21:01:59
我不是做生意的啊 我也是第一次卖号
℡心宁之星. 21:02:04
我是诚心把号卖出去的
无辜的人们啊 21:02:17
不用淘宝买我也不放心
无辜的人们啊 21:02:24
买了我又不能马上改密码
℡心宁之星. 21:03:20
不能改密码?
℡心宁之星. 21:03:27
异地不能改的啊
无辜的人们啊 21:03:52
对啊
买了我又不能改密码
℡心宁之星. 21:04:23
我晕 过几天就可以改啊
℡心宁之星. 21:04:31
可以申请保护的啊
无辜的人们啊 21:04:46
就是怕在这几天你就改密码了啊
℡心宁之星. 21:04:53
我晕.
无辜的人们啊 21:04:59
拍拍交易也行
无辜的人们啊 21:05:09
无辜的人们啊 21:05:13
你不是有拍拍吗
℡心宁之星. 21:05:15
我是卖出去
℡心宁之星. 21:05:23
是的啊..那是以前朋友给我开业务弄的
℡心宁之星. 21:05:36
我也不知道那东西怎么交易
无辜的人们啊 21:05:45
℡心宁之星. 21:06:44
我晕
℡心宁之星. 21:06:58
你说怎么好?
℡心宁之星. 21:07:13
我是诚心把号卖出去的 号在手里闲着也是闲着
无辜的人们啊 21:07:14
你咋淘宝和拍拍都没用过啊
℡心宁之星. 21:07:21
我不是做生意的啊
℡心宁之星. 21:07:34
你是哪的?可以来湖南和我当面交易啊
无辜的人们啊 21:07:41
四川队饿
无辜的人们啊 21:07:46
四川
℡心宁之星. 21:08:06
我湖南的.
无辜的人们啊 21:08:15
我主要是看你号卖的挺便宜
℡心宁之星. 21:08:47
便宜?
无辜的人们啊 21:08:53
恩
℡心宁之星. 21:08:54
我不知道这行情
无辜的人们啊 21:09:05
咋也等卖1000吧
℡心宁之星. 21:09:24
1000?
无辜的人们啊 21:09:38
应该有那么多
无辜的人们啊 21:09:50
不过别人的都是能申请到保护的
无辜的人们啊 21:09:54
你这个号基本不大可能申请到了
℡心宁之星. 21:09:54
我不知道那价钱
℡心宁之星. 21:10:00
申请保护?
无辜的人们啊 21:10:04
基本得上千
℡心宁之星. 21:10:07
可以的啊 只要有资料就可以申请啊
无辜的人们啊 21:10:24
很难申请到的
℡心宁之星. 21:11:00
有资料就能申请的啊
℡心宁之星. 21:11:15
那些申请地点 申请时间我都可以提供给你
无辜的人们啊 21:11:28
你找个当地的人卖了吧
估计能上千
℡心宁之星. 21:12:06
我不知道啊 我就是在网上卖
℡心宁之星. 21:12:18
要不 你到我这来当面交易 可以帮你上保护
无辜的人们啊 21:12:28
这咋可能啊
℡心宁之星. 21:12:44
晕
无辜的人们啊 21:12:47
你淘宝都不会用额
℡心宁之星. 21:13:47
我不知道用啊.
℡心宁之星. 21:13:56
说过了我不是做生意的啊
无辜的人们啊 21:14:03
无辜的人们啊 21:14:23
如果是改了密码再给钱我倒可以考虑
无辜的人们啊 21:14:32
其实你可以找个当地的卖
肯定比500多
℡心宁之星. 21:14:36
我晕了
℡心宁之星. 21:14:51
上哪找?
无辜的人们啊 21:14:59
卖给朋友
无辜的人们啊 21:15:03
大街上吆喝
℡心宁之星. 21:16:05
无辜的人们啊 21:17:24
无辜的人们啊 21:17:33
我又不可能到湖南去
℡心宁之星. 21:17:51
我们网上交易啊
无辜的人们啊 21:18:18
你又不知道淘宝
无辜的人们啊 21:18:31
bbs.admin5.com
这里找中介行不
℡心宁之星. 21:18:47
我不懂那东西啊.
℡心宁之星. 21:18:58
大家诚心交易啊 或者你来湖南和我交易也行啊
无辜的人们啊 21:19:10
那你有哪个地方的银行卡
℡心宁之星. 21:19:54
哪个地方?
℡心宁之星. 21:20:01
就我们当地的农业银行啊
无辜的人们啊 21:20:27
我只有工行
无辜的人们啊 21:20:33
无辜的人们啊 21:20:37
这里有中介
无辜的人们啊 21:20:48
我可以先把钱给中介
中介再给你
℡心宁之星. 21:20:52
我不知道那东西啊
无辜的人们啊 21:21:02
加个QQ就行了
℡心宁之星. 21:21:09
万一不给呢?我有什么办法?
℡心宁之星. 21:21:21
我没弄过 不放心
℡心宁之星. 21:21:26
我也是第一次卖号
无辜的人们啊 21:21:37
别人是大网站
无辜的人们啊 21:21:42
不可能不给的
℡心宁之星. 21:21:51
我郁闷了.
无辜的人们啊 21:21:51
很有信誉的
℡心宁之星. 21:21:57
不给 我能有什么办法啊?
无辜的人们啊 21:22:12
别人信誉在那里
无辜的人们啊 21:22:19
要不然早就垮台了
℡心宁之星. 21:22:31
℡心宁之星. 21:22:41
不妥.
无辜的人们啊 21:23:46
那你找个当地的卖把
℡心宁之星. 21:23:52
℡心宁之星. 21:25:55
真的没办法.
无辜的人们啊 21:27:06
你愿意让我先改密码再给钱吗
℡心宁之星. 21:28:12
不行
无辜的人们啊 21:28:22
对咯
℡心宁之星. 21:28:54
?
无辜的人们啊 21:29:07
那就没办法了
----------------
贪小便宜吃大亏
虽然不能确定他是不是骗子
但是，我为我的不贪小便宜的性格而骄傲
很
好的文章转过来
FSO - FileSystemObject 或 Scripting.FileSystemObject 的缩写，为 IIS 内置组件，用于操作磁盘、文件夹或文本文件。FSO 的对象、方法和属性非常的多，这里用示例的方式列出常用的，注意：《VBScript 语言参考》或《JScript 语言参考》中的：《FileSystemObject 用户指南》和《Scripting 运行时库参考》便是微软给出的 FileSystemObject 完整参考。
FSO 不能操作二进制文件，要操作二进制文件，请使用：ADODB.Stream。
创建文件
dim fso, f
set fso = server.CreateObject("Scripting.FileSystemObject")
set f = fso.CreateTextFile("C:\test.txt", true) '第二个参数表示目标文件存在时是否覆盖
f.Write("写入内容")
f.WriteLine("写入内容并换行")
f.WriteBlankLines(3) '写入三个空白行（相当于在文本编辑器中按三次回车）
f.Close()
set f = nothing
set fso = nothing
打开并读文件
dim fso, f
set fso = server.CreateObject("Scripting.FileSystemObject")
set f = fso.OpenTextFile("C:\test.txt", 1, false) '第二个参数 1 表示只读打开，第三个参数表示目标文件不存在时是否创建
f.Skip(3) '将当前位置向后移三个字符
f.SkipLine() '将当前位置移动到下一行的第一个字符，注意：无参数
response.Write f.Read(3) '从当前位置向后读取三个字符，并将当前位置向后移三个字符
response.Write f.ReadLine() '从当前位置向后读取直到遇到换行符（不读取换行符），并将当前位置移动到下一行的第一个字符，注意：无参数
response.Write f.ReadAll() '从当前位置向后读取，直到文件结束，并将当前位置移动到文件的最后
if f.atEndOfLine then
response.Write("一行的结尾！")
end if
if f.atEndOfStream then
response.Write("文件的结尾！")
end if
f.Close()
set f = nothing
set fso = nothing
打开并写文件
dim fso, f
set fso = server.CreateObject("Scripting.FileSystemObject")
set f = fso.OpenTextFile("C:\test.txt", 2, false) '第二个参数 2 表示重写，如果是 8 表示追加
f.Write("写入内容")
f.WriteLine("写入内容并换行")
f.WriteBlankLines(3) '写入三个空白行（相当于在文本编辑器中按三次回车）
f.Close()
set f = nothing
set fso = nothing
判断文件是否存在
dim fso
set fso = server.CreateObject("Scripting.FileSystemObject")
if fso.FileExists("C:\test.txt") then
response.Write("目标文件存在")
else
response.Write("目标文件不存在")
end if
set fso = nothing
移动文件
dim fso
set fso = server.CreateObject("Scripting.FileSystemObject")
call fso.MoveFile("C:\test.txt", "D:\test111.txt") '两个参数的文件名部分可以不同
set fso = nothing
复制文件
dim fso
set fso = server.CreateObject("Scripting.FileSystemObject")
call fso.CopyFile("C:\test.txt", "D:\test111.txt") '两个参数的文件名部分可以不同
set fso = nothing
删除文件
dim fso
set fso = server.CreateObject("Scripting.FileSystemObject")
fso.DeleteFile("C:\test.txt")
set fso = nothing
创建文件夹
dim fso
set fso = server.CreateObject("Scripting.FileSystemObject")
fso.CreateFolder("C:\test") '目标文件夹的父文件夹必须存在
set fso = nothing
判断文件夹是否存在
dim fso
set fso = server.CreateObject("Scripting.FileSystemObject")
if fso.FolderExists("C:\Windows") then
response.Write("目标文件夹存在")
else
response.Write("目标文件夹不存在")
end if
set fso = nothing
删除文件夹
dim fso
set fso = server.CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder("C:\test") '文件夹不必为空
set fso = nothing
补充：
目录浏览：
Set oFSO = Server.CreateObject("Scripting.FileSystemObject")
Set oUploadFolder=oFSO.GetFolder(Server.MapPath(CurrDir))
For Each oSubFolder In oUploadFolder.SubFolders
oSubFolder.Name
...
Next
文件浏览：
Set oUploadFiles = oUploadFolder.Files
For Each oUploadFile In oUploadFiles
oUploadFile.Name
oUploadFile.size
...
Next
简单易懂
About
