我改了,还是没有用,窗体的大小没有变
<%
user = Request("username")
'Response.Write user
pass = request("password")
Set conn=Server.CreateObject("ADODB.Connection")
strConn = Application("conn_ConnectionString")
conn.open strConn
'set rs= Server.CreateObject("ADODB.RecordSet")
strSql = "select * from YH WHERE UserName='" & user & "' and PassWard='"&pass& "' and YHQX='管理员'"
Response.Write (strSql)
set rsUser = conn.Execute(strSql)
这样不是xx.htm和yy.htm都打开吗?
下面是我的源码:
<%
user = Request("username")
'Response.Write user
pass = request("password")
Set conn=Server.CreateObject("ADODB.Connection")
strConn = Application("conn_ConnectionString")
conn.open strConn
'set rs= Server.CreateObject("ADODB.RecordSet")
strSql = "select * from YH WHERE UserName='" & user & "' and PassWard='"&pass& "' and YHQX='管理员'"
Response.Write (strSql)
set rsUser = conn.Execute(strSql)
if rsUser.eof then
Response.Redirect "failure.htm"
else
Response.Redirect "../yhdl/yhgl.asp"
end if
rsUser.close
conn.Close ()