存档

‘技术’ 分类的存档

导入导出IP设置

2008年4月6日 没有评论

1、右键单击桌面上的“网上邻居→属性”,设置“本地连接”网卡的TCP/IP属性。设置好后,进入命令行模式,确保当前目录为C:\Documents and Settings\Administrator,输入以下命令:netsh -c interface dump >c:\ip.txt

2. 制作一个批处理文件,命名为ip.bat,内容为:netsh -f c:\ip.txt。在桌面上单击右键新建快捷方式,单击“浏览”,将项目的位置指向ip1,输入快捷方式的名称“ip设置”。

分类: 技术 标签:

展会英语100句

2008年4月2日 没有评论

1、 I’ve come to make sure that your stay in Beijing is a pleasant one.我特地为你们安排使你们在北京的逗留愉快。
 
2、 You’re going out of your way for us, I believe.我相信这是对我们的特殊照顾了。 
 
3 、It’s just the matter of the schedule,that is,if it is convenient for you right now.如果你们感到方便的话,我想现在讨论一下日程安排的问题。
 
4 、I think we can draw up a tentative plan now.我认为现在可以先草拟一具临时方案。
 
5 、If he wants to make any changes,minor alternations can be made then.如果他有什么意见的话,我们还可以对计划稍加修改。
 
6 、Is there any way of ensuring we’ll have enough time for our talks?我们是否能保证有充足的时间来谈判?
 
7 、So our evenings will be quite full then?那么我们的活动在晚上也安排满了吗?
 
8 、We’ll leave some evenings free,that is,if it is all right with you.如果你们愿意的话,我们想留几个晚上供你们自由支配。
 
9、 We’d have to compare notes on what we’ve discussed during the day.我们想用点时间来研究讨论一下白天谈判的情况。
 
10 、That’ll put us both in the picture.这样双方都能了解全面的情况。
 
11 、Then we’d have some ideas of what you’ll be needing.那么我们就会心中有点儿数,知道你们需要什么了。
 
12、 I can’t say for certain off-hand.我还不能马上说定。
 
13、 Better have something we can get our hands on rather than just spend all our time talking.有些实际材料拿到手总比坐着闲聊强。
 
14、 It’ll be easier for us to get down to facts then.这样就容易进行实质性的谈判了。
 
15、 But wouldn’t you like to spend an extra day or two here?你们不愿意在北京多待一天吗?
 
16、 I’m afraid that won’t be possible,much as we’d like to.尽管我们很想这样做,但恐怕不行了。
 
17、 We’ve got to report back to the head office.我们还要回去向总部汇报情况呢。
 
18、 Thank you for you cooperation.谢谢你们的合作。
 
19、 We’ve arranged our schedule without any trouble.我们已经很顺利地把活动日程安排好了。
 
20 、Here is a copy of itinerary we have worked out for you and your friends.Would you please have a look at it?这是我们为你和你的朋友拟定的活动日程安排。请过目一下,好吗?
 
21、 If you have any questions on the details, feel free to ask.如果对某些细节有意见的话,请提出来。
 
22 、I can see you have put a lot of time into it.我相信你在制定这个计划上一定花了不少精力吧。
 
23、 We really wish you’ll have a pleasant stay here.我们真诚地希望你们在这里过得愉快。
 
24、 I wonder if it is possible to arrange shopping for us.我想能否在我们访问结束时为我们安排一点时间购物。
 
25、 Welcome to our factory.欢迎到我们工厂来。
 
26、 I’ve been looking forward to visiting your factory.我一直都盼望着参观贵厂。
 
27、 You’ll know our products better after this visit.参观后您会对我们的产品有更深的了解。
 
28、 Maybe we could start with the Designing Department.也许我们可以先参观一下设计部门。
 
29 、Then we could look at the production line.然后我们再去看看生产线。
 
30、 These drawings on the wall are process sheets.墙上的图表是工艺流程表。
 
31、 They describe how each process goes on to the next.表述着每道工艺间的衔接情况。
 
32、 We are running on two shifts.我们实行的工作是两班倒。
 
33、 Almost every process is computerized.几乎每一道工艺都是由电脑控制的。
 
34、 The efficiency is greatly raised,and the intensity of labor is decreased.工作效率大大地提高了,而劳动强度却降低了。
 
35、 All produets have to go through five checks in the whole process.所有产品在整个生产过程中得通过五道质量检查关。
 
36、 We believe that the quality is the soul of an enterprise.我们认为质量是一个企业的灵魂。
 
37、 Therefore,we always put quality as the first consideration.因而,我们总是把质量放在第一位来考虑。
 
38、 Quality is even more important than quantity.质量比数量更为?38 Quality is even more important than quantity.质量比数量更为重要。
 
39、 I hope my visit does not cause you too much trouble.我希望这次来参观没有给你们增添太多的麻烦。
 
40、 Do we have to wear the helmets?我们得戴上防护帽吗?
 
41、 Is the production line fully automatic?生产线是全自动的吗?
 
42、 What kind of quality control do you have?你们用什么办法来控制质量呢?
 
43、 All products have to pass strict inspection before they go out.所有产品出厂前必须要经过严格检查。
 
44、 What’s your general impression,may I ask?不知您对我们厂总的印象如何?
 
45、 I’m impressed by your approach to business.你们经营业务的方法给我留下了很深的印象。
 
46、 The product gives you an edge over your competitors,I guess.我认为你们的产品可以使你们胜过竞争对手。
 
47、 No one can&
nbsp;match us so far as quality is concerned.就质量而言,没有任何厂家能和我们相比。
 
48、I think we may be able to work together in the future.我想也许将来我们可以合作。
 
49、 We are thinking of expanding into the Chinese market.我们想把生意扩大到中国市场.
 
50、 The purpose of my coming here is to inquire about possibilities of establishing trade relations with your company.我此行的目的正是想探询与贵公司建立贸易关系的可能性。
 
51、 We would be glad to start business with you.我们很高兴能与贵公司建立贸易往来。
 
52、 I’d appreciate your kind consideration in the coming negotiation.洽谈中请你们多加关照。 
53、 We are happy to be of help.我们十分乐意帮助。
 
54 、I can assure you of our close cooperation.我保证通力合作。
 
55、 Would it be possible for me to have a closer look at your samples?
可以让我参观一下你们的产品陈列室吗?
 
56、 It will take me several hours if I really look at everything.
如果全部参观的话,那得需要好几个小时。
 
57、 You may be interested in only some of the items.你也许对某些产品感兴趣。
 
58、 I can just have a glance at the rest.剩下的部分我粗略地看一下就可以了。
 
59、 They’ve met with great favor home and abroad.这些产品在国内外很受欢迎。
 
60、 All these articles are best selling lines.所有这些产品都是我们的畅销货。
 
61、 Your desire coincides with ours.我们双方的愿望都是一致的。
 
62、 No wonder you’re so experienced.怪不得你这么有经验。
 
63、 Textile business has become more and more difficult since the competition grew.
随着竞争的加剧,纺织品贸易越来越难做了。
 
64、 Could I have your latest catalogues or something that tells me about your company?
可以给我一些贵公司最近的商品价格目录表或者一些有关说明资料吗?
 
65、 At what time can we work out a deal?我们什么时候洽谈生意?
 
66、 I hope to conclude some business with you.我希望能与贵公司建立贸易关系。
 
67、 We also hope to expand our business with you.我们也希望与贵公司扩大贸易往来。
 
68、 This is our common desire.
这是我们的共同愿望。
 
69、 I think you probably know China has adopted a flexible policy in her foreign trade.
我想你也许已经了解到中国在对外贸易中采取了灵活的政策。
 
70、 I’ve read about it,but I’d like to know more about it.
我已经知道了一点儿,但我还想多了解一些。

71、 Seeing is believing.
百闻不如一见。
 
72、 I would like to present our comments in the following order.
我希望能依照以下的顺序提出我们的看法。
 
73、 First of all, I will outline the characteristics of our product.
首先我将简略说明我们商品的特性。
 
74、 When I present my views on the competitive products, I will refer to the patent situation.
专利的情况会在说明竞争产品时一并提出。
 
75、 Please proceed with your presentation.请开始你的简报。
 
76、 Yes, we have been interested in new system.是的,我们对新系统很感兴趣。
 
77、 Has your company done any research in this field?请问贵公司对此范畴做了任何研究吗?
 
78、 Yes, we have done a little. But we have just started and have nothing to show you.
有,我们做了一些,但是因为我们才刚起步,并没有任何资料可以提供给你们。
 
79、 If you are interested, I will prepare a list of them.
如果您感兴趣的话,我可以列表让你参考。
 
80、 By the way, before leaving this subject, I would like to add a few comments.
在结束这个问题之前顺便一提,我希望能再提出一些看法。
 
81、 I would like to ask you a favor.我可以提出一个要求吗?
 
82、 Would you let me know your fax number?可以告诉我您的传真机号码吗?
 
83、 Would it be too much to ask you to respond to my question by tomorrow?
可以请你在明天以前回复吗?
 
84、 Could you consider accepting our counterproposal?你能考虑接受我们的反对案吗?
 
85、 I would really appreciate your persuading your management.
如果你能说服经营团队,我会很感激。
 
86、 I would like to suggest that we take a coffee break.我建议我们休息一下喝杯咖啡。
 
87、 Maybe we should hold off until we have covered item B on our agenda.
也许我们应该先谈论完B项议题。
 
88、 As a matter of fact, we would like to discuss internally regarding item B.
事实上,我们希望可以先内部讨论B项议题。
 
89、 May I propose that we break for coffee now?我可以提议休息一下,喝杯咖啡吗?
 
90、 If you insist, I will comply with your request.如果你坚持,我们会遵照你的要求。
 
91、 We must stress that these payment terms are very important to us.
我们必须强调这些付款条件对我们很重要。
 
92、 Please be aware that this is a crucial issue to us.请了解这一点对我们至关重要。
 
93、 I don’t know whether you realize&
nbsp;it, but this condition is essential to us.
我不知道你是否了解,但是,这个条件对我们是必要的。
 
94、 Our policy is not to grant exclusivity.我们的方针是不授与专卖权。
 
95、 There should always be exceptions to the rule.凡事总有例外。
 
96、 I would not waste my time pursuing that.如果是我的话,不会将时间浪费在这里。
 
97、 Would you care to answer my question on the warranty?你可以回答我有关保证的问题吗?
 
98、 I don’t know whether you care to answer right away.我不知道你是否愿意立即回答。
 
99、 I have to raise some issues which may be embarrassing.我必须提出一些比较尴尬的问题。
 
100、 Sorry, but could you kindly repeat what you just said?抱歉,你可以重复刚刚所说的吗?

分类: 技术 标签:

V3742TU 安装xp

2008年2月20日 没有评论

昨天拿到朋友的V3742TU让帮他安装系统,原vista home版,要重装成xp sp2。
番茄花园3.5光盘启动,一路安装正常。
所有驱动全部无法找到,找了网上大部分地方都无法找到相关驱动。没办法,打HP 800电话,HP工程师比较热情(赞一个),5分钟不到发邮件过来告诉我到哪里下载。具体见下,给大家作为以后的参考。 阅读全文…

分类: 技术 标签:

配置apache php

2008年2月5日 没有评论

注意大小写

修改Apache配置:httpd.conf 

在D盘新建一个名为wwwroot的文件夹(网站默认目录) 

找到 
DocumentRoot "D:/Apache/htdocs" 
修改为 
DocumentRoot "D:/wwwroot" 

找到 
<Directory "D:/Apache/htdocs"> 
修改为 
<Directory "D:/wwwroot"> 

找到 
DirectoryIndex index.html 
修改为 
DirectoryIndex index.html index.htm index.php 

找到 
#LoadModule ssl_module modules/mod_ssl.so 
在下面添加 
LoadModule php5_module "D:/PHP5/php5apache2_2_filter.dll" 

在httpd.conf文件最后面添加下面语句 
# PHP5 
PHPIniDir "D:/PHP5" 
ScriptAlias /php/ "D:/PHP5/" 
Action application/x-httpd-php "d:/php/php-cgi.exe" 
AddType application/x-httpd-php .php 

======================================================================= 

修改PHP配置:php.ini 

将php.ini-dist重命名为php.ini 

找到 
extension_dir = "./" 
修改为 
extension_dir = "D:/PHP5/ext" 

分别找到 
;extension=php_mbstring.dll 
;extension=php_mysql.dll 
;extension=php_gd2.dll 
分别修改为 
extension=php_mbstring.dll 
extension=php_mysql.dll 
extension=php_gd2.dll 

找到 
;date.timezone = 
修改为 
date.timezone = Asia/Shanghai 
(时区参见http://us3.php.net/manual/en/timezones.asia.php) 

在PHP目录下新建一个session文件夹 

找到 
;session.save_path = "/tmp" 
修改为 
session.save_path = "D:/PHP5/session" 

======================================================================= 

如装好后出现无权访问该页面,在httpd.conf中找到以下内容: 
<Directory /> 
Options FollowSymLinks 
AllowOverride None 
Order deny,allow 
Deny from all 
Satisfy all 
</Directory> 
将Deny from all修改为Allow from all即可! 

======================================================================= 

测试安装是否成功: 
在wwwroot下新建一个info.php,内容如下: 

<?php 
phpinfo(); 
?> 

浏览器下打开 http://localhost/info.php 

如各项都正常显示(mysql,session等…),即OK!

另外,在vista home basic 没有iis,此时只能安装apache,但是安装后一般会出现错误,因为80端口被占用,解决方法:
在打开或关闭windows程序里面选择iis,重启;再同样关闭它,再重启,这样apache就可以使用80端口了。

分类: 技术 标签:

局域网共享问题解决方案

2008年1月25日 没有评论

开始->运行->GPEDIT.MSC->计算机配置->WINDOWS设置->安全设置->本地策略->安全选项中的: 
修改如下三个项目:“网络访问:本地帐户的共享和安全模式” 改为“仅来宾:本地用户以来宾身份验证” 如果为另一个选项账户:"经典:本地用户以自己的身份验证"就不作更改。
另一个项目:“使用空白密码的本地帐户只允许进行控制登录” 改为 已禁用
第三个就是“网络访问:不允许SAM帐户和共享的匿名枚举”,选择已禁用,然后重启

分类: 技术 标签:

VISTA 智能ABC

2008年1月23日 没有评论

VISTA没有带智能ABC输入法,但是"微软拼音输入法"里面可以设置使用ABC风格.效果基本一样…完

分类: 技术 标签:

Vista 开启超级用户的方法

2008年1月23日 没有评论

在“开始->所有程序->附件”中,右击“命令提示符”,选择“以管理员身份运行”。然后,在命令提示符窗口输入"net user administrator /active:yes"

分类: 技术 标签:

autorun.inf等有关病毒的详细解说

2007年11月7日 没有评论

一、autorun.inf是windows下操纵光盘行为的一个文件,需要放在光盘根目录下,部分操作对于硬盘也适用。

二、autorun.inf是可以被禁止的。方法如下:

点击开始->运行,在文本框中输入regedit或者regedt32。依次展开HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Exploer,其中的NoDriveTypeAutoRun子键限制着Autorun的作用范围,默认为95(16进制)。

把禁用的设备标志相加设置为键值就可以完成设置。其中设备标志如下

1:无法识别的设备(建议禁止,默认禁止)

2:没有根目录的设备(Drive without root directory未知含义,建议禁止,默认不禁止)

4:可移动的设备(U盘,建议禁止,很多病毒利用U盘的Autorun.inf进行传染,默认禁止)

8:固定的设备(硬盘,自己看着办,默认不禁止)

16:网络设备(web驱动器,建议禁止,默认禁止)

32:光盘驱动设备(CDROM,默认不禁止)

64:虚拟存储设备(RAM,建议禁止,默认不禁止)

128:未指定的其他驱动器(保留位,建议禁止,默认禁止)

三、autorun.inf文件分为三大部分[AutoRun] [AutoRun.Alpha] [DeviceInstall]。

[AutoRun]适用于Windows95以上系统与32位以上CD-ROM,必选。 
[AutoRun.alpha]适用于基于RISC的计算机光驱,适用系统为Windows NT 4.0,可选。
[DeviceInstall]适用于Windows XP以上系统,可选。

四、[AutoRun]部分的命令及其详解。

1、DefaultIcon

含义:

指定应用程序的默认图标。

格式:

DefalutIcon=图标路径名[,序号]

参数:

图标文件名:应用程序的默认图标路径名,格式可以为.ico、.bmp、.exe、.dll。当文件格式为.exe和.dll时,有时需要使用序号来指定图标。

序号:当文件格式为.exe和.dll时,文件可能包括多余一个图标,此时需要使用序号来指定图标,需要注意的是,序号是从0开始的。

备注:

应用程序的默认图标将在windows explorer核心的驱动显示窗口中替代设备的默认图标来显示。

图标路径名的默认目录是设备根目录。

2、Icon

含义:

指定设备显示图标。

格式:

Icon=图标路径名[,序号]

参数:

图标文件名:应用程序的默认图标路径名,格式可以为.ico、.bmp、.exe、.dll。当文件格式为.exe和.dll时,有时需要使用序号来指定图标。

序号:当文件格式为.exe和.dll时,文件可能包括多余一个图标,此时需要使用序号来指定图标,需要注意的是,序号是从0开始的。
 
备注:

设备显示图标将在windows explorer核心的驱动显示窗口中替代设备的默认图标来显示。

图标路径名的默认目录是设备根目录。

当存在应用程序默认图标(DefaultIcon)时,本命令无效。

3、Label

含义:

指定设备描述

格式:

Label=描述

参数:

描述:任意文字,可以包括空格。

备注:

设备描述将在windows explorer核心的驱动显示窗口中替代设备的默认描述\卷标来显示。

在非windows explorer核心的驱动显示窗口中(例如右击设备选择属性)显示的仍然是设备的卷标。

4、Open

含义:

指定设备启用时运行之命令行。

格式:

Open=命令行

(命令行:程序路径名 [参数])

参数:

命令行:自动运行的命令行,必须是.exe、.com、.bat文件,其他格式文件可以使用start.exe打开或使用ShellExecute命令。

备注:

命令行的起始目录是设备根目录和系统的$Path环境变量。

5、ShellExecute

含义:

指定设备启用时执行文件。(操作系统支持未知)

格式:

ShellExecute=执行文件路径名 [参数]

参数:

执行文件路径名:设备启用时执行文件路径名。可以是任意格式文件。系统会调用设置的程序执行此文件。
参数:参数,根据执行文件作调整

备注:

命令行的起始目录是设备根目录和系统的$Path环境变量。

6、Shell\关键字\Command

含义:

定义设备右键菜单执行命令行。

格式:

Shell\关键字\Command=命令行

(命令行:程序路径名 [参数])

参数:

命令行:自动运行的命令行,必须是.exe、.com、.bat文件,其他格式文件可以使用start.exe打开。

备注:

命令行的起始目录是设备根目录和系统的$Path环境变量。

7、Shell\关键字

含义:

定义设备右键菜单文本。

格式:

Shell\关键字=文本

参数:

关键字:用以标记菜单,可以使用任何字符表示,包括空格。

文本:在右键菜单中显示的文本。可以使用任何字符,不能存在空格。

备注:

在同一Autorun.inf文件中,不同右键菜单关键字不同,相同右键菜单关键字相同。

右键菜单文本中可以使用&设定加速键,&&输出一个&。

Shell\关键字\Command命令Shell\关键字两者缺一不可,顺序无所谓。

当不存在Open、ShellExecute与Shell命令时,设备启用时运行第一个设备右键菜单指定命令。

8、Shell

含义:

定义设备启用时运行之设备右键命令。

格式:
Shell=关键字

参数:

关键字:标记过的菜单关键字

备注:

Shell指定的关键字可以在AutoRun.inf文件的任意部分。

Open\ShellExecute\Shell命令后定义的优先级高。

四、[AutoRun.alpha]部分的命令简介。

[AutoRun.alpha]部分的命令与[AutoRun]部分的命令相同,只不过在基于RISC的计算机光驱中,[AutoRun.alpha]优先级高于[AutoRun]

五、[DeviceInstall]部分命令及其详解。

DriverPath

含义:

定义搜索驱动程序目录。

格式:

DriverPath=驱动程序路径

参数:

驱动程序路径:驱动程序所在路径,包括其子路径。

备注:

Windows XP以上支持。

仅CD-ROM支持

当系统监测到一个新的设备时,会提示用户寻找设备的驱动程序。当用户点选此CD-ROM时,当[DeviceInstall]部分存在时,系统会按照DriverPath所标记的路径出寻找驱动程序。未标记的路径系统将忽略查找。当[DeviceInstall]部分不存在时,系统将进行完全查找。

如果不希望系统在此CD-ROM中搜索驱动程序,只加一行[DeviceInstall]不加DriverPath命令即可。

分类: 技术 标签:

如何创建不可删除且隐藏的文件夹

2007年11月7日 没有评论

如何创建不可删除且隐藏的文件夹  
大家看好:

   1:   打开cmd窗口
   2:   e:
   3:   md tiger    (建立"tiger"文件夹)
   4:   cd tiger    (进入"tiger"文件夹)
   5:   md …\     (创建不可删除且隐藏的文件夹)
依次打这些命令就可以了    大家看着    健好了   刚才健了个文件夹。是不是什么也没有。看不到的

如何打开这个目录呢?    E:\tiger\…   就进去了
   开始->运行->输入"e:\tiger\…\",就可以打开了,复制粘贴随便你吧!不管怎么样,可以保证两点:1:看不见;2:可以放东东。如果你有什么秘密不想让别人看见这样是最好的办法大家看见吧0字节这样谁发现不了你在这里面放了东西
  
看看。是不是删不掉。大家也可以把目录健深一些。这样就不容易被发现

   如何删除?
   先保证"e:\tiger\.."目录为空,如果不为空,先删除里面的文件。
   然后如下操作即可:
  
   1:   打开cmd窗口
   2:   e:
   4:   cd tiger 
   5:   rd e2e2~1
   6:   cd\
   7:   rd tiger      这样就删了。很简单的。

分类: 技术 标签:

就业指导课的考勤表生成代码[导出excel]

2007年10月9日 没有评论
<!--#include file="conn.asp"-->
 
<!--Server.ScriptTimeOut=2147483647
'On Error Resume Next
strAddr=Server.MapPath(".")
Set rs=Server.Createobject("ADODB.RecordSet")
Set rs_year=Server.Createobject("ADODB.RecordSet")
Set rs_class=Server.Createobject("ADODB.RecordSet")
 
rs.open "SELECT * From 院别 order by 院别",conn,1,1 '选出院别表
 
for i=0 to rs.RecordCount-1
if not rs.eof then
Set fso = CreateObject("Scripting.FileSystemObject")
response.write rs("院别")&#038;""
col_name=rs("院别")
  if fso.folderexists(strAddr&#038;"\完成\"&#038;col_name)=false then
    Fso.Createfolder(strAddr&#038;"\完成\"&#038;col_name)
'''''''''''''''''''''''''''''''''''''''''''
      rs_year.open "SELECT * From 入学时间 order by 入学时间",conn,1,1 '选出入学时间表
      for k=0 to rs_year.RecordCount-1
      if not rs_year.eof then
      response.write rs_year("入学时间")&#038;""
          year_name=rs_year("入学时间")
          Set fso_year = CreateObject("Scripting.FileSystemObject")
          if fso_year.folderexists(strAddr&#038;"\完成\"&#038;col_name&#038;"\"&#038;year_name)=false then
            fso_year.Createfolder(strAddr&#038;"\完成\"&#038;col_name&#038;"\"&#038;year_name)
'===========================================
          '填充excel
      rs_class.open "SELECT * From 班别 where 入学时间='"&#038;year_name&#038;"' and 院别='"&#038;col_name&#038;"' order by 班别",conn,1,1 '选出班别表
        for j=0 to rs_class.RecordCount-1
 
        if not rs_class.eof then
          response.write rs_class("班别")&#038;""
          class_name=rs_class("班别")
          zhuanye_name=rs_class("专业名称")
'##############################################################################
set objExcelApp=CreateObject("Excel.Application")
objExcelApp.DisplayAlerts=false
objExcelApp.Application.Visible=false
 
objExcelApp.WorkBooks.Open(strAddr&#038;"\Database\Null.xls")
set objExcelBook=objExcelApp.ActiveWorkBook
set objExcelSheets=objExcelBook.Worksheets
set objExcelSheet=objExcelBook.Sheets(1)
 
objExcelSheet.Cells(1,1).Value="肇庆学院"&#038;year_name&#038;"级《就业指导》课学生成绩一览表"
objExcelSheet.Cells(2,1).Value="课程名称:《形势与政策(就业指导)》 学分:2           专业:"&#038;zhuanye_name&#038;"  班级:"&#038;class_name&#038;""
 
Set rs_stu=Server.Createobject("ADODB.RecordSet")
rs_stu.open "SELECT * From allstu where 班别='"&#038;class_name&#038;"' order by 学号 ",conn,1,1 '选出学生表
total_count=rs_stu.RecordCount
For m = 0 To total_count-1
objExcelSheet.Rows("6:6").Insert
Next
m=0
For m = 0 To total_count-1
  if not rs_stu.eof then
    objExcelSheet.Cells(6+m,1).Value=m+1
    objExcelSheet.Cells(6+m,2).Value=rs_stu("学号")
    objExcelSheet.Cells(6+m,3).Value=rs_stu("姓名")
  end if
  rs_stu.movenext
Next
rs_stu.close
Set rs_stu=nothing
 
objExcelBook.SaveAs(strAddr&#038;"\完成\"&#038;col_name&#038;"\"&#038;year_name&#038;"\"&#038;rs_class("班别")&#038;".xls")
 
objExcelApp.Quit
set objExcelApp=Nothing
 
'##############################################################################
        end if
        rs_class.movenext
        next
      rs_class.close
'==========================
          end if
        Set fso_year=nothing
      end if
 
      rs_year.movenext
      next
      rs_year.close
'''''''''''''''''''''''''''''''''''''''''''''''''
  end if
Set fso=nothing
end if
 
rs.movenext
next
 
rs.close
Set rs_year=nothing
Set rs=nothing
 
-->
<!--CTYPEHTMLPUBLIC"-//W3C//DTDHTML4.0Transitional//E-->
 
完成!
分类: 技术 标签: