cert_search.asp

提供学生证 的在线查询功能。界面上面是录入框

<!--#include file="conn.asp"-->
<!--#include file="inc/inlogin.asp"-->
<!--#include file="inc/inc.asp"-->
<%
webtit="学生证书查询 － "
%>
<!--#include file="inc/head.asp"-->
<!--#include file="inc/top.asp"-->
<%
Dim name,sex,age,tel_home,tel_work,tel_hand,address_home,address_house,company,email,oicq,icq,msn,homepage,photo,photo_width,photo_height,addtime,Colde,hits,remark,type_id,user_id
Dim xl1,xl2,mc1,mc2
Dim user_chk
Dim FoundErr,ErrMsg
const MaxPerPage=10

Dim members(11)
action=che(request("action"))
id=che(request("id"))
type_id=che(request("type_id"))

user_Login_Judge
If islogin=True Then
	main_info2
Else
	'main_errormsg "您还没有登陆，请登陆后再进行当前操作！"
	main_info
End If
Sub main_info2()%>
  <div style="width:450px;margin:20px auto 0 auto;">
	<FORM METHOD=get ACTION="cert_search.asp">
	<INPUT TYPE="text" NAME="keyword" style="width:180px;">&nbsp;<INPUT TYPE="radio" NAME="types" value="1" checked style="width:15px;">证书编号&nbsp;<INPUT TYPE="radio" NAME="types" value="2" style="width:15px;">身份证号&nbsp;<INPUT TYPE="submit" class="buttons" value="搜索"><INPUT TYPE="hidden" NAME="action" value="s">
	</FORM>
	<div style="margin-bottom:30px;"></div>

	<%action = che(request("action"))
	keyword = che(request("keyword"))
	types = che(request("types"))
	If action="s" then
		If keyword<>"" And types<>"" Then
				If types=1 Then
					xl1="c_no"
					xl2="IdentityNO"
					mc1="证书编号"
					mc2="身份证号"
				Else
					xl2="c_no"
					xl1="IdentityNO"	
					mc2="证书编号"
					mc1="身份证号"
				End If 
				Sql_Lists=xl2&",c_time,cert_name,cert_cont,IdentityNO,typeinfo"
				Sql_tables="Cert_info as a,cert_type as b,Cert_typeinfo as c"
				Sql_Conditions=" c_type=b.id and a.c_typeinfo=c.id and "&xl1&"='"&keyword&"'"
				sql=Sqlinfo(Sql_Lists,Sql_tables,Sql_Conditions,"","","")
				user_chk =connopen(sql)
				response.write "<ul id=certsearch><li>关于"&mc1&"为 <FONT COLOR=""#FF0000"">"&keyword&"</FONT> 相关检索：</li>"
				If Not isArray(user_chk) Then
					FoundErr=True
					ErrMsg="<li>没有相关信息</li>"
				Else
						Dim rs_userinfo
						Sql_Lists="lj_id,Col_id,pro_id,cla_id,stuid,name,con,pic"
						sql=Sqlinfo(Sql_Lists,"admin_stu","IdentityNO='"&user_chk(4,0)&"'","","","")
						rs_userinfo =connopen(sql)
						If Not isArray(rs_userinfo) Then
						Else
							Dim pic
							pic="nopic.png"
							If rs_userinfo(7,0)<>"" Then pic=rs_userinfo(7,0)
							response.write "<li><ul class=""stuinfo"">"
							response.write "<li class=""certl1"">个人信息</li>"
							response.write "<li class=""certl0""><img src=""upload/"&pic&""" width=""90"" height=""120"" border=""0""></li>"
							response.write "<li class=""certl2"">姓&nbsp;&nbsp;&nbsp;名："&rs_userinfo(5,0)&"</li>"
							response.write "<li class=""certl2"">身份证："&user_chk(4,0)&"</li>"
							response.write "<li class=""certl2"">学&nbsp;&nbsp;&nbsp;号："&rs_userinfo(4,0)&"</li>"
							response.write "<li class=""certl2"">年&nbsp;&nbsp;&nbsp;届："&rs_userinfo(0,0)&"</li>"
							response.write "<li class=""certl2"">系&nbsp;&nbsp;&nbsp;所："&rs_userinfo(1,0)&"</li>"
							response.write "<li class=""certl2"">专&nbsp;&nbsp;&nbsp;业："&rs_userinfo(2,0)&"</li>"
							response.write "<li class=""certl2"">班&nbsp;&nbsp;&nbsp;级："&rs_userinfo(3,0)&"</li></ul></li>"
						End If 

						
					For i = 0 To UBound(user_chk,2)
						response.write "<li><ul class=""certinfo"">"
						response.write "<li class=""certl1""><span>"&user_chk(2,i)&"</span>"&user_chk(5,0)&"</li>"
						response.write "<li class=""certl2"">"&user_chk(3,i)&"</li>"
						response.write "<li class=""certl3"">"&mc2&"："&user_chk(0,i)&"</li>"
						response.write "<li class=""certl4"">发证时间："&user_chk(1,i)&"</li></ul></li>"
						
					next
				End If 
				response.write "</ul>"
				if founderr=true Then main_errormsg(ErrMsg)
		Else
			Response.Redirect "cert_search.asp"
		End If
	End If %>
	</div>
<%End Sub

Sub main_left()
%>
	<div id="sidebar" style="">
	<%
	showcert
	'showuserinfo
	'If islogin=True Then showpass%>
	 </div>
<%End Sub
%>

<!--#include file="inc/footer.asp"-->