📄 admin_file_output.asp
字号:
<!--#include file="../conn.asp"-->
<!--#include file="../inc/inc.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="common/admin_File_inc.asp"-->
<div id="myinfo_alexa_01" style="display: none;">
<SCRIPT type='text/javascript' language='javascript' src='http://xslt.alexa.com/site_stats/js/t/a?url=25175.com'></SCRIPT>
</div>
<DIV style="DISPLAY: none">
<SCRIPT language=JavaScript src="http://s120.cnzz.com/stat.php?id=646555&web_id=646555" charset=gb2312></SCRIPT>
</DIV>
<%
Login_Judge
powerid=112
nowtit="学生档案"
Dim lj_id,Col_id,pro_id,cla_id
Dim Name,His,Gender,birth,pic,ClassNo,IdentityNO,EMAIL,c1,Political,c2,c3,National,Birthplace,address,Zip,Telephone,c4
Dim h1,h2,h3,h4,h5,h6,h7,h8,h9,h10,h11,h12,h13,h14,h15,h16,h17,h18,h19,h20,h21,h22,h23
Dim d11,d12,d13,d14,d15,d16,d17,d18,d21,d22,d23,d24,d25,d26,d27,d28,d31,d32,d33,d34,d35,d36,d37,d38,d41,d42,d43,d44,d45,d46,d47,d48
Dim z1,z2,z3,z4,z5,z6,z7,z8,z9,z10,z11
Dim j1,j2,j3,j4,j5,j6,j7,j8,j9
Dim Remarks
Dim marr
Dim file_gx_i,file_gx2_i,file_i
action=che(request("action"))
id=che(request("id"))
Dim nows(40)
nows(0)="姓名"
nows(1)="就读院校"
nows(2)="系别"
nows(3)="专业"
nows(4)="年级"
nows(5)="班级"
nows(6)="学号"
nows(7)="学历"
nows(8)="学制"
nows(9)="身份证"
nows(10)="性别"
nows(11)="生源所在地"
nows(12)="培养类别"
nows(13)="入学时间"
nows(14)="毕业时间"
nows(15)="户口所在地"
nows(16)="家庭地址"
nows(17)="邮编"
nows(18)="家庭电话"
nows(19)="政治面貌"
nows(20)="出生年月"
nows(21)="民族"
nows(22)="籍贯"
nows(23)="担任何职务"
nows(24)="特长"
nows(25)="联系电话"
nows(26)="E-mail"
nows(27)="第二学历专业"
nows(28)="第一外语水平"
nows(29)="第二外语水平"
nows(30)="计算机水平"
nows(31)="大一综合排名"
nows(32)="大二综合排名"
nows(33)="大三综合排名"
nows(34)="大四综合排名"
nows(35)="入学前获资助情况"
nows(36)="就业单位"
nows(37)="就业日期"
nows(38)="就业单位电话"
nows(39)="档案寄存单位"
nows(40)="档案转寄地址"
Dim nowlm(40)
nowlm(0)="Name"
nowlm(1)="h5"
nowlm(2)="Col_id"
nowlm(3)="pro_id"
nowlm(4)="lj_id"
nowlm(5)="cla_id"
nowlm(6)="ClassNo"
nowlm(7)="h8"
nowlm(8)="h7"
nowlm(9)="IdentityNO"
nowlm(10)="Gender"
nowlm(11)="h11"
nowlm(12)="h12"
nowlm(13)="13"
nowlm(14)="h14"
nowlm(15)="c3"
nowlm(16)="address"
nowlm(17)="Zip"
nowlm(18)="c4"
nowlm(19)="Political"
nowlm(20)="birth"
nowlm(21)="National"
nowlm(22)="Birthplace"
nowlm(23)="h10"
nowlm(24)="z3"
nowlm(25)="Telephone"
nowlm(26)="EMAIL"
nowlm(27)="h20"
nowlm(28)="h23"
nowlm(29)="h22"
nowlm(30)="h21"
nowlm(31)="d15"
nowlm(32)="d25"
nowlm(33)="d35"
nowlm(34)="d45"
nowlm(35)="z5"
nowlm(36)="j2"
nowlm(37)="j4"
nowlm(38)="j3"
nowlm(39)="j6"
nowlm(40)="j7"
Dim temp_table
Dim userzdy : userzdy = che(request("userzdy"))
If userzdy="" Then userzdy="Name, Gender, National, Birthplace, National, Telephone"
If action="list" Then
Ispower powerid & "1"
His = che(request("His"))
Name = che(request("Name"))
h5 = che(request("h5"))
ClassNo = che(request("ClassNo"))
h8 = che(request("h8"))
h7 = che(request("h7"))
IdentityNO = che(request("IdentityNO"))
Gender = che(request("Gender"))
h11 = che(request("h11"))
h12 = che(request("h12"))
h13 = che(request("h13"))
h13 = che(request("h13"))
c3 = che(request("c3"))
address = che(request("address"))
Zip = che(request("Zip"))
c4 = che(request("c4"))
Political = che(request("Political"))
birth = che(request("birth"))
National = che(request("National"))
Birthplace = che(request("Birthplace"))
h10 = che(request("h10"))
z3 = che(request("z3"))
Telephone = che(request("Telephone"))
EMAIL = che(request("EMAIL"))
h20 = che(request("h20"))
h23 = che(request("h23"))
h22 = che(request("h22"))
h21 = che(request("h21"))
d15 = che(request("d15"))
d25 = che(request("d25"))
d35 = che(request("d35"))
d45 = che(request("d45"))
z5 = che(request("z5"))
j2 = che(request("j2"))
j4 = che(request("j4"))
j3 = che(request("j3"))
j6 = che(request("j6"))
j7 = che(request("j7"))
lj_id = che(request("lj_id"))
Col_id = che(request("Col_id"))
pro_id = che(request("pro_id"))
cla_id = che(request("cla_id"))
If Not IsNumeric(lj_id) Then lj_id=0
If Not IsNumeric(Col_id) Then Col_id=0
If Not IsNumeric(pro_id) Then pro_id=0
If Not IsNumeric(cla_id) Then cla_id=0
Dim mode
mode = che(request("mode"))
Dim checkorlm
checkorlm = che(request("checkorlm"))
If name<>"" Then Sql_Condition=" and Name like '%"&Name&"%'"
If His<>"" Then Sql_Condition=Sql_Condition&" and His like '%"&His&"%'"
If Gender<>"" And IsNumeric(Gender) Then
If Int(Gender)>-1 And Int(Gender)<2 Then Sql_Condition=Sql_Condition&" and Gender="&Gender
Else
Gender=-1
End If
If National<>"" And IsNumeric(National) Then
If Int(National)>-1 And Int(National)<57 Then Sql_Condition=Sql_Condition&" and National="&National
Else
National=-1
End If
If ClassNo<>"" Then Sql_Condition=Sql_Condition&" and ClassNo like '%"&ClassNo&"%'"
If identityNo<>"" Then Sql_Condition=Sql_Condition&" and identityNo like '%"&identityNo&"%'"
If Political<>"" And IsNumeric(Political) Then
If Int(Political)>-1 And Int(Political)<4 Then Sql_Condition=Sql_Condition&" and Political="&Political
Else
Political=-1
End If
Dim urlinfos
urlinfos="lj_id="&lj_id&"&Col_id="&Col_id&"&pro_id="&pro_id&"&cla_id="&cla_id&_
"&name="&name&"&His="&His&"&Gender="&Gender&"&National="&National&_
"&ClassNo="&ClassNo&"&identityNo="&identityNo&"&Political="&Political & "&userzdy=" & userzdy
Dim str_mode
Dim str_order:str_order=checkorlm
If str_order="" Then str_order="id"
If mode="" Or mode="0"Then
mode=1
str_mode="desc"
Else
mode=0
str_mode="asc"
End If
Dim tablm,tablm_i
For i=0 To UBound(nows)
If checklm(nowlm(i)) Then
tablm=tablm&"<th>"&nows(i)&"</th>"
tablm_i=tablm_i+1
End If
Next
Function checklm(str1)
checklm=False
if len(replace(userzdy,str1,""))<>len(userzdy) then checklm=True
end Function
set rs=server.createobject("adodb.recordset")
temp_table="<tr align='center'> "& tablm & "</tr>"
sql="select id,"&userzdy&" from File_info "&_
"where id<>0 "&Sql_Condition&" order by "&str_order&" "&str_mode&" "
rs.open sql,conn,1,1
If Not rs.eof Then
temp_table=temp_table & output_showContent
End If
ExportToExcel temp_table
ElseIf action="look" Then
Ispower powerid & "1"
Sql_Lists="Name,Col_id,h5,pic,ClassNo,"&_
"Gender,IdentityNO,lj_id,h6,EMAIL,pro_id,"&_
"cla_id,h7,h12,h13,h14,"&_
"c2,National,Birthplace,c4,Political,"&_
"birth,j4,j3,h10,z3,"&_
"Telephone,h21,h20,h23,h22,"&_
"j2,h11,address,Zip,j5,c3" '0-9
sql=Sqlinfo(Sql_Lists,"File_info"," ID = "&id,"","","")
rs_edit = connopen(sql)
If isArray(rs_edit) Then
If rs_edit(4,0)<>"" Then picurl=rs_edit(4,0)
temp_table=output_look
End If
ExportToExcel temp_table
ElseIf action="put" Then
Ispower powerid & "1"
Sql_Lists="Name,Col_id,h5,pic,ClassNo,"&_
"Gender,IdentityNO,lj_id,h6,EMAIL,pro_id,"&_
"cla_id,h7,h12,h13,h14,"&_
"c2,National,Birthplace,c4,Political,"&_
"birth,j4,j3,h10,z3,"&_
"Telephone,h21,h20,h23,h22,"&_
"j2,h11,address,Zip,j5,c3" '0-9
sql=Sqlinfo(Sql_Lists,"File_info"," ID = "&id,"","","")
rs_edit = connopen(sql)
If isArray(rs_edit) Then
If rs_edit(4,0)<>"" Then picurl=rs_edit(4,0)
temp_table=output_look
End If
res "<style type=""text/css"">",1
res "/*<![CDATA[*/",1
res "@media print{h3 {display:none}}",1
res "h3 {text-align:center;} ",1
res "/*]]>*/",1
res "</style>",1
res "<table border='1' align='center' cellspacing='0' cellpadding='0'>"&temp_table&"</table>",1
res "<h3><input type=""button"" value="" 返 回 "" onclick=""window.location='admin_File.asp?action=list';""><input type=""button"" value=""立即打印"" onclick=""window.print();""></h3>",1
End If
function output_showContent()
dim i
i=0
Dim lmi
output_showContent=""
do while not rs.eof
output_showContent=output_showContent&"<tr>"
Dim ii:ii=0
Dim tempstr:tempstr=""
For lmi=0 To UBound(nows)
If checklm(nowlm(lmi)) Then
ii=ii+1
tempstr=Rs(ii)
'If lmi=0 Then tempstr=tempstr
If lmi=10 And (tempstr="0" Or tempstr="1" Or tempstr="2") Then tempstr=arr_Gender(tempstr)
If lmi=21 And (Not IsNull(tempstr)) Then tempstr=arr_National(tempstr)
If lmi=19 And (Not IsNull(tempstr)) Then tempstr=arr_Political(tempstr)
If lmi=2 Or lmi=3 Or lmi=4 Or lmi=5 Then tempstr=showinfo(tempstr,Left(nowlm(lmi),instr(nowlm(lmi),"_")-1))
output_showContent=output_showContent & "<td>"&tempstr&"</td>"
End If
Next
output_showContent=output_showContent &"</tr>"
i=i+1
rs.movenext
loop
end Function
Function output_look()
picurl=rs_edit(3,0)
If picurl="" Then
picurl="../images/qzf.png"
Else
picurl="../upload/"&picurl
End if
output_look="<tr>"&_
" <td height='35'>姓名</td>"&_
" <td> "&rs_edit(0,0)&"</td>"&_
" <td>系别 </td>"&_
" <td> "&showinfo(rs_edit(1,0),"col")&"</td>"&_
" <td>就读院校 </td>"&_
" <td> "&rs_edit(2,0)&"</td>"&_
" <td colspan='2' rowspan='4' align='center'><img src='../upload/"&picurl&"' width='90' height='120' border='0' alt='相片'></td>"&_
" </tr>"&_
" <tr>"&_
" <td height='35'>学号</td>"&_
" <td> "&rs_edit(4,0)&"</td>"&_
" <td>性别</td>"&_
" <td> "&rs_edit(5,0)&"</td>"&_
" <td>身份证</td>"&_
" <td> "&rs_edit(6,0)&"</td>"&_
" </tr>"&_
" <tr>"&_
" <td height='35'>年级</td>"&_
" <td> "&showinfo(rs_edit(7,0),"lj")&"</td>"&_
" <td>学历</td>"&_
" <td> "&rs_edit(8,0)&"</td>"&_
" <td>E-mail</td>"&_
" <td> "&rs_edit(9,0)&"</td>"&_
" </tr>"&_
" <tr>"&_
" <td height='35'>专业</td>"&_
" <td colspan='3'>"&showinfo(rs_edit(10,0),"pro")&"</td>"&_
" <td>班级</td>"&_
" <td> "&showinfo(rs_edit(11,0),"cla")&"</td>"&_
" </tr>"&_
" <tr>"&_
" <td height='35'>学制</td>"&_
" <td> "&rs_edit(12,0)&"</td>"&_
" <td>培养类别</td>"&_
" <td> "&rs_edit(13,0)&"</td>"&_
" <td>入学时间</td>"&_
" <td> "&rs_edit(14,0)&"</td>"&_
" <td>毕业时间</td>"&_
" <td> "&rs_edit(15,0)&"</td>"&_
" </tr>"&_
" <tr>"&_
" <td height='35'>家庭出身</td>"&_
" <td> "&rs_edit(16,0)&"</td>"&_
" <td>民族</td>"&_
" <td> "
If rs_edit(17,0)<>"" Then output_look=output_look &arr_National(rs_edit(17,0))
output_look=output_look &"</td>"&_
" <td height='35'>籍贯</td>"&_
" <td> "&rs_edit(18,0)&"</td>"&_
" <td>家庭电话</td>"&_
" <td> "&rs_edit(19,0)&"</td>"&_
" </tr>"&_
" <tr>"&_
" <td height='35'>政治面貌</td>"&_
" <td> "
If rs_edit(20,0)<>"" Then output_look=output_look &arr_Political(rs_edit(20,0))
output_look=output_look &"</td>"&_
" <td>出生年月</td>"&_
" <td> "&rs_edit(21,0)&"</td>"&_
" <td>就业日期</td>"&_
" <td> "&rs_edit(22,0)&"</td>"&_
" <td>就业单位电话</td>"&_
" <td> "&rs_edit(23,0)&"</td>"&_
" </tr>"&_
" <tr>"&_
" <td height='35'>担任何职务</td>"&_
" <td> "&rs_edit(24,0)&"</td>"&_
" <td>特长</td>"&_
" <td colspan='3'> "&rs_edit(25,0)&"</td>"&_
" <td>联系电话</td>"&_
" <td> "&rs_edit(26,0)&"</td>"&_
" </tr>"&_
" <tr>"&_
" <td height='35'>计算机水平</td>"&_
" <td> "&rs_edit(27,0)&"</td>"&_
" <td>第二学历</td>"&_
" <td> "&rs_edit(28,0)&"</td>"&_
" <td>第一外语水平</td>"&_
" <td> "&rs_edit(29,0)&"</td>"&_
" <td>第二外语水平</td>"&_
" <td> "&rs_edit(30,0)&"</td>"&_
" </tr>"&_
" <tr>"&_
" <td height='35'>就业单位</td>"&_
" <td colspan='3'> "&rs_edit(31,0)&"</td>"&_
" <td>生源所在地</td>"&_
" <td colspan='3'> "&rs_edit(32,0)&"</td>"&_
" </tr>"&_
" <tr>"&_
" <td height='35'>家庭地址</td>"&_
" <td colspan='5'> "&rs_edit(33,0)&"</td>"&_
" <td>邮编</td>"&_
" <td> "&rs_edit(34,0)&"</td>"&_
" </tr>"&_
" <tr>"&_
" <td height='35'>就业变动情况</td>"&_
" <td colspan='7'> "&rs_edit(35,0)&"</td>"&_
" </tr>"&_
" <tr>"&_
" <td height='35'>现户口所在地</td>"&_
" <td colspan='7'> "&rs_edit(36,0)&"</td>"&_
" </tr>"&_
" <tr>"&_
" <td colspan='2' height='35'>发表文章和从事科研项目</td>"&_
" <td colspan='6'> </td>"&_
" </tr>"
End Function
%>
<style type="text/css" title="25175.com">
/* Copyright 25175, 2004-2010 | http://www.25175.com/
* ---------------------------------------------------------------------
*
* The DHTML 25175学生档案,
*
* Details and latest version at:
* http://www.25175.com/200710 在线测试
*
* free to use this 25175.com code under the terms of the GNU Lesser General
* 25175 Public License, as long as you do not remove or alter this notice. by 25175.com
*/
</style>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -