admin.asp

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

<!--#INCLUDE file="data.asp"-->
<%
  admin=Request("admin")
  id=Request("id")
  
Set conn=Server.CreateObject("ADODB.connection")
conn.Open Provider&DBPath
set rs=Server.CreateObject("ADODB.Recordset")
  sql="select * from admin where admin=" & sqlstr(admin)
  rs.open sql,conn
 Response.write "<card id='card1' title='"&uname&"'>"
 Response.write "<p align='"&p&"'>"
 if not rs.eof or admin="" then
  if admin="" then
 Response.Redirect "ad_login.asp"
 end if
 if admin<>"" then
 Response.write "你好!<a href='admin-edit.asp?admin=" & admin & "'>"&rs("name")&"</a><br/>"
 end if
 %>
<input name='user' value=''/>
<anchor>搜索用户<go href='scout.asp?admin=<%=admin%>' method='post'>
<postfield name='user' value='$(user)'/></go></anchor><br/>
 <%
  Set rt= Server.CreateObject("ADODB.Recordset")
sql="SELECT * From moneys where yess=1 Order By time"
rt.Open sql,conn,1,2
if Not rs.EOF Then
rs.MoveFirst
While Not rt.EOF
j=j+1
if rt("yess")=1 then
Response.Write ""&j&".<a href='admin_vice.asp?user="&rt("user")&"&amp;id="&rt("id")&"&amp;admin="&admin&"'>"&rt("user")&"的申请</a><br/>"
end if
rt.MoveNext
Wend
End if
 Response.write "<a href='admin_bulletin.asp?admin=" & admin & "'>发表公告</a><br/>"
 Response.write "<a href='admin_user.asp?admin=" & admin & "'>数据管理</a><br/>"
 Response.write "<a href='admin_adup.asp?admin=" & admin & "'>添加广告</a><br/>"
 Response.write "<a href='admin_edit.asp?admin=" & admin & "'>广告编辑</a><br/>"
 Response.write "<a href='admin_vices.asp?admin=" & admin & "'>汇款记录</a><br/>"
 Response.write "<a href='admin_p.asp?admin=" & admin & "'>加盟成员</a><br/>"
 Response.write "<a href='admin_set.asp?admin=" & admin & "'>站点管理</a><br/>"
 Response.write "<a href='data_delete.asp?admin=" & admin & "'>*数据清空*</a><br/>"
 Response.write "---------<br/>"
 Response.write url
 else
 Response.write "非法入侵!"
End if
set rs=nothing
conn.close
set conn=nothing
function sqlstr(data)
   sqlstr="'" & Replace(data,"'","") & "'"
  End function
%><br/>
<a href='../index.asp'>返回联盟首页</a>
</p></card></wml>