/webadmin/admin_body.asp代码页
<!DOCTYPE html PUBLIC "-//WAPFORUM//DTD XHTML Mobile 1.0//EN" "http://www.wapforum.org/DTD/xhtml-mobile10.dtd">
<html>
<!--#include file="conn.inc"--><%
'====================================================================
' 请你保留这段说明，这并不会影响你的速度.   电脑交流:http://www.cnscu.cn
' 程序制作：横云			  掌上校园收倾心整理收集于互联网,感谢你的支持!
' 升级时间： 2008-2-5  		主页地址：HTTP://wap.cnscu.cn
' E-Mail: cnscu@126.com   	客服QQ:554904632 QQ群:30493504 QQ群2:46659883
'====================================================================
%> <%set rss=Server.CreateObject("ADODB.Recordset")
rsppls="select * from wap_jb where id=1"
rss.open rsppls,conn,1,2
nnn=rss("wap_name")
wwww=rss("wap_logo")
ggg=rss("wap_bm")
hhjr=rss("wap_jr")
hhzr=rss("wap_zr")
hhzl=rss("wap_zl")
hhdq=rss("wap_dq")
zzzttt=rss("wap_zt")
oooppp=rss("mmop")
aaadd=rss("wap_bm")
if aaadd="" then aaadd="left"
yyymmm=rss("ym_zt")
%>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
</head>
&#x9996;&#x9875;&#x6548;&#x679C;&#x5982;&#x4E0B;&#xFF0C;&#x6240;&#x6709;&#x8FDE;&#x63A5;&#x90FD;&#x662F;&#x65E0;&#x6548;&#x7684;&#xFF0C;&#x53EA;&#x505A;&#x4E3A;&#x9884;&#x89C8;&#x4F7F;&#x7528;<br>-------------
<body><body bgcolor="#fcefff"><p>
<b><%=nnn%></b>
<tr align="<%=aaadd%>">
<td><br>
<%set rs=Server.CreateObject("ADODB.Recordset")
rsppl="select * from wap_lm where lx<>500 and yc<>1 and did=0 order by pid asc"
rs.open rsppl,conn,1,2
if rs.eof then 
response.write("��վ�����С���<br>")
else
rs.Move(0)
dim j
j=1
do while ((not rs.EOF) and j <=500000)%>
<%if rs("lx")="1" then%>
<%=ubb(rs("txt"))%>
<%elseif rs("lx")="2" then%>
<a href="<%=ubb(rs("txt"))%>"><%=ubb(rs("nxn"))%></a>
<%elseif rs("lx")="3" then%>
<img rsc="<%=ubb(rs("txt"))%>" alt="<%=ubb(rs("nxn"))%>"/>
<%elseif rs("lx")="4" then%>
<a href="<%=ubb(rs("url"))%>"><img rsc="<%=ubb(rs("txt"))%>" alt="<%=ubb(rs("nxn"))%>"/></a>
<%elseif rs("lx")="5" then%>
<a href="list.asp?id=<%=ubb(rs("id"))%>"><%=ubb(rs("nxn"))%></a>
<%elseif rs("lx")="6" then%>
<a href="view.asp?id=<%=ubb(rs("id"))%>"><%=ubb(rs("nxn"))%></a>
<%elseif rs("lx")="7" then%>
<a href="wml.asp?id=<%=rs("id")%>"><%=ubb(rs("nxn"))%></a>
<%elseif rs("lx")="8" then%>
<%=ubb2(rs("txt"))%>
<%elseif rs("lx")="9" then%>
<%=rs("txt")%>
<%elseif rs("lx")="10" then%>
<a href="wlist.asp?id=<%=ubb(rs("id"))%>&amp;page=1"><%=ubb(rs("nxn"))%></a>
<%elseif rs("lx")="11" then%>
<a href="dowm.asp?id=<%=ubb(rs("id"))%>&amp;page=1"><%=ubb(rs("nxn"))%></a>
<%elseif rs("lx")="12" then%>
<a href="soft.asp?id=<%=ubb(rs("id"))%>&amp;page=1"><%=ubb(rs("nxn"))%></a>
<%end if%>
<%if rs("brr")="1" then%><br><%end if%>
<%
rs.MoveNext
j=j+1
loop
end if
%>
</td></tr>
  <tr align="center"> 
    <td><font color="#000000" face="����" size="4"><strong>掌上校园整理</strong></font></td>
  </tr>
<br/>
<div>
  <tr align="center"> 
    <td><font color="#000000" face="����" size="4"><strong>欢迎使用[cnscu.cn]<br/>Copyright 2008</strong></font></td>
  </tr>
</div>
</table>
</body>
</html>
相关源码
字母检索
回到顶部