Kenan

VBScript 这个语言是VB程序语言的简化，使其易于学习，且完全以配合网页设计开发为发展重点，出去安全性顾虑的指令，使开发者安心开发web程序。第一个 VBScript程序   msgbox "你好,,,"                        //这里没有分号 -->   msgbox "你好,,," //注释  dim score

'VBScript流程控制    '                '显示信息      '显示标题    获得输入     score= inputbox("请输入一个数字","成绩系统")        '第一种流程控制    'if then    'if 1    '有多个执行语句的情况    if 1        'msgbox "1小于2"  

Internet Information Services（IIS，互联网信息服务），是由微软公司提供的基于运行Microsoft Windows的互联网基本服务。最初是Windows NT版本的可选包，随后内置在Windows 2000、Windows XP Professional和Windows Server 2003一起发行，但在Windows XP Home版本上并没有IIS。下面图

sqlserver 2000的安装1，安装sql server 2000简体中文开发版2，安装sql server 组件3，安装数据库服务器4，选择本地计算机5，创建新的sql server 实例/安装客户端工具6，选择服务器和客户端工具7，默认实例，选择默认8，选择典型安装9，选择使用本地账户：不能访问网络资源    使用域用户：用户名和域清除10，选

index.asp:form method="post" action="reg.asp"> div>帐号:input type="text" name="username" value="">div> div>密码:input type="password" name="password" value="">div> div>真实姓名:input type="text" name="znam

'dim a(3)    'lbound是得到数组的下限    'ubound是得到数组的上限    'msgbox lbound(a) '0    'msgbox ubound(a) '3        'int()返回传入这个参数的整数部分    'msgbox int(3.4) '3    'int("你好")  '错误类型不匹配    'msgbox f

'VBScript内置函数    'msgbox "now()"&now()    'msgbox "date()"&date()    'msgbox "time()"&time()    'msgbox "year()"&year(date())    'msgbox "month()"&month(date)    'msgbox "day()"&day(date)

'常量的定义  vbcrlf vb中的换行    msgbox "你"&vbcrlf&"好"    '自定义常量  不可以更改    const pi = 3.141592653    r = 10    area = r*r*pi    msgbox area    //  \整除   /除以     // mod 求余    '比较运算符    ' =

执行指定的ASP程序----Server.Execute方法语法：Server.Execute(path)用途：这个方法是IIS5.0 新增的功能，用途类似程序语言中的函数调用，也就是说，您可以在ASP 程序中使用Server.Execute(path)方法调用Path 指定的ASP 程序，待被调用的程序执行完毕之后再返回原来的程序，继续执行接下来的指令。page1.a

'将信息写入Cookie 文件---Response.Cookies 集合'Cookie 是在浏览者拜访某网站时，Web 服务器在浏览器端所写入的一些小文件，换句话'说，Cookie 是存放在浏览器端的本机磁盘上，而不是存放在服务器端。Cookie 可能记录了'浏览者的个人信息、浏览器类型、何时拜访该网站、从事哪些活动等，如此一来，等浏览者'下次再度拜访该网站时，只要查询Cooki

'子程序    '什么是子程序?    '子程序是将一段具有某种特定功能的语句区块单句撰写成一个独立的程序，给予特定的名称    'A    '第二种调用方法 call A    'call A    'sub A        'msgbox "我是子程序"    'end sub        '带有参数的子程序    sub max(a,b) 

'do while ... loop循环    ans=inputbox("请输入 快乐 的英文")    'do while ucase(ans)         'msgbox "不正确"        'ans=inputbox("请输入 快乐 的英文")    'loop    'do until ... loop 循环        do until uc

建立链接conn.asp %     dim conn     set conn = server.createobject("adodb.connection")     conn.open "driver={sql server};database=guest;server=(local);uid=sa;pwd=password" %> close.asp用户关闭数据库链接 %