寻找破碎的记忆... ...

风行浪客 @ 2008-04-29 14:11

Doreen(多琳)在希腊神话里是神的赠体！
Doreen 的含义是聪敏,反应敏捷,善分析.但自我意识强,缺少自信,并感到孤独.敏感,理想主义者.更善于用文字表达思想.感情波动大.别人的鼓励能激励你,但你会怀疑对方的意图.

标签: doreen

阅读全文(19) / 评论 / 给风行浪客留言 / 扔小纸条 / 文件夹: 生活随想
收藏: QQ书签 del.icio.us / 订阅: Google 抓虾

风行浪客 @ 2008-04-17 08:48

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"

标签: asp excel

阅读全文(39) / 评论 / 给风行浪客留言 / 扔小纸条 / 文件夹: 学习杂记
收藏: QQ书签 del.icio.us / 订阅: Google 抓虾

Vlan原理及优点

风行浪客 @ 2008-03-13 12:43

Vlan 技术介绍
VLAN（Virtual Local Area Network），是一种通过将局域网内的设备逻辑地而不是物理地划分成一个个网段从而实现虚拟工作组的技术。IEEE于1999年颁布了用以标准化VLAN实现方案的IEEE 802.1Q协议标准草案。

虚拟局域网(VLAN)，是指网络中的站点不拘泥于所处的物理位置，而可以根据需要灵活地加入不同的逻辑子网中的一种网络技术。

基于交换式以太网的虚拟局域网在交换式以太网中，利用VLAN技术，可以将由交换机连接成的物理网络划分成多个逻辑子网。也就是说，一个虚拟局域网中的站点所发送的广播数据包将仅转发至属于同一VLAN的站点。

在交换式以太网中，各站点可以分别属于不同的虚拟局域网。构成虚拟局域网的站点不拘泥于所处的物理位置，它们既可以挂接在同一个交换机中，也可以挂接在不同的交换机中。虚拟局域网技术使得网络的拓扑结构变得非常灵活，例如位于不同楼层的用户或者不同部门的用户可以根据需要加入不同的虚拟局域网。

标签: network virtual local vlan 虚拟局域网 area

阅读全文(43) / 评论 / 给风行浪客留言 / 扔小纸条 / 文件夹: 学习杂记
收藏: QQ书签 del.icio.us / 订阅: Google 抓虾

VB打开关闭Excel的常用方法

风行浪客 @ 2008-02-22 14:31

Dim xlApp As Excel.Application     '定义对象
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 这个文件

阅读全文(44) / 评论 / 给风行浪客留言 / 扔小纸条 / 文件夹: 学习杂记
收藏: QQ书签 del.icio.us / 订阅: Google 抓虾

当爱情走到尽头

风行浪客 @ 2008-01-03 23:56

今天的天是灰的.今天的风是寒的.今天的水是冰的。今天我的心情是阴的。
今天是我最后一次主动约你了，今天是我们爱情奔跑的终点。你是否是我在用心去爱的人吗？是否还是我可以让我相拥的人吗？

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

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

阅读全文(64) / 评论 / 给风行浪客留言 / 扔小纸条 / 文件夹: 生活随想
收藏: QQ书签 del.icio.us / 订阅: Google 抓虾