神马品牌网毅达资本 通讯录:excel排序时，怎样能让每一械氖?莞?哦急浠?? size=
来源：百度文库 编辑：神马品牌网 时间：2024/04/30 00:17:38
你选择的就这一列。把要一块变化的那些列都选上，再按照这一列排序，其他的就都会跟着变。
把相关区选中再试
按Ctrl+A全选，再排序
<%
set cn=server.createobject("adodb.connection")
stropen="driver={microsoft excel driver (*.xls)}; dbq="& server.mappath("*****(表名).xls")
cn.open stropen
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From [sheet1$]", cn, 2, 2%>
<html> <head>
<meta http-equiv="Content-Type" content="text/html; charset=gb_2312-80"> <meta name="GENERATOR"
content="Microsoft FrontPage Express 2.0">
<title>Excel</title>
</head>
<body bgcolor="#FFFFFF" >
<h2 align="center">Excel</h2>
<CENTER><TABLE border="0" style="font-size: 10pt" style="border: 2 groove #000000">
<%Response.Write "<TR BGCOLOR=#008000><TD width=100>0</TD>"
For i=0 to rs.Fields.Count-1
Response.WRITE "<TD width=100>" & rs.Fields(i).Name & "</TD>"
Next
Response.Write "</TR>"
RecNo=1
Do While Not rs.EOF Response.Write "<TR bgColor=#e6e6e6>"
Response.Write"<TD width=100>"&RecNo&"</TD>"
for i=0 to rs.fields.count-1
Response.Write"<TD width=100>"&rs.Fields(i).Value&"</TD>"
Next
Response.Write "</TR>"
rs.MoveNext
RecNo=RecNo+1
Loop
rs.close%>
</TABLE></CENTER>
</body> </html>
很简单的，研究一下就明白了