allinhands在上个帖子中说
引用:
response.write "<script language=javascript>"
response.write "alert('您已经成功退出管理系统,谢谢您的使用!');"
response.write "window.location=index.asp"
response.write "</script>"
谢谢你了。我是用这段代码实现用户正确登陆后跳转的代码如下
<%
'dim UsernameGet,PasswordGet
dim rs
username=trim(Request.Form("username"))
userpassword=trim(Request.Form("userpassword"))
set rs= Server.CreateObject("ADODB.Recordset")
rs.Source="select * from qyml where User='" & username & "' and Pass='" & userpassword & "'"
rs.open rs.Source,conn,1,1
if not rs.EOF then
session("Username")=username
session("Password")=userpassword
response.write "<script language=javascript>"
response.write "alert('您已经成功,谢谢您的使用!');"
response.write "'window.location=inffb.asp'"
response.write "</script>"
'Response.Redirect "inffb.asp"
else
%>
<script language=javascript>
history.back()
alert("请核对您的用户名和密码!")
</script>
<%
Response.End
end if
%>
但是现在仍然出现错误inffb未定义
截图如下:
图片如下: