如何解决
我的程序有很多页面，在用户尚未登陆的情况下，如何强制用户从首页开始登陆！ 问题点数：5、回复次数：5Top
1 楼jjaacc（）回复于 2002-07-05 20:15:08 得分 2
在别的页面中用SESSION做个标记（在首页中将该SESSION赋个值），如果别人打开别的页面后，如果该SESSION没值就写个转到首页的语句。Top
2 楼delphi_50（delphi初学者）回复于 2002-07-05 20:33:49 得分 0
有个request什么行不行，返回当前页面，如果和首页不同，则转到首页，但是语句如何 写呀？请教高手！Top
3 楼antiking（生活就象拉大便有时顺畅有时不顺畅.）回复于 2002-07-05 20:58:15 得分 3
name=request("username")
pass=request("userpass")
session("name")=name
session("pass")=pass
<%
dim conn
set conn=server.createobject("ADODB.connection")
con.open "PROVIDER=SQLOLEDB;DATA SOURCE=SQL服务器名称或IP地址;UID=sa;PWD=数据库密码;DATABASE=数据库名称
set rs=server.creareobject("adodb.recorder")
sql="select * from table "
rs.open sql,conn,3,3
if session("name")=rs("name")
and session("pass")=rs("pass") then
response.direct"(你所要转的网页)"
eles
response.direct"login.asp"
end if
%>Top
4 楼antiking（生活就象拉大便有时顺畅有时不顺畅.）回复于 2002-07-06 10:24:11 得分 0
对不起忘了向数据库中存数据！只做个参考！:DTop
