cr

leisure 侧重于休闲方式的娱乐 如leisure time recreation 侧重于趣味性的娱乐，激发人们的兴趣点 如 popular recreation 大众娱乐

OLIVE 橄榄油real essence 保湿精华素real cream 保湿营养霜perfect repair 修护面霜magic floral sheer basemineral skin 矿物爽肤水magic floral sheer base神奇山茶花底霜

Splendid不支持当前屏幕设置

crush第一种意思是：压坏。另一种意思是：拥挤的人群。英［kru028cu0283］释义：v.压坏，压扁；将……塞进（狭小的空间内）；压碎；（使）变皱；镇压］短语：Crush syndrome压伤综合症；［泌尿］挤压综合征；挤压综合症扩展资料：词语辨析：break，burst，crack，crush，fracture这些动词均含“打破、弄碎”之意。1、break常用词，含义广泛，多指猛然用力将坚硬物打破或损坏。2、burst指某物因内部外部压力过大而出现严重破裂、爆开或撑破。3、crack多指因长期使用或经受压力，物体表现呈现裂纹、裂口或破裂、裂开，但一般没成碎片。4、crush指用力把东西压破或使变形。5、fracture比crack的破裂程度更深更严重，常指断裂，医学上指骨折。

squeeze[英] [skwi:z] [美] [skwiz] vt.& vi. 挤，榨，捏；压迫，压榨； vt. 榨取，汲取；轻轻地捏；向……勒索（或榨取）； vi. 在强压下屈服；施加压力；挤过去； n. 挤压，压榨；抱紧，拥挤；拥挤的人群；<口>压力； crush[英] [kru028cu0283] [美] [kru028cu0283] vt. 压破，压碎；镇压；弄皱；挤榨，榨出； vi. 挤；被压碎，被起皱； n. 粉碎，被压碎的状态；（特指女子对男性的）迷恋；拥挤的人群；果汁饮料；

15crmo 是板材， 15crmog后面加g代表是管材。材料一样。

15Mo3（15MoG）是DIN17175标准中的钢管，是锅炉和过热器用碳钼钢小口径管，珠光体型热强钢。我国于1995年将其移植到GB5310，定名为15MoG。其化学成分简单，但含有钼，故在保持与碳钢相同的工艺性能的情况下，其热强性能优于碳钢。因其性能良好，价格便宜，得到世界各国的广泛采用。但该钢在高温下长期运行有石墨化倾向，故其使用温度应控制在510℃以下，在冶炼时应限制Al的加入量以控制并延缓其石墨化进程。此钢管主要用于低温过热器和低温再热器，使用壁温温度在510℃以下。其化学成分C0.12-0.20，Si0.10-0.35，Mn0.40-0.80，S≤0.035，P≤0.035，Mo0.25-0.35；正火态强度水平σs≥270-285，σb≥450-600 MPa；塑性δ≥22。以前我厂200MW机组锅炉用钢从20G直接跳到12Cr1MoV，300MW机组锅炉用钢从20G直接跳到15CrMo。20G的使用温度一般到450℃，而12Cr1MoV、15CrMo的使用温度可达 560-580℃。在450-560℃温区，我厂一直使用12Cr1MoV、15CrMo。现在450-560℃温区，若采用15Mo3来代替，可节约大量资金（因其合金元素少，价格便宜）。

如果是英文翻译，意思为：哭泣。

《Prayer》歌手：Secret Garden发行时间：1999-04-19所属专辑：《Dawn Of A New Century》作词：F. Sherry / R. Lovland 作曲：R. Lovland 编曲：R. Lovland歌词：Let your arms enfold usThrough the dark of nightWill your angels hold usTill we see the lightHush, lay down your troubled mindThe day has vanished and left us behindAnd the wind, whispering soft lullabiesWill soothe, so close your weary eyesLet your arms enfold usThrough the dark of nightWill your angels hold usTill we see the lightSleep, angels will watch over youAnd soon beautiful dreams will come trueCan you feel spirits embracing your soulSo dream while secrets of darkness unfoldLet your arms enfold usThrough the dark of nightWill your angels hold usTill we see the lightLet your arms enfold usThrough the dark of nightWill your angels hold usTill we see the light

unit课时credit学分

两个发音单词不一样WASP 音标:/wɑsp/ 本意是 黄蜂,现在多指代表美国主流价值观的人,通俗来说是指上层社会的白人 crisps 音标:/krɪsps/ 作名词是 油炸薯片,作形容词是 脆的 酥的. wasp读 哇斯普crisps读 克瑞斯普斯 纯手写,望采纳!

CR REGULATIONSCR:Child Resistant Safety Mechanism for Lighter欧盟的"CR"指的是加装防止儿童开启装置并提高打火机安全性能规定的简称.对于"CR"标准====供朋友参考

Dim wdapp As New Word.Application wdapp.Visible = False wdapp.Documents.Open filename wdapp.Selection.WholeStory copy_content = wdapp.Selection.Text wdapp.ActiveDocument.Close wdapp.Quit Set wdapp = Nothing 只可以读出文本。。。

1) 99 （实际上就是字母c的ASCII码）2) 5 （Len的返回值是字符个数，这里共5个字符，所以是5。跟是否汉字无关）3) 计算机网 （原理同上。这是返回左边算起的4个字符）4) False （Int(28.2+12.5)的值为40，Fix(42.35-Abs(-2))的值也是40，两边相等）

Visual Basic Script 是 Visual Basic 语言的一个子集合! 可以理解为 VBS是以 VB语言为基础发展出来的一种简单型的脚本语言! VB语言多用语Windows环境下的编程! 而VBS多用与ASP环境下的网页编程,主要运用就在于利用ADODB控件访问数据库,以作动态网站! 如果学会了VB,当然VBS就如同儿戏!简单的很!因为VBS是由VB发展出来的一种简单型的脚本语言,多数语法与VB类似!

LCase 是将字符串中英文字母变为小写，故在此问题中可不理会。则变成：GetContent=Right(str,Len(str)-Instr(str,start)-Len(start)+1)若str="ABCDEFGH"，start="DE",则GetContent="FGH".Instr(str,start)，在str里寻找start，返回4Len(start)，返回start长度，即返回2.所以Len(str)返回8Len(str)-Instr(str,start)-Len(start)+1：8-4-2+1=3Right(str,Len(str)-Instr(str,start)-Len(start)+1):在str中，取右三位，即返回"FGH"总结：这条语句，是用于截取字符串中关键字后边（不包括关键字）的子字符串的。整个函数，就是用来截取字符串中关键字前（后），包括（不包括）关键字的子字符串的。

以前用过相信还是有点基础的，硬着头皮啃吧，相信你能行的。

1.也是最简单的一种方法,手工替换相关文件可以解决问题。在正常工作的相关软件安装目录中,找到这个msvcp71.dll文件,复制到出现问题的软件目录下,即可解决问题。　2.重新安装系统(不推荐)　3.从朋友电脑上拷贝或者到网上下载文件,放到C:WINDOWSSYSTEM32文件夹下。另外复制到X盘:游戏文件夹,如果还不行可能是文件版。

<script language="VBScript">Function big3(a,b,c) Dim t If a > b Then t = a Else t = b If c > t Then t = c big3 = tEnd FunctionMsgbox big3(1,2,3)</script>

在第一步中用同步方式而不是异步方式调用calc.exe，则你所谓的第二步就完全可以省略了，因为同步方式在被调用的程序运行结束前会一直停在那里的，直到被调用的程序运行结束才会继续运行下面的语句的，所以可以直接进入第三步了。至于怎样用同步方式楼上的已经说了。

首先设置你的浏览器工具==》Internet选项==》高级==》显示友好http错误信息去掉对勾！然后看vbscript写的是否正确！

你装过mcafee吧，试试去注册表找到HKEY_Local_MachineSOFTWAREClassesCLSID{B54F3741-5B07-11CF-A4B0-00AA004A55E8}然后展开他右键点InprocServer32，选择权限，高级，给管理员加上权限，确定退出。把右边的Default改成C:WindowsSystem32vbscript.dll。如果是64位系统，会有三个重复的HKEY_Local_MachineSOFTWAREClassesCLSID{B54F3741-5B07-11CF-A4B0-00AA004A55E8}，里面的值都要改。

逻辑与：两个都真则为真，任一个为假则为假逻辑非：就是取反。你不会问这个在底层是怎么实现的吧，那个数字电路的知识。

晕，ASP的代码也是VBscript啊，

VBS就是VBScript的缩写。一样的。

vbscript.dll是VBScript脚本相关支持文件。

运行notepad.exe

vbcrlf

或者WSH.run "cmd.exe"

直接调用！JavaScript 可以调用 VBScript 内的函数和变量，VBScript 也可以调用 JavaScript内的函数和变量。所要说明的是，这里指的函数和变量均指自定义函数和变量，而不是该语言自带的函数和变量，要调用自带函数或变量应该先用自定义函数或变量将其包装起来。并且这种调用只在 IE 浏览器里有效。比如：JavaScript 里没有 IsDate 这个函数，VBScript 里有，要在 JavaScript 里使用这个函数，就得写一个 VBScript 脚本，内容可以是：function IsDate_VBS(dt)IsDate_VBS = IsDate(dt)end function在 JavaScript 里面，再直接使用 IsDate_VBS 函数就可以了。另外，同样要说明的是，跟只用一门语言相同，函数或变量应该先定义再使用，即定义体应该位于调用之前。通过互相调用可以使两门语言达到优势互补。在某些浏览器中可能不支持 VBScript。

用 Dim 声明-----------------VBScript 变量什么是变量？变量是一种使用方便的占位符，用于引用计算机内存地址，该地址可以存储 Script 运行时可更改的程序信息。例如，可以创建一个名为 ClickCount 的变量来存储用户单击 Web 页面上某个对象的次数。使用变量并不需要了解变量在计算机内存中的地址，只要通过变量名引用变量就可以查看或更改变量的值。在 VBScript 中只有一个基本数据类型，即 Variant，因此所有变量的数据类型都是 Variant。声明变量声明变量的一种方式是使用 Dim 语句、Public 语句和 Private 语句在 VBScript 中显式声明变量。例如： Dim DegreesFahrenheit声明多个变量时，使用逗号分隔变量。例如： Dim Top, Bottom, Left, Right另一种方式是通过直接在 Script 中使用变量名这一简单方式隐式声明变量。这通常不是一个好习惯，因为这样有时会由于变量名被拼错而导致在运行 Script 时出现意外的结果。因此，最好使用 Option Explicit 语句显式声明所有变量，并将其作为 Script 的第一条语句。

问题出现在：document.write("<table border="1" align="center">")如果您需要在字符串中插入引号，需要用 "" 而不是 " ，否则会被当作是字符串的结束标志而引发错误，所以这一行应该这样写：document.write("<table border=""1"" align=""center"">")此外，你的网页的字符集设置也有点问题：<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />这容易使浏览器出现乱码，尤其是当你的网页被以 ANSI 编码保存而不是 UTF-8 编码，而如果使用 gb2312 字符集，则不存在这个问题：<meta http-equiv="Content-Type" content="text/html; charset=gb2312" > 而且，请你注意一点，如果需要在 HTML 标记中的某个被引号引起来的字符串中插入引号，例如在按钮的文本中插入一个引号，则应该这样：<input type="button" name="btn" id="btn" value="生成"Table"" ><input type="button" name="btn" id="btn" value="生成& quot;Table& quot;" >（& quot;就是双引号的意思，就像& nbsp;是空格的意思一样）（我在 & 后面加了一个空格，你在用的时候要删去，这是为了防止百度把它给转换掉了……）或是这样：<input type="button" name="btn" id="btn" value="生成"Table"" >前者插入双引号，后者插入单引号，但是不能这样：<input type="button" name="btn" id="btn" value="生成""Table""" >

javascript用于客户端，而vbscript用于服务器端这句话只是常规的说法。javascript客户端只是指包含在html页面中的脚本类型一般为javascript.但是用vbscript,ecmascript等其它脚本语言也是可以编写客户端脚本的.vbscript用于服务器端指的是用vbscript编写的asp页面.asp在这里指active Server page 动态页面的意思。它的功能就是在服务器端运行指令，并将结果输出到客户端.vbscript只是asp常用的语言，用javascript或jscript等其它语言其实也可以编写asp页面，只是不常用罢了.下面给你个页面例子:==============asp页面===============<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><html><head><title>简单asp提交</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head><body><%Response.Write(Request.form("txt"))%><form name="tst" method="post" onsubmit="return ck(this)"><textarea name="txt" style="width:500px;height:200px"></textarea><input type="submit" value="提交" /></form><script type="text/javascript">function ck(f){if(f.txt.value==""){alert("请输入些内容再提交")return false}}</script></html>以上是asp文件内你看到的内容，当用户访问它的时候，它将由iis解析，并返回标准html给浏览器.返回给浏览器的页面代码可能像下面这样<html><head><title>简单asp提交</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head><body><form name="tst" method="post" onsubmit="return ck(this)"><textarea name="txt" style="width:500px;height:200px"></textarea><input type="submit" value="提交" /></form><script type="text/javascript">function ck(f){if(f.txt.value==""){alert("请输入些内容再提交")return false}}</script></html>在这里<%%>这里面的内容默认为<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>这里声明的语言和编码.这里是vbscript,简体中文服务器会运行<%%>内的代码，并输出结果插入到相应位置，最终返回给浏览器的代码已经不再包含<%%>了<%%>这种标签只是常规写法，当然也可以写<script language="vbscript" runat="server">表示在服务器端运行的脚本如果你在以上测试页面的文字框里没有输入东西就点击提交，页面不会提交，并弹出一个对话框，这个验证动作就是由javascript客户端完成的，当你输入内容后，验证通过，表单也就提交了。<%Response.Write(Request.form("txt"))%>这一句会把你提交的内容输出到页面上.浏览器所接收的页面内容也就和刚开始的有些变化了.这就是动态页面的特点

Regsvr32命令修复系统故障实例使用过activex的人都知道，activex不注册是不能够被系统识别和使用的，一般安装程序都会自动地把它所使用的activex控件注册，但如果你拿到的一个控件需要手动注册怎么办呢？如果修改注册表那就太麻烦了，在windows的system文件夹下有一个regsvr32.exe的程序，它就是windows自带的activex注册和反注册工具。2000系统的regsvr32.exe在winntsystem32文件夹下；WInXP系统的regsvr32.exe在windowssystem32文件夹下regsvr32的用法为："regsvr32 [/s] [/n] [/i(:cmdline)] dllname”。其中dllname为activex控件文件名，建议在安装前拷贝到system文件夹下。参数有如下意义：/u——反注册控件/s——不管注册成功与否，均不显示提示框/c——控制台输出/i——跳过控件的选项进行安装(与注册不同)/n——不注册控件，此选项必须与/i选项一起使用执行该命令的方法：1、可以在“开始”--“运行”，调出运行的对话框，也可以使用Win+R热键，然后直接在输入栏输入即可2、在开始--运行 输入cmd，调出‘命令提示符"窗口，然后再执行regsvr32命令。二、Regsvr32错误消息的说明当使用 Regsvr32.exe 时，它会尝试加载该组件并调用它的 DLLSelfRegister 函数。如果此尝试成功，Regsvr32.exe 会显示一个指示成功的对话框。如果此尝试失败，Regsvr32.exe 会返回一条错误消息，其中可能会包括一个 Win32 错误代码。以下列表介绍了 RegSvr32 错误消息和可能的原因。Unrecognized flag:/invalid_flag键入的标志或开关组合无效（请参阅本文中的“Regsvr32.exe 的用法”一节）。No DLL name specified.未包括 .dll 文件名（请参阅本文中的“Regsvr32.exe 的用法”一节）。Dllname was loaded, but the DllRegisterServer or DllUnregisterServer entry point was not found.Dllname不是.dll 或.ocx 文件。例如，键入 regsvr32 wjview.exe 就会生成该错误消息。例如，键入regsvr32 icwdial.dll 后就会返回该错误消息，因为 Icwdial.dll 文件不能自行注册。如果您怀疑内存中有损坏的Dllname 版本，请尝试重新启动计算机，或重新提取该文件的原始版本。如果您运行的是 Windows NT，可能需要使用 Microsoft Windows NT Server 4.0 资源工具包 中的 Kill 或 Pview 工具。有关其他信息，请单击以查看以下 Microsoft 知识库文章：197155 如何终止孤立进程OleInitialize failed (or OleUninitialize failed).Regsvr32 必须先初始化 COM 库，然后才能调用所需的 COM 库函数并在关闭时撤消对该库的初始化。一、轻松修复IE浏览器regsvr32 Shdocvw.dllregsvr32 Oleaut32.dllregsvr32 Actxprxy.dllregsvr32 Mshtml.dllregsvr32 Urlmon.dllregsvr32 browseui.dll作用：1、同时运行以上命令不仅可以解决IE不能打开新的窗口，用鼠标点击超链接也没有任何反应的问题；2、还能解决大大小小的其它IE问题，比如网页显示不完整，JAVA效果不出现，网页不自动跳转，打开某些网站时总提示‘无法显示该页"等。二、解决Windows无法在线升级的问题regsvr32 wupdinfo.dll作用：Windows的漏洞很多，每隔一段时间就需要使用“Windows Update”升级程序进行在线升级，不过“Windows Update”经常出现无法使用的情况，这时，我们可以使用Regsvr32来解决这个问题。三、防范网络脚本病毒有新招regsvr32 /u scrrun.dll作用：网络脚本病毒嵌在网页中，上网时在不知不觉中机器就会感染上这种病毒。笔者认为单纯使用杀毒软件并不能有效地防范这些脚本病毒，必须从病毒传播的机理入手。网络脚本病毒的复制、传播都离不开FSO对象（File System Object，文件系统对象），因此禁用FSO对象就能有效地控制脚本病毒的传播。如果需要使用FSO对象，键入“regsvr32 scrrun.dll”命令即可。四、卸载Win XP自带的ZIP功能regsvr32 /u zipfldr.dll作用：Win XP以功能强大而著称，但有些功能却常常令人有“鸡肋”之感，比如Win XP自带的ZIP功能和图片预览功能，不仅占用了系统资源，功能也远不如第三方软件强大。其实用Regsvr32命令可以很容易地卸载这些功能。五、修复无法缩略图查看文件问题2000: 开始→运行，输入regsvr32 thumbvw.dllXP: 开始→运行，输入regsvr32 shimgvw.dll六、让WMP播放器支持RM格式很多朋友喜欢用Windows Media Player（以下简称WMP）播放器，但是它不支持RM格式，难道非得安装其它播放软件吗?笔者有办法。以Win XP为例，首先下载一个RM格式插件，解压缩后得到两个文件夹： Release（用于Windows 9x）和Release Unicode （用于Windows 2000/XP）；将Release Unicode文件夹下的RealMediaSplitter.ax文件拷贝到“系统盘符WINDOWSSystem32”目录下；在“开始→运行”中键入“regsvr32 RealMediaSplitter.ax”，点击“确定”即可。接着下载解码器，如Real Alternative，安装后就能用WMP播放RM格式的影音文件了。七、让WMP9的播放器出现有些音乐网页的在线点歌需要用到Media Player，有的朋友明明安装了WMP9，但在线听音乐却只看到枯燥的WMP6播放器面板，想让漂亮的WMP9面板出现，当然没问题的。常见问题的操作系统多数WIN 98，先关闭IE，再在“开始→运行”中键入“regsvr32 wmpdxm.dll”，点击“确定”即可。八、解决打开系统功能时无反应regsvr32 shdocvw.dll作用：有时从开始菜单里点击XP系统的搜索功能、帮助和支持或管理工具等，但就是无任何反应，这是它们的打开方式缺少关联，所以我们只要用regsvr32注册它们需要调用的动态连接库文件就行了。九、添加/删除程序打不开了regsvr32 appwiz.cplregsvr32 mshtml.dllregsvr32 jscript.dllregsvr32 msi.dllregsvr32 "c:program filescommon filessystemole dboledb32.dll"regsvr32 "c:program filescommon filessystemadomsado15.dll"regsvr32 mshtmled.dllregsvr32 /i shdocvw.dllregsvr32 /i shell32.dll作用：当打开控制面板中的添加/删除程序时，双击它的图标后无反应，或者打开后自动关闭了，尝试使用以上命令可以解决。十、XP的用户帐户打不开regsvr32 nusrmgr.cplregsvr32 mshtml.dllregsvr32 jscript.dllregsvr32 /i shdocvw.dll十一、防范网络脚本病毒有新招regsvr32 /u scrrun.dll 禁用FSO对象regsvr32 scrrun.dll 使用FSO对象十二、解决Windows无法在线升级的问题regsvr32 wupdinfo.dll以下症状我把它称作IE的活动脚本漏洞，虽然这两个命令能修复，但治标不治本，我建议遇到此问题的朋友到微软网站进行IE安全更新，即打漏洞补丁。regsvr32 jscript.dllregsvr32 vbscript.dll作用：1、跟上面讲的修复IE浏览器方法配合使用(可以不配)，可以很好的解决浏览某些网页无法正常显示和功能不正常，如：a.不显示某些验证码b.不显示某些动态图片c.不显示某些论坛的帖子列表d.论坛快速跳转功能无用e.论坛发贴时按Ctrl+Enter提交无反应2、修复个别窗口空白，如XP的‘搜索"功能的搜索助理操作面板空白、系统还原页面空白和用户帐户页面空白等。(可修复把握度100%)3、解决windows media player 9或以上版本打开时提示‘出现内部应用程序错误"。(可修复把握度100%)4、可以修复win 2000的‘添加/删除程序"打开后一片空白。(可修复把握度99%)5、解决win 2000以WEB方式查看Program Files文件夹和Winnt文件夹时看不到任何文件，以及‘控制面板"的图标跑到左边去的问题。6、解决网页上网际快车的右键菜单功能无法使用。在网站中，当右键点某个‘下载连接"时，会弹出菜单，选择‘使用网际快车下载"会再弹出FLASHGET的下载任务页面，如果发现该功能无反应，那就可能是这个原因：原来这项菜单是调用了FLASHGET目录下的jc_link.htm文件，这个文件是用VB语言编写的，所以其作用丢失是动态连接库vbscript.dll没有注册和调用到。不过这只是原因之一.

这里的 and 是按位与操作10 的二进制为 1010，3 的二进制为 0011，按位与得：10100011----00100010 即为二进制的2.按位与规则：1 and 1 = 11 and 0 = 00 and 1 = 00 and 0 = 0

&为连接符 作用是链接 字符串或变量<font size=" & i & "> 结构其实要这样看(<font size =") 加i的值 加(">)

用记事本编辑*.vbs 写入以下代码，可双击文件运行。dim arr(3)arr(0)="a"arr(1)="b"arr(2)="c"arr(3)="d"for each i in arrmsgbox""&i&""next

楼上的我试过不行，运行显示空白。"<br />"两边加引号是在ASP文件中作为字符串输出的回车换行符，而在VB脚本中不能使用

ASP=ACTIVE SERVER PAGE，动态脚本包括javascript,vbscript.附加HTML标记来实现动态页面。vbscript语句使用<%%>在ASP中进行标识。至于VBSCRPT的编写习惯不一样，当然你看到的可能是不一样的。

分类: 电脑/网络 >> 程序设计 >> 其他编程语言 问题描述: 对该文本文件多次写入数据时不影响之前写入的数据; 读数据是只读取文本中指定行的部分数据? 谢谢 解析: 用FileSystemObject对象创建一个TextStream便实现对文本文件的读写 --------------------------------------------------- 创建指定文件并返回 TextStream 对象，该对象可用于读或写创建的文件。语法 object.CreateTextFile(filename[, overwrite[, unicode]]) CreateTextFile 方法的语法有以下部分： object 必选项。应为 FileSystemObject 或 Folder 对象的名称。 filename 必选项。字符串表达式，指明要创建的文件。 overwrite 可选项。Boolean 值指明是否可以覆盖现有文件。如果可覆盖文件，该值为 True；如果不能覆盖文件，则该值为 False 。如果省略该值，则不能覆盖现有文件。 unicode 可选项。Boolean 值指明是否以 Unicode 或 ASCII 文件格式创建文件。如果以 Unicode 文件格式创建文件，则该值为 True；如果以 ASCII 文件格式创建文件，则该值为 False。如果省略此部分，则假定创建 ASCII 文件。 说明 以下代码举例说明如何使用 CreateTextFile 方法创建并打开文本文件： Sub CreateAfile Dim fso, MyFile Set fso = CreateObject("Scripting.FileSystemObject") Set MyFile = fso.CreateTextFile("c: estfile.txt", True) MyFile.WriteLine("这是一个测试。") MyFile.Close End Sub 对于 filename 已经存在的文件，如果 overwrite 参数为 False，或未提供此参数时，则会出现错误。 ----------------------------------------------------------- 描述 打开指定的文件并返回一个 TextStream 对象，可以读取、写入此对象或将其追加到文件。 语法 object.OpenTextFile(filename[, iomode[, create[, format]]]) OpenTextFile 方法的语法有以下部分： object 必选项。应为 FileSystemObject 对象的名称。 filename 必选项。字符串表达式，指明要打开的文件名称。 iomode 可选项。输入/输出模式，是下列三个常数之一：ForReading，ForWriting,或 ForAppending。 create 可选项。Boolean 值，指出当指定的 filename 不存在时是否能够创建新文件。允许创建新文件时为 True，否则为 False。默认值为 False。 format 可选项。三个 Tristate 值之一，指出以何种格式打开文件。若忽略此参数，则文件以 ASCII 格式打开。 设置 iomode 参数可为下列设置之一： ForReading 1 以只读模式打开文件。不能对此文件进行写操作。 ForWriting 2 以只写方式打开文件。不能对此文件进行读操作。 ForAppending 8 打开文件并在文件末尾进行写操作。 format 参数可为下列设置之一： TristateUseDefault -2 以系统默认格式打开文件。 TristateTrue -1 以 Unicode 格式打开文件。 TristateFalse 0 以 ASCII 格式打开文件。 说明 以下代码举例说明如何使用 OpenTextFile 方法打开写文件： Sub OpenTextFileTest Const ForReading = 1, ForWriting = 2, ForAppending = 8 Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile("c: estfile.txt", For Writing, True) f.Write "嗨，你好！" f.Close End Sub ------------------------------------------------------------- 另TextStream还有如下方法: Close 方法 Read 方法 ReadAll 方法 ReadLine 方法 Skip 方法 SkipLine 方法 Write 方法 WriteLine 方法 WriteBlankLines 方法 详细可参阅VBScript 5.0 帮助文档

分类: 电脑/网络 >> 程序设计 >> 其他编程语言 问题描述: VBSCRIPT中如何返回函数值 谢谢 解析: sub funa() funa="a";end sub 用函数名=某个值 来返回函数值

&通常是将两个字符串的值连起来，如dim a,b,ca="aaa"b="bbb"c=a & b "c="aaabbb"

call test2 function test1()dim a(1)a(0)=1a(1)=2test1=aend function function test2()b=test1msgbox b(0)end function "vbs 过程，函数里都是局部变量，需要全局变量 用函数返回值 去传递"上面给你演示 传递数组变量 如果你需要多个值的话~不需要的话就改单个变量即可

On Error Resume Nextset rs=Server.Createobject("adodb.recordset")If IsObject(rs) Then Response.Write "创建对像成功！"End IfIf Err Then Response.Write Err.(属性) "请参考手册End IfOn Error Goto 0

分类: 电脑/网络 >> 程序设计 >> 其他编程语言 问题描述: <script language="VBScript" type=text/vbscript> function menuover(id,color) dim i for i=0 to 5document.all("menu"&i)(0).bgcolor="#E3E4EE" "" document.all("menu"&i)(0).background="images/b.gif" document.all("menu"&i)(1).style.display="none" next "" menu0(0).bgcolor=color "" menu0(1).style.display="none" document.all(id)(0).bgcolor=color "" document.all(id)(0).background=color document.all(id)(1).style.display="" end function </script> 解析: <script language="JScript"> function menuover(id,color){ var i; for(i=0;i<=5;i++){ document.all["menu"+i][0].bgcolor="#E3E4EE"; document.all["menu"+i][0].background="images/b.gif"; document.all["menu"+i][1].style.display="none"; } menu0[0].bgcolor=color; menu0[1].style.display="none"; document.all[id][0].bgcolor=color; document.all[id][0].background=color; document.all[id][1].style.display=""; } </script> 调用那里： onClick="menuover("menu0","#A8C6A8")" 不学JS，就不能成为一名真正的WEB程序员。

vbscript是visual basic的子集，vbscript是脚本语言，vb是个IDE环境,使用的是basic语言

只有一种就是单引号"注释多行的话只能在每一行前加上一个""材料:VBscript作为VB衍生而来的语言，其中很多地方都和VB非常相似，当然写注释也是一样的，我们在VBscript中可以使用(‘)单引号来作为注释符号，用于注释当前行，这里要注意的是，VBscript中，并没有/**/的C++中的多行注释方式。要是回答的内容有问题，或认为不妥，请发送百度消息给我。。·

大致功能差不多，但ie能通吃这两种其他浏览器有可能吃javascript而吃不下vbscript

补充：VBScript只是一种脚本语言，只是它的语法和VB是一样的，所以叫VBScript 独立的脚本语言什么都做不了，仅当其存在于某个宿主环境中时才能起作用，所以基本上脚本语言都没有自己的输入输出语句，它们只定义了语法。 换句话说，脚本语言是用来控制宿主环境的已有功能的。宿主环境决定了脚本语言的作用。 比如在服务器端环境下，VBScript可以用response对象，用来输出Html到页面，有request对象，用来获取网页数据。 在客户端浏览器环境下，VBScript可以用document.write来向页面写入数据。 这里的response或者document对象都是宿主环境提供的，和VBScript本身一点关系都没有，它们同样可以用于其他的脚本语言，比如javascript。 而VB是一种编译型语言，它没有宿主环境的概念，和C++,C#是属于同一个范畴的。求采纳

vbs是脚本文件

用savesetting()和getsetting()可以实现

开始--运行 输入regsvr32 vbscript.dll回车即可如果提示无法注册成功 请在C:WINDOWSsystem32检查是否有vbscript.dll如果没有请到其他的电脑上面或者网络上面下载 放在同一个目录 重新注册一次

if thisForm1.checktype.value1="1" then thisForm1.action="chklogin1.asp?action=P" end if if thisForm1.checktype.value1="0" then thisForm1.action="chklogin1.asp?action=C" end if 这两句..中的..thisForm1.checktype.value1="1"怎么是value1..

不能!!!!!!!!!!

<SCRIPT LANGUAGE="VBScript"><!--sub ChkPROC() iSel = MsgBox ("Your msg",vbOKCancel) If iSel = 1 Then "" OK, then continue MsgBox "your selected ok!" End If "" false hereEnd SubCall ChkPROC()//--></SCRIPT>

vbscript不是强类型语言 你直接定义就可以了，不需要声明类型Dim Names(9) "声明一个具有 10 个元素的数组。 Dim Names() " 声明动态数组。 Dim MyVar, MyNum " 声明两个变量。dim str str="这是一个字符串"

重装系统，什么问题都一次解决

Dim write Dim fileSysObj, tf, read " Read the 1.txt " Store the file name where the Information is stored into a variable called read read = "1.txt" " Retrieve the fullpath of the read file read = LEFT(Server.Mappath(Request.ServerVariables("PATH_INFO")), InStrRev(Server.Mappath (Request.ServerVariables("PATH_INFO")), "")) & read " Create an instance of FileSystem Object and store it into a variable called fileSysObj Set fileSysObj = createObject("Scripting.FileSystemObject") " Check whether the read file exists IF (fileSysObj.FileExists(read)) Then " if the file exists, then open it for reading Set tf = filesysobj.OpenTextFile(read, 1) read = tf.ReadLine tf.Close ELSE " if you can"t find read.text, display default message read = "I can"t find the file read.txt! So this is my default message." END IF 本文来自: 脚本之家(www.jb51.net) 详细出处参考： http://www.jb51.net/article/3750.htm

VBScript中用于声明常量的关键词是Const, 如Const MyVar = 459 " 常数默认为 公有。Private Const MyString = "HELP" " 定义私有常数。Const MyStr = "Hello", MyNumber = 3.4567 "在一行上定义多个常数。

算术运算符 连接运算符 比较运算符 逻辑运算符详情如下1 VBScript提供了九个算术运算符，用来执行简单的算术运算。(1) 求幂运算符（^）：result = number ^ exponent(2) 乘法运算符（*）：result = number1 * number2(3) 除法运算符（/）：result = number1 / number2(4) 整除运算符（）：result = number1 number2(5) 求余运算符（Mod）：result = number1 Mod number2(6) 加法运算符（＋）：result = expression1 + expression2(7) 减法运算符（－）：result = number1- number2（减法） - number（负号）2 连接运算符 &3 比较运算符 <（小于） <=（小于或等于） >（大于） >=（大于或等于） =（等于） <>（不等于）4. 逻辑运算符(1) Not运算符：对表达式执行逻辑非运算，语法格式如下： result = Not expression(2) And运算符：对两个表达式进行逻辑“与”运算，语法格式如下： result = expression1 And expression2And运算符还可以对两个数值表达式中位置相同的位执行逐位比较。(3) Or运算符：对两个表达式进行逻辑“或”运算，语法格式如下： result = expression1 Or expression2Or运算符还可以对两个数值表达式中位置相同的位执行逐位比较。(4) Xor运算符：对两个表达式进行逻辑“异或”运算，语法格式如下： result = expression1 Xor expression2Xor运算符还可以对两个数值表达式中位置相同的位执行逐位比较。(5) Eqv运算符：执行两个表达式的逻辑等价运算，语法格式为： result = expression1 Eqv expression2Eqv运算符还可以执行两个数值表达式相应位的逐位比较。(6) Imp运算符：对两个表达式进行逻辑蕴涵运算，语法格式如下： result = expression1 Imp expression2Imp运算符还可以执行两个数值表达式相应位的逐位比较。

　　注意注册dll文件时，如果省略路径，那么文件必须复制到系统相应的文件夹下，说明如下：　　1、C:WindowsSystem (Windows 95/98/Me)　　2、C:WINNTSystem32 (Windows NT/2000) 　　3、C:WindowsSystem32 (Windows XP, Vista)　　4、C:WindowsSystem32 (Windows 10/8/7/2008r2) 32位　　5、C:WindowsSysWOW64 (Windows 10/8/7/2008r2) 64位

If 条件1 Then "符合条件1时执行此处语句ElseIf 条件2 Then "符合条件2时执行此处语句ElseIf 条件3 Then "符合条件3时执行此处语句ElseIf 条件4 Then "符合条件4时执行此处语句Else "以上条件均不符合时执行此处语句End If

VBscript常用函数 1.数值型函数：abs(num): 返回绝对值 sgn(num): num>0 1; num=0 0; num<0 -1;判断数值正负 hex(num): 返回十六进制值 直接表示：&Hxx 最大8位 oct(num): 返回八进制值 直接表示：&Oxx 最大8位 sqr(num): 返回平方根 num>0 int(num): 取整 int(99.8)=99; int(-99.2)=100 fix(num): 取整 fix(99.8)=99; fix(-99.2)=99 round(num,n): 四舍五入取小数位 round(3.14159,3)=3.142 中点数值四舍五入为近偶取整 round(3.25,1)=3.2 log(num): 取以e为底的对数 num>0 exp(n): 取e的n次幂 通常用 num^n sin(num): 三角函数，以弧度为值计算 (角度*Pai)/180=弧度 con(num); tan(num); atn(num)2.字符串函数：len(str)：计算字符串长度 中文字符长度也计为一！ mid(str,起始字符,[读取长度])：截取字符串中间子字符串 left(str,nlen)：从左边起截取nlen长度子字符串 right(str,nlen)：从右边起截取nlen长度子字符串 Lcase(str)：字符串转成小写 Ucase(str)：字符串转成大写 trim(str)：去除字符串两端空格 Ltrim(str)：去除字符串左侧空格 Rtrim(str)：去除字符串右侧空格 replace(str,查找字符串,替代字符串,[起始字符,替代次数,比较方法])：替换字符串 注：默认值：起始字符 1；替代次数 不限；比较方法 区分大小写（0） InStr([起始字符,]str,查找字符串[,比较方法])：检测是否包含子字符串 可选参数需同时选 返回起始位置 InStrRev(str,查找字符串[,起始字符][,比较方法])：反向检测是否包含子字符串 返回起始位置 space(n)：构造n个空格的字符串 string(n,str)：构造由n个str第一个字符组成的字符串 StrReverse(str)：反转字符串 split(str,分割字符串[,次数][,比较方法])：以分割字符串为分割标志将字符串转为字符数组 可选参数需同时选3.数据类型转换函数：Cint(str)：转换正数 True -1；False 0；日期 距离1899/12/31天数；时间 上午段 0；下午段 1； Cstr(str)：日期 输出格式 yyyy/mm/dd；时间 输出格式 Am/Pm hh:mm:ss Clng(str)：与Cin()类似 Cbool(num)：num不为零 True；反之 False Cdate(str)：转换日期格式 0：#Am 12:00:00#；正数 距离1899/12/31天数的日期；浮点数 日期＋小数时间 Cbyte(num)：num<255 转换为字节 Csng(str)：转换为单精度数值 Cdbl(str)：转换为双精度数值 Ccur(str)：转换为现金格式4.时间函数：date：取系统当前日期 time：取系统当前时间 now：取系统当前时间及日期值 Datetime类型 timer：取当前时间距离零点秒值，计时器，可计算时间差 DateAdd(间隔单位,间隔值,日期)：推算相邻日期 DateDiff(间隔单位,日期一,日期二)：计算时间差 日期二-日期一 Datepart(间隔单位,日期)：计算日期的间隔单位值 Dateserial(date)：输出日期值（按序列计算） Timeserial(time)：输出时间值（按序列计算） DateValue(datetime)：取出字符串中日期值 Timevalue(datetime)：取出字符串中时间值 weekday(date)：计算星期几 MonthName(date)：输出月分名 year(datetime)：截取年份 month(datetime)：截取月份 day(datetime)：截取日 hour(datetime)：截取小时 minute(datetime)：截取分钟 second(datetime)：截取秒5.其它函数：Array(unit,..)：动态生成数组 Asc(str)：输出字符串第一个字符的ASCII码 Chr(asc)：转换ASCII为字符 Enter：Chr(13)&Chr(10) Filter(数组名称,关键字符串,[,包含][,比较方法])： 将字符串数组中含有关键字符串的元素存成新的数组（默认） [包含]为false则取不包含的元素 Join(ArrayName)：将数组中元素连成字符串 Ubound(ArrayName[,维数])：取得数组相应维数的上界 Lbound(ArrayName[,维数])：取得数组相应维数的下界 一般为0 Randmize n：启动随机数种子 Rnd(n)：取得随机数，n>0或为空，取序列下一随机值，n<0，随机值相同，n=0，生产与上一随机值相同的数 取介于A和B之间的随机正数C，公式：C=Int((B-A+1)*Rnd+A) 条件（B>A）子程序和自定义函数Sub StrSubName Function StrFunName(arg[1],..) 子程序体 函数体 Exit Sub 中途跳出 Exit Function 中途跳出 End Sub StrFunName＝Value 返回值 End Function [call] StrSubName 引用子程序 Var=StrFunName(arg[1],..) 引用函数子程序和自定义函数可以递归调用；ASP六大对象常用语句示范：Response：Response.write StrVar/"String"：向网页写出参数值或字符串 等同于在Html标记中嵌入<%=StrVar/"String"%> Response.End：停止页面编译，并将已经编译内容输出到浏览器 Response.Buffer=True|False：页面编译时是否使用缓存的设置，一般在页面头部设置 Response.Flush：强制输出页面已编译部分内容 Response.Clear：将缓冲区内的数据清除 Response.Redirect URL：停止页面编译或输出，转载指定所需页面 Response.IsClientConnected：返回True|False，检测用户是否还处于连接状态 Response.Charset(CharsetName)：设置页面编码类型，即<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> Response.ContentType [= ContentType ]：设置页面文件类型，同上 Response.Expires [= number]：设置页面失效时间，单位分钟 Response.ExpiresAbsolute [= [date] [time]]：设置页面失效的绝对时间 Response.Status = StatusDescription：设置页面状态描述Request：Request("PassStrName")：读取网页传递值，包括表单及以？PassStrName＝value&PassStrName_n＝value_n形式 Request[.collection|property|method](variable) Request.querystring("PassStrName")：读取Get方法传递的表单值和？PassStrName＝value Request.QueryString(Varible)[(Index).Count] Request.form("PassStrName")：读取Post方法传递的纯表单域的值 Request.Form(Parameter)[(Index).Count] Request.ServerVaribles(Server Environment Variable)：读取客户端系统环境变量，详见参考 Request.BinaryRead(Count)：读取指定字节数的传送值 Request.TotalBytes：查询体的长度，以字节为单位，只读注：同名表单如：CheckBox如有多项值，传递形式如右，StrName=value1,value2,...需要用Split函数分割各项值 Multiple的Select表单与CheckBox类似，TextArea的值可包含换行字符，用Replace转为<br>，以满足格式需要Session：（用户全局变量）Session("SesName")＝value：存储Session变量值，也可读取该值 Session("SesName")＝Empty：判断Session值是否存在的两种方法 IsEmpty(Session("SesName"))=True|False：判断Session值是否存在的两种方法 Session.TimeOut=num：设置Session变量的存在时效，单位分钟 Session.Abandon：清除所有Session变量值 Session.SessionID：Session变量的ID序列号，只读Application：（应用程序全局变量）Application("AppName")＝value：存储Application变量值，也可读取该值 Application("AppName")＝Empty：判断Application值是否存在的两种方法 IsEmpty(Application("AppName"))=True|False：判断Application值是否存在的两种方法 Application.Lock：Application变量值锁定，防止同时更改变量值 Application.UnLock：Application变量值解锁，允许更改变量值注：Session与Application变量都可以用来存储数组和系统对象，引用方法是变量名相当于数组名而已， 但不能直接改变其值，需要借助临时数组修改值后，再赋给Session与Application变量Global.asa文件的结构：<% @language="VBscript"%> <% Sub Application_OnStart ...End Sub Sub Application_OnEnd ... End Sub Sub Session_OnStart ...End Sub Sub Session_OnEnd ... End Sub%>Server:Server.MapPath("FileUrl")：映射文件名的服务器站点绝对地址，Path=Server.MapPath(./)可以得到虚拟目录根路径 Server.HtmlEncode("string")：转换为可以直接显示带Html格式的字符串，如：<,>等 Server.URLEncode( "string")：转换为浏览器地址编码 set Var＝Server.CreatObject("ObjName")：创建对象变量 Server.ScriptTimeout = NumSeconds：ASP程序页面执行时限，以秒为单位Cookies: 存储在用户本机的临时变量，每个Cookie的最大字节4KB，最多可以有300个Cookie 1.2MBResponse.cookies("StrCookieName")＝value：存储Cookie变量值，也可读取该值 Response.cookies("StrCookieName")＝""：判断是否为空 Response.cookies("StrCookieName").Expires=Date：变量有效期，以天为单位，小于当前时间立即失效 Response.Cookies(Cookie[(key).Attribute])：标准语法ObjectContext 控制ASP的事务处理ObjectContext.OnTransactionAbort：由放弃的事务处理事件激发，在脚本完成处理后发生 ObjectContext.OnTransactionCommit：由成功的事务处理事件激发，在脚本完成处理后发生 ObjectContext.SetAbort：显式的放弃一次事务处理 ObjectContext.SetComplete：覆盖前面任何调用ObjectContext.SetAbort方法的调用 Msgbox "string"/StrName：VBscript提示框表单的Onsubmit事件：在同一页面写入 Function FormName_onsubmit()..FormName_onsubmit＝True/False..end Function， 页面会在提交前先执行语句，并根据返回值判断是否完成提交任务。数据库连接字符串举例：Access2000： conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("dbaseliuyan.mdb") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("dbaseliuyan.mdb")&";Password=admin" Recordset.Open "数据表名", conn, 2, 2SqlServer2000： conn.Open "Provider=SQLOLEDB.1;User ID=sa;Password=admin;Initial Catalog=pubs;Data Source=servergarlmrm" conn.Open "provider=SQLOLEDB;data source=hyserver;uid=sa;pwd=;database=pubs" Recordset.Open StrSQL, conn, 2, 2Dbase：(?) conn Open "Driver={Microsoft dBase Driver};SourceType=DB;SourceDB=" & Server.MapPath( "目录名" ) Recordset.Open StrSQL, conn, 2, 2FoxBase： conn Open "Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=" & Server.MapPath( "目录名" ) Recordset.Open DBF文件名或Select语句, conn, 2, 2 conn Open "Driver={Microsoft Visual FoxPro Driver};SourceType=DBC;SourceDB=" & Server.MapPath( "DBC数据库文件名" ) Recordset.Open DBF文件名或Select语句, conn, 2, 2Excel： conn Open "Driver={Microsoft Excel Driver (*.xls)};DBQ=" & Server.MapPath( "XLS文件名" ) Recordset.Open "Select * From ["&sheet&"$]",conn,2,2注：使用DBF、DBC、Excel数据库，下面几点要注意：Excel数据库只能读取、增加记录、修改记录，但不能删除记录； DBF、DBC可以读取记录、增加记录、删除记录、修改记录，但是在增加记录时，任何一个字段值都不能为空，由此 可看出局限性很大，所以尽可能地用MDB或SQL数据库。

《VBScript程序员参考手册（第3版）》是一本针对最新版本VBScript的编程参考手册，内容涵盖了与VBScript相关的各个方面。首先介绍了VBScript的基本概念和语法，然后通过具体的例子逐步地向读者介绍了如何在各种不同的脚本宿主上编写、调试和运行VBScript，涉及到的脚本宿主包括Windows脚本宿主、IIS服务器、InternetExplorer浏览器等。同时还介绍了如何用VBScript开发WindowsVista操作系统的桌面小工具、如何对脚本进行加密以保护开发人员的工作成果，以及如何在VB或。NET程序中提供对VBScript的支持。在网站上提供了所有示例程序的代码等。

vb=Visual Basic,由美国微软公司开发的一款程序开发语言~属于比较普遍性和快速性的开发语言.VBSCRIPT是一种网页脚本,语法和vb一致,但功能没有VB强大.VB.NET可以说是VB的扩展,比VB强大,一般用于开发网络软件..NET是目前微软公司开发一系列网络软件开发语言,如VB.NETC#等等

就学javascript 现在的主流

汗……什么是子集……子集就是……子集……没学过数学？初一不就学集合论了么

改成sub 可以吧

VBScript只是一种脚本语言，只是它的语法和VB是一样的，所以叫VBScript独立的脚本语言什么都做不了，仅当其存在于某个宿主环境中时才能起作用，所以基本上脚本语言都没有自己的输入输出语句，它们只定义了语法。换句话说，脚本语言是用来控制宿主环境的已有功能的。宿主环境决定了脚本语言的作用。比如在服务器端环境下，VBScript可以用response对象，用来输出Html到页面，有request对象，用来获取网页数据。在客户端浏览器环境下，VBScript可以用document.write来向页面写入数据。这里的response或者document对象都是宿主环境提供的，和VBScript本身一点关系都没有，它们同样可以用于其他的脚本语言，比如javascript。而VB是一种编译型语言，它没有宿主环境的概念，和C++,C#是属于同一个范畴的。

VBScript常数 　　 什么是常数？ 　　常数是具有一定含义的名称，用于代替数字或字符串，其值从不改变。VBScript 定义了许多固有常数。详细信息，请参阅 VBScript 语言参考。 　　 创建常数 　　您可以使用 Const 语句在 VBScript 中创建用户自定义常数。使用 Const 语句可以创建名称具有一定含义的字符串型或数值型常数，并给它们赋原义值。例如： 　　Const MyString = "这是一个字符串。" 　　Const MyAge = 49 　　请注意字符串文字包含在两个引号 (" ") 之间。这是区分字符串型常数和数值型常数的"最明显的方法。日期文字和时间文字包含在两个井号 (#) 之间。例如： 　　Const CutoffDate = #6-1-97# 　　最好采用一个命名方案以区分常数和变量。这样可以避免在运行 Script 时对常数重新赋值。例如，可以使用"vb"或"con"作常数名的前缀，或将常数名的所有字母大写。将常数和变量区分开可以在开发复杂的 Script 时避免混乱。 ;

java流行广，vb功能好点

在VBScript中过程分为两类：Sub过程和Funtion过程一、Sub过程及其调用Sub过程是包含在Sub和End Sub之间的一组语句，执行操作但不返回值。Sub过程可以使用参数(由调用过程传递的常数、变量、表达式)，如果没有任何参数，则Sub语句必须包括空括号()。Sub Myproc() msgbox ("hello,world")End Sub//下面是带有两个参数的Sub过程Sub Myproc(no1,mo2) Msgbox (no1*no2)End Sub调用Sub过程时只要输入过程名及所有参数，各参数之间用逗号隔开另外还有一种调用方法，就是使用Call语句。如果使用Call语句调用，那么所有的参数都必须包含在括号之内//下面是两种调用方法Myproc 2,3Call Myproc(2,3)二、Funtion过程及其调用Funtion过程是包含在Funtion和End Funtion之间的一组vbscript语句。与Sub过程类似，但是Funtion过程可以返回值。Funtion过程可以使用参数(由调用过程传递的常数、变量、表达式)。如果Funtion过程没有任何参数，则Function语句必须包含空括号()。Funtion过程通过函数名返回一个值，这个值是在过程的语句中赋给函数名的。Funtion过程返回值的数据类型总是Variant。Funtion Myproc(no1,no2) Myproc = no1*no2End Funtion调用Funtion过程，函数名必须在变量赋值语句的右边或者表达式中，例如：vNo = Myproc(2,3)Msgbox Myproc(2,3)给过程传递数据的途径是使用参数，参数可以是任何有效的变量名。要从过程获取数据，必须使用Funtion过程。Funtion过程可以返回值，Sub过程不返回值。

VBScript是VisualBasicScript的简称，即VisualBasic脚本语言，有时也被缩写为VBS。VBScript是微软开发的一种脚本语言。使用VBScript，可通过Windows脚本宿主调用COM，所以可以使用Windows操作系统中可被使用的程序库。VBScript一般被用在以下个方面：VBScript经常被用来完成重复性的Windows操作系统任务；用来指挥客户方的网页浏览器。在这一方面，VBS与JavaScript是竞争者，因为本文的实验环境基于Window平台，为了达到更好的兼容性和性能选用VBScript。

你好，很高兴为你解答，答案如下：credit[英][u02c8kredu026at][美][u02c8kru025bdu026at]n.学分; 信誉，信用; [金融]贷款; 荣誉; vt.相信，信任; 归功于; [会]记入贷方; 赞颂; 第三人称单数：credits复数：credits现在进行时：crediting过去式：credited过去分词：credited希望我的回答对你有帮助，满意请采纳

Across / Over/ Through中文意思、用法 差在哪？Across、Over、 Through这三个英文单字的中文意思都有「穿过、穿越…」等很类似的意思，所以可能很容易让学英文的人感到混淆。 下面教学Across、Over、Through中文意思与用法差异。 1.Across 中文意思与用法 Across 本身可以当作介系词或是副词用。Across 的中文意思是指，从一边到另外一边，或是某样东西在另外一边的意思。 比方说河、城市、马路…等等，都有所谓的「边」，例如当你要说从马路的一边到另外一边，或是从河的一边到另外一边，就可以用Across。 Across同时可以当作介系词或是副词用。 Across当作介系词用时： 例： We took a boat across the river. 我们乘船穿过河。 Across当作副词用时： 例： The road was so busy that we found it difficult to get across. 路上交通太拥挤，我们发现很难穿越。 Across 最主要通常指「另一边」的意思。 例如「Jenny"s office is just across from mine.」指的就是，珍妮的办公室在我的办公室的对面（另一边）。 另外，当Across用在城市或国家的时候，例如当你说：Across the city…..或是Across the country…的时候，代表的意思是指这城市到处….或是这国家到处…的意思。 例： Across the country, people are ing out to vote for a new president. 全国各地，人们都在投票选举新总统。 2.Over 中文意思与用法 Over 同样可以当作介系词或是副词用，Over的意思通常是指，某个事物可覆盖或位置高于另外一个事物。 例： From Taipei 101, you can see over the whole city. 从台北101，您可以看到整个城市。 （台北101位置高于台北整个城市） 例： They toasted marshmallows over the fire. 他们在火上烤了棉花糖。 另外值得注意的是，Over当作副词用时，意思跟Across通常是一样的。 例： We walked over to the shop. We walked across to the shop. 上面两句的意思是一样的：shop在另外一边，你从这边走到另外一边去到店里。 3. Through 中文意思跟用法 至于英文里面的Through，意思跟Across非常非常的像，都是从一边到另外一边的意思。不过Through的意思是，从某个区域里面的一边走到另外一边。而Across是指从区域的一边走到另外一边，可能是在区域外的另一边。 例： Jenny loves walking through the forest. 珍妮喜欢走在森林里。 上面这句不能改为：Jenny loves walking across the forest. 因为这样会变成「珍妮喜欢从森林的一边走到另外一边」，而不是原本喜欢走在森林里面的意思。 简单的说，Through有着你在某个区域里面的意思，而Across则可能是在某区域的一边，到另外一个区域的另外一边。 Across, Across 中文, Across 意思, Across 用法, over, over 中文, over 意思, over 用法, through, through 中文, through 意思, through 翻译

看到这个题目，或许有人会提出疑问，JavaScript代表客户端，而Session代表的是服务器（不知道这样说大家是否能够理解）。 先说一下需求，我在做一个权限管理的时候，需要在点击某个模块时，Session中相应的改变模块代号，而实现这个操作的是一个a标签，当然我不知道 一个linkbutton是否可以同时将跳转页面和修改Session做了，个人感觉应该是可以的，具体能不能，如果有人做了Demo可以留言说明。 a标签，实现页面的跳转，他的onclick事件，执行的也是本页面中的js方法，现在就回到了题目所描述的问题——写一个JavaScript方法，使其修改Session。 其实这个例子不难，但是对我个人的意义却非同寻常，这个例子解除了我一大部分对AJAX的恐惧。 首先，是写一个一般处理程序（也就是服务端代码） 需要说明的是，如果要修改Session，需要额外引入命名空间，和实现一个接口（只需实现，别的什么也不用做） 代码如下:using System; using System.Collections.Generic; using System.Linq; using System.Web; using System.Web.SessionState; namespace TGB.CJX { /// <summary> /// 修改Session /// </summary> public class ModifySession : IHttpHandler,IRequiresSessionState { public void ProcessRequest(HttpContext context) { context.Response.ContentType = "text/plain"; context.Session["modelID"]=context.Request.QueryString["session"].ToString(); //context.Session["modelID"] = "1"; //context.Response.Write(context.Session["modelID"]); } public bool IsReusable { get { return false; } } } } 有没有发现上面实现的功能很简单呢？ 下面，是客户端代码 代码如下:var xmlhttp; var session; function submit(obj) { //session = obj.id.substr(1, 1); session = obj.id.replace("model",""); //IE7,IE8,FF,MOZILLA,SAFARI if (window.XMLHttpRequest) { //alert("IE7,IE8,FF,MOZILLA,SAFARI"); xmlhttp = new XMLHttpRequest(); if (xmlhttp.overrideMinmeType) { xmlhttp.overrideMinmeType("text/xml"); } } else if (window.ActiveXObject) { //alert("IE5,IE6"); var activeName = ["MSXML2.XMLHTTP", "Miscrosoft.XMLHTTP"]; for (var i = 0; i < activeName.length; i++) { try { xmlhttp = new ActiveXObject(activeName[i]); break; } catch (e) { return; } } } if (xmlhttp == undefined || xmlhttp == null) { alert("当前浏览器不支持创建XMLHTTPREQUEST对象，请更换浏览器"); return; } xmlhttp.onreadystatechange = callback; xmlhttp.open("GET", "ModifySession.ashx?session=" + session, true); xmlhttp.send(null); } function callback() { //判断和服务器的交互是否完成，还要判断服务器端是否返回了数据 if (xmlhttp.readyState == 4) { //表示和服务器端的交互完成 if (xmlhttp.status == 200) { //alert("正确返回了数据"); return; } } } 在回调函数中，我只写了一个测试正常返回数据的语句，后来注释掉了。 在为a标签绑定事件时，我最初用的是拼接字符串的方法，就是从数据库中查到模块ID和模块名称，然后通过下面的一条语句进行语句拼接： 代码如下:StringBuilder sbModel = new StringBuilder(); //将可以访问的模块进行菜单拼接 for (int i = 0; i < dtModel.Rows.Count; i++) { sbModel.Append("<li><a id="model" + dtModel.Rows[0]["mdlID"].ToString() + "" href="SpaceWeb.aspx" target="_parent" runat="server" onclick="submit(this)">" + dtModel.Rows[i]["mdlName"].ToString() + "</a></li>"); } 可是这样写的很容易出错，虽然在复制进来之前，我是写过测试语句，然后再将变量写到该写位置的，但是这样写出来的语句是很难进行调试的。 在和别人交流的过程中，说道了Repeater控件，恍然大悟，我重复的这个过程，不就是Repeater控件干的事么？控件替我们干了，干嘛还要自己写这么容易出错的代码呢？ 代码如下:<asp:Repeater runat="server" id="rptModel"> <ItemTemplate> <li><a id="model"+"<%#Eval("mdlID")%>" href="SpaceWeb.aspx" target="_parent" runat="server" onclick="submit(this)"><%#Eval("mdlName" %></a></li> </ItemTemplate> </asp:Repeater> 是不是这样写，感觉会清晰好多呢，因为我之前用的拼接字符串，并且实现了，用Repeater只是一个思路，在id拼接那不知道会不会又问题，如果有问题，欢迎斧正。 至此，我的第一篇有关AJAX的文章就写完了，关于对AJAX的理解只是一个开始，这个里面没有涉及到数据交互，所以对于某些知识的解释还是有些苍白的，随着学习的深入，关于AJAX的使用，不会仅仅停留在updatepanel和timer这些控件上的。对于某些不太难的实例，自己做一下还是比较好的。 关于这个例子，你可以问用一个LinkButton其实就可以实现，干嘛弄这么麻烦，但是我想说，我一开始也没有想到一个LinkButton就可以解决，是自己把问题复杂化了，这个里面涉及到一个页面跳转，其实完全可以用LinkButton解决，但是学习嘛就是一个过程，用自己犯的一个小迷糊促进了对AJAX的理解，何尝不是一件快事~~ 对于AJAX的理解，还在一步步的进行，如果有什么错误，还望大家积极评论点评

应该得结合php吧？

网站就是一串代码，所以加段代码，网站的内容就丰富了啊，签到功能就是这个道理

论ＡＪＡＸ技术及应用[论文关键词]Ajax JavaScript DHtml Web2.0 　　[论文摘要]Ajax是Web2.0的核心之一，它采用异步模式，可以开发出基于浏览器的具有高用户交互性的web应用，改变了传统Web应用的交互模式，从而可以构建出更为动态、响应更灵敏和用户体验更好的Web应用程序。 　　一、Ajax技术简介 　　AJAX全称为“Asynchronous JavaScript and XML”（异步JavaScript 　　和XML），是指一种创建交互式网页应用的网页开发技术。Ajax运用的了如下的一些基本技术： 　　HTML：用于建立Web表单并构建Web应用界面；JavaScript：Ajax 技术的核心，帮助改进与服务器应用程序的通信；DHTML（Dynamic HTML）：用于动态更新表单。通常使用div、span和其他动态HTML元素来标记HTML；文档对象模型DOM：用于（通过JavaScript代码）处理 HTML 结构。 　　 　　二、Ajax原理 　　在传统的Web 应用程序中，交互的一般流程是：用户填写表单字段并单击提交按钮，整个表单发送到服务器，通过服务器端不同的技术（如PHP、JSP等）进行处理，然后再将处理结果以全新的页面发送回客户端。在用户提交后等待处理时，屏幕变成一片空白，用户得不到立即反馈。 　　Ajax的核心是JavaScript对象XmlHttpRequest。该对象在Internet Explorer 5中首次引入，它是一种支持异步请求的技术。简而言之，XmlHttpRequest使您可以使用JavaScript向服务器提出请求并处理响应，而不阻塞用户。也就是说当用户提交表单时，数据发送给一些JavaScript 　　代码而不是直接发送给服务器。而JavaScript代码捕获表单数据并向服务器发送请求，即JavaScript 代码在幕后发送请求，用户甚至不知道请求的发出，并且请求是异步发送的，就是说JavaScript代码（和用户）不用等待服务器的响应。在JavaScript代码和服务器进行交互时，用户仍然可以继续输入数据、滚动屏幕和使用应用程序。在服务器处理完毕后将数据返回JavaScript代码（仍然在Web表单中），然后使用DOM技术迅速更新表单数据，让用户感觉应用程序是立即完成的，表单没有提交或刷新而用户得到了新数据。JavaScript代码甚至可以对收到的数据执行某种计算，再发送另一个请求，完全不需要用户干预，甚至完全不知道幕后发生的一切，从而极大的提升了用户体验。 　　 　　三、Ajax应用 　　现以修改用户的登录名的例子来讲述AJAX在实际中的应用，该实例可以推广到网页中任何文本内容的动态修改。 　　（一）创建XMLHttpRequest对象，为了使代码同时支持Internet Explorer和非Microsoft浏览器，使用如下代码 　　var xmlHttp = false; 　　try { 　　xmlHttp = new ActiveXObject("Msxml2.XMLHTTP"); 　　} catch (e) { 　　try { 　　xmlHttp = new ActiveXObject("Microsoft.XMLHTTP"); 　　}catch (e2) { 　　xmlHttp = false; 　　} 　　if (!xmlHttp && typeof XMLHttpRequest != "undefined") { 　　xmlHttp = new XMLHttpRequest(); 　　} 　　在创建XMLHttpRequest对象之后，就可以结合JavaScript代码完成以下工作：从 Web 表单中获取数据-＞打开到服务器的连接-＞设置服务器处理完成后的响应函数，这也是Ajax工作的一般流程（二）定义获取表单数据及更改表单的JavaScript代码 　　function changeToInput(id) { 　　 var oNP = document.getElementById(id);//从表单中获取数据 　　 var value = oNP.value; 　　 oNP.outerHTML = "＜input type="text" id="" + id + "" value="" + value + "" size="5" onblur="change(this.id)"＞"接后文

可以用http请求获取另一网页的html源码，ajax原理就是这样。