askfor.asp

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

<!--#include file="top1.asp"--> 
<!--#include virtual="manage/include/conn.asp"--> 
<script language="javascript">
    function newwin(url){
	  window.open(url,"NEW","width=480,height=260,left=0,top=0,resizable=yes,scrollbars=yes");
	}
  </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"> 当前位置 <img src="images/iconarrow3.gif"> <a href="index.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: #FFFBF0;">求医问药<span style=""></span></div></td> 
            <td width="18" valign="top" background="images/title_blue_1.gif">&nbsp;</td> 
            <td width="634" height="26" background="images/title_blue_2.gif"><div align="right"> 
                <input type="button" value="发表新留言" onClick="return newwin('addask.asp');" 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="#2A1F00" style="table-layout:fixed"> 
                <tr bgcolor="#FFFFFF"> 
                  <td width="461" bgcolor="#E0F8DE" align="center"  style="word-break:break_all">标　　　题</td> 
                  <td width="84" bgcolor="#E0F8DE" style="word-break:break_all"><div align="center" style="font-weight: bold">作　者</div></td> 
                  <td width="81" bgcolor="#E0F8DE"><div align="center" style="font-weight: bold">回复/查看</div></td> 
                  <td width="135" bgcolor="#E0F8DE"><div align="center" style="font-weight: bold">发表时间</div></td> 
                </tr> 
                <%
				     set rs=server.CreateObject("adodb.recordset")
					 sql="select * from tb_BBS where upid=0 order by id desc"
					 rs.open sql,conn,3,3
					 if rs.eof then
					    response.write "<tr><td colspan=4 bgcolor=#ffffff><br><b><div align=center>现在还没有人发表提问</div></b></td></tr>"
					 else
					 rs.pagesize=2
					 page=Clng(request.QueryString("page"))
					 if page="" or page<1 then page=1
					 if page>rs.pagecount then page=rs.pagecount
					 rs.AbsolutePage=page
					  i=1
					  for i=1 to rs.pagesize
					      if rs.eof then exit for
			 %> 
                <tr <%if i mod 2 =0 then response.write "bgcolor=#ffeeee"%>> 
                  <td height="40" width="461" align="left" valign="middle" bgcolor="#FFFFFF"  style="word-break:break_all"> <img src="manage/images/1.bmp" border="0"><a href="readask.asp?id=<%=rs("id")%>"> 
                    <%=rs("title")%> 
                    </a></td> 
                  <td width="84" bgcolor="#FFFFFF" style="word-break:break_all"><div align="center"><%=rs("author")%></div></td> 
                  <td width="81" bgcolor="#FFFFFF"><div align="center"><%=rs("backcount")%>/<%=rs("readcount")%></div></td> 
                  <td bgcolor="#FFFFFF" width="135"><div align="center"><%=rs("postdate")%></div></td> 
                </tr> 
                <%
				rs.movenext
				next
				end if
			 %> 
                <tr bgcolor="#E0F8DE"> 
                  <td colspan="4" align="right"> <%
				 response.write "当前共<font color=red>"&rs.recordcount&"</font>个问题　<font color=red>"&rs.pagesize&"条/页"
				 if page>1 then
				    response.write " <a href=askfor.asp?page=1>首页</a> "
					response.write "<a href=askfor.asp?page="&page-1&">上一页</a>"
				 end if
				 if page<rs.pagecount then
				    response.write " <a href=askfor.asp?page="&page+1&">下一页</a>"
					response.write " <a href=askfor.asp?page="&rs.pagecount&">最后一页</a>"
				 end if
				 %> </td> 
                </tr> 
              </table></td> 
          </tr> 
        </table></td> 
    </tr> 
  </table> 
</div> 
<!--#include file="bottom.asp"-->