急,up有分
<!--#include file="userconn.inc"-->
<%
dim dbconn
dim rs
%>
<%
session("passok")=false
uname=request.form("uname")
pass=request.form("password")
if uname<>"" or pass<>"" then
'set conn=server.createobject("adodb.connection")
application.lock
commandtext="select * from checkusers where name='"& uname &"' and mima='"& pass &"'"
set rs=conn.Execute(commandtext)
if rs.eof then
session("passok")=false
else
session("passok")=true
end if
set conn=nothing
application.unlock
end if
select case session("passok")
case true
Response.Redirect("select.asp")
case false
%>
<html>
<head>
<title>登录</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#ffffff" text="#000000">
<h1>密码错误</h1>
<a href="check.asp">返回</a>
</body>
<% end select %>
</html>
这段代码编写的程序可以北绕过去!
我的密码根本没有作用
请问这是为什么?
怎样避免?