开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > WEB源码(ASP,PHP,...) > 查看源码
coverexcel.asp
资源名称：shop2.rar　[点击查看]
上传用户：btntkt
上传日期：2021-04-16
资源大小：5296k
文件大小：3k
源码类别：

WEB源码(ASP,PHP,...)

开发平台：

DOS

coverexcel.asp：源码内容
  1. <!--#include file="conn.asp"-->
  2. <%
  3. dim cls
  4. if session("admin")="" then
  5. Response.Redirect("admin.asp")
  6. else
  7. if session("flag")<>"0" then
  9. cls = Instr(session("flag"), "excel")
  10. if cls <= 0 then
  11. %>
  12. <script language="javascript">
  13. if (confirm("您的操作权限不够,系统拒绝你的访问,请点确定返回,或者点取消退出重新登录"))
  14.   location.href="login.asp";
  15. else
  16.   location.href="index.asp";
  17. </script>
  18. <%
  19. end if
  20. end if
  21. end if
  22. %>
  23. <html>
  24. <head>
  25. <title></title>
  26. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  27. <link href="Images/style.css" rel="stylesheet" type="text/css">
  28. </head>
  29. <body>
  30. <%
  31. set rs=server.createobject("adodb.recordset")
  32. sql="select bookid,bookname,pingpai,bookchuban,yeshu,isbn,bookpic,shichangjia,huiyuanjia,vipjia,bestbook,tejiabook,newsbook,kucun,adddate,grade,chima,yanse from  products order by adddate desc "
  33. rs.open sql,conn,1,1
  34. %>
  35. <br>
  36. <td height="107" bgcolor="#DEE7FF"> 
  37. <table width="95%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#6396D6">
  38.     <tr align="center" bgcolor="#C7D3E6"> 
  39.       <td width="11%" bgcolor="#7B9AE7" height="25"><font color="#FFFFFF">商品ID</font></td>
  40.       <td width="20%" bgcolor="#7B9AE7"><font color="#FFFFFF">商品名称</font></td>
  41.       <td width="21%" bgcolor="#7B9AE7"><font color="#FFFFFF">所属品牌</font></td>
  42.       <%
  43. if not rs.eof then
  44. %>
  45.       <td width="17%" bgcolor="#7B9AE7"><font color="#FFFFFF">商品编号</font></td>
  46.       <%
  47. else
  48. %>
  49.       <td width="17%" bgcolor="#7B9AE7"><font color="#FFFFFF">商品单位</font></td>
  50.       <%
  51. end if
  52. %>
  53.       <td width="14%" bgcolor="#7B9AE7"><font color="#FFFFFF">添加日期</font></td>
  54.     </tr>
  55.     <%
  56. while not rs.eof
  57. %>
  58.     <tr bgcolor="#FFFFFF"> 
  59.       <td width="11%" align="center" bgcolor="#DEE7FF"><%=rs(0)%></td>
  60.       <td width="20%" height="22" bgcolor="#DEE7FF"><a href="editproduct.asp?id=<%=rs(0)%>"><%=rs(1)%></a></td>
  61.       <td width="21%" height="22" align="center" bgcolor="#DEE7FF"><%=rs(2)%></td>
  62.       <td width="17%" align="center" bgcolor="#DEE7FF"><%=rs(15)%></td>
  63.       <td width="14%" align="center" bgcolor="#DEE7FF"><%=rs(14)%></td>
  64.     </tr>
  65.     <%
  66. rs.movenext
  67. wend
  68. set rs=nothing
  69. %>
  70.     <tr bgcolor="#FFFFFF"> 
  71.       <td height="22" colspan="6" bgcolor="#DEE7FF"> <div align="center"> 
  72.           <input type="button" name="Submit4" value="打 印" onClick="javascript:window.print()">
  73.           <input type="button" name="Submit" value="导入EXCEL" onClick="javascript:openexcel();">
  74.           <font color="red"><span id="excelfile" ></span></font></div></td>
  75.     </tr>
  76.   </table>
  77. </td>
  78. </tr>
  79. </table>
  80. <br>
  81. </body>
  82. </html>
  83. <script>
  85. function openexcel(){
  86.     window.open("toexcel.asp?sql=<%=sql%>");
  87. }
  88. </script>