奇风's Blog - 人生总有缺失，不和节拍，不和心意，没有感情的婚姻就是一滩死水。

Asp降龙十九掌

Aug022006

1. 现在的日期时间命令是即可 2.ASP取得表格(from)数据输入的方法，是使用一个内置的对象(object)—Requect, 它以get,post而异。 3.若要自己用VB或其它语言编写，.dll文件供ASP使用需将DLL文件注册方可：DOS下输入 regsbr32 *.dll 4.显示五个重复的句子，字体越来越大快速ASP 5.传送字符串到用户端 respons ...
阅读全文

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

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

Aug022006

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

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

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

Aug022006

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

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

文件的读出编辑管理

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==&# ...
阅读全文

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

判断文章中文字符数量

Aug022006

dim WINNT_CHINESE WINNT_CHINESE = (len("论坛")=2) function strLength(str) ON ERROR RESUME NEXT if WINNT_CHINESE then dim l,t,c dim i l=len(str) t=l ...
阅读全文

作者：奇风 | 分类：设计代码 | 阅读：403 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 ...
阅读全文

作者：奇风 | 分类：设计代码 | 阅读：302 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 ...
阅读全文

作者：奇风 | 分类：设计代码 | 阅读：391 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 ...
阅读全文

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

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 ...
阅读全文

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

使用ASP重启服务器

Aug022006

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

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