📄 zhuanyebg.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,zhuanye,absolutepage,pagecount,i
zhuanye=request("zhuanye")
absolutepage=request("absolutepage")
Set rs = Server.CreateObject("ADODB.RecordSet")
sql="select * from student,scl90f where student.xuehao = scl90f.xuehao and scl90f.zhuanye='"&zhuanye&"'"
'response.write sql
rs.open sql,conn,1,1
if rs.EOF and rs.BOF And absolutepage="" then
response.write "<br><center>没有数据，无法产生报告</center>"
else
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="2">
<tr>
<td align="center"> <strong>专业 <%=zhuanye%> 报告</strong><input type="button" onclick="vbscript:builddoc" value="导出到word"> <input TYPE="button" onclick="javascript:excel();" value="导出到EXCEL"></td>
</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">躯体化</td>
<td align="center">强迫症状 </td>
<td align="center">人际关系敏感</td>
<td align="center">抑郁</td>
<td align="center">焦虑</td>
<td align="center">敌对</td>
<td align="center">恐怖</td>
<td align="center">偏执</td>
<td align="center">精神病性</td>
<td align="center">睡眠及饮食情况</td>
</tr>
<%
While Not rs.eof
%>
<tr>
<td align="center"><%=rs("mingzi")%></td>
<td align="center"><%=rs("xingbie")%></td>
<td align="center"><%=rs("scl90f.banji")%></td>
<td align="center"><%=rs("qutijun")%></td>
<td align="center"><%=rs("qiangpojun")%></td>
<td align="center"><%=rs("renjijun")%></td>
<td align="center"><%=rs("yiyujun")%></td>
<td align="center"><%=rs("jiaolvjun")%></td>
<td align="center"><%=rs("diduijun")%></td>
<td align="center"><%=rs("kongbujun")%></td>
<td align="center"><%=rs("pianzhijun")%></td>
<td align="center"><%=rs("jingshenjun")%></td>
<td align="center"><%=rs("qitajun")%></td>
</tr>
<%
rs.MoveNext
Wend
%>
</table> </form> </td>
</tr>
</table>
</body>
</html>
<%
rs.close
call CloseData()
'call Timenum()
%>
<script language="vbscript">
sub builddoc
set table = document.all.test
row = table.rows.length
column = table.rows(1).cells.length
set objworddoc = createobject("word.document")
objworddoc.application.documents.add()
objworddoc.application.visible=true
dim thearray(20,10000)
for i=0 to row-1
for j=0 to column-1
thearray(j+1,i+1) = table.rows(i).cells(j).innertext
next
next
objworddoc.application.activedocument.paragraphs.add.range.insertbefore("www.114kj.com心理测验系统") //显示表格标题
objworddoc.application.activedocument.paragraphs.add.range.insertbefore("")
set rngpara = objworddoc.application.activedocument.paragraphs(1).range
with rngpara
.bold = true //将标题设为粗体
.paragraphformat.alignment = 1 //将标题居中
.font.name = "隶书" //设定标题字体
.font.size = 18 //设定标题字体大小
end with
set rngcurrent = objworddoc.application.activedocument.paragraphs(3).range
set tabcurrent = objworddoc.application.activedocument.tables.add(rngcurrent,row,column)
for i = 1 to column
objworddoc.application.activedocument.tables(1).rows(1).cells(i).range.insertafter thearray(i,1)
objworddoc.application.activedocument.tables(1).rows(1).cells(i).range.paragraphformat.alignment=1
next
for i =1 to column
for j = 2 to row
objworddoc.application.activedocument.tables(1).rows(j).cells(i).range.insertafter thearray(i,j)
objworddoc.application.activedocument.tables(1).rows(j).cells(i).range.paragraphformat.alignment=1
next
next
end sub
</script>
<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>
<%
End if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -