📄 showitem.asp
字号:
<!-- #include file="top.asp" -->
<!-- #include file="share.asp" -->
<%
dim bdid
bdid=request("bdid")
if bdid="" then
response.redirect "index.asp"
response.end
end if
%>
<HTML>
<HEAD>
<TITLE>3鸟设社[色彩连视版]媒体社区首页</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<link rel="stylesheet" href="BLUE.CSS" type="text/css">
<style type="text/css">
<!--
.hand { cursor: hand }
-->
</style>
</HEAD>
<body bgcolor=#ffffff leftmargin="0" topmargin="0">
<table width="755" height="614" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="20" height="10" bgcolor="#FFFFFF"></td>
<td width="719" height="10"></td>
<td width="21" height="10" bgcolor="#FFFFFF"></td>
</tr>
<tr>
<td width="25" height="587" background="images/bg.gif"></td>
<td width="719" height="587" valign="top">
<table width="716" border="0" cellspacing="0">
<tr>
<td><div align="center"><br>
<br>
<img src="images/rightstyle.gif"><a href="index.asp">返回首页 </a><img src="images/rightstyle.gif"><a href="userlist.asp">查看成员列表
</a>
<%
if not session("blueuid")="" then
%>
<img src="images/rightstyle.gif"><a href="editinfo.asp?uid=<%=session("blueuid")%>">修改个人资料
</a>
<%
end if %>
<img src="images/rightstyle.gif"><a href="javascript:history.back();">返回</a>
</div></td>
</tr>
<tr>
<td width="714">
<div align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="left" valign="top" width="717">
<%
dim bid
bid=request("bid")
if bid="" then
response.redirect "main.asp?bdid="&bdid
response.end
end if
dim rs
dim sql
sql="select * from book where bid="&bid
'opendb
set rs=server.createobject("adodb.recordset")
rs.open sql, conn, 1,3
if rs.eof then
response.redirect "error.asp?emsg=这篇文章不存在。"
response.end
else
vn=rs("vn")
rs("vn")=vn+1
rs.update
dim bbody
bid=rs("bid")
rt=rs("btitle")
bbody=rs("bbody")
'bbody=replace(bbody,""&chr(13),"<br>")
bbody=eml(bbody)
%>
<iframe border="0" frameborder="0" width="0" height="0" name="onlineframe" id="onlineframe" src="keep.asp?act=查看帖子〈<%=rs("btitle")%>〉" scrolling="false"></iframe>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr valign="middle" align="left">
<td width="30%"><img src="images/bbs_signal.gif" width="20" height="20" align="absmiddle">
<% if session("blueuid")="" then
response.write " 您没有<a href='index.asp'>登录</a>。"
else %>
欢迎您 <%=session("blueuid")%>!
<% end if %>
</td>
<td width="70%" align="right"><a href="post.asp?type=new&bdid=<%=bdid%>"><img src="images/bbs_post.gif" border="0" align="absmiddle"></a><a href="post.asp?type=re&bid=<%=request("bid")%>&rt=<%=rs("btitle")%>&bdid=<%=bdid%>"><img src="images/bbs_reply.gif" border="0" align="absmiddle"></a><a href="main.asp?bdid=<%=bdid%>"><img src="images/bbs_back.gif" border="0" align="absmiddle"></a>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0" name="messagetbx" class="repeatx_top" background="images/frame_bg_h.gif">
<tr align="left" valign="middle">
<td colspan="2" align="left"height="20"><img src="images/bbs_head_1st.gif" width="20" height="20" align="absmiddle"><%=rs("btitle")%></td>
<td width="200" height="20"><%=rs("btime")%></td>
<td width="88" height="20" align="right">
<% if session("bluelogin")="yes" then %>
<% if session("blueauthority")>=1 then %>
<a href="delitem.asp?bid=<%=request("bid")%>&bdid=<%=bdid%>" title="Delete This Item!">x</a>
<% end if %>
<% end if %>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr align="left" valign="middle">
<td width="84" align="center" valign="top"><img src="icons/<%=rs("icon")%>" width="6" height="28"><br>
<a href="showuser.asp?uid=<%=rs("uid")%>"><%=rs("uid")%></a><br>
<%
sql="select * from userinfo where uid='"&rs("uid")&"'"
set us=conn.execute(sql)
if us.eof then
response.redirect "error.asp?emsg=可能出现了严重的错误，请通知管理员!"
response.end
else
pos=us("pos")
sign=us("sign")
sn=us("sn")
end if
us.close
set us=nothing
%>
<%
if pos>=0 and pos<10 then
%>
<img src="images/bbs_head1.gif" width="20" height="20" align="absmiddle" alt="石头 [<%=sn%>/<%=pos%>/<%=10-pos%>]">
<%
elseif pos>=10 and pos<50 then
%>
<img src="images/bbs_head2.gif" width="20" height="20" align="absmiddle" alt="玻璃 [<%=sn%>/<%=pos%>/<%=50-pos%>]">
<%
elseif pos>=50 and pos<200 then
%>
<img src="images/bbs_head3.gif" width="20" height="20" align="absmiddle" alt="水晶 [<%=sn%>/<%=pos%>/<%=200-pos%>]">
<%
else
%>
<img src="images/bbs_head4.gif" width="20" height="20" align="absmiddle" alt="金刚石 [<%=sn%>/<%=pos%>/∞]">
<% end if %>
</td>
<td colspan="2" valign="top"><br> <%=bbody%><br>
<br>
<% if rs("addsign")=TRUE then %>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="60%"></td>
<td width="40%" align="left" valign="top"><br>
<br>
<img src="images/write.gif"><br> <%=sign%> </td>
</tr>
</table>
<% end if %>
</td>
<td width="93"> </td>
</tr>
</table>
<%
if rs("addreply")=TRUE then
showreply
end if
end if
rs.close
set rs=nothing
%>
<%
sub showreply '------show reply function
%>
<%
sql="select * from reply where bid="&bid&" order by rtime ASC"
set rrs=conn.execute(sql)
if rrs.eof then
response.redirect "error.asp?emsg=可能出现了严重的错误，请通知管理员!"
response.end
else
do while not rrs.eof
dim rbody
rbody=rrs("rbody")
'rbody=replace(rbody,""&chr(13),"<br>")
rbody=eml(rbody)
%>
<table width="100%" border="0" cellspacing="1" cellpadding="0" name="messagetb" class="repeatx_top" background="images/frame_bg_h.gif">
<tr align="left" valign="middle">
<td colspan="2" align="left" height="20"><img src="images/bbs_head_re.gif" width="20" height="20" align="absmiddle"><%=rrs("rtitle")%></td>
<td width="200" height="20"><%=rrs("rtime")%></td>
<td width="88" height="20" align="right">
<% if session("bluelogin")="yes" then %>
<% if session("blueauthority")>=1 then %>
<a href="delreply.asp?rid=<%=rrs("rid")%>&bdid=<%=bdid%>" title="Delete this reply!">x</a>
<% end if %>
<% end if %>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr align="left" valign="middle">
<td width="84" align="center" valign="top"><img src="icons/<%=rrs("icon")%>" width="8" height="28"><br>
<a href="showuser.asp?uid=<%=rrs("uid")%>"><%=rrs("uid")%></a><br>
<%
sql="select * from userinfo where uid='"&rrs("uid")&"'"
set us=conn.execute(sql)
if us.eof then
'response.redirect "error.asp?emsg=Data Error, Contact Administrator!"
'response.end
pos=0
sn=0
sign=""
else
pos=us("pos")
sn=us("sn")
sign=us("sign")
end if
us.close
set us=nothing
%>
<%
if pos>=0 and pos<10 then
%>
<img src="images/bbs_head1.gif" width="20" height="20" align="absmiddle" alt="石头 [<%=sn%>/<%=pos%>/<%=10-pos%>]">
<%
elseif pos>=10 and pos<50 then
%>
<img src="images/bbs_head2.gif" width="20" height="20" align="absmiddle" alt="玻璃 [<%=sn%>/<%=pos%>/<%=50-pos%>]">
<%
elseif pos>=50 and pos<200 then
%>
<img src="images/bbs_head3.gif" width="20" height="20" align="absmiddle" alt="水晶 [<%=sn%>/<%=pos%>/<%=200-pos%>]">
<%
else
%>
<img src="images/bbs_head4.gif" width="20" height="20" align="absmiddle" alt="金刚石 [<%=sn%>/<%=pos%>/∞]">
<% end if %>
</td>
<td colspan="2" valign="top" align="left"><br> <%=rbody%><br>
<br>
<% if rrs("addsign")=TRUE then %>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="60%"></td>
<td width="40%" align="left" valign="top"><br>
<br>
<img src="images/write.gif"><br> <%=sign%> </td>
</tr>
</table>
<% end if %>
</td>
<td width="88"> </td>
</tr>
</table>
<%
rrs.movenext
loop
end if
rrs.close
set rrs=nothing
end sub
%>
<%
'closedb
%>
<table border="0" cellpadding="0" cellspacing="0" width="100%" align="center">
<tr>
<td height="1" bgcolor="#888888"></td>
</tr>
<tr>
<td height="40" valign="top" align="right"><a href="post.asp?type=new&bdid=<%=bdid%>"><img src="images/bbs_post.gif" border="0" align="absmiddle"></a><a href="post.asp?type=re&bid=<%=bid%>&rt=<%=rt%>&bdid=<%=bdid%>"><img src="images/bbs_reply.gif" border="0" align="absmiddle"></a><a href="main.asp?bdid=<%=bdid%>"><img src="images/bbs_back.gif" border="0" align="absmiddle"></a></td>
</tr>
<tr>
<td align="center"> <font color="#330000">www.3niao.com[色彩连视].
<a href="#top">[<b>▲UP</b>]</a></font> </td>
</tr>
</table></td>
</tr>
</table>
</div></td>
</tr>
</table></td>
<td width="25" height="587" background="images/bg.gif"></td>
</tr>
<tr>
<td height="12" colspan="3"><div align="center">
<table width="760" border="0" align="center" cellspacing="0">
<tr>
<td height="35" colspan="2" background="images/footbg.gif"> <div align="center">3鸟设社[v1.2色彩连视]T恤论论坛
www.3niao.com</div></td>
</tr>
<tr>
<td width="392" background="http://www.3niao.com/v2/down1/images/footgb1.gif"> </td>
<td width="362"><div align="right"><img src="http://www.3niao.com/v2/down1/images/foot.jpg"></div></td>
</tr>
</table>
</div></td>
</tr>
</table>
</center>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -