share_view.asp

类似于baidu的百度知道

<%rs2.movenext
	  wend
	  end if
	  rs2.close%>
</td>
</tr></table>
</td>
	</tr>
</table>
<br></td>
	</tr>
</table>
		</td>
	</tr>
</table>
<br>

</td>
		<td width="8" valign="top"></td>
		<td valign="top"><table border="0" width="100%" cellspacing="0" cellpadding="0" class="t1">
	<tr>
		<td>
<table border="0" width="100%" cellspacing="0" cellpadding="0" height="100%">
	<tr>
		<td height="36" align="center" onmouseover="this.className='tbb'" onmouseout="this.className='taa'" class="taa"><strong><%=rs("ftitle")%></strong></td>
	</tr>
	<tr>
		<td align=center><br>
<table border="0" width="98%" cellspacing="0" cellpadding="0">
	<tr>
<td>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr><td>
<%
if rs("lei")="doc" then
geshi="<img border=0 src=img/doc_icon.gif> [Word]"
elseif rs("lei")="xls" then
geshi="<img border=0 src=img/excel_icon.gif> [Excel]"
elseif rs("lei")="txt" then
geshi="<img border=0 src=img/txt_icon.gif> [Txt]"
elseif rs("lei")="zip" then
geshi="<img border=0 src=img/zip_icon.gif> [Zip]"
elseif rs("lei")="rar" then
geshi="<img border=0 src=img/rar_icon.gif> [Rar]"
end if
%>
	<table width="100%" border="0" cellspacing="0" cellpadding="0" class=zhtable>
              <tr>
                <td height="24" class="t11"><span>&nbsp; 文件格式：<%=geshi%></span> - <span>文件大小：<%=rs("b")%>字节</span> - <span100%>下载所须积分：<%=rs("fen")%>分</span> - <span>下载次数：<%=rs("xia")%></span></td>                                                                                                                                                                                                     
              </tr>
              <tr> 
                <td><br><%=ubb(rs("text"))%><br><img border="0" src="img/download_icon.gif"><a href="Sub_Down.asp?id=<%=id%>" target="_blank">点这里可以下载与之相关文件</a></td>             
              </tr>
              <td align="right" class="t11" height="24">发布者：<a href=Show_User.asp?name=<%=rs("upuser")%> target=_blank><%=rs("upuser")%></a> - <a href="Help.asp#n5" target=_blank><%=touxian%></a> - <span>上传时间：<%=rs("uptime")%>
              <tr> 
                <td></td>             
              </tr>
              <tr> 
                <td><br><b>下载声明：</b><br>· 本服务的所有资料文件是其作者提供和网友推荐收集整理的，如有侵犯版权敬请指出。<br>· 所有资料文件的准确性、安全性和完整性未经验证，<font color="#FF0000">"<%=webname%>"</font>不承担用户因使用这些下载内容而造成的任何形式的损失或伤害。</td>                        
              </tr>
<tr><td></td> </tr></table>
</td>
</tr>
</table>
<%   
  if request("submitping")="提交评论" then
	  if session("person")="" then
	  response.redirect "Login.asp"
	  end if
	  if session("person")=rs("upuser") then
	  response.write"<script>alert('您不能对自己的答案进行评价!');history.back();</script>"
	  end if
	  if request("co")="" then
	  response.write"<script>alert('评论内容不能为空!');history.back();</script>"
	  else
	  ping=request("co")
	  rs3.open"select * from sharep where upid="&id&" and pinguser='"&session("person")&"'",conn,1,1
	  if not rs3.eof then
	  response.write"<script>alert('您已经发表过评论!');history.back();</script>"
	  rs3.close
	  else
	  rs3.close
	  rs3.open"select * from Sharep",conn,1,3
	  rs3.addnew
	  rs3("pinguser")=session("person")
	  rs3("ping")=ping
	  rs3("upid")=id
	  rs3("pingtime")=now
	  rs3.update
	  rs3.close
	  response.write"<script>alert('评论发表成功!');window.navigate('Share_View.asp?id="&id&"');</script>"	  
	  end if
	  end if
	  end if
