viewly.asp

鄂尔多斯建站网全站程序(冬季修正版)

<!--#include file="config.asp"-->
<!--#include file="ubb.asp"-->
<!--#include file="pub.asp"--> 
<!--#include file="header.asp"-->
<%
GetCookie
id=Request("id")
main
bottom
function main
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From gb where id="&id&""
Rs.Open Sql,conn,1,1
IF Not Rs.Eof Then
if ubbcode="1" then
cont=ubb(cstr(rs("content")))
else
cont=rs("content")
end if

LyType=Rs("type")
LyType1=left(LyType,2)
LyType2=Right(LyType,2)

LyTitle="&nbsp;"&Rs("title")
if Session("PRO"&LogPWD&"ADMIN")<>True then
 if LyType2="se" then
  if UserName<>rs("name") or UserPwd<>rs("psw") then
  LyTitle="&nbsp;【悄悄话】"
  else
  LyTitle="&nbsp;【悄】"&Rs("title")
  end if
 end if
 if LyType1="wa" then
 LyTitle="【留言等待版主审核】"
 end if
end if

cont1=cont
IF Session("PRO"&LogPWD&"ADMIN")<>True Then
 if LyType2="se" and (UserName<>rs("name") or UserPwd<>rs("psw")) then
 cont1="<b>你无法看到此条留言内容，原因：</b><li>此留言是给版主的悄悄话"
 elseif LyType1="wa" then
 cont1="<b>你无法看到此条留言内容，原因：</b><li>此留言须等待版主的审核"
 elseif LyType="no" then
 cont1="<b>你无法看到此条留言内容，原因：</b><li>留言未能通过版主的审核"
 end if
ELSE
 if LyType2="se" then
 cont1="<font color=#ff6666>[* * * 悄悄话 * * *]</font><BR>"&cont
 elseif LyType1="wa" then
 cont1="<font color=#ff6666>[= = = 未审核 = = =]</font><BR>"&cont
 elseif LyType="no" then
 cont1="<font color=#ff6666>[**留言被禁止显示**]</font><BR>"&cont
 else
 cont1=cont
 end if
End if
%>
 <TABLE class=table_out id=AutoNumber4 borderColor=#9cacd0 height=20 cellSpacing=0 cellPadding=0 width=740 border=1><TBODY><TR><TD height=158>   <CENTER><TABLE id=showly borderColor=#9cacd0 height=64 cellSpacing=0 
      cellPadding=0 width=740 bgColor=#f5f7fb border=1>
        <TBODY>
        <TR>
          <TD background=images/Cent.gif bgColor=#f5f7fb colSpan=3 
          height=16></TD></TR>
        <TR>
          <TD width=135 background=images/d3.gif bgColor=#f5f7fb 
          height=22>
            <P align=center><FONT class=sd>【<%=Rs("name")%>】</FONT> </P></TD>
          <TD style="BORDER-RIGHT: medium none" width=474 
          background=images/d3.gif bgColor=#f5f7fb 
          height=16> <font color=#6C6C6C>
		  <%if rs("top")="9" then%><img src="images/top1.gif" alt="置顶"><%end if%>
		  <B><%=LyTitle%></B></font></TD>
          <TD style="BORDER-LEFT-STYLE: none" width=183 
          background=images/d3.gif bgColor=#f5f7fb 
          border-left-width:medium align=right>
		  <%IF Session("PRO"&LogPWD&"ADMIN")=True Then%>
		  <A href='edit.asp?edit=ture&id=<%=rs("id")%>'><IMG height=12 
            src="images/post.gif" width=12 border=0>管理</A> <A 
           href='index.asp?del=<%=Rs("id")%>' onclick="{if(confirm('留言删除后将无法再恢复，你真的要删除吗？')){return true;}return false;}"><IMG height=12 src="images/del.gif" border=0 width=12>删除</A><%End IF%>
			<%if rs("site")<>"" then%> <a href='<%=rs("site")%>' target="_blank"><img border=0 src="images/index.gif">主页</a><%end if%>
			<%if rs("mail")<>"" then%> <a href='mailto:<%=rs("mail")%>'><img border=0 src="images/post.gif">邮件</a><%end if%> </TD></TR>
        <TR>
          <TD vAlign=center width=135 bgColor=#f5f7fb height=1><BR>
            <P align=center><IMG src='images/face/<%=rs("head")%>.gif' border=0></P></TD>
          <TD onmouseover="javascript:this.bgColor='#ffffff'" 
          onmouseout="javascript:this.bgColor='#f5f7fb'" vAlign=top align=center
          bgColor=#f5f7fb colSpan=2 medium border-bottom-width: none>
         <br><p class=sd><table width='97%' style="table-layout:fixed;word-break:break-all"><tr><td style="table-layout:fixed;word-break:break-all">
<%=cont1%>
</td></tr></table><p align=right><br>
<%
if rs("reply")<>"" then
%>
<HR color=#9cacd0 noShade SIZE=0>
<%
if Session("PRO"&LogPWD&"ADMIN")<>True and LyType2="se" then
if UserName<>rs("name") or UserPwd<>rs("psw") then
%>
&nbsp;&nbsp;版主已回复，请<a href="user_login.asp?url=index.asp">登陆查看回复</a><br>
<%else%>
<FONT class=sd2><P align=left>&nbsp;&nbsp;[<b>版主回复</b>&nbsp;回复时间：<%=Rs("bj")%>]</FONT>
<center><table width='95%' style="table-layout:fixed;word-break:break-all"><tr><td style="table-layout:fixed;word-break:break-all">
 <font class=sd><%=ubb(Rs("reply"))%><br><br>
</td></tr></table></center>
<FONT class=sd2><P align=right>&nbsp;[-><a href="user_logout.asp" target="_top">知道了，我要退出</a><-]&nbsp;&nbsp;</FONT>
<%
end if
else%>
<FONT class=sd2><P align=left>&nbsp;&nbsp;[<b>版主回复</b>&nbsp;回复时间：<%=Rs("bj")%>]</FONT>
<center><table width='95%' style="table-layout:fixed;word-break:break-all"><tr><td style="table-layout:fixed;word-break:break-all">
 <font class=sd><%=ubb(Rs("reply"))%><br><br>
</td></tr></table></center>
<%
end if
end if%> 	
		</TD></TR>
        <TR>
          <TD width=135 background=images/d3.gif bgColor=#f5f7fb 
          height=19>
            <P align=center><a href="index.asp?snr=<%=Rs("name")%>&stype=name&search=ture"><img src="images/screch.gif" border=0 alt="查找<%=Rs("name")%>的所有留言"></a></P></TD>
          <TD style="BORDER-RIGHT: medium none" width=350 
          background=images/d3.gif bgColor=#f5f7fb 
          height=16><FONT class=sd><IMG height=15 
            src="images/004.gif" width=30 alt="来自：<%
			IF rs("from")<>"" Then %><%=rs("from")%>
		<% else %>不告诉你<%end if%>"><IMG height=15 
            src="images/ip.gif" width=30 alt="IP：<%
			IF Session("PRO"&LogPWD&"ADMIN")=True Then %><%=rs("ip")%>
		<% else %>已记录<%end if%>"><IMG height=15 
            src="images/qq.gif" width=30 alt="<%
			IF rs("oicq")<>"" Then %>QQ号:<%=rs("oicq")%>
		<% else %>没留QQ号<%end if%>"></td><TD style="BORDER-LEFT-STYLE: none" width=257 
          background=images/d3.gif bgColor=#f5f7fb 
          border-left-width:medium align=left>&nbsp;留言时间：<%=rs("date")%></FONT></TD></TR>
        <TR>
          <TD background=images/Cent.gif bgColor=#f5f7fb colSpan=3 
          height=8> </TD></TR></TBODY></TABLE><br>
<%
else
response.write "<font color=#FF9966>错误：没有找到任何记录</font><br><br>"
End IF
Rs.Close
Set Rs=Nothing
%>
      <DIV align=center>
      <CENTER>
      <TABLE id=cpr 
      style="BORDER-TOP-WIDTH: 0px; BORDER-COLLAPSE: collapse" 
      borderColor=#9cacd0 height=33 cellSpacing=0 cellPadding=0 width=740 
      border=1>
        <TBODY>
        <TR>
          <TD style="BORDER-TOP: medium none" 
          background=images/Cent.gif bgColor=#f5f7fb height=32>
            <P align=center class=sd><a href="javascript:history.go(-1)">返回上页</a></TD></TR></TBODY></TABLE></CENTER></DIV></CENTER></TD></TR></TBODY></TABLE></CENTER></DIV>
<DIV align=center>
<CENTER>　
<%end function%>