📄 welcome.asp
字号:
<%DbPath = SERVER.MapPath("db1.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
set rs=server.createobject("adodb.recordset")
set rs1=server.createobject("adodb.recordset")
sqltext="select newregtime,articlenum,logonnum,lives from user_info where username='"&session("username")&"' "
rs.open sqltext,conn
set rs2=server.createobject("ADODB.RecordSet")
sql1="select top 20 m.id,m.guestname,m.title,m.whattime,m.textsize,m.clicknum,m.renum,m.feeling,m.boardid,b.boardname from mainboard m,board_info b where m.fatherid=0 and m.boardid=b.boardid order by m.clicknum desc"
rs2.open sql1,conn
sql="select geter from mails where geter='"&session("username")&"' and check=0"
rs1.open sql,conn
if rs.bof and rs.eof then
response.write "Can't find you!"
response.end
end if
%>
<!-- and datediff('d',datevalue(m.whattime),now)<7-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<style type="text/css">
<!--
p,a,td{font-size:14px;font-family:宋体,sans-serif;line-height:1.4}
.12{font-size:14px;font-family:宋体,sans-serif}
A:link {text-decoration: none}
A:visited {text-decoration: none}
A:active { text-decoration: underline}
A:hover {text-decoration: underline}
-->
</style>
<title>你好</title>
</head>
<body bgcolor="#FFEBBD">
<p>您好！<font color="#FF0000"><strong><%=session("username")%></strong></font> <%if rs1.bof and rs1.eof then
response.write "您没有新邮件"
else
response.write "<a href='inbox.asp?geter="&session("username")&"'><img border='0' src='browimage/txt-new2.gif' width='85' height='28'></a>"
end if%></p>
<p>登录时间是：<font color="#FF8080"><%=rs("newregtime")%></font>，发表了<font color="#FF0000"><%=rs("articlenum")%></font>篇文章，登录了<font color="#FF0000"><%=rs("logonnum")%></font>次，您的积分为：<strong><font color="#0000FF"><%=rs("lives")%></font></strong>
</p>
<p>最近热门文章：</p>
<table border="1" width="100%" cellspacing="0" bordercolorlight="#000000" bordercolordark="#FFFFFF" bgcolor="#FFEBA5">
<tr bgcolor="#FEDFA7">
<td width="10%">
<div align="center">版 面</div>
</td>
<td width="48%">
<div align="left">主题</div>
</td>
<td width="7%">
<div align="center">发言时间</div>
</td>
<td width="5%">
<div align="center">回复</div>
</td>
<td width="25%">
<div align="center">发言内容</div>
</td>
<td width="5%">
<div align="center">人气</div>
</td>
</tr>
<%
if rs2.eof and rs2.bof then
response.write "<tr><td colspan='6'>没有新文章</td></tr>"
response.end
end if
for j=1 to 20
if len(trim(rs2("title")))>16 then
title=left(rs2("title"),16)&"..."
else
title=rs2("title")
end if
%>
<tr bgcolor="#FFEAA2">
<td width="10%">
<div align="center"><%=rs2("boardname")%></div>
</td>
<td width="48%">
<div align="left"><img src="browimage\<%=trim(rs2("feeling"))%>.gif"><a href="comment.asp?id=<%=rs2("id")%>&boardname=<%=rs2("boardname")%>"><%=title%></a>(<%=rs2("textsize")%>)<a href="userdet.asp?username=<%=rs2("guestname")%>"></a></div>
</td>
<td width="7%">
<div align="center"><a href="userdet.asp?username=<%=rs2("guestname")%><font color=" #000000"><%=rs2("guestname")%></font></a></div>
</td>
<td width="5%">
<div align="center"><font color="#3300CC"><%=rs2("renum")%></font></div>
</td>
<td width="25%">
<div align="center"><font color="#FF6666"><%=rs2("whattime")%></font></div>
</td>
<td width="5%">
<div align="center"><font color="#0000CC"><%=rs2("clicknum")%></font></div>
</td>
</tr>
<% Rs2.MoveNext
if rs2.eof then
exit for
end if
next
rs2.close
set rs2=nothing
%>
</table>
<%
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -