寻找破碎的记忆... ... http://seekdoreen.ycool.com/ Tue, 29 Apr 2008 10:04:35 GMT Tue, 29 Apr 2008 10:04:35 GMT http://sta.yculblog.com/images/logo/general-88x31.gif 寻找破碎的记忆... ... http://seekdoreen.ycool.com/ Doreen http://seekdoreen.ycool.com/post.2967813.html Doreen 的含义是聪敏,反应敏捷,善分析.但自我意识强,缺少自信,并感到孤独.敏感,理想主义者.更善于用文字表达思想.感情波动大.别人的鼓励能激励你,但你会怀疑对方的意图. 
... ]]> http://seekdoreen.ycool.com/post.2967813.html Tue, 29 Apr 2008 06:04:53 GMT doreen ASP+Excel http://seekdoreen.ycool.com/post.2960114.html 1、建立Excel对象
setobjExcelApp=CreateObject("Excel.Application")
objExcelApp.DisplayAlerts=false不显示警告
objExcelApp.Application.Visible=false不显示界面

2、新建Excel文件
objExcelApp.WorkBooks.add
setobjExcelBook=objExcelApp.ActiveWorkBook
setobjExcelSheets=objExcelBook.Worksheets
setobjExcelSheet=objExcelBook.Sheets(1)

3、读取已有Excel文件
strAddr=Server.MapPath(".")
objExcelApp.WorkBooks.Open(strAddr&"\Templet\Table.xls")
setobjExcelBook=objExcelApp.ActiveWorkBook
setobjExcelSheets=objExcelBook.Worksheets
setobjExcelSheet=objExcelBook.Sheets(1)

4、另存Excel文件
objExcelBook.SaveAsstrAddr&"\Temp\Table.xls"

5、保存Excel文件
objExcelBook.Save

6、退出Excel操作
objExcelApp.Quit一定要退出
setobjExcelApp=Nothing

三、ASP操作Excel生成数据表

1、在一个范围内插入数据
objExcelSheet.Range("B3:k3").Value=Array("67","87","5","9","7","45","45","54","54","10")
2、在一个单元格内插入数据
objExcelSheet.Cells(3,1).Value="InternetExplorer"

... ]]> http://seekdoreen.ycool.com/post.2960114.html Thu, 17 Apr 2008 00:04:43 GMT asp excel Vlan原理及优点 http://seekdoreen.ycool.com/post.2936744.html http://seekdoreen.ycool.com/post.2936744.html Thu, 13 Mar 2008 04:03:08 GMT network virtual local vlan 虚拟局域网 area VB打开关闭Excel的常用方法 http://seekdoreen.ycool.com/post.2925027.html Dim xlBook As Excel.WorkBook      '定义对象
Dim xlSheet As Excel.Worksheet    '定义对象

Set  xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set  xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见（或不可见）
Set  xlSheet = xlBook.Worksheets("表名") '设置活动工作表
xlSheet.Cells(row, col) =值 '给单元格（row,col）赋值
xlSheet.PrintOut '打印工作表
xlBook.Close (True) '关闭工作簿
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象

注:在2003的Office里,是无法在VB里直接引用的,须在浏览里指向到 Excel.Exe 这个文件... ]]> http://seekdoreen.ycool.com/post.2925027.html Fri, 22 Feb 2008 06:02:19 GMT 当爱情走到尽头 http://seekdoreen.ycool.com/post.2896436.html 今天的天是灰的.今天的风是寒的.今天的水是冰的。 今天我的心情是阴的。
今天是我最后一次主动约你了，今天是我们爱情奔跑的终点。你是否是我在用心去爱的人吗？是否还是我可以让我相拥的人吗？

我用尽了心想去挽留的爱。但是到最后所有的努力在你的面前都显得那么无助。 
当爱情走到了尽头时，关于我们所有的记忆都像是片片碎片狠狠的扎进我的心里深处，使我每一次的呼吸都是那么的痛苦。

爱。。。就这么的消失吧！ 我的生命里不曾有你！

... ]]> http://seekdoreen.ycool.com/post.2896436.html Thu, 03 Jan 2008 15:01:39 GMT 使用ASP和Jmail来发送带有Html格式的邮件 http://seekdoreen.ycool.com/post.2790454.html

<%
On error resume next
Dim JMail, contentId
Set JMail = Server.CreateObject("JMail.Message")
JMail.Charset = "gb2312" ' 邮件字符集，默认为"US-ASCII"
' JMail.ISOEncodeHeaders = False ' 是否进行ISO编码，默认为True

' 发送者信息（可用变量方式赋值）
JMail.From = "FormName@FormWeb.com" ' 发送者地址
JMail.FromName = "海娃" ' 发送者姓名
JMail.Subject = "邮件主题" ' 邮件主题

' 身份验证
JMail.MailServerUserName = "myusername" ' 身份验证的用户名
JMail.MailServerPassword = "mypassword" ' 身份验证的密码

' 设置优先级，范围从1到5，越大的优先级越高，3为普通
JMail.Priority = 3

JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")

' 加入一个收件人【变量email：收件人地址】可以同一语句重复加入多个
JMail.AddRecipient("Send(a)Send.com")

' 加入附件【变量200511994431.htm：附件文件的绝对地址，确保用户IUSR_机器名有访问的权限】
' 【参数设置是(True)否(False)为Inline方式】
'contentId = JMail.AddAttachment (Server.MapPath("jmail.asp"), True)

' 邮件主体（HTML(注意信件内链接附件的方式)）
JMail.HTMLBody = "<html><head><META content=zh-cn http-equiv=Content-Language><meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312""><style type=text/css>A:link { FONT-SIZE: 9pt; TEXT-DECORATION: none; color: #000000}A:visited {FONT-SIZE: 9pt; TEXT-DECORATION: none; color: #666666}A:hover {COLOR: #ff6600; FONT-SIZE: 9pt; TEXT-DECORATION: underline}BODY {FONT-SIZE: 9pt} --></style></head><body><font color=red>邮件正文</font><br><font color=green>邮件正文</font><br><b>邮件正文</b></body></html>"

' 邮件主体（文本部分）
JMail.Body = "我们的邮件采用了HTML格式，但是您的邮件查看软件可能不支持。。。邮件正文,邮件正文,邮件正文"

' 发送【调用格式：objJMail.Send([username:password@]SMTPServerAddress[:Port])】
JMail.Send("smtp.163.com")

' 关闭并清除对象
JMail.Close()
Set JMail = Nothing

if err.number<>0 then
 response.write "发送发送失败！"
else
 response.write "邮件发送成功！"
end if
%>

... ]]> http://seekdoreen.ycool.com/post.2790454.html Fri, 03 Aug 2007 05:08:53 GMT asp jmail html邮件 发送邮件 强制刷新页面的方法 http://seekdoreen.ycool.com/post.2775654.html Response.Buffer = True 
Response.ExpiresAbsolute = Now() - 1 
Response.Expires = 0 
Response.CacheControl = "no-cache" 
Response.AddHeader "Pragma", "No-Cache"

2、在HtML代码中加入
<HEAD>
<META HTTP-EQUIV="Pragma" CONTENT="no-cache">
<META HTTP-EQUIV="Cache-Control" CONTENT="no-cache">
<META HTTP-EQUIV="Expires" CONTENT="0">
</HEAD>
... ]]> http://seekdoreen.ycool.com/post.2775654.html Sat, 14 Jul 2007 16:07:26 GMT 如何才能高效的进行CSS编码？ http://seekdoreen.ycool.com/post.2731229.html http://seekdoreen.ycool.com/post.2731229.html Thu, 17 May 2007 09:05:42 GMT css 网页制作 网页排版 网页布局 命运-不寻常的爱情 http://seekdoreen.ycool.com/post.2667199.html

　　回忆里的爱情，比等待中的爱情，更令人痛苦。脑海中浮现出很多人的面孔，那个男人的脸，被层层叠叠的覆盖着。一定要见他一面吧！——惠瑛。

　　醒悟得太迟的爱情，比起永远无法相见的爱情，更令人悲伤。爱情那么近，一直就在身边，自己却没有意识到。就连一起度过的美好时光，也都丢失了。一直走到了陡峭的绝壁，再也无法回头。我的心中，有一朵容易凋零的花。——正佑。

　　无法诉说的爱情，却比能告白的爱情，来得更殷切。在望不到尽头的等待中，长久以来压抑的心，就要爆炸了。——朴义

        那年的秋天，阿姆斯特丹。弥散着火药味的灵魂，像秋日阳光般温暖的灵魂，这两个男人，在同一个女人身边出现了。

　　画家惠瑛正在为她的个人画展忙碌着，她每天都会去广场上给人画肖像画。在这个陌生的城市里，唯一能支撑她活下去的，就是对初恋的回忆。两年来的每天的同一时间，都会有人给惠瑛送来一盆小小的雏菊。他到底是谁呢？惠瑛很好奇，却一直没有机会看到他的样子。这让惠瑛心中生出一种异样的感觉。

　　正佑是一名国际刑警，为追捕一个杀手来到了这个城市。明明是他在追捕别人，但他却先被纯真善良的惠瑛俘获了。熙熙攘攘的广场上，正佑静静地坐着，让惠瑛给他画肖像画。两人的脸上，满是幸福的味道，惠瑛把他当成了给她送了两年雏菊的男人。

　　然而还有一个两年来一直在默默送着雏菊的人，一直躲在暗处，痛苦地看着惠瑛和正佑那幸福的模样。朴义是一个杀手。他一直隐瞒自己的身份，守护在惠瑛身边。他也来到广场上，让惠瑛帮他画画，然而惠瑛画到一半却无法继续。绝望的朴义发现，她画的竟是另一个男人的脸。然而这份悲伤的爱情，却不是那么容易就放弃的。故事的结尾，盛开着雏菊的画上，溅满了鲜血……

... ]]> http://seekdoreen.ycool.com/post.2667199.html Tue, 20 Feb 2007 11:02:17 GMT 阳光灿烂的日子 http://seekdoreen.ycool.com/post.2656157.html         总要感谢您在我是无知轻妄的少年去不断触摸这让我还未碰及的新世界时总有您的相伴，在我由年少无知的少年准备成为一个可以顶天立地的男儿时，您却远远的离我而去，走向一个我无法触摸的世界里。

还记得一个雨天
雨水沾湿了发边
泪水淌湿了一脸
看马路水花四溅
还记得一次雷电
划破天空成两边
梦想撕开了几片
世界像没有明天
骤眼天昏地暗
但信风雨过后驱得散这密云
天空满布裂痕
但见光线透入闪耀着流金
而狂风即使翻满地
仍等一些好天气
风光始终都会明媚
迈开戚促的脚步
扬起低泣的眼眉
睁开双眼就有惊喜
阳光轻轻撒满地
云彩今天都很美
伸开双臂云雾里飞
那怕再次有风急雨狂
阳光于心里依然晴朗

... ]]> http://seekdoreen.ycool.com/post.2656157.html Mon, 05 Feb 2007 02:02:24 GMT 年轻的迷惑与无奈 http://seekdoreen.ycool.com/post.2653128.html 挪威的森林》。当时我也一时无法给予确切的回答，只是含糊的道出：“嗯 看了后感触颇深，就像从冰冷的深塘里爬了出来似的”
  今天看了编文章，方使我归纳出个结论“年轻的迷惑与无奈” 不管对于爱情还是事业 未来，我们都很迷茫！

    《挪威的森林》 作品带给我们思想的特异空间，而轻描淡写的日常生活片断唤起的生活气氛令我们有所共鸣。更重要的是他以六十年代的背景道出九十年代，甚至世世代代的年轻心聱。
     书中主角直子每听此曲必觉得自己一个孤零零地迷失在又寒又冻的森林深处，这正是年轻必经的旁徨、恐惧、摸索、迷惑的表征。男主角渡边多次想拯救在自我迷失中的直子，但有时甚至他也迷失了方向。生活在都市中的年轻一代，在都市空间愈狭小与人的疏离愈人的对比中，令他们失去与人接触的欲望，恰是年轻一代避免受伤的保护罩。正如《挪威的森林》的渡边，因他怕失望，他不想勉强去交朋友，在他的世界中，朋友始终只有那几个。
    书中的人物，身驱动作是随俗的，而心思念头则显得空灵，说话的方式特别，常常可抽离出来而成格言，如“只有不完整的记忆和不完整的思念，才能装进一种称作小说的不完整容器里”，“我们一边把死当作微尘般吸入肺里，一边活下去”，“世界处处是驴子粪”……年青的□思在书中比比皆是。... ]]> http://seekdoreen.ycool.com/post.2653128.html Wed, 31 Jan 2007 09:01:18 GMT response.redirect和Server.Transfer的区别详解 http://seekdoreen.ycool.com/post.2620497.html
　　response.redirect其实上是当服务器碰到这条语句时发送一条指令（包含新的地址）给浏览器，然后让浏览器去发送http请求，请求response.redirect后面的那个新的http地址，流程如下：

　　浏览器ASP文件请求->服务器执行->遇到response.redirect语句->服务器发送response.redirect后面的地址给客户机端的浏览器->浏览器请求执行新的地址（服务器返回的Response.Redirect后面的地址）这就是一个小小的Response.Redirect的全部过程，不看不知道，一看吓一条！它有这么多的过程，真恐怖...　...,而ASP3.0中的Server.Transfer语句当接受地址后是直接转向后面的地址，流程如下：

　　浏览器ASP文件请求->服务器执行->遇到Server.Transfer语句->服务器转向新的文件。

Server.Transfer方法与Redirect方法相比另一个显著的优势是在页面转换时，Request集合里的内容不会丢失，这给我们编程带来很大的方便

一般的情况下尽可能用Server.Transfer方法（前提是服务器是IIS)，Server.Transfer方法更快速，而且因为只在服务器上执行，所以可以和任何浏览器兼容。... ]]> http://seekdoreen.ycool.com/post.2620497.html Thu, 14 Dec 2006 06:12:46 GMT asp