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

<%@ 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%>

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

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

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

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

[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 ...