%>
  <%                      
  rs1.open"select * from sharep where upid="&rs("id")&" order by pingtime desc",conn,1,1
  if not rs1.eof then
  %>
      <table width="100%" border="0" cellpadding="0" cellspacing="0"  class=zhtable>
        <tr> 
          <td height="24" class="t11"> &nbsp; 对此资料的评论</td>
        </tr>
		<tr><td>
		<%
		  rs1.pagesize=10
		maxnum=rs1.recordcount
		maxpage=rs1.pagecount
		if request("p")="" then
		p=1
		else
		p=cint(request("p"))
		end if
		if p>maxpage then
		p=maxpage
		end if
		if p=0 then
		p=1
		end if
		if p<>1 then
		rs.move (p-1)*rs.pagesize
		end if
		for i=1 to rs1.pagesize
		 rs3.open"select * from person where name='"&rs1("pinguser")&"'",conn,1,1
	touxianp=rs3("touxian")
	rs3.close
		%>
<div100%><%=ubb(rs1("ping"))%></div>
<div align="right"><span>评论者：</span>	<a href=Show_User.asp?name=<%=rs1("pinguser")%> target=_blank><%=rs1("pinguser")%></a> - <a href="Help.asp#n5" target=_blank><%=touxianp%></a> - <%=rs1("pingtime")%> </div>                                            
<div style="padding-top:5px;padding-bottom:5px;"><hr size="1" class="hr1"></div>
<%rs1.movenext
		if rs1.eof then exit for
		next%>
<div align=center>评论数:<font color=red><%=maxnum%></font> | 每页数:<font color=green><%=rs1.pagesize%></font> | 总页数:<font color=green><%=maxpage%></font> | 当前页:<font color=red><%=p%></font>                                                                                                                                                                                                       
		  <a href=List_Share.asp?id=<%=id%>&p=1>首页</a>                                                                                                                                                                                                        
		  <a href=List_Share.asp?id=<%=id%>&p=<%=p-1%>>上页</a>                                                                                                                                                                                                        
		  <a href=List_Share.asp?id=<%=id%>&p=<%=p+1%>>下页</a>                                                                                                                                                                                                        
		  <a href=List_Share.asp?id=<%=id%>&p=<%=maxpage%>>尾页</a></div><table width="100%" border="0" cellspacing="0" cellpadding="0" >                
</table>
</td></tr>
</table>
<br>
<%
rs1.close
  end if
%>
<%                                       
rs3.open"select * from sharep where upid="&id&" and pinguser='"&session("person")&"'",conn,1,1
	  if rs3.eof then
	  if rs("upuser")<> session("person") then
%>
      <table width="100%" border="0" cellpadding="0" cellspacing="0">
        <form action="Share_View.asp?id=<%=id%>" method="post" onSubmit = "return limitpl(this,'评论内容');">
<input type="hidden" name="id" value="<%=jiaid%>">
		<tr> 
          <td><table width="100%" border="0" cellpadding="0" cellspacing="0" >
              <tr valign="top"> 
                <td width="22%"100%>对此共享资料的评论:</td>
                <td width="78%"><textarea name="co" cols="50" rows="6"></textarea> 
                  <br>
                  评论字数200字以内 </td>
              </tr>
            </table>
            <br> <table width="100%" border="0" cellpadding="0" cellspacing="0" >
              <tr> 
                <td width="22%"100%>　</td>
                <td width="78%"><input type="submit" name="submitping"  value="提交评论" class="bnsrh">
                </td>
              </tr>
            </table></td>
        </tr></form>
      </table>
<%
end if
end if
rs3.close
end if
rs.close
%>
</td>
	</tr>
</table>
<br></td>
	</tr>
</table>
		</td>
	</tr>
</table>
<br>

</td>
	</tr>
</table>
<!--#include file=end.asp-->
<%
else
Response.Write ("<script>alert('对不起,共享资料功能未启用!');history.back();</script>")
		Response.end
	end if
%>