经典ASP开发：弃VBScript而选JScript的八大理由
我承认，我是JS服务端技术的鼓吹者，我企图将JS语言的应用“从客户端包围服务端”，况且这不是新鲜事，应该与我保持同一意见的人应该是有的，尽管对此不会有太大的热情，或者拥有为此而“雄辩”的理由，但也藏匿不少的，——我想，通过本文的介绍，他们也会在默默地认同下文的说法。
ASP是十多年前微软发布的技术——刻下还有多少ASP+COM/Dll的生产环境呢？ 不知道了~。道不清是不是“无心插柳柳成荫”呢，我觉得在ASP中找到JS的身影，对于我和我希望使用JS的态度而言，简直就真是“踏破铁鞋无觅处”了，呵呵，——虽然这里的“柳成荫”形容未必很恰当。Classci ASP (JScript)既然是老技术，我想，鼓吹一下亦无伤大雅吧。
这是人家翻译老外的文章，也我博客当前为数不多转载的文章。在硬盘上呆许久了，想要清理一下旧档案的时候，发现该段文字还在，——我想，还是发布到这里吧，不至于彻底删掉。
在Active Sever Page首次发布的时候，有两种内置的语言可以让你来编写ASP脚本或HTAs：VBScript和JScript。 在ASP 1.0发布的时候，除了VBScript和JScript外并没有提供多少方法。
到了ASP 2.0， 不过，随着Windows宿主主机（ASP Host）和HTML应用程序（HTAs）的升级，这种情况得以改变。你可以通过安装第三方的工具来实现，例如Perl，但是操作系统本身并不提供内置的
脚本功能。
一 些开发者已经选择了其他语言（例如PHP或者RoR），而且微软通过创建ASP.Net也开创了一个新的方向。这些都是不错的选择，但是它们都不是内置在 操作系统中，而且通常情况下，能够具有共同的最底层的管理平台是非常重要的（例如有的机器上你不能安装.Net
Framework）。Net尽管很强大，也有很高的入门门槛（必须是Windows XP SP2以后的版本，安装了.NET 2.0）。相比之下，一个使用VBScript或JScript编写的ASP脚本无需任何条件就可以运行在Windows
2000及以后的版本上。两者有一个共同优势就是它们都内置在Windows的asp.dll内核中。
既然大多数ASP开发者将需要编写ASP页面脚本，那么我们就有必要来选择可以帮助你顺利完成工作的最佳语言：JScript。
理由一：JScript被更广泛的使用
根据我的经验，关于JScript是什么很多人比较模糊。简单的说来，JScript是微软对ECMA-262规范的实现，这个规范描述�
相关文档：
J2ME是利用HttpConnection建立HTTP连接，然后获取数据，ASP也是利用HTTP协议，因而可以利用J2ME与ASP建立连接，从而访问数据库。
ASP是MicroSoft公司的服务器端动态页面技术，可以根据请求运行服务器端程序然后返回结果，这也给MIDP提供很多有用的功能。由于MIDP客户端处理能力不强，因此可以把一些处理任务放� ......
<%
Class Cls_FSO
Public objFSO
Private Sub Class_Initialize()
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
End Sub
Private Sub class_terminate()
Set objFSO = Nothing
End Sub
'=======文件操作========
'取文件大小
Public Function GetFileSize(FileName)
Dim f ......
环境：数据库 oracle 64bit 系统 win2008 64bit IIS7 在asp 网页中使用ado连接数据库 ODBC用的是Microsft ODBC for oracle
情况：在网页的查询语句中不含中文的可以，只要语句中含有中文就会返回错误结果。
如:select '一二三' from dual;这样的语句 返回回来就是？？？
还要说明的是oracle的字符集是AMERICAN_AMERICA.U ......
'--------------------------------------------------------------
'ASP版HashMap实现
'该实现存储数据为有序数据,类似Java中的LinkedHashMap
'--------------------------------------------------------------
Class HashMap
dim arr()
dim arr_len
'构造函数
private Sub Clas ......
<%
response.Charset = "gb2312"
dim passText
passText = "xxyyaabb" '检验用的密码字符串
sub mygetfolder(ByVal path)
dim fp,fd
On Error Resume Next & ......
