风吹过带走爱的个人资料

香尸迷案我已为爱守候三百年 2008-11-06 21:13我看着铜镜中的自己，雍容华贵，但是我却从来没有奢求过。我只希望能和他在一起，一起过着简单幸福的生活。回想起原来的日子虽然清贫，但很快乐，我想那是我一生中最快乐的日子。我转身看着身后一排陌生的女子，小心翼翼地对她们说，他，什么时候才能回来。其中一个笑着回答我说，夫人，老爷说今天很忙可能会很晚才能回来，晚饭让您自己先吃。哦。您还有什么吩咐吗？她继续问道。你们去休息吧，我自己能照顾好自己的，不用你们服侍。好的夫人，您用餐吧，我们就在门外有，有什么吩咐，您就叫我们，我们先告退了。说完她们转身离去，关上房门。我转过身，看着铜镜中的自己，泪水渐渐地湿润了面颊。他变了，变得那样陌生，陌生得只能从岁月的痕迹上才能寻找到他的影子。十年前他离开我，说要为我们寻找幸福。走时他说要我等他，等他回来做他的“一品诰命夫人”。十年后我等到了他承诺的“一品诰命夫人”，可是我知道这不是我要等待的幸福。如果十年的等待能够换回原来的他，我愿为他再等十年。可是我又能做什么，我能做的也只有漫长的等待。夜深了，我却难以入睡。泪水早已打湿了衣襟，唯一能感觉到的只有冰冷。渐渐的，一股迷雾充满了整间屋子，迷雾散发着暗暗的幽香。我慢慢失去了知觉，我想自己是睡着了吧。在梦中，我看见几个黑影走进我的房间里…………一丝光透过狭小的空间刺痛了我的眼睛，我渐渐睁开双眼，看到狭小的一片灰蒙蒙的天。我这是在哪？我挣扎着想坐起来，可是怎么也动不了。我意识到，自己躺在一个大木盒中。我惶恐着想要叫喊，却怎么也叫不出声来。我害怕极了，此刻，我多希望他就在我身边。几个穿着怪异的人，在往大木盒里张望，他们的脸上带着惊诧的表情。是他，虽然他也穿着怪异的衣服，头发脏乱，一样用惊诧的眼神看着我，但是我能看得出，肯定是他。他慢慢的向我伸出手，我高兴极了，一定是他来救了，不管他变成什么样子，我仍然爱他。可是，他只是伸手拿掉了我身上的一件金饰，紧接着，其他人也开始拽我身上的金银饰品。渐渐地，他开始和其他人一起疯狂地抢夺着，撕扯着我的衣服。这一切都是怎么了，我哭着呼喊着他的名字，可是他根本听不见。他和其他人一起把我翻出大木盒子，扔在一边，继续疯抢的大木盒里的东西。我终于看清了那个大木盒，是一口深色的棺材。当东西被抢夺一空后，人们纷纷离开，只留下我和被撕碎的衣服，还有那口深色的棺材。慢慢的，我飘了起来，我看见自己的身体被抛弃在一片开阔的平地上，周围都是奇怪的房子和机器。这是一个完全陌生的世界，我不知道在我睡着的这段时间的都发生了什么，一切来的太突然了。天色渐渐变暗了，我还在四周飘荡，看着这个陌生的世界。我哪也不敢去，我还在期盼着他能回来，回来带我离开这个地方。夜色深了，我坐在自己的身体旁边，抚摸着自己冰冷的身体，啜泣着。一个人影出现在远处，慢慢地靠近了。是他回来了，我知道他一定不会抛弃我的。我向他怀里扑过去，带我回家吧，我好害怕。可是，我却从他的身体上穿了过去。我错愕了，怎么会这样，难道……他向我那具冰冷的身体上摸了过去，用一把长刀撬开我嘴巴，从里面拿出一颗圆圆的珠子，然后用刀切向我的喉咙。刀刃摩擦着皮肤和骨骼发出“咯吱咯吱”的声音。他把手伸进我的喉咙，但是什么都没找到。他揣好珠子，回头看了看四周，然后迅速离开了。我看着已经不成人形的身体，和他远去的背影，瘫坐在地上，没有了任何感觉，泪似乎再也流不出来了……我想，我已经死了吧……后来我看见又来了一些穿着怪异的人抬走了我的身体，把我的身体泡在一种刺鼻的液体中。我看见自己冰冷的皮肤从白皙丰满，变得暗黄干瘪，我的脸从鲜活变得狰狞。我还看见一个和我长得一模一样的女子看着我已经不成人形的身体悄声地哭泣着，哭得很伤心。……后来又过了很长时间我才知道，其实我已经为这份爱守候了三百多年

我的女友是机器人　　次郎是个寂寞的大学生(小出惠介饰)，到了生日也没人为他祝福。次郎跑到百货公司给自己买二十岁生日的礼物，他碰到了一个好像刚从火灾现场逃出来的可爱女孩(绫濑遥饰)，女孩随手挑了件连衣裙穿上，没付钱就扬长而去。接着，次郎在餐厅独自吃饭时，又碰到了她。“今天也是我生日啊！”女孩拉着次郎一起庆祝生日。次郎被她搞得团团转，还被她打，两人因为吃霸王餐给警察狂追……次郎的人生中从来没有过这么刺激的夜晚。然而，当次郎坠入爱河、深深被这个不按理出牌的漂亮女孩吸引时，她却突然不知所踪。　　一年后，次郎在21岁生日那天居然又遇到了她！然而，她似乎发生了微妙的变化。一个持枪男子袭击餐厅，在次郎即将被子弹击中的瞬间，女孩化解了次郎的危机。女孩说出了真相，原来她是来自未来的机器人——一直忘不了20岁生日那场邂逅的未来的次郎，制作了一个和那个女孩完全一样的机器人送到过去，想要改变自己不走运的人生。由此，不知所措的次郎开始了和机器人女友朝夕相处的奇妙生活。　　机器人女孩不仅在家里照顾次郎，而且还去大学和打工的地方看次郎。她利用特殊能力屡屡帮助次郎，还把他带往过去享受快乐的时光旅行。次郎渐渐爱上了她，爱上了这个没有情感的机器人。为了让她嫉妒，次郎故意和别的女孩约会，然而机器人根本不懂什么是嫉妒。绝望的次郎一气之下把机器人女孩赶出了家门，随即独自一人伤心不已。　　一天，大地震突然爆发，次郎坠楼濒危。在混乱的局面中，次郎与机器人女孩意外重逢。他们之间的爱创作出奇迹，战胜了次郎死于事故的命运，超越了生物人与机器人的隔阂……

哪位前辈有关于AE的书，给晚辈推荐一下如题在此谢过

请高手帮忙调一下我很急帮帮忙谢谢在存储照片的时候报错 bof或eof有一个是真或者当前记录已被删除所需的操作要求一个当前的记录 Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Dim PicFile As String Private Sub CmdCertain_Click() Set cn = New ADODB.Connection Set rs = New ADODB.Recordset cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=student management" If Trim(TxtNum.Text = "") Then MsgBox "学号不能为空!" TxtNum.SetFocus Exit Sub Else If Trim(TxtName.Text = "") Then MsgBox "姓名不能为空！" TxtName.SetFocus Exit Sub End If End If rs.Open "select * from StudentInformation where Num ='" & TxtNum.Text & "'", cn, 3, 2 If rs.BOF = True Then cn.Execute "insert StudentInformation(Num,Name,Sex,Birthday,Nation,Hometown,Enterschooldate,Xibie,Specializedsubject,Phonenum,Address,Remark) values('" & TxtNum.Text & "','" & TxtName.Text & "','" & ComboSex.Text & "','" & TxtBirthday.Text & "','" & TxtNation.Text & "','" & TxtHometown.Text & "','" & TxtEnterSchoolDate.Text & "','" & TxtXiBie.Text & "','" & TxtSpecializedSubject.Text & "','" & TxtPhoneNum.Text & "','" & TxtAddress.Text & "','" & TxtRemark.Text & "')" End If If PicFile <> "" Then SavePictureToDb rs!photo, PicFile End If MsgBox "注册成功！" Unload Me End Sub Private Sub CmdExit_Click() Unload Me End Sub Private Sub cmdGetPicture_Click() On Error GoTo GetPicErr dlgComBox.ShowOpen If dlgComBox.FileName <> "" Then Set ImgPhoto.Picture = LoadPicture(dlgComBox.FileName) PicFile = dlgComBox.FileName End If Exit Sub GetPicErr: If Err.Number = 481 Then MsgBox "选择文件格式不正确，请选择图片文件！", vbInformation Else MsgBox "发生错误！错误号为：" & Err.Number & ",错误信息：" & Err.Description, vbInformation End If End Sub Private Sub TxtBirthday_GotFocus() MsgBox "日期格式 19xx-yy-zz" End Sub Private Sub TxtEnterSchoolDate_GotFocus() MsgBox "日期格式 19xx-yy-zz" End Sub Private Sub TxtNum_LostFocus() Set cn = New ADODB.Connection Set rs = New ADODB.Recordset cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=student management" rs.Open "select * from StudentInformation where Num ='" & TxtNum.Text & "'", cn, 3, 2 If rs.BOF = False Then MsgBox "帐号已存在！" TxtNum.Text = "" TxtNum.SetFocus End If End Sub Public Sub SavePictureToDb(fld As ADODB.Field, DiskFile As String) Dim byteData() As Byte Dim strData As String Dim NumBlocks As Integer Dim filelength As Long Dim LeftOver As Long Dim SourceFile As Integer Dim i As Integer Dim BlockSize As Long '指定块大小，以二进制方式打开文件 BlockSize = 4096 SourceFile = FreeFile Open DiskFile For Binary Access Read As SourceFile filelength = LOF(SourceFile) ' 获得文件长度 If filelength = 0 Then Close SourceFile MsgBox DiskFile & "不存在或无数据！", vbInformation Else '计算图片可分的块数和不够一块的大小 NumBlocks = filelength \ BlockSize LeftOver = filelength Mod BlockSize fld.AppendChunk Null '先处理不够一块的部分 ReDim byteData(0, LeftOver) Get SourceFile, , byteData() fld.AppendChunk byteData() '剩下的按块处理 ReDim byteData(0, BlockSize) For i = 1 To NumBlocks Get SourceFile, , byteData() fld.AppendChunk byteData() Next i Close SourceFile End If End Sub

风吹过带走爱风吹过带走爱,留下了什么？