admin_file_inc.asp

做的一个毕业设计（学生档案管理系统）

<%
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
	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>
		<td>&nbsp;<A HREF="?action=look&id=<%=Rs(0)%>"><%=Rs(1)%></A></td>
		<td>&nbsp;<%=arr_Gender(Rs(2))%></td>
		<td>&nbsp;<%=arr_National(Rs(3))%></td>
		<td>&nbsp;<%=Rs(6)%></td>
		<td>&nbsp;<%=arr_Political(Rs(4))%></td>
		<td>&nbsp;<%=Rs(5)%></td>
		
		<td>&nbsp;<A HREF="?action=edit&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
%>