我为程序做了一个登录界面,在登录成功的时候,定义了一个session变量,并初始化了它的值,但为什么在其它页面调用时就变成了空值呢?我的目的是防止用户没有登录直接输入地址就进入系统了
登录界面:
Try
Dim
sqlstr
As
String
=
"
select username,userpwd from userinfo where username='
"
&
user_name.Text
&
"
' and userpwd='
"
&
userpassword.Text
&
"
'
"
conn
=
New
SqlConnection(connstr)
conn.Open()
cmd
=
New
SqlCommand(sqlstr, conn)
Dim
myreader
As
SqlDataReader
myreader
=
cmd.ExecuteReader()
If
myreader.Read
Then
Response.Redirect(
"
index.aspx
"
)
Session(
"
user
"
)
=
user_name.Text
Else
Response.Write(
"
<script>alert('登录失败,用户名或者密码错误,请核实后在试');</script>
"
)
End
If
conn.Close()
其它界面:
If
Not
Page.IsPostBack
Then
If
Session(
"
user
"
)
=
""
Then
Response.Redirect(
"
login.aspx
"
)
Else
getfieldsname()
End
If
End
If
登录界面:
Try
Dim sqlstr As String = " select username,userpwd from userinfo where username=' " & user_name.Text & " ' and userpwd=' " & userpassword.Text & " ' "
conn = New SqlConnection(connstr)
conn.Open()
cmd = New SqlCommand(sqlstr, conn)
Dim myreader As SqlDataReader
myreader = cmd.ExecuteReader()
If myreader.Read Then
Response.Redirect( " index.aspx " )
Session( " user " ) = user_name.Text
Else
Response.Write( " <script>alert('登录失败,用户名或者密码错误,请核实后在试');</script> " )
End If
conn.Close()
其它界面:
If Not Page.IsPostBack Then
If Session( " user " ) = "" Then
Response.Redirect( " login.aspx " )
Else
getfieldsname()
End If
End If
Try
Dim sqlstr As String = " select username,userpwd from userinfo where username=' " & user_name.Text & " ' and userpwd=' " & userpassword.Text & " ' "
conn = New SqlConnection(connstr)
conn.Open()
cmd = New SqlCommand(sqlstr, conn)
Dim myreader As SqlDataReader
myreader = cmd.ExecuteReader()
If myreader.Read Then
Response.Redirect( " index.aspx " )
Session( " user " ) = user_name.Text
Else
Response.Write( " <script>alert('登录失败,用户名或者密码错误,请核实后在试');</script> " )
End If
conn.Close()
其它界面:
If Not Page.IsPostBack Then
If Session( " user " ) = "" Then
Response.Redirect( " login.aspx " )
Else
getfieldsname()
End If
End If