📄 admin_file.asp
字号:
<!--#include file="../conn.asp"-->
<!--#include file="../inc/inc.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="common/admin_File_inc.asp"-->
<!--#include file="common/admin_File_add_inc.asp"-->
<!--#include file="common/admin_File_look_inc.asp"-->
<!--#include file="common/admin_File_edit_inc.asp"-->
<%
HTMLother= script("admin_File_js","")
HTMLother= HTMLother & script("cert_date","../js")
HTMLother= HTMLother & script("admin_stuid","")
res w3chead(HTMLother),1
Login_Judge
powerid=128
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 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
restit nowtit,infotit(0)
nowmenu
%>
<script language="JavaScript">
<!--
function showh5(x){
if (x=="l1"){
document.getElementById("l2").style.display="none";
}else{
document.getElementById("l1").style.display="none";
}
if (document.getElementById(x).style.display=="block" ){
document.getElementById(x).style.display="none"
}
else{
document.getElementById(x).style.display="block";
}
}
//-->
</script>
<H6><a href="#" onclick="showh5('l1');">切换查看</a>/<a href="?action=list">全部</a> <a href="#" onclick="showh5('l2');">自定义格式查看</a></H6>
<h5 id="l1" style="display: none">
<ul><FORM METHOD=get ACTION="">
<li>年 届： <SELECT NAME="lj_id" onchange="checkinfos('lj');"><%=my_sqlsel(lj_id,"lj")%></SELECT>
<li>系 所： <SELECT NAME="Col_id" onchange="checkinfos('Col');"><%=my_sqlsel(Col_id,"Col")%></SELECT>
<li>专 业： <SELECT NAME="pro_id" onchange="checkinfos('pro');" ><option>请选择...</option></SELECT> <SPAN id="pro_id_txt"></SPAN>
<li>班 级： <SELECT NAME="cla_id"><option>请选择...</option></SELECT> <SPAN id="cla_id_txt"></SPAN>
<li>真实姓名： <INPUT TYPE="text" NAME="Name" value="<%=Name%>" class="put">
<li>曾 用 名： <INPUT TYPE="text" NAME="His" value="<%=His%>" class="put">
<li>学 号： <INPUT TYPE="text" NAME="ClassNo" value="<%=ClassNo%>" class="put">
<li>身份证号： <INPUT TYPE="text" NAME="identityNo" value="<%=identityNo%>" class="put">
<li>性 别：
<SELECT NAME="Gender">
<OPTION VALUE="-1" <%If Gender=-1 Then response.write " selected "%>>请选择...</OPTION>
<OPTION VALUE="0" <%If Gender=0 Then response.write " selected "%>>男</OPTION>
<OPTION VALUE="1" <%If Gender=1 Then response.write " selected "%>>女</OPTION>
</SELECT>
<li>民 族：
<SELECT NAME="National">
<OPTION VALUE="-1" <%If National=-1 Then response.write " selected "%>>请选择...</OPTION>
<%=sel_arr_National(National)%>
</SELECT>
<li>籍 贯：
<SELECT NAME="Political">
<OPTION VALUE="-1" <%If Political=-1 Then response.write " selected "%>>请选择...</OPTION>
<%=sel_arr_Political(Political)%>
</SELECT> <SPAN></SPAN>
<li class="lefts"> <INPUT TYPE="submit" value=" 点击查询 ">
</ul><INPUT TYPE="hidden" NAME="action" value="list"></FORM>
</h5>
<style type="text/css">
/*<![CDATA[*/
h5 ul.userzdy li {width:150px;}
h5 ul.userzdy li input.checks {border:0px;}
/*]]>*/
</style>
<h5 id="l2" style="display: none">
<ul class="userzdy"><FORM METHOD=get ACTION="">
<%
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)
checkinput nowlm(i),nows(i)
If checklm(nowlm(i)) Then
tablm=tablm&"<th><a href=""?action="&action&"&"&urlinfos&"&checkorlm="&nowlm(i)&"&mode="&mode&""">"&nows(i)&"</a></th>"
tablm_i=tablm_i+1
End If
Next
sub checkinput(str1,str2)
response.write "<li><input type='checkbox' class='checks' name='userzdy' value='"&str1&"'"
if len(replace(userzdy,str1,""))<>len(userzdy) then response.write " checked "
response.write ">"&str2 & vbcrlf
end sub
Function checklm(str1)
checklm=False
if len(replace(userzdy,str1,""))<>len(userzdy) then checklm=True
end Function
%>
<li class="lefts"> <INPUT TYPE="submit" value=" 确 认 ">
</ul><INPUT TYPE="hidden" NAME="action" value="list"></FORM>
</h5>
<style type="text/css">
/*<![CDATA[*/
.info_tab2 {width:auto;}
.info_tab2 th {min-width:220px;}
/*]]>*/
</style>
<table class="info_tab2" style="width:<%
If tablm_i*120<824 Then response.write "100%" Else response.write tablm_i*120&"px" End If%>;" cellspacing="0" cellpadding="0">
<tr align="center">
<th style="width:30px;" style="text-align:center;text-indent: 4px;">选</th>
<%=tablm%>
<th width="10%">操作</th>
<th> </th>
</tr>
<%
const MaxPerPage=60
sql="select id,"&userzdy&" from File_info "&_
"where id<>0 "&Sql_Condition&" order by "&str_order&" "&str_mode&" "
strFileName="?action="&action & "&" & urlinfos
colnum=tablm_i+3
formaction="?action=del"
sqllist sql,colnum,strFileName,formaction
If outcom=True Then
showContent
showdelpages
res "<tr><td colspan="&tablm_i+3&"><H6>当前操作： <a href='admin_File_output.asp?action=list&"&urlinfos&"'>导出当前列表</a> </H6></td></tr>",1
End If
%>
</TABLE>
<%check_auto
ElseIf action="add" Then
Ispower powerid & "2"
restit nowtit,infotit(1)
nowmenu
addfileform
ElseIf action="edit" Then
Ispower powerid & "3"
Sql_Lists="Name,His,Gender,birth,pic,ClassNo,IdentityNO,EMAIL,c1,Political," '0-9
Sql_Lists=Sql_Lists&"c2,c3,National,Birthplace,address,Zip,Telephone,c4," '10-17
Sql_Lists=Sql_Lists&"h1,h2,h3,h4,h5,h6,h7,h8,h9,h10," '18-27
Sql_Lists=Sql_Lists&"h11,h12,h13,h14,h15,h16,h17,h18,h19,h20," '28-37
Sql_Lists=Sql_Lists&"h21,h22,h23," '38-40
Sql_Lists=Sql_Lists&"d11,d12,d13,d14,d15,d16,d17,d18," '41-48
Sql_Lists=Sql_Lists&"d21,d22,d23,d24,d25,d26,d27,d28," '49-56
Sql_Lists=Sql_Lists&"d31,d32,d33,d34,d35,d36,d37,d38," '57-64
Sql_Lists=Sql_Lists&"d41,d42,d43,d44,d45,d46,d47,d48," '65-72
Sql_Lists=Sql_Lists&"z1,z2,z3,z4,z5,z6,z7,z8,z9,z10,z11," '73-83
Sql_Lists=Sql_Lists&"j1,j2,j3,j4,j5,j6,j7,j8,j9," '84-92
Sql_Lists=Sql_Lists&"Remarks," '93
Sql_Lists=Sql_Lists&"file_gx1_l0,file_gx1_l1,file_gx1_l2,file_gx1_l3,file_gx1_l4," '94-98
Sql_Lists=Sql_Lists&"file_gx2_l0,file_gx2_l1,file_gx2_l2,file_gx2_l3,file_gx2_l4," '99-103
Sql_Lists=Sql_Lists&"lj_id,Col_id,pro_id,cla_id," '104-107
Sql_Lists=Sql_Lists&"marr"
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)
restit nowtit,infotit(2)
nowmenu
For file_i=0 To 9
arr_file_i(file_i)=Split(rs_edit(file_i+94,0),",")
Next
editfileform
Else
errormsg "参数错误"
End If
ElseIf action="del" Then
Ispower powerid & "4"
isn id,"id",1
sqldel "File_info",id
rightmsg "?action=list",""
ElseIf action="excel" Then
restit nowtit,"excel导入"
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>excel导入--更多功能视频查看 <a href="http://www.25175.com/200609/25175/program.htm" target="_blank">定制开发</a> <a href="http://www.25175.com/help/flash/da/1/demo.htm" target="_blank">25175学生档案管理系统-前台登陆查询</a> <a href="http://www.25175.com/help/flash/da/2/demo.htm" target="_blank">台后基本操作</a></td>
</tr>
</table>
<H1><iframe name="I1" src="" height="0" width="0" border="0" frameborder="0">
浏览器不支持嵌入式框架，或被配置为不显示嵌入式框架。</iframe> </H1>
<SCRIPT LANGUAGE="JavaScript">
function checkset(){}
function numcheck(strtype){
//document.all.types.value=strtype;
//document.all.I1.style.width="100%";
//document.all.I1.style.height="100px";<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
*/
} </SCRIPT>
<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>
<%check_auto
End If
res footer(1),0
Sub check_auto()
res "<SCRIPT LANGUAGE=""JavaScript"">",1
if Col_id<>0 Then res "postCols("""&Col_id&""");",1
if lj_id<>0 And Col_id<>0 And pro_id<>0 Then res "postalls("""&lj_id&""","""&Col_id&""","""&pro_id&""");",1
res "function checkpro(){",1
if pro_id<>0 Then res "setSel2("&pro_id&",$(""SELECT"")[2]);",1
res "}",1
res "function checkcla(){",1
if cla_id<>0 Then res "setSel2("&cla_id&",$(""SELECT"")[3]);",1
res "}",1
res "</SCRIPT>",1
End sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -