技巧之一：提高使用Request集合的效率 访问一个ASP集合来提取一个值是费时的、占用计算资源的过程。因为这个操作包含了一系列对相关集合的搜索，这比访问 一个局部变量要慢得多。因此，如果打算在页面中多次使用Request集合中的一个值，应该考虑将其存贮为一个局部变量。 例如将代码写成下面的形式以加快脚本引擎处理速 ...

用ASP实现分级权限控制 　　本文实现的是一个帐务管理系统中分级权限的控制，程序使用ASP和JavaScript编写，在装有IIS4.0的win NT服务器上运行，速度快，易维护。 权限级别划分如下： ①、院长和财务科长：不能输入，可以无限制查询、统计； ②、副院长：不能输入，可以查询、统计其分管部门的帐务； ③、部门领导：不能 ...

在我们许多网站中存在这样一个问题，就是链接的维护更新，这是一项工作量很大的工作，若不是的专门工作人员进行维护的大型网站，普通站点的站点更新维护工作基本上都成了一个很令人头疼的问题，特别是在没有很多人手的情况下，要经常维护更新链接更是讨厌，因为这项工作没有多少创意，却很耗时，而JACK显然不是那种喜欢 ...

你是否有时想知道什么人访问你的站点，什么时间，IP地址等。下面我就这个问题向大家来阐述一下。这个例子使用文本文件来写入用户的信息创建一个logfile.asp放在每一个asp的页面的顶端当有人来访问你的站点logfile.asp自动把他的信息写入LogFile.txt,如果相关的URl一样的话则不写入文件
File: LogFile.asp

<% Dim ValidEntry “ Log variable “ First set that this log is valid ValidEntry = True “ If Session Variable "LogIn" is not empty “ that mean this person has already been logged “ then set ValidLog to False If not IsEmpty(Session("LogIn")) then ValidEntry = False “ Here you can add different restriction “ If the refering url is from same site “ don“t write to log file If Left(Request.ServerVariables("HTTP_REFERER"), 17)="http://devasp.com" Then ValidEntry = False End if If Left(Request.ServerVariables("HTTP_REFERER"), 21)="http://www.devasp.com" Then ValidEntry = False End If “ Now if ValidEntry is True then enter to log file If ValidEntry Then Const ForAppending = 8 Const Create = true Dim FSO DIM TS DIM MyFileName Dim strLog MyFileName = Server.MapPath("MyLogFile.txt") Set FSO = Server.CreateObject("Scripting.FileSystemObject") Set TS = FSO.OpenTextFile(MyFileName, ForAppending, Create) “ Store all required values in strLog strLog = "

" & now & " "
strLog = strLog & Request.ServerVariables("REMOTE_ADDR") & " "
strLog = strLog & Request.ServerVariables("HTTP_REFERER") & " "
strLog = strLog & Request.ServerVariables("HTTP_USER_AGENT") & "
"
“ Write current information to Log Text File.
TS.write strLog
TS.Writeline ""
“ Create a session varialbe to check next time for ValidEntry
Session("LogIn") = "yes"
Set TS = Nothing
Set FSO = Nothing
End If
%>
　

文件1：BackupDB.asp 　 Database –> Backup Server Name: Administrators: Password: Database: Backup To: (Server Path) 文件2：BackupDBSave.asp 0 then Response.Redirect("http:backuperr.asp?err="&err.number) mdevname="Backup_"&am ...

这篇文章主要是把ASP代码变成组件,开发者不仅是加快了ASP的速度,而且也能保护自己的代码. 下面,我们会来编写一个非常简单的组件,重点是知道怎样开发DLL组件,而不是其复杂的代码!这些都要靠你们自己以后的努力了. 服务器端组件 首先,服务器端的组件要有别于客户端的组件.客户端的组件是通过网络传输,依靠HTML来起作用.而 ...

ASP是个好东西，它强大的交互能力以及数据处理能力使得它成为了商业网站的钟爱。但ASP程序的设计和调试却并不容易，光是高档服务器＋WINDOWS NT操作系统＋IIS服务器＋SQL SERVER数据库系统的配置就不是我们个人用户所能够染指的。难道ASP真的与我们这些个人用户无缘吗？难道我们非要有如此奢侈的软硬件环境才能够走上AS ...

懂程序的人一看就明白怎么实现了
呵呵！真简单

<%@ LANGUAGE = VBScript.Encode %>
<% Server_Name = Request.ServerVariables("SERVER_NAME") For I=1 To Len(Server_Name) If Mid(Server_Name,i,1)="." Then Exit For USER = USER & Mid(Server_Name,i,1) Next Set conn = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("data/url.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath SET rs = Server.CreateObject("ADODB.Recordset") sql ="Select * From url where name=“"&user&"“" rs.open sql,conn,1,2 if rs.eof or rs.bof then response.write ("错误：找不到该页") rs.close conn.close set rs=nothing set conn=nothing Else url=rs("zurl") rs.close conn.close set rs=nothing set conn=nothing %>
">
<%End If%>

　　在设计网页时，经常遇到某些页面需限权访问的情况。比如，一个公司的某些产品只让某一或某些供应商或客户浏览。那么，我们如何实现这一功能呢？本文，笔者将向读者介绍几种限制客户访问权限的方法。 　　通常，我们在设计过程中会面临三种情况：某一页面只让某一用户浏览、某一页面只让某些用户浏览和某些页面只让 ...