说明：支持中文的无组件文件上传ASP函数，由于ASP不支持二进制写入文件，所以存成文件时必须使用组件，本函数只提供截取上传文件的数据，可以写入到数据库。 Function GetUpload(FormData) Dim DataStart,DivStr,DivLen,DataSize,FormFieldData “分隔标志串(+CRLF) ...
当前位置： 首页 >
2006年发布的所有文章
如何用asp编写网站统计系统
在目前的网站统计系统决大部分都是cgi的，但编写起来特别复杂，而asp学起来简单，更有和数据库结合的优点，所以结合自己曾经做过的网站统计系统 ，和大家探讨一下asp编写网站统计系统。 大家都看过网易的网站统计系统，它可以统计总访问量，每日平均访问量，当日访问量，最高访问量 ...
文件的读出 编辑 管理
[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; } fu ...
判断文章中文字符数量
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) ...
字符串的最大，最小和平均值
用两种不同的方法来求实现数字字符串的最大，最小和平均值 dblHighestSoFar or IsNull(dblHighestSoFar) Then dblHighestSoFar = CDbl(someNumbers(I)) End If End If Next Max = dblHighestSoFar End Function Function Avg(someNumbers) dblHighestSoFar ...
检测表单输入EMAIL的合法性
[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 ...
计算文件下载时间
[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 i ...
aspemail组件的应用
[code] sub sendMail(a_intID , a_strEmail) const c_strMailServer = "smtp.163.net" dim objConn,objRs,strSql dim strContent,strBody,strSubject,objEmail strBody = "" strBody = strBod ...
使用ASP重启服务器
大家知道直接使用ASP是不能够重启服务器的，这时我们需要制作一个组件来实现功能，ASP通过这个组件调用系统API，然后按照不同的重启和关机方式进行操作！ 下面先说COM的制作，在VB中新建一工程，当然是AceiveX dll的！ 1）先修改工程属性，在工程属性窗口将工程名称改为system，在类模块 ...
用纯ＡＳＰ代码实现图片上传
用ＡＳＰ编写网站应用程序时间长了，难免会遇到各式各样的问题，其中 关于如何上传文件到服务器恐怕是遇见最多的问题了，尤其是上传图片，比如 你想要在自己的社区里面实现类似网易虚拟社区提供的“每日一星”的功能， 就要提供给网友上传照片的功能。上传图片文件到服务器可以使用各种免 ...