⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 default.asp

📁 办公软件之间的数据交换,可以把WORD文件和EXCEL文件中的数据添加到WEB服务器,也可以从WEB服务器中下载数据到本地电脑.
💻 ASP
字号:
🔍 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>陈利品的毕业设计</title>

</SCRIPT> 
<% 
	set newconn=server.createobject("adodb.connection")
	set rs=server.createobject("adodb.recordset")
	DBPath = Server.MapPath("#ctm wish.mdb")
	newconn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
   
   
   page = CLng(request("page"))							'利用CLng函数把page值转换为Long型
	judge=request("judge")
	judge2=request("judge2")
	judge3=0
   sqlcmd="select * from student_info "
	rs.Open sqlcmd,newconn,1,2
  %>
  


<style type="text/css">
<!--
.style1 {font-size: 24px}
.style2 {font-size: 18px}
-->
</style>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_displayStatusMsg(msgStr) { //v1.0
  status=msgStr;
  document.MM_returnValue = true;
}
//-->
</script>
</head>

<body>
 <div align="center" class="style1">
   <p align="center">网页与办公软件的数据交换<br>
   </p>
 </div>
 <div align="center" onload="MM_displayStatusMsg('陈利品的毕业设计');return document.MM_returnValue"><br>
     <span class="style1">请选择要做的操作</span><br>
    <br>
   <span class="style2"><a href="outputexcel_index.asp">数据导出到excel</a> <a href="word.asp">数据导出word </a> &nbsp;&nbsp;<a href="data.rar">&nbsp;测试数据下载</a><br>
     <br>
   <a href="inputexcel_index.asp">从excel文件导入到数据库</a> <a href="inputword_index.asp">从word文件导入到数据库</a> </span><br>
     <br>
    <table border=1 cellPadding=0 
            cellSpacing=0 >
		    
 <% for i=0 to rs.fields.count-1%>
    
  <td><%=rs(i).name%></td>
     <%next%>
    
	
                          <%
			if not (rs.EOF or rs.BOF) then
			rs.MoveFirst
			rs.PageSize = 6
			If page < 1 Then page = 1 
			If page > rs.PageCount Then page = rs.PageCount  
			rs.AbsolutePage = page
			'do while not rs.eof
			For ipage = 1 To rs.PageSize%>
      <tr>
                <% for i=0 to rs.fields.count-1 %>
	           
	          <td><%=rs(i)%></td>    
	         
                  <%next%>
      </tr>    
                          <%   
				rs.MoveNext      
				If rs.EOF Then Exit For   
				'loop 
				next
			   end if%>
   </table>
   <table width="100%" border="0" align="center" cellspacing="0">
                            <tr> 
                              <td>&nbsp;&nbsp;&nbsp;共有<font 
                     color=red><%=rs.recordCount%> </font>条记录
                                页数：<font 
                        color=red><%=page%> </font>/&nbsp; <%=rs.PageCount%>&nbsp;&nbsp; 
                                <%
				If page = 1 Then 
				   Response.Write "<font class='white'>第一页　上一页</font>" 
				End If
				If page <> 1 Then 
				   Response.Write "<a href=index.asp?page=1 class='yellow'>第一页</a>" 
				   Response.Write "　<a href=index.asp?page=" & (page - 1) & " class='yellow'>上一页</a>" 
				End If
				If page <> RS.PageCount Then 
				   Response.Write "　<a href=index.asp?page=" & (page + 1) & " class='yellow'>下一页</a>" 
				   Response.Write "　<a href=index.asp?page=" & RS.PageCount & " class='yellow'>最后一页</a>" 
				End If 
				If page = RS.PageCount Then 
				   Response.Write "　<font class='white'>下一页　最后一页</font>" 
				End If
			  %></a>
                              &nbsp; 到 
                                <%Response.Write "<input type=text size=2 maxlength=4 name=page class=editbox1><input type=hidden name=judge value=1>"  '显示输入页数框并将page,judge参数传递下去%>
                                页 </td>
                            </tr>
   </table>
   <br>
</div>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -