关于session一个超菜的问题

[chaoren119119]

<%@language="vbscrept"%>
<%
===============index.asp的部分代码================
sub session_onstar
session.timeout=120
session("id")="1"
end sub
%>
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--

Sub B3_onclick
open "D:\Myweb\test.asp"
End Sub

-->
</SCRIPT>

=============test.asp的部分代码================
<%@language="vbscrept"%>
<%
sub session_onstar
session.timeout=120
t1.value=session("id")
end sub
%>

为什么系统老是说变量未定义：'session'，而且值也不能到达test.asp里
为什么？？？？？？？？？？？？？
注：t1是一个TEXT

[IoRiYoShizUki]

session_onstart这个事件好像要放到global.asa这个文件里才起作用的吧
I think...
再global.asa里面
可以初始化session_onstart
session_onend
application_onstart
application_onend
事件
global.asa文件必要在虚拟目录的根目录下

[DeltaCat]

楼上的说的差不多

楼主，你的代码写的太乱了
<%@language="vbscrept"%>
session_onstar

上面写的是什么？
编程序怎么能这么马虎？

如果你设置 SESSION的超时时间，
1. 你可以在GLOBAL.ASA里设定
2. 可以在你的页面顶部直接用 SESSION.TIMEOUT = 时间

[chaoren119119]

to 楼上的，我已经把代码给改了，但是好象还是不对啊！
代码如下
<%
dim cn,rs,username,password,flag,psw
flag=0
username=request.form("username")
password=request.form("password")
set cn=createobject("adodb.connection")
cn.Open "dsn=szrz"
set rs=createobject("adodb.recordset")
rs.Open "sys_xsdj",cn,,,adcmdtable
rs.MoveFirst
while rs.EOF =rs.BOF
if username=rs.Fields ("xm") then
psw=rs.Fields ("mm")
flag=1
end if
rs.MoveNext
wend
select case request.form("cmdsumit")
case "登陆"
if flag=0 then
msgbox"此用户未注册！"
request.form("username")=""
request.form("password")=""
end if
if flag=1 then
if password=psw then
session("id")=username
response.redirect("a2.asp")
else
msgbox"密码错误！"
request.form("username")=""
request.form("password")=""
end if
end if
end select
'else
' me.close
rs.Close
cn.Close
%>

[stefli]

<%@language="vbscrept"%>
写错了哈。
<%@language="vbscript"%>

[stefli]

sub session_onstar
又写错了
sub session_onstart

[chaoren119119]

楼上的，我是说我重新贴的代码，以前的代码我废掉了啊！
帮忙，送分

[DeltaCat]

楼主啊，你的代码逻辑太混乱了

<%
dim cn,rs,username,password
username = trim(request.form("username"))
password=trim(request.form("password"))
set cn = Server.Createobject("adodb.connection")
cn.Open "dsn=szrz"
set rs = Server.createobject("adodb.recordset")
rs.Open "select mm from sys_xsdj where xm='" & username & "'",cn,1,1,1
if rs.eof then
%>
<script>
msgbox "此用户未注册！"
</script>
<%
else
if password <> rs(0) then
%>
<script>
msgbox "密码错误！"
</script>
<%
else
session("id") = username
response.redirect("a2.asp")
end if
end if

rs.Close
cn.Close
response.end
%>

[chaoren119119]

不能登陆啊，我用正确的用户名去登陆也是出现“此用户未注册！”
<%
dim cn,rs,username,password
username=trim(request.form("username"))
password=trim(request.form("password"))
set cn=server.createobject("ADODB.Connection")
cn.Open "DSN=szrz"
set rs=server.createobject("ADODB.Recordset")
rs.Open "select mm from sys_xsdj where xm='" & username & "'",cn,1,1,1
if rs.EOF = rs.BOF then
session("errormsg")="此用户名未注册！"
response.redirect("errorlog.asp")
else
if password <> rs(0) then
session("errormsg")="密码错误！！"
response.redirect("errorlog.asp")
else
session("username") = username
response.redirect("hdsq.asp")
end if
end if
rs.Close
cn.Close
%>

[chaoren119119]

不行啊！
还是这样的问题啊！
为什么啊！？

[DeltaCat]

把数据库连接方式也改掉，用 ODBC连接或者 OLEDB连接，不要用DSN

[DeltaCat]

dim cn,rs,username,password
username=trim(request.form("username"))
password=trim(request.form("password"))
set cn=server.createobject("ADODB.Connection")
cn.Open "DSN=szrz"
set rs=server.createobject("ADODB.Recordset")
rs.Open "select mm from sys_xsdj where xm='" & username & "'",cn
if rs.EOF and rs.Bof then
session("errormsg")="此用户名未注册！"
response.redirect("errorlog.asp")
else
if password <> rs(0) then
session("errormsg")="密码错误！！"
response.redirect("errorlog.asp")
else
session("username") = username
response.redirect("hdsq.asp")
end if
end if
rs.Close
cn.Close
%>

[chaoren119119]

我自己已经解决了
谢谢楼上以及楼上的楼上以及楼上的楼上的楼上。。。。。
感激涕淋，由衷感谢三角猫对我的支持！！！
给分啦~~~~~~~~~~~~~