📄 showb.asp

📁 这是一个非常好的留言版程序
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="include/function.asp"-->
<!--#include file="include/setup.asp"-->
<%
dim ID,Title,FromURL,Zhais,Reads,PostTime,Sort,Intro
dim row

ID=Cint(Trim(Request.QueryString("ID")))
set rs=conn.execute("select Title,UserID,FromURL,format$(PostTime,'yyyy-mm-dd') as PostTime,Sort,SortName,Intro,Rank from zhai a, sort b where a.Sort=b.SortID and ID="&ID)
Title=rs("Title")
UserID=rs("UserID")
FromURL=rs("FromURL")
PostTime=rs("PostTime")
Sort=rs("Sort")
SortName=rs("SortName")
'Intro=Replace(rs("Intro"),vbCRLf,"\r\n")
Rank=rs("Rank")
rs.close

set rs=conn.execute("select count(*) as Zhais,sum(Reads) as Reads from zhai where FromURL='"&FromURL&"'")
Zhais=rs("Zhais")
Reads=rs("Reads")
rs.close
%>
<html>
<head>
<title></title>
<meta http-equiv=Content-Type content="text/html; charset=gb2312">
<style type=text/css>
td {
	font-size: 12px
}
.td-center {
	border-right: #c8c8c8 1px solid; font-size: 12px; border-left: #ffffff 1px solid; color: #454545; line-height: 15px; text-decoration: none
}
.td-left {
	border-right: #c8c8c8 1px solid; font-size: 12px; color: #454545; line-height: 15px; text-decoration: none
}
.td-right {
	border-left: #ffffff 1px solid
}
.f12 {
	font-size: 12px; color: #000000; line-height: 16px; text-decoration: none
}
.f12 a:link {
	font-size: 12px; color: #2a2a2a; line-height: 17px; text-decoration: underline
}
.f12 a:visited {
	font-size: 12px; color: #2a2a2a; line-height: 17px; text-decoration: underline
}
.f12 a:hover {
	font-size: 12px; color: #ff3300; line-height: 17px; text-decoration: underline
}
.f12 a:active {
	font-size: 12px; color: #ff3300; line-height: 17px; text-decoration: underline
}
.rank {
	color: #FF9900;
	}
-->
</style>
<script language="JavaScript">
function changeWin()
{
	var menuSwitch = document.getElementById("menuSwitch");
	if(parent.forum.rows != "*,0")
	{	
		parent.forum.rows = "*,0";
	}
}
function winOpen()
{
  var title='<%=Title%>';
  var url='<%=FromURL%>';
  var sel='<%=Intro%>';
  window.open('bookmark.asp#t='+escape(title)+'&u='+escape(url)+'&c='+escape(sel),'_blank','scrollbars=no,width=480,height=420,left=75,top=50,status=no,resizable=yes');	
}
</script>
</head>

<body leftMargin="0" topMargin="0" marginwidth="0">
<table height="3" cellSpacing="0" cellPadding="0" width="100%" border="0">
  <tr>
    <td bgcolor="#bbbbbb" height="1"></td></tr>
  <tr>
    <td width="75%" bgcolor="#f9f9f9" height="2"></td></tr></table>
<table height="60" cellSpacing="0" cellPadding="0" width="100%" bgcolor="#ebebeb" border="0">
  <TR bgcolor="#ebebeb">
    <td colSpan="4" height="1"></td></tr>
  <tr>
    <td class="td-left" style="padding-top: 5px" valign="top" align="center" width="17%">
	<img border="0" src="<%=weblogo%>" width="169" height="60"></td>
    <td class=td-center style="padding-left: 5px" width="27%">
      <table cellSpacing="0" cellPadding="0" width="100%" border="0" height="50">
        <tr>
          <td class="f12" nowrap height="1"8>所属分类:<a 
            href="<%=SiteURL%>/itemzhai.asp?sort=<%=Sort%>" 
            target="_blank"><%=SortName%></a></td>
          <td class="f12" nowrap>点击次数:<%=Reads%></td>
        </tr>
        <tr>
          <td height="1"8>收藏时间:<%=PostTime%></td>
          <td class="f12">
		  <span class="rank">
		  <%
			for j=1 to Rank				
				Response.Write("★")
			next
			for j=Rank+1 to 5
				Response.Write("☆")
			next
		  %></span></td>
        </tr>
        </table></td>
    <td class=td-center style="padding-left: 5px"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td class="f12"><%=UserID%> 的最新2条收藏:</td>
      </tr>
	  <%
		row=0
		set rszhai=conn.execute("select top 2 ID,IIf(Len(Title)<21,Title,Left(Title,21)+'...') as Title,FromURL from zhai where UserID='"&UserID&"' order by ID desc")
		do while Not rszhai.Eof
			Response.Write("<tr>")
			Response.Write("<td class='f12'><a href='goto.asp?id="&rszhai("ID")&"' target='_blank'>"&HTMLEncode(rszhai("Title"))&"</a> <a href="&rszhai("FromURL")&" target='_blank'><img src='images/icon-link.gif' width='13' height='11' border='0' alt='网摘链接'></a></td>")
			rszhai.movenext
			row=row+1
			Response.Write("</tr>")
		loop
		rszhai.close
		if row<2 then
			for i=1 to 2-row
				Response.Write("<tr>")
				Response.Write("<td class='f12'>&nbsp;</td>")
				Response.Write("</tr>")
			next
		end if
	   %>	  
    </table>
    </td>
    <td class="td-right" valign="top" width="16%">
      <table cellSpacing="0" cellPadding="0" width="100%" border="0">
        <tr>
          <td valign="bottom" align="middle" width=32><img src="images/icon_mail.gif" width="13" height="11"></td>
          <td valign="bottom" class="f12">
		    我也收藏该页</td>
        </tr>
        <tr>
          <td valign="bottom" align="middle" width=32><img src="images/icon_mail.gif" width="13" height="11"></td>
          <td valign="bottom" class="f12">
		  <a href="mailto:it007@ezhai.net">不良信息检举</a></td>
        </tr></table>
      <table cellSpacing="0" cellPadding="0" width="100%" border="0">
        <tr>
          <td valign="bottom" align="middle" width=32>　</td>
          <td class="f12" valign="bottom" width=91>　</td>
        <td class="f12" valign="bottom" align="right" width="62">
		[<a href="javascript:changeWin()">隐藏</a>]</td></tr></table></td></tr>
  </table>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -