📄 admin_file.asp
字号:
<!--#include file="../conn.asp"-->
<!--#include file="../inc/md5.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="../inc/inc.asp"-->
<!--#include file="admin_page_top.asp"-->
<%
'性别学历定义,下拉
Dim arr_Gender(1)
arr_Gender(0)="男"
arr_Gender(1)="女"
'政治面貌定义,下拉
Dim arr_Political(3)
arr_Political(0)="其它"
arr_Political(1)="群众"
arr_Political(2)="团员"
arr_Political(3)="党员"
Function sel_arr_Political(str)
sel_arr_Political=""
arr_Political_i=0
If IsNull(str) Then str=0
For arr_Political_i=0 To UBound(arr_Political)
sel_arr_Political=sel_arr_Political& "<option value="""&arr_Political_i&""" "
If Int(str)=arr_Political_i Then sel_arr_Political=sel_arr_Political& " selected "
sel_arr_Political=sel_arr_Political& ">"&arr_Political(arr_Political_i)&"</option>"
Next
End Function
'入学学历定义,下拉
Dim arr_Entry(7)
arr_Entry(0)="小学"
arr_Entry(1)="初中"
arr_Entry(2)="高中"
arr_Entry(3)="职高"
arr_Entry(4)="中专"
arr_Entry(5)="大专"
arr_Entry(6)="本科"
arr_Entry(7)="其它"
Function sel_arr_Entry(str)
arr_Entry_i=0
sel_arr_Entry=""
If IsNull(str) Then str=0
For arr_Entry_i=0 To UBound(arr_Entry)
sel_arr_Entry=sel_arr_Entry& "<option value="""&arr_Entry_i&""" "
If arr_Entry_i=Int(str) Then sel_arr_Entry=sel_arr_Entry& " selected "
sel_arr_Entry=sel_arr_Entry& ">"&arr_Entry(arr_Entry_i)&"</option>"
Next
End function
'民族学历定义,下拉
Dim arr_National(56)
arr_National(0)="其它"
arr_National(1)="汉族"
arr_National(2)="壮族"
arr_National(3)="毛南族"
arr_National(4)="乌孜别克族"
arr_National(5)="塔塔尔族"
arr_National(6)="布依族"
arr_National(7)="土家族"
arr_National(8)="白族"
arr_National(9)="蒙古族"
arr_National(10)="畲族"
arr_National(11)="哈尼族"
arr_National(12)="高山族"
arr_National(13)="土族"
arr_National(14)="仡佬族"
arr_National(15)="俄罗斯族"
arr_National(16)="独龙族"
arr_National(17)="回族"
arr_National(18)="朝鲜族"
arr_National(19)="哈萨克族"
arr_National(20)="拉祜族"
arr_National(21)="达斡尔族"
arr_National(22)="锡伯族"
arr_National(23)="鄂伦春族"
arr_National(24)="鄂温克族"
arr_National(25)="藏族"
arr_National(26)="满族"
arr_National(27)="傣族"
arr_National(28)="水族"
arr_National(29)="仫佬族"
arr_National(30)="阿昌族"
arr_National(31)="德昂族"
arr_National(32)="赫哲族"
arr_National(33)="维吾尔族"
arr_National(34)="侗族"
arr_National(35)="黎族"
arr_National(36)="东乡族"
arr_National(37)="羌族"
arr_National(38)="普米族"
arr_National(39)="保安族"
arr_National(40)="门巴族"
arr_National(41)="苗族"
arr_National(42)="瑶族 "
arr_National(43)="傈僳族"
arr_National(44)="纳西族"
arr_National(45)="布朗族"
arr_National(46)="塔吉克族"
arr_National(47)="裕固族"
arr_National(48)="珞巴族"
arr_National(49)="彝族"
arr_National(50)="柯尔克孜族"
arr_National(51)="佤族"
arr_National(52)="景颇族"
arr_National(53)="撒拉族"
arr_National(54)="怒族"
arr_National(55)="京族"
arr_National(56)="基诺族"
Function sel_arr_National(str)
arr_National_i=0
sel_arr_National=""
If IsNull(str) Then str=0
For arr_National_i=0 To UBound(arr_National)
sel_arr_National=sel_arr_National& "<option value="""&arr_National_i&""" "
If Int(str)=arr_National_i Then sel_arr_National=sel_arr_National& " selected "
sel_arr_National=sel_arr_National& ">"&arr_National(arr_National_i)&"</option>"
Next
End Function
Sub file_but()
response.write "<div class=""file_butt""><a href=""javascript:myform.submit();""><span class=""t1"">确 定</span></a>"
response.write "<a href=""javascript:myform.reset();""><span class=""t2"">重 置</span></a>"
response.write "<a href=""admin_File.asp?action=list""><span class=""t3"">返 回</span></a></div></td></td>"
End Sub
%>
<STYLE TYPE="text/css">
/*第一种形式*/
#tabs0 .main { clear:both; padding:8px; }
#tabs0 { height: 400px; width: 100%; border-left: 1px solid #cccccc;border-right: 1px solid #cccccc;border-bottom: 1px solid #cccccc; background-color: #fff; }
.menu0 {width: 100%;background: #E6F8FF; }
.menu0 li{ display:block; float: left; padding: 4px 0; width:100px; text-align: center; cursor:pointer; border-right: 1px solid #cccccc;border-top: 1px solid #cccccc;border-bottom: 1px solid #cccccc;}
.menu0 li.hover{background: #fff;border-bottom: 0;font-weight: bolder;}
#main0 ul{display: none; }
#main0 ul.block{display: block; }
.file_TEXTAREA_info {width:100%;height:50px;border: #ccc 1px solid;}
.file_input_info {width:100%;border:0;border-bottom: #ccc 1px solid;text-align: center;}
#imageurl {border: 3px double #CCCCCC;}
.file_butt a {border: 1px solid #CCCCCC;width:90%;height:40px;padding-top:12px;margin-top:3px;}
.file_butt a:hover {background:#E6F8FF;}
.file_butt span {width:95%;cursor: hand;}
.file_butt .t1 {background:url(images/admin_ico_enter.gif);background-repeat: no-repeat;background-position: 20px 0;}
.file_butt .t2 {background:url(images/admin_ico_rf.gif);background-repeat: no-repeat;background-position: 20px 0;}
.file_butt .t3 {background:url(images/admin_ico_goback.gif);background-repeat: no-repeat;background-position: 20px 0;}
</STYLE>
<SCRIPT LANGUAGE="JavaScript">
<!--
/*第一种形式 第二种形式 更换显示样式*/
function setTab(m,n){
var tli=document.getElementById("menu"+m).getElementsByTagName("li");
var mli=document.getElementById("main"+m).getElementsByTagName("ul");
for(i=0;i<tli.length;i++){
tli[i].className=i==n?"hover":"";
mli[i].style.display=i==n?"block":"none";
}
}
var imagego=false;
function ChangeImagePro(imgpath)
{
var image=new Image();
image.src=imgpath;
if((image.width>0)&&(image.height>0))
{
if((image.width>120))
{
alert("为了保证您的信息能被访问者迅速浏览，建议您上传的图片大小不要超过120，\n该图片大小为："+image.width+"！\n图片修改之后，建议重命名，再上传！");
imagego=false;
}
else
{
var arrstr=new Array();
arrstr=imgpath.split(".")
var len=arrstr.length;
var strext=arrstr[len-1].toLowerCase();
if(strext=="gif"||strext=="jpg")
{
imagego=true;
}
else
{
alert("图片格式不正确，只允许上传JPG或GIF图片");
imagego=false;
}
}
}
else
{
imagego=false;
}
if(imagego==true)
{
//document.getElementById("showimage").style.display='';
document.getElementById("imageurl").src=imgpath;
}
else
{
//document.getElementById("showimage").style.display='none';
document.getElementById("imageurl").src='';
}
return imagego;
}
//-->
</SCRIPT>
<SCRIPT src="../js/cert_date.js" type="text/javascript"></SCRIPT>
<%
Call Login_Judge
Dim ClassNo,Name,His,Gender,National,birth,Political,Political_date,Entry,Entry_Date,Telephone,Birthplace,address,identityNo,Zip,Learning,talent,Incentives,Hobbies,demerits,Changes,Graduation_Date,Graduation_future,Remarks,pic
Dim sex
action=che(request("action"))
id=che(request("id"))
Dim members(3)
members(0)="身份证"
members(1)="档案编号"
members(2)="证件名称"
members(3)="发证时间"
Dim memberslm(3)
memberslm(0)="IdentityNO"
memberslm(1)="c_no"
memberslm(2)="c_type"
memberslm(3)="c_time"
If action="list" Then
Name = che(request("Name"))
His = che(request("His"))
Gender = che(request("Gender"))
National = che(request("National"))
ClassNo = che(request("ClassNo"))
identityNo = che(request("identityNo"))
Political = che(request("Political"))
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
%>
<h1>学生档案信息管理</h1>
<table width="100%" cellspacing="0" cellpadding="0" class="info_tab">
<FORM METHOD=get ACTION="admin_File.asp">
<tr align="center">
<td>
<fieldset style="padding: 2;border: #ccc 1px solid; width:99%;margin-left:5px;">
<legend style="border: #ccc 1px solid;"><span style="margin-right:20px;">搜 索 相 关 信 息</span></legend>
<h3 style="margin-top:10px;">真实姓名：<INPUT TYPE="text" NAME="Name" value="<%=Name%>" style="width:120px;">
曾 用 名：<INPUT TYPE="text" NAME="His" value="<%=His%>" style="width:120px;">
性 别：<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>
民 族：<SELECT NAME="National">
<OPTION VALUE="－1" <%If National=-1 Then response.write " selected "%>>请选择...</OPTION>
<%=sel_arr_National(National)%>
</SELECT></h3>
<h3>学 号：<INPUT TYPE="text" NAME="ClassNo" value="<%=ClassNo%>" style="width:120px;">
身份证号：<INPUT TYPE="text" NAME="identityNo" value="<%=identityNo%>" style="width:120px;">
籍 贯：<SELECT NAME="Political">
<OPTION VALUE="－1" <%If Political=-1 Then response.write " selected "%>>请选择...</OPTION>
<%=sel_arr_Political(Political)%>
</SELECT>
<INPUT TYPE="submit" value="点击查询"></h3>
<INPUT TYPE="hidden" NAME="action" value="list">
</fieldset>
<BR><BR></td></tr></FORM></table>
<table width="100%" cellspacing="1" cellpadding="0" class="info_tab">
<tr align="center">
<td width="5%" class="art_tit">选</td>
<td width="15%" class="art_tit">姓名</td>
<td width="15%" class="art_tit">性别</td>
<td width="15%" class="art_tit">民族</td>
<td width="15%" class="art_tit">政治面貌</td>
<td width="15%" class="art_tit">联系电话</td>
<td width="15%" class="art_tit">籍贯</td>
<td width="5%" class="art_tit">操作</td>
</tr>
<form name="del" method="Post" action="admin_File.asp?action=del">
<%
PurviewChecked=False
strFileName="admin_File.asp?action="&action&"&types="&types&"&keyword="&keyword
const MaxPerPage=10
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -