<%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=" "&xl1&"='"&keyword&"'"
sql=Sqlinfo(Sql_Lists,Sql_tables,Sql_Conditions,Sql_Sortings,Sql_Orders,Sql_Additional)
user_chk =connopen(sql)
If Not isArray(user_chk) Then
FoundErr=True
ErrMsg="
没有相关信息"
Else
For user_chk_i = 0 To UBound(user_chk,2)
response.write "
关于"&mc1&"为
"&keyword&" 相关检索:"
response.write "
证书名称:"&user_chk(2,user_chk_i)&""
response.write "
证书说明:"&user_chk(3,user_chk_i)&""
response.write "
发证时间:"&user_chk(1,user_chk_i)&""
response.write "
"&mc2&":"&user_chk(0,user_chk_i)&""
response.write "
"
next
End If
if founderr=true Then call errormsg(ErrMsg)
Else
Response.Redirect "cert_search.asp"
End If
End If %>