后台登陆不进去

Question

前面的页面都能显示，就是登陆后，进入CheckLogin.asp页面就显示不了了，麻烦大家看看是怎么回事。急！！！！CheckLogin.asp<!--#include file="Conn.asp"-->
<%
Dim user,pass,Rsm
user=Trim(Request.Form("UserName"))
pass=Trim(Request.Form("PassWord"))
If user<>"" And pass<>"" Then
sql="Select ID,UserName,[PassWord],infotime From Admin Where UserName='"&user&"'"
Rs.open sql,conn,1,1
If Not Rs.Eof and not Rs.Bof then
If user=Rs(1) and pass=Rs(2) then
Response.Cookies("AdminID")=rs(0)
Response.Cookies("AdminName")=user
Response.Cookies("AdCodeID")=FormatID(Rs(3))
session("Login")="CZ"
Rs.Close
Call CloseConn()
Response.Redirect "user/"
Else
Response.Redirect "AdminLogin.asp?error=2" '密码错误
End If
Else
Response.Redirect "AdminLogin.asp?error=1" '用户名不存在
End If
Else
Response.Redirect "AdminLogin.asp?error=0" '用户名或密码为空
End IfFunction FormatID(t)
FormatID=Year(t)&"-"&Month(t)&Day(t)&"-"&Replace(Split(t," ")(1),":","")
End Function
%>

Answer 1

你应该发到WEB版面去。这里是VB

Answer 2

Response.Redirect "user/"
？？？