📄 ltlt.asp

📁 wap系统程序源码用户名密码:admin

💻 ASP

字号:

<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%>
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml"> 
<!--#include file="conn.inc"-->
<!--#include file="66hcsb.asp"-->
<wml>
<head><meta http-equiv='Cache-Control' content='no-cache'/>
</head>
<card title="<%=ltname%>">
<p>
<%
bb=request("bb")
if bb="" then bb="1"
if bb="1" then fl="rc"
if bb="2" then fl="tm"
if bb<>"1" or bb<>"2" then bb="1"
%>
<%if glsb="youke" or glsb="" then%>
<a href="/sc/66hc_grdl.asp">登陆/注册</a><br/>
<%end if%>
<%
if len(ltlogo)>7 then
response.write("<img src='" & ltlogo & "' alt='手机购物，买我喜欢'/><br/>")
end if
%>
<%set brsg=Server.CreateObject("ADODB.Recordset")
     ssqlg="select top 1 * from 66hc_gg order by tm desc"
  brsg.open ssqlg,conn,1,1
    Response.write "广播："
if brsg.eof then
   Response.write "暂无公告<br/>"
Else

For i=1 to 5
    spmc=left(brsg("name"),8)
   if len(brsg("name"))>8 then
    spmc=spmc+"。。"
   End if
    Response.write "<a href='/sc/gg_view.asp?id=" & brsg("id") & "&amp;glsb="&glsb&"'>" & ubb(spmc) & "</a><br/>"
    brsg.Movenext
  if brsg.EOF then Exit for
    Next
  End if
brsg.close
set brsg=nothing
%>
<%if glsb<>"youke" and glsb<>"" then%>
<!--#include file="xxts.asp"-->
欢迎您：<b><%=myni%></b><br/>
<a href="xx_list.asp?glsb=<%=glsb%>">消息列表</a>*<a href="tb_hylb.asp?glsb=<%=glsb%>">好友列表</a><br/>
<%end if%>
<%
set rsqllt=Server.CreateObject("ADODB.Recordset")
rssptlt="select * from ltlb order by pid asc"
rsqllt.open rssptlt,conn,1,2
if rsqllt.eof then 
response.write("暂无聊天室，请登陆后台添加")
   else
rsqllt.Move(0)
dim l
l=1
do while ((not rsqllt.EOF) and l <=5000)
%>
<a href='lt_list.asp?ltid=<%=rsqllt("id")%>&amp;glsb=<%=glsb%>'><%=ubb(rsqllt("name"))%></a>
<%if rsqllt("brr")=1 then%><br/><%end if%>
<%
rsqllt.MoveNext
l=l+1
loop
end if
rsqllt.close
set rsqllt=nothing
%>
<img src='/sc/img/ltfjx.gif' alt='************'/><br/>
<!--#include file="w.asp"-->
</p>
</card>
</wml>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -