作家
登录
  • 列出指定目录下的所有文件和目录

    <%@ LANGUAGE = VBScript %>
    <%Server.ScriptTimeout=5000%>
    <html>
    <head>
    <style TYPE="text/css">
    /* Outline Style Sheet */
    UL UL {display: none;
    margin-left: 20pt}
    </style>
    <scr...

    作者:asdasdasd03-30
  • ASP中FSO的神奇功能 - 简介

    作 者 : 甘冀平 ;

       原文出处:http://www.15seconds.com/Issue/000816.htm
       在ASP中,FSO的意思是File System Object,即文件系统对象。
       我们将要操纵的计算机文件系统,在这里...

    作者:asdasdasd03-30
  • 研究动网得到的一些动网参数

    注:仅适合于Dvbbs.7.1.0==================系统信息设置参数单==================Dvbbs.BoardID=当前版块的ID(非版块页面为0)Dvbbs.SqlQueryNum=当前页面查询数据库的次数Dvbbs.Forum_Info(0...

    作者:asdasdasd03-30
  • asp下载防盗链代码

    asp下载防盗链代码第一种: 终于对下载系统做了个防盗链措施,在下载的页面头部做了如下代码,相关代码如下: 复制代码 代码如下:<% From_url = Cstr(Request.ServerVariables("HTTP_REFERER...

    作者:asdasdasd03-30
  • asp中 select top 问题!~

    sql="select top 8 * from Musiclist where "& sql2 &" order by hits desc" 选择前八条无效!~ 显示出来的是所有新闻!~为什么? 改为下面的就可以 sql="select top 8 * from Musiclist wh...

    作者:asdasdasd03-30
  • 读取目录下的文件得到一个数组

    filename=dir("盘符:*.*")
    i = 0
    do while filename = ""
    array1 (i)=filename
    i = i + 1
    filename = dir("c:*.*")
    loop
    VB好象也有比较好的方法,但是我不太清楚了
    VBScript
    Set fs...

    作者:asdasdasd03-30
  • 读取目录下的所有文件(包括子目录下的所有文件)

    ******************************
    Many times we might need some part of code which will access all sub-folders of the server and also all
    files within the sub-folder.
    The following ...

    作者:asdasdasd03-30
  • 在ASP中连接MySQL数据库,最好的通过ODBC方法

    折腾了一阵,总算把ASP和MySQL连接完成了,有感,特写此文与大家一同分享。  查了很多资料,ASP和MySQL连接目前有两种办法:一个是使用组件,比较有名是MySQLX,可惜要99美元。二就是使用MyOD...

    作者:asdasdasd03-30
  • 把无限级分类生成数组

    把无限级分类循环出来确实是一件头疼的事情。 比如,我们要循环出一个SELECT,或一个TABLE,要写一大堆判断。 有没好点的办法呢? 我的做法是生成数组,可以重复调用,直接循环数组就行了。 为了...

    作者:asdasdasd03-30
  • 批量复制数据

    现有表Special和表view数据结构相同的两个表: 复制代码 代码如下:Special Specialid NClass name pic 1 黎明 火舞艳阳 2 ...

    作者:asdasdasd03-30
  • ASP中FSO的神奇功能 - FSO不能做到的

    作 者 : 甘冀平 ;

       FSO确实存在一些弱点 - 比如,它很难处理二进制文件,这包括Word文档、许多图形格式的文件和其他一些文件。然而你仍然可以用其他的方式操作这些文件 - 移动它们、删除...

    作者:asdasdasd03-30
  • 奇妙的文件系统对象组件

    翻译 讨饭猫
    很久以前(其实就几个月)就知道 Chinaasp 有个实际效果象黑客的ASE程序,最近 Chinaasp 又提供了精华区全文检索功能。看来文件系统对象组件还是很有用的,对吧?如果你对此有兴趣,...

    作者:asdasdasd03-30
  • FSO文件对象介绍及常用函数

    FSO的意思是FileSystemObject,即文件系统对象。FSO对象模型包含在Scripting 类型库 (Scrrun.Dll)中,它同时包含了Drive、Folder、File、FileSystemObject和TextStream五个对象,用来操作文件和...

    作者:asdasdasd03-30
  • 冒泡算法的三种JavaScript表示

    以前学习冒泡算法,总是弄不清楚n和n-1等一些变量的关系,原因是没有弄明白它的真正含义,今天写了一个冒泡算法的JS小程序,终于弄明白了。复制代码 代码如下:var R1=new Array(); R1[1]=35; R1...

    作者:asdasdasd03-30
  • 用ASP+FSO生成JS文件

    复制代码 代码如下:<!--#include file="conn.asp"--> <% set js = server.CreateObject("ADODB.RecordSet") sql="select top 10 * from article order by id desc" set js = conn.Execute (...

    作者:asdasdasd03-30
  • ASP中FSO的神奇功能 - 用FSO进行内容管理

    作 者 : 甘冀平

       到此,你对FSO可能已经有了很好的体会。让我们再深入研究一步,来解决更复杂的难题。
       首先,你可能希望对文件改名。为了跟踪所有的文档,你将要重新命名它们以便唯一...

    作者:asdasdasd03-30
  • 获取字符中中文首字字符

    复制代码 代码如下:<% '获取字符中中文首字字符 '返回:A-Z ;123 ; ### Public Function GetSpellChar(str) Dim tmp GetSpellChar = "@" tmp = 65536 + Asc(st...

    作者:asdasdasd03-30
  • 分享一段代码show.asp?id=26变成show/?26的形式

    发现好多asp的系统在调用文章的时候如果不生成静态,输出的都是类似 http://www.xxx.com/show.asp?id=26 这种格式的. 如果可以换成 http://www.xxx.com/show/?26 这种格式,感觉清减了不少,当然对...

    作者:asdasdasd03-30
  • ASP动态生成的javascript表单验证代码

    以网上down了一个ASP动态生成Form验证javascript的代码,自己扩容了一下。作者的大名我给忘了,不过我记得清楚,从第一条至第九条的代码都是该作者的原创。至于九至第十五条却是本人自己加的哦。...

    作者:asdasdasd03-30
  • asp无限分级(递归调用)

    数据库字段:id(自动编号),class_name(菜单名),parentID(父菜单id) 复制代码 代码如下:<% dim m m=0 call ShowTree(0)%> <% Sub ShowTree(parentID) dim s m=m+1 Dim rs Se...

    作者:asdasdasd03-30
  • ASP中FSO的神奇功能 - 使用FSO进行搜索

    作 者 : 甘冀平
       你也许想:好,现在我知道如何写入文件了。但能做到更多一些吗?下面来试一试为web站点建立一个搜索功能。
       建立搜索引擎的关键是递归。主要地,编写一段代码搜索目录下...

    作者:asdasdasd03-30
  • 系统分配随机密码

    复制代码 代码如下:<% '系统分配随机密码 Function Createpass() Dim Ran, i, LengthNum LengthNum = 6 Createpass = "" For i = 1 To LengthNum ...

    作者:asdasdasd03-30
  • 在asp中通过getrows实现数据库记录分页的一段代码

    复制代码 代码如下:<%@ Language = VBSCRIPT %> <% Option Explicit %> <% rem 在asp中通过getrows实现数据库记录分页的一段代码 Dim iStart, iOffset iStart = Request("Start") i...

    作者:asdasdasd03-30
  • ASP+XML留言板介绍

    我开始学习xml时做了一个简单的xml留言板。 ------------------------------- 创建一个新的XMLDOM object server.createObject("Microsoft.XMLDOM") -----...

    作者:asdasdasd03-30
  • VBS、ASP代码语法加亮显示的类

    复制代码 代码如下:<% Class cBuffer Private objFSO, objFile, objDict Private m_strPathToFile, m_TableBGColor, m_StartTime Private m_EndTime, m_LineCount, m_intKeyMin, m_intKeyMax Pr...

    作者:asdasdasd03-30