cert_search.asp

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,grade,hits,remark,type_id,user_id
const MaxPerPage=10

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

user_Login_Judge
main_left
If islogin=True Then
	main_info
Else
	'main_errormsg "您还没有登陆，请登陆后再进行当前操作！"
	main_info
End If
Sub main_info()%>
  <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"
				Sql_tables="Cert_info as a,cert_type as b"
				Sql_Conditions=" c_type=b.id and "&xl1&"='"&keyword&"'"
				sql=Sqlinfo(Sql_Lists,Sql_tables,Sql_Conditions,Sql_Sortings,Sql_Orders,Sql_Additional)
				user_chk =connopen(sql)
				response.write "关于"&mc1&"为 <FONT COLOR=""#FF0000"">"&keyword&"</FONT> 相关检索：<hr>"
				If Not isArray(user_chk) Then
					FoundErr=True
					ErrMsg="<li>没有相关信息</li>"
				Else
					For user_chk_i = 0 To UBound(user_chk,2)
						If user_chk_i<>0 Then response.write "<li><hr></li>"
						response.write "<li>证书名称："&user_chk(2,user_chk_i)&"</li>"
						response.write "<li>证书说明："&user_chk(3,user_chk_i)&"</li>"
						response.write "<li>发证时间："&user_chk(1,user_chk_i)&"</li>"
						response.write "<li>"&mc2&"："&user_chk(0,user_chk_i)&"</li>"
						
					next
				End If 
				if founderr=true Then main_errormsg(ErrMsg)
		Else
			Response.Redirect "cert_search.asp"
		End If
	End If %>
	</div>
<%End Sub

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

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