admin_cert_check.asp

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

<!--#include file="../conn.asp"-->
<!--#include file="../inc/inc.asp"-->
<!--#include file="inc/inc.asp"-->
<%
response.charset="gb2312"
Dim name_id
Dim arr_alls
Dim actions
actions=che(request("actions"))
name_id=che(request("c_type"))
If actions="cert_typeinfo" Then 
		sql=Sqlinfo("id,typeinfo","Cert_typeinfo"," name_id in ("&name_id&")","id",2,"")
		rs = connopen(sql)
		If isArray(rs)=False Then
			res "0",0
		Else
			For i=0 To UBound(rs,2)
				arr_alls=arr_alls&rs(0,i)&"||"&CutStr(rs(1,i),16)&"%%"
			Next
			arr_alls=Left(arr_alls,Len(arr_alls)-2)
			res arr_alls,0
		End If
Else
	res "0",0
End If 
response.End
%>