?? cert_search.asp
字號(hào):
<!--#include file="conn.asp"-->
<!--#include file="inc/inlogin.asp"-->
<!--#include file="inc/inc.asp"-->
<%
webtit="學(xué)生證書查詢 - "
%>
<!--#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 "您還沒有登陸,請登陸后再進(jìn)行當(dāng)前操作!"
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;"> <INPUT TYPE="radio" NAME="types" value="1" checked style="width:15px;">證書編號(hào) <INPUT TYPE="radio" NAME="types" value="2" style="width:15px;">身份證號(hào) <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="證書編號(hào)"
mc2="身份證號(hào)"
Else
xl2="c_no"
xl1="IdentityNO"
mc2="證書編號(hào)"
mc1="身份證號(hào)"
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>關(guān)于"&mc1&"為 <FONT COLOR=""#FF0000"">"&keyword&"</FONT> 相關(guān)檢索:</li>"
If Not isArray(user_chk) Then
FoundErr=True
ErrMsg="<li>沒有相關(guān)信息</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"">個(gè)人信息</li>"
response.write "<li class=""certl0""><img src=""upload/"&pic&""" width=""90"" height=""120"" border=""0""></li>"
response.write "<li class=""certl2"">姓 名:"&rs_userinfo(5,0)&"</li>"
response.write "<li class=""certl2"">身份證:"&user_chk(4,0)&"</li>"
response.write "<li class=""certl2"">學(xué) 號(hào):"&rs_userinfo(4,0)&"</li>"
response.write "<li class=""certl2"">年 屆:"&rs_userinfo(0,0)&"</li>"
response.write "<li class=""certl2"">系 所:"&rs_userinfo(1,0)&"</li>"
response.write "<li class=""certl2"">專 業(yè):"&rs_userinfo(2,0)&"</li>"
response.write "<li class=""certl2"">班 級(jí):"&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"">發(fā)證時(shí)間:"&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"-->
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -