<% Set rs2= Server.CreateObject("ADODB.Recordset")
sql="select count(*)as geshu from xx where m_na=0 and day(m_date)=day(now()) "
rs2.open sql,conn,1,1
%>
<% gly=Trim(Request("gly"))
mm=Trim(Request("mm"))
mtype=Trim(Request("mtype"))
%>
<% If gly="" or mm="" Then %>
<% Response.Write"alert('对不起,用户名或密码不能为空,请重新登录!');location.href='login.asp'" %>
<% Else %>
<% Set rsm= Server.CreateObject("ADODB.Recordset")
sql="select * from admin where adminxm='"&gly&"' and adminmm='"&mm&"'"
rsm.open sql,conn,1,1
If not rsm.eof and mtype=1 and rsm("mtype")=1 Then
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from xx where m_na=0 order by m_kdgs "
rs.open sql,conn,1,1
%>
我的qq、290573077,希望会这个的大哥大姐教教我