readask.asp

医药进销存管理系统 全代码 很详细 可惜没有数据库 可供参考

<!--#include file="top1.asp"-->
<!--#include virtual="manage/include/conn.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
Response.CharSet="GB2312" 
Response.ContentType="text/html"
id=request.QueryString("id")
if id="" then
  response.write "<br><center>请选择留言！</center>"
  response.End()
end if
set rs=conn.execute("select * from tb_BBS where Id="&id)
if rs.eof then
   response.write "<br><center>没有该留言！</center>"
   response.End()
else
   conn.execute("update tb_BBS set readcount=readcount+1 where Id="&id)
end if
%>
  <script language="javascript">
    function newwin(url){
	  window.open(url,"NEW","width=480,height=260,left=0,top=0,resizable=yes,scrollbars=yes");
	}
	function newwin1(url){
	  window.location.href=url;
	}
  </script>
<div align="center">
    <table border="0" cellpadding="0" cellspacing="0" width="799" bgcolor="#A4B077">
	    <tr>
		    <td height="20" valign="bottom" bgcolor="#FFFFFF"><img src="images/blue_dian.gif" width="5" height="8"> 当前位置： <a href="index.asp">首页</a>　<img src="images/iconarrow3.gif"> <a href="askfor.asp">求医问药</a> <img src="images/iconarrow3.gif"> 查看留言</td>
		</tr>
		<tr>
		   <td align="center" valign="top" bgcolor="#FFFFFF">
		     <table width="100%" border="0" cellpadding="0" cellspacing="0">
             <tr>
               <td width="149" valign="bottom" background="images/title_blue.gif"><div align="center" style="font-weight: bold; color: #FFFFFF;">阅读留言<span style=""></span></div></td>
               <td width="18" valign="top" background="images/title_blue_1.gif">&nbsp;</td>
               <td width="644" height="26" background="images/title_blue_2.gif"><div align="right">
			   <input type="button" value="回复该留言" onClick="return newwin('huifu.asp?id=<%=id%>');" style="border:1px solid;border-color:#000000;background-color:#ffffff"></div></td>
             </tr>
			 <tr>
			    <td colspan=3>
				   <table width="798" border="0" cellpadding="4" cellspacing="1" bgcolor="#2A3F55" style="table-layout:fixed">
				      <tr bgcolor="#FFFFFF">
	                    <td width="155" valign="top" bgcolor="#E0F8DE"><div align="right">标 题</div></td>
						<td width="392" valign="top" bgcolor="#E0F8DE"  style="word-break:break_all"><%=rs("title")%></td>
					    <td width="37" valign="top" bgcolor="#E0F8DE"><div align="right">作 者</div></td>
				        <td width="177" valign="top" bgcolor="#E0F8DE"  style="word-break:break_all"><%=rs("author")%></td>
				      </tr>
					  <tr>
				        <td width="155" valign="top" bgcolor="#E0F8DE"><div align="right">内 容</div></td>
			            <td colspan="3" valign="top" bgcolor="#FFFFFF"  style="word-break:break_all"><p><%=rs("content")%></p>
		                &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;　　　　　　　　　　　　　　　　　　　　　　　　　　　发表时间：<%=rs("postdate")%>&nbsp;
			   <%
			   if Session("Passed")=true and Session("Flag")=1 then
			   %>
			   <input type="image" src="images/A_delete.gif" onClick="return newwin1('delask.asp?id=<%=id%>');">
			   <%else%>
			   <input type="image" src="images/A_delete.gif" onClick="javascript:alert('是管理员请登录！');window.location.href='index.asp';">
			   <%end if%></td>
					  </tr>
				  </table> 
			 <%
				     set rs1=server.CreateObject("adodb.recordset")
					 sql="select * from tb_BBS where upid="&id&" order by id desc"
					 rs1.open sql,conn,3,3
					 if rs1.eof then
					 else
					 rs1.pagesize=3
					 page=Clng(request.QueryString("page"))
					 if page="" or page<1 then page=1
					 if page>rs1.pagecount then page=rs1.pagecount
					 rs1.AbsolutePage=page
					  for i=0 to rs1.pagesize-1
					  if rs1.eof then exit for
			 %><br>
			 <table width="798" border="0" cellpadding="4" cellspacing="1" bgcolor="#2A3F55">
                 <tr>
                     <td width="155" valign="top" bgcolor="#E0F8DE"  style="word-break:break_all"><div align="right">作者<%=rs1("author")%><br>
                       <br>                   
                   </div></td>
			         <td width="624" valign="top" bgcolor="#FFFFFF"><p><%=rs1("content")%><br>
			         &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
	                 　　　　　　　　　　　　　　　　　　　　　　　　　　　回复时间：<%=rs1("postdate")%>&nbsp;
			  <%
			   if Session("Passed")=true and Session("Flag")=1 then
			   %>
					 <a href="delask.asp?id=<%=rs1("id")%>"><img src="images/A_delete.gif" border="0"></a>
		       <%else%>
			         <a href="#" onClick="javascript:alert('是管理员请先登录！');window.location.href='index.asp';"><img src="images/A_delete.gif" border="0"></a>
				<%end if%>
			     </p>		             </td>
				 </tr>
			 </table>
			 <%
				rs1.movenext
				next
				end if
			 %>
			    </td>
			 </tr>
			 <tr>
			     <td colspan="3"><br>
				   <div align="right">
			         <%
				 response.write "当前共<font color=red>"&rs1.recordcount&"</font>条回复信息<font color=red>"&rs1.pagesize&"条/页"
				 if page>1 then
				    response.write " <a href=readask.asp?page=1&id="&id&">首页</a> "
					response.write "<a href=readask.asp?page="&(page-1)&"&id="&id&">上一页</a>"
				 end if
				 if page<rs1.pagecount then
				    response.write " <a href=readask.asp?page="&(page+1)&"&id="&id&">下一页</a>"
					response.write " <a href=readask.asp?page="&rs1.pagecount&"&id="&id&">最后一页</a>"
				 end if
				 %>
				     </div></td>
			 </tr>
			</table>	
       </td>
	</tr>
</table>
</td>
</tr>
</table>
</div>
<!--#include file="bottom.asp"-->