当前位置： 首页 > 2006年发布的所有日志

  • 支持中文的无组件文件上传

    Aug022006

    说明：支持中文的无组件文件上传ASP函数，由于ASP不支持二进制写入文件，所以存成文件时必须使用组件，本函数只提供截取上传文件的数据，可以写入到数据库。 Function GetUpload(FormData) Dim DataStart,DivStr,DivLen,DataSize,FormFieldData “分隔标志串(+CRLF) DivStr = LeftB(FormDa ...

    阅读全文
    作者：奇风 | 分类：设计代码 | 阅读：314 views | 标签：
    抢沙发

  • 如何用asp编写网站统计系统

    Aug022006

    在目前的网站统计系统决大部分都是cgi的，但编写起来特别复杂，而asp学起来简单，更有和数据库结合的优点，所以结合自己曾经做过的网站统计系统 ，和大家探讨一下asp编写网站统计系统。 　　大家都看过网易的网站统计系统，它可以统计总访问量，每日平均访问量，当日访问量，最高访问量，最高访问日期，日流量分析，月 ...

    阅读全文
    作者：奇风 | 分类：设计代码 | 阅读：578 views | 标签：
    抢沙发

  • 文件的读出 编辑 管理

    Aug022006

    [code] function crfile(ls) {if (ls==""){alert("请输入文件名!");} else {window.open(“edit.asp?attrib=&creat=yes&path=“+ls,“hyne_love_achye“,“toolbar=no,scrollbars= yes,resizable=yes,width=600,height=400“);} return false; } function crdir(ls) {if (ls==&# ...

    阅读全文
    作者：奇风 | 分类：设计代码 | 阅读：287 views
    抢沙发

  • 字符串的最大，最小和平均值

    Aug022006

    用两种不同的方法来求实现数字字符串的最大，最小和平均值 dblHighestSoFar or IsNull(dblHighestSoFar) Then dblHighestSoFar = CDbl(someNumbers(I)) End If End If Next Max = dblHighestSoFar End Function Function Avg(someNumbers) dblHighestSoFar = Null For I = LBound(so ...

    阅读全文
    作者：奇风 | 分类：设计代码 | 阅读：265 views
    抢沙发

  • 检测表单输入EMAIL的合法性

    Aug022006

    [code] function IsValidEmail(email) dim names, name, i, c “Check for valid syntax in an email address. IsValidEmail = true names = Split(email, "@") if UBound(names) 1 then IsValidEmail = false exit function end if for each name in names if ...

    阅读全文
    作者：奇风 | 分类：设计代码 | 阅读：323 views
    抢沙发

  • 计算文件下载时间

    Aug022006

    [code] = 3600 Then intHours = Int(TimeInSeconds / 3600) Mod 24 If TimeInSeconds >= 60 Then intMinutes = Int(TimeInSeconds / 60) Mod 60 If TimeInSeconds >= 0 Then intSeconds = Int(TimeInSeconds) Mod 60 If intYears 0 Then If intYears = 1 Then AppendStr ...

    阅读全文
    作者：奇风 | 分类：设计代码 | 阅读：285 views | 标签：
    抢沙发

  • aspemail组件的应用

    Aug022006

    [code] sub sendMail(a_intID , a_strEmail) const c_strMailServer = "smtp.163.net" dim objConn,objRs,strSql dim strContent,strBody,strSubject,objEmail strBody = "" strBody = strBody + "" s ...

    阅读全文
    作者：奇风 | 分类：设计代码 | 阅读：317 views | 标签：
    抢沙发

  • 使用ASP重启服务器

    Aug022006

    大家知道直接使用ASP是不能够重启服务器的，这时我们需要制作一个组件来实现功能，ASP通过这个组件调用系统API，然后按照不同的重启和关机方式进行操作！ 下面先说COM的制作，在VB中新建一工程，当然是AceiveX dll的！ 1）先修改工程属性，在工程属性窗口将工程名称改为system，在类模块窗口将模块名称改为contral，保 ...

    阅读全文
    作者：奇风 | 分类：设计代码 | 阅读：289 views | 标签：
    抢沙发

  • 用纯ＡＳＰ代码实现图片上传

    Aug022006

    用ＡＳＰ编写网站应用程序时间长了，难免会遇到各式各样的问题，其中 关于如何上传文件到服务器恐怕是遇见最多的问题了，尤其是上传图片，比如 你想要在自己的社区里面实现类似网易虚拟社区提供的“每日一星”的功能， 就要提供给网友上传照片的功能。上传图片文件到服务器可以使用各种免费的 文件上传组件，使用起来功能 ...

    阅读全文
    作者：奇风 | 分类：设计代码 | 阅读：1,147 views | 标签：
    抢沙发