📄 quanxiao.asp
字号:
<!--#include file="../conn.asp"-->
<!--#include file="../check.asp"-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>学生心理测试管理界面</title>
<link href="../teacher.css" rel="stylesheet" type="text/css">
</head>
<body topmargin="0">
<%
call LinkData()
dim sql,rs,absolutepage,pagecount,i
Set rs = Server.CreateObject("ADODB.RecordSet")
sql="select * from student,scl901 where student.xuehao = scl901.xuehao"
'response.write sql
rs.open sql,conn,1,1
rs.PageSize=30
absolutepage=request("absolutepage")
if absolutepage="" then absolutepage=1
if not rs.EOF then
rs.AbsolutePage=absolutepage
end if
pagecount=rs.PageCount
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="2">
<tr>
<td align="center"> <strong>scl90全校原始数据</strong> <input TYPE="button" onclick="javascript:excel();" value="导出到EXCEL"></td>
</tr>
<tr>
<form name=form2 action="quanxiao.asp">
<td align="center">每页<%=rs.PageSize%>条 当前页<%=absolutepage%>/<%=pagecount %>
<%if cint(absolutepage)>1 then %>
<a href="quanxiao.asp?absolutepage=1">首页</a>
<%else %>
首页
<%end if%>
<%if cint(absolutepage)>1 then %>
<a href="quanxiao.asp?absolutepage=<%=cint(absolutepage)-1%>">前页</a>
<%else %>
前页
<%end if%>
<%if cint(absolutepage)<cint(pagecount) then %>
<a href="quanxiao.asp?absolutepage=<%=cint(absolutepage)+1%>">后页</a>
<%else Response.Write "后页" end if%>
<%if cint(absolutepage)<cint(pagecount) then %>
<a href="quanxiao.asp?absolutepage=<%=pagecount%>">末页</a>
<%else Response.Write "末页" end if%> </td>
</form>
</tr>
<tr>
<tr>
<td align="center">
<table border="1" align="center" width="100%" cellpadding="0" cellspacing="0" id="test">
<tr >
<td align="center">姓名</td>
<td align="center">性别</td>
<td align="center">生日</td>
<td align="center">题1</td>
<td align="center">题2</td>
<td align="center">题3</td>
<td align="center">题4</td>
<td align="center">题5</td>
<td align="center">题6</td>
<td align="center">题7</td>
<td align="center">题8</td>
<td align="center">题9</td>
<td align="center">题10</td>
<td align="center">题11</td>
<td align="center">题12</td>
<td align="center">题13</td>
<td align="center">题14</td>
<td align="center">题15</td>
<td align="center">题16</td>
<td align="center">题17</td>
<td align="center">题18</td>
<td align="center">题19</td>
<td align="center">题20</td>
<td align="center">题21</td>
<td align="center">题22</td>
<td align="center">题23</td>
<td align="center">题24</td>
<td align="center">题25</td>
<td align="center">题26</td>
<td align="center">题27</td>
<td align="center">题28</td>
<td align="center">题29</td>
<td align="center">题30</td>
<td align="center">题31</td>
<td align="center">题32</td>
<td align="center">题33</td>
<td align="center">题34</td>
<td align="center">题35</td>
<td align="center">题36</td>
<td align="center">题37</td>
<td align="center">题38</td>
<td align="center">题39</td>
<td align="center">题40</td>
<td align="center">题41</td>
<td align="center">题42</td>
<td align="center">题43</td>
<td align="center">题44</td>
<td align="center">题45</td>
<td align="center">题46</td>
<td align="center">题47</td>
<td align="center">题48</td>
<td align="center">题49</td>
<td align="center">题50</td>
<td align="center">题51</td>
<td align="center">题52</td>
<td align="center">题53</td>
<td align="center">题54</td>
<td align="center">题55</td>
<td align="center">题56</td>
<td align="center">题57</td>
<td align="center">题58</td>
<td align="center">题59</td>
<td align="center">题60</td>
<td align="center">题61</td>
<td align="center">题62</td>
<td align="center">题63</td>
<td align="center">题64</td>
<td align="center">题65</td>
<td align="center">题66</td>
<td align="center">题67</td>
<td align="center">题68</td>
<td align="center">题69</td>
<td align="center">题70</td>
<td align="center">题71</td>
<td align="center">题72</td>
<td align="center">题73</td>
<td align="center">题74</td>
<td align="center">题75</td>
<td align="center">题76</td>
<td align="center">题77</td>
<td align="center">题78</td>
<td align="center">题79</td>
<td align="center">题80</td>
<td align="center">题81</td>
<td align="center">题82</td>
<td align="center">题83</td>
<td align="center">题84</td>
<td align="center">题85</td>
<td align="center">题86</td>
<td align="center">题87</td>
<td align="center">题88</td>
<td align="center">题89</td>
<td align="center">题90</td>
</tr>
<%
for i=1 to rs.PageSize
if rs.EOF then exit for
%>
<tr>
<td align="center"><%=rs("mingzi")%></td>
<td align="center"><%=rs("xingbie")%></td>
<td align="center"><%=rs("shengri")%></td>
<td align="center"><%=rs("t1")%></td>
<td align="center"><%=rs("t2")%></td>
<td align="center"><%=rs("t3")%></td>
<td align="center"><%=rs("t4")%></td>
<td align="center"><%=rs("t5")%></td>
<td align="center"><%=rs("t6")%></td>
<td align="center"><%=rs("t7")%></td>
<td align="center"><%=rs("t8")%></td>
<td align="center"><%=rs("t9")%></td>
<td align="center"><%=rs("t10")%></td>
<td align="center"><%=rs("t11")%></td>
<td align="center"><%=rs("t12")%></td>
<td align="center"><%=rs("t13")%></td>
<td align="center"><%=rs("t14")%></td>
<td align="center"><%=rs("t15")%></td>
<td align="center"><%=rs("t16")%></td>
<td align="center"><%=rs("t17")%></td>
<td align="center"><%=rs("t18")%></td>
<td align="center"><%=rs("t19")%></td>
<td align="center"><%=rs("t20")%></td>
<td align="center"><%=rs("t21")%></td>
<td align="center"><%=rs("t22")%></td>
<td align="center"><%=rs("t23")%></td>
<td align="center"><%=rs("t24")%></td>
<td align="center"><%=rs("t25")%></td>
<td align="center"><%=rs("t26")%></td>
<td align="center"><%=rs("t27")%></td>
<td align="center"><%=rs("t28")%></td>
<td align="center"><%=rs("t29")%></td>
<td align="center"><%=rs("t30")%></td>
<td align="center"><%=rs("t31")%></td>
<td align="center"><%=rs("t32")%></td>
<td align="center"><%=rs("t33")%></td>
<td align="center"><%=rs("t34")%></td>
<td align="center"><%=rs("t35")%></td>
<td align="center"><%=rs("t36")%></td>
<td align="center"><%=rs("t37")%></td>
<td align="center"><%=rs("t38")%></td>
<td align="center"><%=rs("t39")%></td>
<td align="center"><%=rs("t40")%></td>
<td align="center"><%=rs("t41")%></td>
<td align="center"><%=rs("t42")%></td>
<td align="center"><%=rs("t43")%></td>
<td align="center"><%=rs("t44")%></td>
<td align="center"><%=rs("t45")%></td>
<td align="center"><%=rs("t46")%></td>
<td align="center"><%=rs("t47")%></td>
<td align="center"><%=rs("t48")%></td>
<td align="center"><%=rs("t49")%></td>
<td align="center"><%=rs("t50")%></td>
<td align="center"><%=rs("t51")%></td>
<td align="center"><%=rs("t52")%></td>
<td align="center"><%=rs("t53")%></td>
<td align="center"><%=rs("t54")%></td>
<td align="center"><%=rs("t55")%></td>
<td align="center"><%=rs("t56")%></td>
<td align="center"><%=rs("t57")%></td>
<td align="center"><%=rs("t58")%></td>
<td align="center"><%=rs("t59")%></td>
<td align="center"><%=rs("t60")%></td>
<td align="center"><%=rs("t61")%></td>
<td align="center"><%=rs("t62")%></td>
<td align="center"><%=rs("t63")%></td>
<td align="center"><%=rs("t64")%></td>
<td align="center"><%=rs("t65")%></td>
<td align="center"><%=rs("t66")%></td>
<td align="center"><%=rs("t67")%></td>
<td align="center"><%=rs("t68")%></td>
<td align="center"><%=rs("t69")%></td>
<td align="center"><%=rs("t70")%></td>
<td align="center"><%=rs("t71")%></td>
<td align="center"><%=rs("t72")%></td>
<td align="center"><%=rs("t73")%></td>
<td align="center"><%=rs("t74")%></td>
<td align="center"><%=rs("t75")%></td>
<td align="center"><%=rs("t76")%></td>
<td align="center"><%=rs("t77")%></td>
<td align="center"><%=rs("t78")%></td>
<td align="center"><%=rs("t79")%></td>
<td align="center"><%=rs("t80")%></td>
<td align="center"><%=rs("t81")%></td>
<td align="center"><%=rs("t82")%></td>
<td align="center"><%=rs("t83")%></td>
<td align="center"><%=rs("t84")%></td>
<td align="center"><%=rs("t85")%></td>
<td align="center"><%=rs("t86")%></td>
<td align="center"><%=rs("t87")%></td>
<td align="center"><%=rs("t88")%></td>
<td align="center"><%=rs("t89")%></td>
<td align="center"><%=rs("t90")%></td>
</tr>
<%
rs.MoveNext
next
%>
</table> </form> </td>
</tr>
</table>
</body>
</html>
<%
rs.close
call CloseData()
'call Timenum()
%>
<script LANGUAGE="javascript" defer>
function excel()
{
var oxl = new ActiveXObject("Excel.Application");
var owb = oxl.Workbooks.Add();
var osheet = owb.Activesheet;
var table = document.all.test;
var hang = table.rows.length;
var lie = table.rows(0).cells.length;
for (m=0;m<hang;m++)
{
for (n=0;n<lie;n++)
{
osheet.cells(m+1,n+1).value = table.rows(m).cells(n).innerText;
}
}
oxl.visible = true;
oxl.usercontrol = true;
}
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -