📄 gebiebg.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,xuehao
xuehao=request("xuehao")
set rs = server.createobject("adodb.recordset")
sql="select * from student,scl901 where student.xuehao = scl901.xuehao and scl901.xuehao='"&xuehao&"'"
'response.write sql
rs.open sql,conn,1,1
if rs.EOF and rs.BOF then
response.write "<br><center>没有任何数据，无法产生报告</center>"
response.end
else
%>
<center> <strong>学号 <%=xuehao%> 报告 </strong> <input type="button" onclick="vbscript:builddoc" value="导出到word"> <input TYPE="button" onclick="javascript:excel();" value="导出到EXCEL">
</center>
<table border="1" align="center" width="60%" cellpadding="0" cellspacing="0" id="test">
<tr >
<td align="center">姓名| 班级| 生日</td>
<td align="center">性别</td>
</tr>
<%
while not rs.eof
%>
<tr>
<td align="center"><%=rs("mingzi")%>| <%=rs("student.banji")%>| <%=rs("shengri")%></td>
<td align="center"><%=rs("xingbie")%></td>
</tr>
<TR>
<TD>1 、头痛</TD>
<TD><%=rs("t1")%></TD>
</TR>
<TR>
<TD>2 、神经过敏，心中不踏实</TD>
<TD><%=rs("t2")%></TD>
</TR>
<TR>
<TD>3 、头脑中有不必要的想法或字句盘旋</TD>
<TD><%=rs("t3")%></TD>
</TR>
<TR>
<TD>4 、头昏或昏倒</TD>
<TD><%=rs("t4")%></TD>
</TR>
<TR>
<TD>5 、对异性的兴趣减退</TD>
<TD><%=rs("t5")%></TD>
</TR>
<TR>
<TD>6 、对旁人责备求全</TD>
<TD><%=rs("t6")%></TD>
</TR>
<TR>
<TD>7 、感到别人能控制您的思想</TD>
<TD><%=rs("t7")%></TD>
</TR>
<TR>
<TD>8 、责怪别人制造麻烦</TD>
<TD><%=rs("t8")%></TD>
</TR>
<TR>
<TD>9 、忘性大</TD>
<TD><%=rs("t9")%></TD>
</TR>
<TR>
<TD>10 、担心自己的衣饰整齐及仪态的端正</TD>
<TD><%=rs("t10")%></TD>
</TR>
<TR>
<TD>11 、容易烦恼或激动</TD>
<TD><%=rs("t11")%></TD>
</TR>
<TR>
<TD>12 、胸痛</TD>
<TD><%=rs("t12")%></TD>
</TR>
<TR>
<TD>13 、害怕空旷的场所或街道</TD>
<TD><%=rs("t13")%></TD>
</TR>
<TR>
<TD>14 、感到自己的精力下降，活动减慢</TD>
<TD><%=rs("t14")%></TD>
</TR>
<TR>
<TD>15 、想结束生命</TD>
<TD><%=rs("t15")%></TD>
</TR>
<TR>
<TD>16 、听到别人听不到的声音</TD>
<TD><%=rs("t16")%></TD>
</TR>
<TR>
<TD>17 、发抖</TD>
<TD><%=rs("t17")%></TD>
</TR>
<TR>
<TD>18 、感到大多数人都不可信任</TD>
<TD><%=rs("t18")%></TD>
</TR>
<TR>
<TD>19 、胃口不好</TD>
<TD><%=rs("t19")%></TD>
</TR>
<TR>
<TD>20 、容易哭泣</TD>
<TD><%=rs("t20")%></TD>
</TR>
<TR>
<TD>21 、同异性朋友相处时感到害羞和不自在</TD>
<TD><%=rs("t21")%></TD>
</TR>
<TR>
<TD>22 、感到受骗、中了圈套或有人想抓住您</TD>
<TD><%=rs("t22")%></TD>
</TR>
<TR>
<TD>23 、无缘无故地突然感到害怕</TD>
<TD><%=rs("t23")%></TD>
</TR>
<TR>
<TD>24 、自己不能控制地大发脾气</TD>
<TD><%=rs("t24")%></TD>
</TR>
<TR>
<TD>25 、怕单独出门</TD>
<TD><%=rs("t25")%></TD>
</TR>
<TR>
<TD>26 、经常责怪自己</TD>
<TD><%=rs("t26")%></TD>
</TR>
<TR>
<TD>27 、腰痛</TD>
<TD><%=rs("t27")%></TD>
</TR>
<TR>
<TD>28 、感到难以完成任务</TD>
<TD><%=rs("t28")%></TD>
</TR>
<TR>
<TD>29 、感到孤独</TD>
<TD><%=rs("t29")%></TD>
</TR>
<TR>
<TD>30 、感到苦闷</TD>
<TD><%=rs("t30")%></TD>
</TR>
<TR>
<TD>31 、过分担忧</TD>
<TD><%=rs("t31")%></TD>
</TR>
<TR>
<TD>32 、对事物不感兴趣</TD>
<TD><%=rs("t32")%></TD>
</TR>
<TR>
<TD>33 、感到害怕</TD>
<TD><%=rs("t33")%></TD>
</TR>
<TR>
<TD>34 、我的感情容易受到伤害</TD>
<TD><%=rs("t34")%></TD>
</TR>
<TR>
<TD>35 、旁人能知道您的私下想法</TD>
<TD><%=rs("t35")%></TD>
</TR>
<TR>
<TD>36 、感到别人不理解您、不同情您</TD>
<TD><%=rs("t36")%></TD>
</TR>
<TR>
<TD>37 、感到人们对您不友好，不喜欢您</TD>
<TD><%=rs("t37")%></TD>
</TR>
<TR>
<TD>38 、做事必须做得很慢以保证做得正确</TD>
<TD><%=rs("t38")%></TD>
</TR>
<TR>
<TD>39 、心跳得很厉害</TD>
<TD><%=rs("t39")%></TD>
</TR>
<TR>
<TD>40 、恶心或胃部不舒服</TD>
<TD><%=rs("t40")%></TD>
</TR>
<TR>
<TD>41 、感到比不上他人</TD>
<TD><%=rs("t41")%></TD>
</TR>
<TR>
<TD>42 、肌肉酸痛</TD>
<TD><%=rs("t42")%></TD>
</TR>
<TR>
<TD>43 、感到有人在监视您、谈论您</TD>
<TD><%=rs("t43")%></TD>
</TR>
<TR>
<TD>44 、难以入睡</TD>
<TD><%=rs("t44")%></TD>
</TR>
<TR>
<TD>45 、做事必须反复检查</TD>
<TD><%=rs("t45")%></TD>
</TR>
<TR>
<TD>46 、难以作出决定</TD>
<TD><%=rs("t46")%></TD>
</TR>
<TR>
<TD>47 、怕乘电车、公共汽车、地铁或火车</TD>
<TD><%=rs("t47")%></TD>
</TR>
<TR>
<TD>48 、呼吸有困难</TD>
<TD><%=rs("t48")%></TD>
</TR>
<TR>
<TD>49 、一阵阵发冷或发热</TD>
<TD><%=rs("t49")%></TD>
</TR>
<TR>
<TD>50 、因为感到害怕而避开某些东西、场合或活动</TD>
<TD><%=rs("t50")%></TD>
</TR>
<TR>
<TD>51 、脑子变空了</TD>
<TD><%=rs("t51")%></TD>
</TR>
<TR>
<TD>52 、身体发麻或刺痛</TD>
<TD><%=rs("t52")%></TD>
</TR>
<TR>
<TD>53 、喉咙有梗塞感</TD>
<TD><%=rs("t53")%></TD>
</TR>
<TR>
<TD>54 、感到没有前途、没有希望</TD>
<TD><%=rs("t54")%></TD>
</TR>
<TR>
<TD>55 、不能集中注意</TD>
<TD><%=rs("t55")%></TD>
</TR>
<TR>
<TD>56 、感到身体的某一部分软弱无力</TD>
<TD><%=rs("t56")%></TD>
</TR>
<TR>
<TD>57 、感到紧张或容易紧张</TD>
<TD><%=rs("t57")%></TD>
</TR>
<TR>
<TD>58 、感到手或脚发重</TD>
<TD><%=rs("t58")%></TD>
</TR>
<TR>
<TD>59 、想到死亡的事</TD>
<TD><%=rs("t59")%></TD>
</TR>
<TR>
<TD>60 、吃得太多</TD>
<TD><%=rs("t60")%></TD>
</TR>
<TR>
<TD>61 、当别人看着您或谈论您时感到不自在</TD>
<TD><%=rs("t61")%></TD>
</TR>
<TR>
<TD>62 、有时必须做些不符合您自己想法的事</TD>
<TD><%=rs("t62")%></TD>
</TR>
<TR>
<TD>63 、有想打人或伤害他人的冲动</TD>
<TD><%=rs("t63")%></TD>
</TR>
<TR>
<TD>64 、醒得太早</TD>
<TD><%=rs("t64")%></TD>
</TR>
<TR>
<TD>65 、必须反复洗手、点数目或触摸某些东西</TD>
<TD><%=rs("t65")%></TD>
</TR>
<TR>
<TD>66 、睡得不稳不深</TD>
<TD><%=rs("t66")%></TD>
</TR>
<TR>
<TD>67 、有想摔坏或破坏东西的冲动</TD>
<TD><%=rs("t67")%></TD>
</TR>
<TR>
<TD>68 、有一些别人没有的想法或念头</TD>
<TD><%=rs("t68")%></TD>
</TR>
<TR>
<TD>69 、感到对别人神经过敏</TD>
<TD><%=rs("t69")%></TD>
</TR>
<TR>
<TD>70 、在商店或电影院等人多的地方感到不自在</TD>
<TD><%=rs("t70")%></TD>
</TR>
<TR>
<TD>71 、感到做任何事情都很困难</TD>
<TD><%=rs("t71")%></TD>
</TR>
<TR>
<TD>72 、一阵阵恐惧或惊恐</TD>
<TD><%=rs("t72")%></TD>
</TR>
<TR>
<TD>73 、感到在公共场合吃东西很不舒服</TD>
<TD><%=rs("t73")%></TD>
</TR>
<TR>
<TD>74 、经常与人争论</TD>
<TD><%=rs("t74")%></TD>
</TR>
<TR>
<TD>75 、单独一人时神经很紧张</TD>
<TD><%=rs("t75")%></TD>
</TR>
<TR>
<TD>76 、别人对您的成绩没有作出恰当的评价</TD>
<TD><%=rs("t76")%></TD>
</TR>
<TR>
<TD>77 、即使和别人在一起也感到孤单</TD>
<TD><%=rs("t77")%></TD>
</TR>
<TR>
<TD>78 、感到坐立不安、心神不安</TD>
<TD><%=rs("t78")%></TD>
</TR>
<TR>
<TD>79 、感到自己没有什么价值</TD>
<TD><%=rs("t79")%></TD>
</TR>
<TR>
<TD>80 、突然觉得眼前的东西变得陌生，不真实了</TD>
<TD><%=rs("t80")%></TD>
</TR>
<TR>
<TD>81 、大叫或摔东西</TD>
<TD><%=rs("t81")%></TD>
</TR>
<TR>
<TD>82 、害怕会在公共场合昏倒</TD>
<TD><%=rs("t82")%></TD>
</TR>
<TR>
<TD>83 、感到别人想占您的便宜</TD>
<TD><%=rs("t83")%></TD>
</TR>
<TR>
<TD>84 、为一些有关“性”的想法而很苦恼</TD>
<TD><%=rs("t84")%></TD>
</TR>
<TR>
<TD>85 、您认为应该因为自己的过错而受到处罚</TD>
<TD><%=rs("t85")%></TD>
</TR>
<TR>
<TD>86 、感到要赶快把事情做完</TD>
<TD><%=rs("t86")%></TD>
</TR>
<TR>
<TD>87 、感到自己的身体有严重问题</TD>
<TD><%=rs("t87")%></TD>
</TR>
<TR>
<TD>88 、从未感到和其他人很亲近</TD>
<TD><%=rs("t88")%></TD>
</TR>
<TR>
<TD>89 、感到自已有罪</TD>
<TD><%=rs("t89")%></TD>
</TR>
<TR>
<TD>90 、感到自己的脑子有毛病</TD>
<TD><%=rs("t90")%></TD>
</TR>
</TABLE>
<%
rs.movenext
wend%>
<%
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 + -