admin_file_inc.asp

25175学生档案管理系统是一款学校学生档案管理系统.提供丰富的查询、登记、修改功能等。界面美观、时尚

<%
Dim picurl
picurl="default.gif"
Dim arr_file_i(9)
dimarr "Gender"
dimarr "National"
dimarr "Estab"
dimarr "Jobs"
dimarr "Political"
dimarr "Entry"
dimarr "Gender"
Function sel_arr_Political(nos)
	sel_arr_Political="" 
	If IsNull(nos) Then nos=0
	For nos_i=0 To UBound(arr_Political)
		sel_arr_Political=sel_arr_Political & op(nos_i,arr_Political(nos_i),nos)
	Next
End Function
Function sel_arr_Entry(nos)

	sel_arr_Entry="" 
	If IsNull(nos) Or IsNumeric(nos)=False Then nos=0
	For nos_i=0 To UBound(arr_Entry)
		sel_arr_Entry=sel_arr_Entry & op(nos_i,arr_Entry(nos_i),nos)
	Next
End Function
Function sel_arr_Jobs(nos)

	If IsNull(nos) Or IsNumeric(nos)=False Then nos=0
	For nos_i=0 To UBound(arr_Jobs)
		sel_arr_Jobs=sel_arr_Jobs & op(nos_i,arr_Jobs(nos_i),nos)
	Next
End Function


Function sel_arr_Estab(nos)

	sel_arr_Estab="" 
	If IsNull(nos) Or IsNumeric(nos)=False Then nos=0
	For nos_i=0 To UBound(arr_Estab)
		sel_arr_Estab=sel_arr_Estab & op(nos_i,arr_Estab(nos_i),nos)
	Next
End Function

Function sel_arr_National(nos)

	sel_arr_National="" 
	If IsNull(nos) Then nos=0
	For nos_i=0 To UBound(arr_National)
		sel_arr_National=sel_arr_National  & op(nos_i,arr_National(nos_i),nos)
	Next
End Function

'档案列表
sub showContent
	dim i
	i=0
	Dim lmi
	do while not rs.eof
		%>
		<tr> 
		<td style="text-align:center;text-indent: 4px;">
			<input name='id' type='checkbox' class="chek" onclick="unselectall()" id="ArticleID" value='<%=Rs(0)%>' style=" border: 0px"> 
		</td>
		<%
		Dim ii:ii=0
		Dim tempstr:tempstr=""
		Dim numi
		For lmi=0 To UBound(nows)
			If checklm(nowlm(lmi)) Then
				ii=ii+1
				tempstr=Rs(ii)
				If lmi=0 Then tempstr="<A HREF='?action=edit&id="&Rs(0)&"'>"&tempstr&"</A>"
				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))
				res "<td>"&tempstr&"</td>",1
			End If
		Next
		%>
		<td>&nbsp;<A HREF="?action=edit&id=<%=Rs(0)%>">修改</A> <a href="admin_File_output.asp?action=look&id=<%=Rs(0)%>">导出</a> <a href="admin_File_output.asp?action=put&id=<%=Rs(0)%>">打印</a></td>
		<td>&nbsp;</td>
		 </tr>
	<%
		i=i+1
		if i>=MaxPerPage then exit do
		rs.movenext
	loop

end Sub

Sub nowmenu()
res "<h4><b>相关操作：</b><a href=""?action=add"">添加信息</a> | <a href=""?action=list"">信息列表</a></h4>",1
res "<div style=""height:3px;width:100%;background: #fff;""></div>",1
End Sub
Sub file_but(tpyestr)
	If tpyestr="look" Then 
		response.write "<div class=""file_butt""><a href=""admin_File_output.asp?id="&id&"""><span class=""t1"">导 出</span></a>"
		response.write "<a href=""admin_File_output.asp?id="&id&"""><span class=""t2"">打 印</span></a>"
		response.write "<a href=""admin_File.asp?action=list""><span class=""t3"">返 回</span></a></div></td></td>"
	Else
		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 If
End Sub
function showinfo(str1,str2)
	If str1<>"" Then 
		Sql_Conditions=" id="&str1
		sql=Sqlinfo(str2,"res_"&str2," id="&str1,"","","")
		fun_cel = connopen(sql)
		If isArray(fun_cel) Then
			showinfo=fun_cel(0,0)
		Else
			showinfo="------"
		End If 
	Else
		showinfo="------"
	End If 
end Function
%>