UC知道谁能帮我修改一下这段ASP代码？（解决给200分）
来源：百度知道 编辑：UC知道 时间：2024/05/28 23:56:16
这是我下载下来的登陆代码。每次我登陆的时候无论密码正确与否它都能进入下一个页面，谁能帮我把它改成如果用户名密码错误就不能进下一个页面。因为我每次提问都给很多分，结果没人回答分都给浪费了，这次谁能帮我改好了我给200分，绝不食言！
conn.asp代码
<%
dim conn
dim connstr
on error resume next
connstr="PROVIDER=SQLOLEDB;DATA SOURCE=127.0.0.1;UID=shindo;PWD=***;DATABASE=teacher;"
set conn=server.createobject("ADODB.CONNECTION")
if err then
response.write "<script language=JavaScript>{window.alert('连接数据库出错！');window.location.href='index.htm';}</script>"
response.end
err.clear
else
conn.open connstr
end if
%>
check.asp代码
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="tcconn.asp" -->
<%
dim uid ,upwd
uid=trim(Request.Form("txt_id"))
upwd=trim(Request.Form("txt_pwd"))
uid = Replace(uid, "'", "
conn.asp代码
<%
dim conn
dim connstr
on error resume next
connstr="PROVIDER=SQLOLEDB;DATA SOURCE=127.0.0.1;UID=shindo;PWD=***;DATABASE=teacher;"
set conn=server.createobject("ADODB.CONNECTION")
if err then
response.write "<script language=JavaScript>{window.alert('连接数据库出错！');window.location.href='index.htm';}</script>"
response.end
err.clear
else
conn.open connstr
end if
%>
check.asp代码
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="tcconn.asp" -->
<%
dim uid ,upwd
uid=trim(Request.Form("txt_id"))
upwd=trim(Request.Form("txt_pwd"))
uid = Replace(uid, "'", "
<!--#include file="tcconn.asp" -->
<%
dim uid
dim upwd
uid=replace(trim(request("txt_id")),"'","‘")
upwd=replace(trim(Request("txt_pwd")),"'","‘")
set rs=server.createobject("adodb.recordset")
sql="select * from admin where admin_name='"&uid&"' and admin_pwd='"&upwd&"'"
rs.open sql,conn,1,1
if not(rs.bof and rs.eof) then
if upwd=rs("admin_pwd") then
session("admin")=rs("admin_pwd")
Response.Redirect "进入的页面.asp"
else
call Error
end if
else
call Error()
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
<%sub Error()%>
<script language=vbscript>
alert ("帐号或密码出现错误!")
lo