<% on Error Resume Next '页头 Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "族谱信息浏览--配偶" Response.Write "" Response.Write "" Response.write "
族谱信息浏览--配偶信息
" '获取查询目标(ID) IDnum=trim(Request.QueryString("ID")) ' Response.Write "
你要查询的是:" & IDnum &"的记录!
" If IDnum="" Then IDnum=trim(Request.Form("ID")) If IDnum="" Then Response.Redirect("whos4e.htm") End If End If '打开中仙池氏人名库 CoStr="Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/chi/db/chis.mdb") Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open CoStr CommandText="select * from wife where WifeID like '" & IDnum &"'" Set rs=Server.CreateObject("ADODB.Recordset") rs.Open CommandText,Conn,1,1 ficount=rs.Fields.Count recount=rs.RecordCount ' Response.Write "
共发现" & recount &"个记录!
" If recount>0 Then 'Wife表共个字段,具体如下: '0 WifeID long '1 Iflive bool '2 HusbandID 36 '3 Order int 房序 '4 Name 8 名 '5 Dif long '6 Education 20 '7 Children int 育儿数 '8 Birthplace3 50 出生地 '9 BirthYear int '10 BirthDate 20 '11 Birthtime 2 '12 DeathYear int '13 DeathDate 20 '14 Deathtime 2 '15 Bury mem 葬 '16 Comm men 备注 '下一步调用函数获取用于显示的丈夫中文名 rsval=gethusbandname(rs(2)) IsKorean = 0 If Left(rs(2),1) < "l" and Left(rs(2),1) > "j" Then IsKorean = 1 End If '先显示被查询人名 Response.write "
" & rs(4) &"
" '显示本人信息区 Response.write "
" Response.write "" Response.write "" Response.write "" '防止不准确的在世与否信息让人难堪，先把本字段屏蔽。 2004.12.30 Response.write "" ' ' If rs(1) Then ' Response.write "" ' Else ' Response.write "" ' End if Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" rsval= rs(9).Value Response.write "" rs3.Close Set rs3=nothing Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" rsval= rs(12).Value Response.write "" rs3.Close Set rs3=nothing 'Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "" Response.write "
丈夫名：" & rsval & " 在世过世房序：" & rs(3).Value & "
出生地：" & rs(8) & "
生日：" & rsval CommandText3="select * from CKdate where 公元 like '" & rsval &"'" Set rs3=Server.CreateObject("ADODB.Recordset") rs3.Open CommandText3,Conn,1,1 ' ficount=rs3.Fields.Count ' recount=rs3.RecordCount ' Response.Write "发现" & recount &"个记录and" & ficount &"个字段" If IsKorean Then Response.write "_" & rs3("朝鲜帝代").Value & rs3("干支").Value & "年" Else Response.write "_" & rs3("朝代").Value & rs3("年号").Value & rs3("编年").Value & "年" & rs3("干支").Value &" " End If Response.write "" & rs(10) & "生时:" & rs(11) & "
卒日：" & rsval CommandText3="select * from CKdate where 公元 like '" & rsval &"'" Set rs3=Server.CreateObject("ADODB.Recordset") rs3.Open CommandText3,Conn,1,1 if IsKorean Then Response.write "_" & rs3("朝鲜帝代").Value & rs3("干支").Value & "年" Else Response.write "_" & rs3("朝代").Value & rs3("年号").Value & rs3("编年").Value & "年" & rs3("干支").Value &" " End If Response.write "" & rs(12) & "年" & rs(13) & "卒时:" & rs(14) & "
葬：" & rs(15) & "
教育：" & rs(6) & "生育数：" & rs(7) & "
备注：" & rs(16) & "
" Response.write "
" Response.write "
池氏人名库目前收录近二万条配偶记录，主要是池氏应天公、文季公、师法公及池镜公支系谱系，整理工作仍在进行中。" Response.write "
如发现错讹，请与阿池联系。——2009.6.15" Else Response.write "
数据库出错!
" Response.Write "
没有发现您要找的记录,请重新再试!
" End IF 'Response.End Response.Write " " Response.Write " " rs.Close Set rs=nothing Set Conn=nothing %> <% Function gethusbandname(strval) If IsNull(strval) Then gethusbandname = "nu" Else CommandText2="select Name1 from man where ID like '" & strval & "'" Set rs2=Server.CreateObject("ADODB.Recordset") rs2.Open CommandText2,Conn,1,1 gethusbandname = rs2("Name1").Value rs2.Close Set rs2=nothing End If End Function %>