kexue.asp

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

<!--#include virtual="/manage/include/top.asp"-->
		 <tr bgcolor="#dddddd">
		     <td height="1" colspan="4"></td>
		 </tr>
		 <tr>
		     <td height="34" colspan="2" bgcolor="#efefef">		     
	             <span class="style8">　<img src="../images/borrow.gif"><span class="style2"><strong> 科学养生文章管理</strong></span></span></td>
	         <td height="19">&nbsp;</td>
	         <td height="19">&nbsp;</td>
		 </tr>
		 <tr>
		     <td height="184" colspan="4" valign="top">
<script language="javascript">
    function newwin(url){
	  window.open(url,"","width=550,height=400,left=0,top=0");
	}
	function chkfields(){
	  if (document.form1.title.value==''){
	    alert("请添写标题！");
		return false;
	  }
	  if (document.form1.content.value==''){
	    alert("内容不能为空！");
		return false;
	  }
	  return true;
	}
	function selall(){
    var nn=self.document.all.item("delit")
	 for(j=0;j<nn.length;j++){
	   self.document.all.item("delit",j).checked=true;
	 }
}
function selnull(){
   var nn=self.document.all.item("delit");
   for(j=0;j<nn.length;j++){
     self.document.all.item("delit",j).checked=false;
   }
}
</script>
<%
Set conn=Server.CreateObject("ADODB.Connection")
conn.connectionstring="Driver={Sql Server};Server=(local);UID=sa;database=DB_lsmanage"
conn.open
%>
<br>
<FORM action="/manage/kexue/delkexue.asp" method="post" name="form1">
<table width="90%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#6699cc">
   <tr>
        <td width="7%" bgcolor="#f5f5f5"><div align="center" style="font-weight: bold; font-size: 10pt; color: #663366;">ID</div></td>
        <td width="70%" bgcolor="#f5f5f5"><div align="center" style="font-weight: bold; font-size: 10pt; color: #663366;">标题</div></td>
        <td width="14%" bgcolor="#f5f5f5"><div align="center" style="font-weight: bold; font-size: 10pt; color: #663366;">发布时间</div></td>
        <td width="9%" bgcolor="#f5f5f5"><div align="center" style="font-weight: bold; font-size: 10pt; color: #663366;">删除</div></td>
   </tr>
<%
'response.write "select yName,sum(Sl) AS Sl,sum(TotalPrice) AS TotalPrice,UserId from Stbl "&sqlstr&" group by UserId,yName order by Sl desc"
sql="select idx,title,regDate from tb_Kexue order by idx desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,3
if not rs.eof then
rs.pagesize = 2 
page=Clng(request.QueryString("page"))
if page = "" or page <= 0 then page=1
if page > rs.pagecount then page = pagecount
rs.Absolutepage = page
for i=1 to rs.pagesize
if rs.eof then exit for
%>
   <tr>
       <td  bgcolor="#ffffff"><div align="center"><%=rs("idx")%></div></td><td bgcolor="#ffffff"><div align="center"><a href="#" onClick="newwin('/manage/kexue/kexueList.asp?idx=<%=rs("idx")%>')"><%=rs("title")%></a></div></td><td bgcolor="#ffffff"><div align="center"><%=rs("regDate")%></div></td><td bgcolor="#ffffff"><div align="center"><input type="checkbox" name="delit" value="<%=rs("idx")%>"></div></td>
   </tr>
<%
rs.movenext
next
%>
   <tr>
       <td colspan="4" align="center" bgcolor="#FFFFFF"><input type="button" value="全选" onClick="selall()"style="border:1px solid;border-color:#4c99d4;background:#f2ebc3">&nbsp;<input type="button" value="清空" onClick="selnull()"style="border:1px solid;border-color:#4c99d4;background:#f2ebc3">&nbsp;<input type="submit" value="删除"style="border:1px solid;border-color:#4c99d4;background:#f2ebc3"></td>
   </tr>
</table>
</form>
<%
else
   response.write "<center>目前没有文章</center>"
end if
%>

<table border="0" width="90%" align="center">
     <tr>
	     <td align="right">
<%
response.write "共<font color=red>"&rs.recordcount&"</font>篇文章 &nbsp;当前页:<font color=red>"&page&"</font>/"&rs.pagecount&" "
if page>1 then
  response.write "<a href=kexue.asp?page=1>首页</a> "
  response.write "<a href=kexue.asp?page="&(page-1)&">上一页</a> "
else
  response.write "首页 "
end if
if page<rs.pagecount then
  response.write "<a href=kexue.asp?page="&(page+1)&">下一页</a> "
  response.write "<a href=kexue.asp?page="&rs.pagecount&">最后一页</a>"
end if
%>
        </td>
    </tr>
</table>
<br>
<center>
  <input type="button" value="发布新养生文章" onClick="newwin('addyangsheng.asp')" style="border:1px solid;border-color:#4c99d4;background:#f2ebc3">
</center>
<!--#include virtual="/manage/include/bottom.asp"-->