http://www.ffasp.com/rss/rss.asphttp://www.ffasp.com/content.asp?newsid=1564错误信息：您未被授权查看该页您试图访问的 URL 安装有 ISAPI 或 CGI 应用程序，在继续执行之前对用户凭据进行验证。该应用程序无法验证您的凭据。请尝试以下操作：如果您认为自己应该Sat, 06 Mar 2010 16:34:30 GMThttp://www.ffasp.com/content.asp?newsid=1558昨天给aw写一个生成天气预报的xml文件的程序，考虑到通用性，于是选择utf-8编码，我也比较偏好这个编码。最先想到用FSO来写这个xml文件，后来却发现生成的xml文件不能正常显示，仅仅是因为编码的原因。用记事本打开生成的xml文件，另存为utf-8编码的xml文件即可正常显示。于是在网上搜索了一下，结果发现很多人说FSO只能写ANSI编码的文件，不能写utf-8格式的文件,并且只能读写文本文件。很多人都选择用ADODB.STREAM对象来替代FSO对象，因为STREAM类有LOADFROMFILE和SAVETOFILE方法.并且有一个至关重要的属性CHARSET,这是FSO没有的。有人给出了样例程序：'-------------------------------------------------'函数名称:ReadTextFile'作用:利用AdoDb.Stream对象来读取UTF-8格式的文本文件'----------------------------------------------------Function ReadFromTextFile (FileUrl,CharSet) dim str set stm=server.CreateObject("adodb.stream") stm.Type=2'以本模式读取 Thu, 17 Dec 2009 16:33:11 GMThttp://www.ffasp.com/content.asp?newsid=15421.ASP对Excel的基本操作(1) 建立Excel对象创建Excel对象可以通过下面的代码来实现:<%set objExcelApp = CreateObject("Excel.Application")objExcelApp.DisplayAlerts = false '不显示警告objExcelApp.Application = false '不显示界面%>(2) 新建Excel文件新建Excel文件可以通过以下代码来实现:<%objExcelApp.WorkBooks.addset objExcelBook = objExcelApp.ActiveWorkBookset objExcelSheets = objExcelBook.Worksheetsset objExcelSheet = objExcelBook.Sheets(1)%>(3) 读取已有的Excel文件读取已有的Excel文件可以通过下面的代码来实现 <%strAddr = Server.MapPath(".")objExcelApp.WorkBooks.Open(strAddr & "TempletTable.xls")set objExcelBook = objExcelApp.ActiveWorkBookset objExcelSheets = objExcelBook.Worksheetsset objExcelSheet = objExcelBook.WorkSheets(1)%>(4) 另存Excel文件另存Excel文件可以通过以下代码来实现<%objExcelBook.SaveAs strAddr & "templateTables.xls"%>(5) 保存Excel文件保存Excel文件可以通过以下代码来实现:<%objExcelBook.Save %> (6) 退出Excel操作<%objExcelApp.Quit '一定要退出set objExcelApp = nothing%>2 读取Excel文件的实例 <%set xlApp = server.CreateObject("Excel.Application")strsource = server.MapPath("xl.xls")set xlbook = xlApp.WorkBooks.Open(strsource)set xlsheet = xlbook.Worksheets(1)i = 1response.write "<table>"while xlsheet.cells(i,1) <> ""response.write "<tr>"response.write "<td>" & xlsheet.Cells(i,1) & "</td>"response.write "<td>" & xlsheet.Cells(i,2) & "</td>"response.write "<td>" & xlsheet.Cells(i,3) & "</td>"response.write "<tr>"i = i + 1wendresponse.write "</table>"set xlsheet = nothingset xlbook = nothingxlApp.quit'千万记住要加这一句，否则每运行一次你的机器里就增加一个Excel进程，而且无法释放'set xlApp = nothing 是不行的%>================================================================3. 怎样将数据从Excel导入到SQL Server中(1)<%sub dataIntoSqlServer_ceritificate(strFileName,strSheetName,myConn)'定义dim myConnectiondim strNamedim rsXsl,rsSqldim myConn_Xsldim cmddim i,jdim maxIdstrName = strFileNameset myConnection = Server.CreateObject("ADODB.Connection")set rsXsl = Server.CreateObject("ADODB.Recordset")set rsSql = Server.CreateObject("ADODB.Recordset")set cmd = server.CreateObject("ADODB.Command")cmd.ActiveConnection = myConnmyConn_Xsl = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strName & _";Extended Properties=Excel 8.0"'打开连接myconnection.open myConn_Xsl'打开表 str_Xsl = "select * from [" & strSheetName & "$]"rsXsl.open str_Xsl,myconnection,1,1 j = 1Do while not rsXsl.eof '取出最大值str_sql = "select Max(id) as maxId from exceltosql"rsSql.open str_Sql,myConn,1,3if Not rsSql.eof thenif not isNull(rsSql("maxId")) thenmaxId=CLng(rsSql("maxId")) + 1elsemaxId = 1end ifelsemaxId = 1end ifrsSql.close '//关闭对象'加入数据库str_Sql = "insert into exceltosql values(" & maxId&",'"&rsXsl(1)&"','" & rsXsl(2)&"')"cmd.CommandText = str_Sqlcmd.Excute()''''''''''''''''''''''''''''''''''''''''''j = j + 1rsXsl.moveNextloopresponse.write "共导入 " & j_1 & " 条记录.<br>"response.write "<a href=# >关闭窗口</a>"set rsXsl = nothingset rsSql = nothingset myconnection = nothingset cmd = nothingend sub(2)'调用方法<%file1 = "c:excelexample.xls"myconn = "DRIVER={SQL SERVER};SERVER=(local);uid=sa;pwd=sa;DATABASE=aspbook"dataIntoSqlServer_ceritificate file1,"sheet1",myconn%>========================================================4.ASP操作Excel技术总结目录 一、 环境配置 二、 ASP对Excel的基本操作 三、 ASP操作Excel生成数据表 四、 ASP操作Excel生成Chart图 五、 服务器端Excel文件浏览、下载、删除方案 六、 附录正文 一、 环境配置 服务器端的环境配置从参考资料上看，微软系列的配置应该都行，即： 1．Win9x+PWS+Office 2．Win2000 Professional+PWS+Office 3．Win2000 Server+IIS+Office 目前笔者测试成功的环境是后二者。 Office的版本没有特殊要求，考虑到客户机配置的不确定性和下兼容特性，建议服务器端Office版本不要太高，以防止客户机下载后无法正确显示。 服务器端环境配置还有两个偶然的发现是： 1． 笔者开发机器上原来装有金山的WPS2002，结果Excel对象创建始终出现问题，卸载WPS2002后，错误消失。 2． 笔者开发ASP代码喜欢用FrontPage，结果发现如果FrontPage打开（服务器端），对象创建出现不稳定现象，时而成功时而不成功。扩展考察后发现，Office系列的软件如果在服务器端运行，则Excel对象的创建很难成功。 服务器端还必须要设置的一点是COM组件的操作权限。在命令行键入“DCOMCNFG”，则进入COM组件配置界面，选择Microsoft Excel后点击属性按钮，将三个单选项一律选择自定义，编辑中将Everyone加入所有权限。保存完毕后重新启动服务器。 客户端的环境配置没发现什么特别讲究的地方，只要装有Office和IE即可，版本通用的好象都可以。二、 ASP对Excel的基本操作 1、 建立Excel对象 set objExcelApp = CreateObject("Excel.Application") objExcelApp.DisplayAlerts = false 不显示警告 objExcelApp.Application.Visible = false 不显示界面 2、 新建Excel文件 objExcelApp.WorkBooks.add set objExcelBook = objExcelApp.ActiveWorkBook set objExcelSheets = objExcelBook.Worksheets set objExcelSheet = objExcelBook.Sheets(1) 3、 读取已有Excel文件 strAddr = Server.MapPath(".") objExcelApp.WorkBooks.Open(strAddr & "TempletTable.xls") set objExcelBook Mon, 02 Nov 2009 15:36:42 GMThttp://www.ffasp.com/content.asp?newsid=1533替换editor.js中的 BtnMouseUp函数// Toolbar button onmouseup handlerfunction BtnMouseUp() {if (event.srcElement.tagName != "IMG") {event.cancelBubble = true;return false;}var image = event.srcElement;var eleSat, 17 Oct 2009 19:45:22 GMThttp://www.ffasp.com/content.asp?newsid=1414现在很多网站注册用户都会提供给用户一个二级或三级域名比如网易的博客就属于这种类型今天我通过服务器的简单配置和一个小函数也简单的实现了二级域名的功能与大家分享实现二级域名首先要具备的条件是你的域名要支持泛解析也就是支持*.yourdomain.com指向同一个IP地址制作步骤如下：1在服务器上建立一个IIS站点（除了主站以外最好另外再建立一个和主站www.yourdomain.com 指向同一个目录）建立IIS站点的时候不要填写站点的主机头，只填写对应的IP即可，其他地方和普通设置站点办法相同，把文档选Fri, 10 Jul 2009 15:15:02 GMThttp://www.ffasp.com/content.asp?newsid=1413<object classid="clsid:22D6F312-B0F6-11D0-94AB-0080C74C7E95" id="MediaPlayer1" width="286" height="225"><param name="AudioStream" value="-1"><param name="AutoSize" value="-1"><!--是否自动调整播放大小--><param name="AutoStart" value="-1"><!--是否自动播放--><param name="AnimationAtStart" value="-1"><param name="AllowScan" value="-1"><param name="AllowChangeDisplaySize" value="-1"><param name="AutoRewind" value="0"><param name="Balance" value="0"><!--左右声道平衡,最左-9640,最右9640--><param name="BaseURL" value><param name="BufferingTime" value="15"><!--缓冲时间--><param name="CaptioningID" value><param name="ClickToPlay" value="-1"><param name="CursorType" value="0"><param name="CurrentPosition" value="0"><!--当前播放进度 -1 表示不变,0表示开头单位是秒,比如10表示从第10秒处开始播放,值必须是-1.0或大于等于0--><param name="CurrentMarker" value="0"><param name="DefaultFrame" value><param name="DisplayBackColor" value="0"><param name="DisplayForeColor" value="16777215"><param name="DisplayMode" value="0"><paWed, 08 Jul 2009 13:54:04 GMThttp://www.ffasp.com/content.asp?newsid=1411A 定义数组 有两种方式：DIM和REDIM。 DIM定义的是固定个数、数据类型的数组；而REDIM则不同，它可以定义不同类型的数据，也可以定义个数并非固定的数据。比较下面几个例子。 都合法的例子： 程序代码 Dim myarray(5,2) Redim myarray(5,2) 前者错误而后者合法的例子： n=10 n=10 Dim myarray(n) Redim myarray(n,2) 另外REDIM还可以定义未定类型的数组，如：Redim myarray(10) 　 B 数组个数 在以DIM或REDIM定义数组时指定的下标，表示的是访问该数组时所容许的最大下标，却不是该数组的个数。实际上，一维数组个数总是等于（最大下标+1），访问时是通过下标从0开始逐个访问的。 比如：Dim myarray(5) 定义的数组元素有6个，分别是：myarray(0)、myarray(1)、myarray(2)、myarray(3)、myarray(4)、myarray(5)。 再如：Redim thisarray(2,5)实际上定义了一个(2+1)*(5+1)=1 8的二维数组。 既然如此，那么，可不可义定义一个只有一个元素的数组呢？答案是：不可以。 如前所说，Redim thisarray(1)定义的数组实际上有(1+1)个数组元素，但类似于: Redim thisarray(0)的语法，错误的。所以，不能定义一个只有一个数组元素的数组。 其实，以上说的只是其默认状况。其实，定义数组可以通过定义下标的起止从而达到定义数组的个数甚至下标的起止编号的。比如：Redim thisarray(1980 to1990)就 定义Wed, 08 Jul 2009 13:25:34 GMThttp://www.ffasp.com/content.asp?newsid=1371ACCESS有个BUG，那就是在使用 like 搜索时如果遇到日文就会出现“内存溢出”的问题，提示“80040e14/内存溢出”。 以前也遇到过了，不过那时没怎么在意把含有日文的数据删除了就好了，现在这次的都是些重要的资料不可能删除的，就需要想办法来解决了。 那导致出问题的26个日文：ゴ ガ ギ グ ゲ ザ ジ ズ ヅ デ ド ポ ベ プ ビ パ ヴ ボ ペ ブ ピ バ ヂ ダ ゾ ゼ 说一下解决办法： 1、最笨的方法：删除含有日文的数据 这就不用解释了； 2、替换方法： 思路：就是存储进入数据库时把那26个日文替换成别的编码，在从数据库取出来后在反替换回来； 从网上找了个现成的函数： 编码: Function Jencode(byVal iStr) if isnull(iStr) or isEmpty(iStr) then Jencode="" Exit function end if dim F,i,E ’ F=array("ゴ","ガ","ギ","グ","ゲ","ザ","ジ","ズ","ヅ","デ",_ ’ "ド","ポ","ベ","プ","ビ","パ","ヴ","ボ","ペ","ブ","ピ","バ",_ ’ "ヂ","ダ","ゾ","ゼ") E=array(&quotMon, 04 May 2009 13:51:48 GMThttp://www.ffasp.com/content.asp?newsid=1315VB6 和 VBA 代码编辑器 (Office 中的 VB 编辑器）都不支持鼠标滚轮，于是有了一些第三方插件(Addin)。以前我用过一个 MouseWheelSupport4IDE，感觉还行，Wed, 07 Jan 2009 23:37:17 GMThttp://www.ffasp.com/content.asp?newsid=13141 。打开您的Microsoft Visual Basic:screen.width-333)this.width=screen.width-333">点击确定,以下就按照蓝色的数字步骤.2 。修改工程名和类模块的名称:screen.width-333)this.width=screen.width-333">点3,把4改成bi,再点5:screen.width-333)this.width=screen.width-333">6处改成cjjer.3。增加到引用asp： screen.width-333)this.width=screen.width-333">点击引用,然后选择其中的Microsoft Active Server Pages Object Library.screen.width-333)this.width=screen.width-333">点9确定.4。编写代码：Option ExplicitPrivate Context As ScriptingContextPrivate Application As ApplicationPrivate Response As ResponsePrivate Request As RequestPrivate Session As SessionPrivate Server As ServerPublic Sub OnStartPage(PassedscriptContext AsWed, 07 Jan 2009 23:27:03 GMT