给你一个例子:
<%@ Language=VBScript %>
<%
dim RetVal
RetVal=LoginNow()
if RetVal=0 then
Response.Redirect "default.asp"
else
Response.Redirect "loginfail.asp"
end if
'else
Response.Redirect "default.asp"
'end if
function LoginNow()
'Dim oConn
'dim strconn
'Set oConn = Server.CreateObject("ADODB.Connection")
'strconn= "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("/db/vip.mdb")
'oConn.open strconn
dim oConn
set oConn=server.CreateObject ("adodb.connection")
oConn.ConnectionTimeOut = 15
oConn.CommandTimeOut = 30
oConn.Open "dsn=ccisn", "", ""
dim rsCust
set rsCust=server.CreateObject ("adodb.recordset")
set rsCust.ActiveConnection =oConn
rsCust.Source ="select * from Customer where CustomerName='"&Request.Form ("txtName")&"' and Password='"&Request.Form ("PassWord")&"'"
rsCust.Open
if not rsCust.EOF then
Session("UserID")=rsCust("CustomerID") //
session("UserName")=rsCust("CustomerName") //这里是关键!可不要忘记了哦!
session("Level")=rsCust("LevelUp") //
LoginNow=0
else
LoginNow=-1
end if
rsCust.Close
end function
%>
和楼上有点大同小异。
<%
if session("变量名")<>赋的值 then
Response.Redirect "\"'如果没登陆就把他弹回首页去。
response.end
end if
%>
把上面这些放到一个文件里,
然后每个文件的开头加上
<!--#include file="文件名"-->