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

文件的读出编辑管理

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

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

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

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

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

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

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

使用ASP重启服务器

Aug022006

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

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

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

Aug022006

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

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

保护ASP脚本源代码

Aug022006

ASP是基于 Server端的脚本运行环境，它简单易用，不需要编译和连接，脚本可以在 Server端直接运行，并且它支持多用户、多线程，在 Web开发中得到了广泛的应用。但是，因为 ASP脚本是纯文本格式，所以恶意者通过源代码可以很容易地看到原本不该看到的页面内容。例如， ASP源代码中通常有系统数据库的连接用户名和口令， ...
阅读全文

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

asp程序权限控制的代码

Aug022006

[code] '重要代码，将这些代码拷贝到代码配置文件中。（代码配置文件就是一个普通的asp文件，所有的公共代码都放到这 '个文件中，其他需要调用公共代码的就通过include将这个文件包含进去。 ' '权限验证代码 'RightString：权限串（用户的所有权限连接成的串，用都好(,)连接。例如：,1,3,12,7,45, ...
阅读全文

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