作家
登录
  • ASP + Serv-u 实现FTP的代码

    <!--#include file="md5.asp"--> <% Dim iniPath,iniFileName,iniStr,tmpStr,n Dim userName,passWord,tmp userName = "myfso222" '用户名 passWord = "awaysrain" '密码 tmp = "ai" '随机...

    作者:asdasdasd03-30
  • 在ASP编程中使用数组

    数组的定义 Dim MyArray MyArray = Array(1,5,123,12,98) 可扩展数组 Dim MyArray() for i = 0 to 10 ReDim Preserve MyArray(i) MyArray(i)=i next 将一个字符串分割并返回分割结果的数组 Dim ...

    作者:asdasdasd03-30
  • IE功能汇总

     


    <OBJECT id=WebBrowser height=0 width=0
    classid=CLSID:8856F961-340A-11D0-A96B-00C04FD705A2></OBJECT>
    <INPUT onclick=document.all.WebBrowser.ExecWB(1,1) type=button value=...

    作者:asdasdasd03-30
  • Asp遍历服务器对象的代码

    复制代码 代码如下:一 遍历Request 方式1: <% For Each r In Request.QueryString Response.Write "Request("""&r&""") = " & Request(r) Response.Write "<p>" Next %> 方式2: <% For i = 1 ...

    作者:asdasdasd03-30
  • vbcrlf的意思

    常数 值 描述 vbCr Chr(13) 回车符。 vbCrLf Chr(13) & Chr(10) 回车符与换行符。 vbFormFeed C...

    作者:asdasdasd03-30
  • FileSystemObject 对象










    FileSystemObject 对象
    FileSystemObject(FSO) 对象模式包含下面的对象和集合。



    对象/集合
    描述

    FileSystemObject
    主对象。包含用来创建、删除和获得有关信息,以及通常用来操作...

    作者:asdasdasd03-30
  • 保证asp叶面一定不会出现乱码 UTF8

    保证asp叶面一定不会出现乱码的代码应该是这样的:(假定是UTF-8的叶子) <%@ CODEPAGE=65001 %> <% Response.CodePage=65001%> <% Response.Charset="UTF-8" %> 可以建立公共文件code.asp,所有...

    作者:asdasdasd03-30
  • asp组件编写准备工作

    最近在尝试用组件写asp,一些心得如下,不对之处请指正 经常要重启IIS,所以需要一个批处理的文件,将下面两行代码存为xxx.bat net stop w3svc net start w3svc 经常需要注册、卸载dll,所以需要在...

    作者:asdasdasd03-30
  • ASP常用的函数

    ASP常用的函数,希望能用的着。
    <%
    dim db
    db="dbms.mdb"
    '******************************************************************
    '执行sql语句,不返回值,sql语句最好是如下:
    'update 表...

    作者:asdasdasd03-30
  • 登陆asp class

    复制代码 代码如下:<!-- #include file="conn.asp" --> <!-- #include file="cls_main.asp" --> <!-- #include file="cls_md5.asp" --> <% dim obj set obj = New admin_login call obj.Mai...

    作者:asdasdasd03-30
  • FSO 读出TXT文件

    <!--#include file="dbconn.asp"-->
    <%
    function ReadFile(filename)
    on error resume next
    err.clear
    'ASP的一种校错方法
    Const ForReading = 2
    Const Create = false
    Dim FSO
    DIM TS
    DIM fi...

    作者:asdasdasd03-30
  • 利用AdoDb.Stream对象来读取UTF-8格式的文本文件

    复制代码 代码如下:'函数名称:ReadTextFile '作用:利用AdoDb.Stream对象来读取UTF-8格式的文本文件 '---------------------------------------------------- Function ReadFromText...

    作者:asdasdasd03-30
  • ASP 非法字符过滤函数

    复制代码 代码如下:<% '==============================================================检查提交数据合法性 Function CheckInput() '--------定义部份------------------ Dim Fy_Post,Fy_Ge...

    作者:asdasdasd03-30
  • Oracle常用功能集锦

    数值函数:

    abs(m) m的绝对值
    mod(m,n) m被n除后的余数
    power(m,n) m的n次方
    round(m[,n]) m四舍五入至小数点后n位的值(n缺省为0)
    trunc(m[,n]) m截断n位小数位的值(n缺省为0)

    ---------...

    作者:asdasdasd03-30
  • 不用模板,只用ASP+FSO生成静态HTML页的一个方法

    FSO生成静态HTML文件的时候替换模板标签一直是一个很麻烦的问题,至少我是这么认为的,还要别外做一个模板,麻烦!,我今天看见有一个方法可以解决这个问题
    如一个正常的index.asp页面,并且用A...

    作者:asdasdasd03-30
  • 自动采集程序

    复制代码 代码如下:<% On Error Resume Next Const uploadPath = "/uploads/" '文件存放路径 Const allowFileExt = "jpg,wma,swf,gif" '允许被采集的文件类型 'Const allowFileSize...

    作者:asdasdasd03-30
  • ASP FSO文件处理函数大全

    复制代码 代码如下:<% '建立文件夹函数 Function CreateFolder(strFolder)'参数为相对路径 '首选判断要建立的文件夹是否已经存在 Dim strTestFolder,objFSO strTestFolder = Server...

    作者:asdasdasd03-30
  • ASP代码的对象化

    提起asp很多人就认为是一堆html脚本和被括在<%和%>之中的一些代码还有就是一些javascript脚本等筹在一起的一些代码的集合,这样的代码,再加上各类的不同格式的注释,看起来就一个字:乱。也不管...

    作者:asdasdasd03-30
  • 一个简单的HTML病毒分析

    一直就想写这篇东西了,只是上班时说要上班,不写,回家后又忙着玩游戏,丢一边去了。现在只好不务正业的开写了,希望头儿不会知道我的blog。哈哈   在很久之前就对HTML的病毒很感兴趣了,很好...

    作者:asdasdasd03-30
  • js+asp总结

    一直在用JS写ASP,也不是特别原因,只是当初学的是JS,后来学ASP时知道ASP也可以用JS写,就没去学VBS.前几个月刚学ASP的时候找遍了深圳的书店也没有找到一本用JS做脚本语言的ASP书籍,没办法,只能自己...

    作者:asdasdasd03-30
  • ASP,FSO遍历目录及目录下文件

    <%@ Language=VBScript %>
    <%
     '我写的一个遍历目录以及目录下文件的函数,
    %>
    <%
      function bianli(path)
        set fso=server.CreateObject("scripting.filesystemobject")  
       ...

    作者:asdasdasd03-30
  • 如何使用FSO搜索硬盘文件

    <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
    <%
    dim st
    st=timer()
    '*************************************************************
    '*************搜索硬盘文件的类SearchFile *************
    '...

    作者:asdasdasd03-30
  • 把字符串转换成数据库SQL语句格式

    复制代码 代码如下:'把字符串转换成数据库SQL语句格式 '------------------------------------------------- Function AllStr2Database(str,strType) Dim strTemp:strTemp=str Select C...

    作者:asdasdasd03-30
  • asp 常用函数用法

    Array()    FUNCTION: 返回一个数组    SYNTAX: Array(list)    ARGUMENTS: 字符,数字均可    EXAMPLE: <%    Dim myArray()    For i = 1 to 7    Redim Preserve myArr...

    作者:asdasdasd03-30
  • 解决rs.absolutepage=-1的问题

    有时候在做asp的分页程序的时候会遇到无法分页的情况,就试着把rs.absolutepage打印出来结果却一直为-1。 下面介绍一种解决方案: .......省略 rs.cursorlocation=3 '就是加上这行 rs.open sql...

    作者:asdasdasd03-30