📄 index.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<% Response.ContentType="text/vnd.wap.wml" %><?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.asp"-->
<%
dim rscon,webname,duqi,weblogo,bbsname,t,l,a,b,c,d,e,x
set rscon=server.createobject("adodb.recordset")
rscon.open "select * from config where id=1",conn,1,1
webname=rscon("webname")
duqi=rscon("duqi")
weblogo=rscon("weblogo")
bbsname=rscon("bbsname")
l=rscon("lists")
x=rscon("xy")
rscon.close
set rscon=nothing
dim h,m,s
h=hour(now)&"" '读出小时
if len(h)=1 then h="0"&h
m=minute(now)&"" '读出分钟
if len(m)=1 then m="0"&m
s=second(now)&"" '读出秒钟
if len(s)=1 then s="0"&s
%><wml>
<head><meta http-equiv='Cache-Control' content='no-cache'/>
</head>
<card id='main' title='<%=webname%>'>
<p mode='nowrap' align='<%=duqi%>'><img
src='<%=weblogo%>' alt='load...'/><br/><br/>
欢迎光临<br/>
现在时间：<%=h%>:<%=m%>:<%=s%><br/>
<%
set rs = server.createobject("adodb.recordset")
sql="select id,class from artclass where classid=0 order by list"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write ""
else
a=1
do while not rs.eof
%><a href='artclass.asp?classid=<%=rs("id")%>'><%=rs("class")%></a><%if int(a/l)=(a/l) then
response.write "<br/>"
elseif a=rs.recordcount then
response.write "<br/>"
else response.write ""&x&""
end if%>
<%
a=a+1
rs.movenext
loop
end if
rs.close
%>---------------<br/>
<a href="gustbook">请你留言</a><%=x%>
<a href="seach.asp">搜索本站</a><br/>
<%=webname%> 版权所有<br/>
<%
set rs = server.createobject("adodb.recordset")
rs.open "update hit set hit=hit+1 where id=1",conn,1,3
rs.open "select hit from hit where id=1",conn,1,1
%>CopyRight 2005 2.30版<br/>
总访问人次：<%=rs("hit")%><br/>
<% rs.close %></p>
</card>
</wml>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -