scout.asp

wap源码要的速度下wap源码要的速度下

<!--#INCLUDE file="data.asp"-->
<%
  admin=Request("admin")
  user=Request("user")
  
  if user="" then
     Response.write "<card id='card1' title='不成功'><p>"
     response.write "不能为空!"
     response.write "<br/><a href='admin_ids.asp?admin="&admin&"'>返回重写</a></p></card></wml>"
     response.end
end if

set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from users where user like '" & user & "' order by id desc"
  rs.open sql,conn,1,2
  if not rs.eof then
Response.write "<card id='card1' title='正在搜索' ontimer='user.asp?id="&rs("id")&"&amp;admin="&admin&"'><timer value='20'/><p>系统正在搜索"&user&"!"
	 response.write "<br/><a href='user.asp?id="&rs("id")&"&amp;admin="&admin&"'>进入系统</a></p></card></wml>"
	      response.end
	 else
 Response.write "<card id='card1' title='没有记录' ontimer='admin.asp?admin="&admin&"'><timer value='20'/><p>没有此用户,正在返还!"
	 response.write "<br/><a href='admin.asp?admin="&admin&"'>进入系统</a></p></card></wml>"
	 end if
set rs=nothing
conn.close
set conn=nothing
	%>