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

2008-02-23 09:28:43

下载过动网论坛、或者其他注册程序的用户知道，在用户注册时，系统给注册的密码进行了MD5的加密。 介绍使用方法： 在需要使用MD5加密时，调用MD5.asp文件： !--#include file="md5.asp"-- 进行字符加密： MD5(加密字符) MD5.asp 文件代码： % Private Const BITS_TO_A_...

2008-02-23 09:28:19

# 使用 On Error Resume Next 这一行语句等于告诉服务器处理程序：“如果我出错了，呵呵不要管我，继续……”。这样做可以使你捕捉到很多可以捕捉和处理的错误，比那些一出错就把家底拿给人家看的代码好一些。调试的时候最好不要打开，一面无法发现哪里出 错了。 # 服...

2008-02-23 09:28:15

如果用户在网站连接access数据库时出现错误（未发现数据源或驱动程序），请改用以下连接串连接数据库。 conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=数据库密码;Data Source=" Server.MapPath("数据库名.mdb") 存取数据库的原理 在ASP中...

2008-02-23 09:28:13

以前曾经参考过一个网站的源码，是使用ID 1和ID-1的办法来判断上下篇的。在实际使用过程中，发现一个问题：当删除数据库中的一篇文章时，就会造成ID不连续，如果用ID 1和ID-1来判断就会出现找不到记录。所以程序并不是非常的完美。 在我们所介绍的ASP代码中，是通过查...

2008-02-23 09:28:13

'--------------------------------------------------- Function GetExcelRecordset( FileName, SQL ) Set GetExcelRecordset = GetOtherRs( "Excel", FileName, SQL, 2 ) End Function '--------------------------------------------------- Function GetExcelStati...

2008-02-23 09:28:12

如果页面要自动刷新，但该页面有Request.Form，那么通常会出现一个提示框，需要用户确定来提交数据，这就不是自动刷新了。而对于监控或股票显示来说，不要用户干预又非常重要，下面就可以解决该问题： Script Language="JavaScript" !-- var limit="0:60" //定义刷新时...

2008-02-23 09:28:09

ASP生成随机密码的两个函数： 函数一 % function makePassword(byVal maxLen) Dim strNewPass Dim whatsNext, upper, lower, intCounter Randomize For intCounter = 1 To maxLen whatsNext = Int((1 - 0 1) * Rnd 0) If whatsNext = 0 Then 'character upper = 90 lowe...

2008-02-23 09:28:05

当点击了相应文章的联结后，就进入此文章的处理页面managearticle.asp： ＜ % articleid=request("articleid") boardid=request("boardid") if session("beenthere")＜ ＞boardidthen response.redirect "forums.asp" Set conn = Server.CreateObject("ADODB.Connectio...

2008-02-23 09:28:04

（3）打造qBaord.asp页面： ＜ % boardid=request("boardid") '取出由上个页面传递过来的看板ID号 Set conn = Server.CreateObject("ADODB.Connection") conn.Open "driver={Microsoft AccessDriver (*.mdb)};dbq=" Server.MapPath("bbssystem.mdb") Set cmd = Server....

2008-02-23 09:28:00