chaxun.asp

来自「数据结构课程设计之最小生成数的K算法的实现 简短 简洁」· ASP 代码 · 共 31 行

<%
bh=request("bh")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("KYDB.mdb")
sql="select * from zjxx Where zjxx_orderno='"& bh &"'"
set rs=server.Createobject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.eof then
%>
<script language=javascript>
alert("查无此人!");
</script>
<%else
dim bh,xm,xb,gj,zgxw,szbm,lxdz,mail
	bh=rs("zjxx_orderno")
	xm=rs("zjxx_name")
	xb=rs("zjxx_sex")
        gj=rs("zjxx_nation")
	zgxw=rs("zjxx_degree")
	szbm=rs("zjxx_depart")
	lxdz=rs("zjxx_address")
	mail=rs("zjxx_email")
%>
<%end if%>

<script language=javascript>
var now=new Date();
string="choose.asp?time="+now.getTime()
string=string+"&bh1=<%=bh%>&xm1=<%=xm%>&xb1=<%=xb%>&gj1=<%=gj%>&zgxw1=<%=zgxw%>&szbm1=<%=szbm%>&lxdz1=<%=lxdz%>&mail1=<%=mail%>&action=查询基本信息"
window.navigate(string);
</script>