📄 index.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="ydzq1.asp"-->
<%set zhlhp=Server.CreateObject("ADODB.Recordset")
zhhssqllp="select * from ltjb where id=1"
zhlhp.open zhhssqllp,conn,1,1
ltname=zhlhp("name")
sqbm=zhlhp("sqbm")
ltlogo=zhlhp("logo")
zhlhp.close
set zhlhp=nothing
%>
<wml>
<head><meta http-equiv='Cache-Control' content='no-cache'/>
</head>
<card title="<%=ltname%>">
<p align="<%=sqbm%>">
<%
if len(ltlogo)>7 then
response.write("<img src='" & ltlogo & "' alt='社区logo'/><br/>")
end if
%>
<%if myid<>0 then%>
<!--#include file="xxts.asp"-->
欢迎您：<a href="hy.asp?id=<%=myid%>&hk=<%=hk%>"><%=myni%></a><br/>
<%else
response.write"您尚未<a href='login.asp?url="&Replace(Replace(R_url(),"hk=","o="),"hk=","o=")&"'>登陆/注册</a><br/>"
end if%>
<!--#include file="gon.asp"-->
<%dim Soduser
set rs=server.CreateObject("ADODB.RecordSet")
rs.Open "select ID from Users where tjj >= DateAdd('n', -60, Now()) ",conn,1,1
Soduser = rs.RecordCount
rs.close
set rs=nothing
Response.write "现在有<a href='onile.asp?bbsid="&bbsid&"&hk="&hk&"&act=all'>"&Soduser&"</a>人在线<br/>"
%>
<a href="e_list.asp?hk=<%=hk%>">精华</a>
<a href="e_list.asp?tpye=1&hk=<%=hk%>">新贴</a>
<a href="e_list.asp?tpye=2&hk=<%=hk%>">热门</a><br/>
==最新动态==<br/>
<%set brs=Server.CreateObject("ADODB.Recordset")
ssql="select * from bbstz where yc=0 and bbsid<>0 and bbsid<>9999 order by tm desc"
brs.open ssql,conn,1,1
if brs.eof then
Response.write "暂无贴子<br/>"
Else
For i=1 to 5
spmc=left(brs("name"),15)
if len(brs("name"))>15 then
spmc=spmc+".."
End if
Response.write "<a href='bbs_view.asp?tid=" & brs("id") & "&hk="&hk&"'>" & ubb(spmc) & "</a><br/>"
brs.Movenext
if brs.EOF then Exit for
Next
End if
brs.close
set brs=nothing
set rsql=Server.CreateObject("ADODB.Recordset")
rsspt="select * from ydbbs where yc=0 AND did=0 order by pid asc"
rsql.open rsspt,conn,1,2
if rsql.eof then
response.write("暂无版面<br/>")
else
rsql.Move(0)
dim j
j=1
do while ((not rsql.EOF) and j <=500000)
%>
<%if rsql("lx")="1" then%>
<a href='bbs_list.asp?bbsid=<%=rsql("id")%>&hk=<%=hk%>'><%=ubb(rsql("name"))%></a>
<%elseif rsql("lx")="2" then%>
<a href='<%=ubb(rsql("test"))%>&hk=<%=hk%>'><%=ubb(rsql("name"))%></a>
<%elseif rsql("lx")="0" then%>
<%=ubb2(rsql("test"))%>
<%end if%>
<%if rsql("brr")=1 then%><br/><%end if%>
<%
rsql.MoveNext
j=j+1
loop
end if
rsql.close
set rsql=nothing
%>
<input name="title" type="text" size="8"/>
<anchor>搜索贴子
<go href="sou.asp?pp=2&hk=<%=hk%>&bbsid=<%=bbsid%>" method='post'>
<postfield name="title" value="$(title)"/>
</go></anchor>
<br/>---------<br/>
<a href="xx_list.asp?hk=<%=hk%>">我的信箱</a>|<a href="feel.asp?hk=<%=hk%>">个性设置</a><br/>
<a href="hyall.asp?hk=<%=hk%>">所有会员</a>|<a href="face.asp?id=<%=myid%>&hk=<%=hk%>">我的资料</a><br/>
<a href="sou.asp?hk=<%=hk%>">论坛搜索</a>|<a href="login.asp">重新登陆</a><br/>
<a href="hy.asp?hk=<%=hk%>">地盘</a>><a href="/index.asp?hk=<%=hk%>">返回首页</a><br/>
<%=Month(Now)&"月"&Day(Now)&"日("&right(WeekDayName(DatePart("w",Now)),1)&")"&FormatDateTime(Now,vbshortTime)%>
<%
conn.close
set conn=nothing%>
</p>
</card>
</wml>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -