% '其他数据 youname1=trim(request("youname1")) youname2=trim(request("youname2")) nx=trim(request("nx")) xx=trim(request("xx")) sex=trim(request("sex")) riqi=trim(request("nian"))&"-"&trim(request("yue"))&"-"&trim(request("ri")) if len(riqi)<6 then riqi=trim(request("riqi")) if riqi="" then riqi=year(now())&"-"&month(now())&"-"&day(now()) else riqi=FormatDateTime(riqi, 1) '转换成时间格式 end if nian=year(riqi) yue=month(riqi) ri=day(riqi) hh=trim(request("hh")) fen=trim(request("fen")) if nian="" then nian=year(now()) if yue="" then yue=month(now()) if ri="" then ri=day(now()) if hh="" then hh=hour(now()) if fen="" then fen=minute(now()) hh1=hh province1=trim(request("province1")) city1=trim(request("city1")) jingdu=trim(request("jingdu")) if not isnumeric(jingdu) then jingdu=0 on error resume next db1="cidujingdu.asp" Set conn1 = Server.CreateObject("ADODB.Connection") connstr1="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db1) conn1.Open connstr1 If Err Then err.Clear Response.Write "" Response.Write "
" conn1.close Set conn1 = Nothing Response.End End If if province1<>"" and city1<>"" then set rs=server.createobject("ADODB.recordset") strsql="select * from jd where sheng='"&province1&"' and xian='"&city1&"'" rs.open strsql,conn1,1,1 if not rs.eof then id=rs("id") jingdu=rs("jingdu") shi=rs("shi") cxsjk="yes" end if else shi=4*(jingdu-120)/60 end if if cxsjk="" then province1="" city1="" end if if cxsjk="" and jingdu<>0 then set rs=server.createobject("ADODB.recordset") strsql="select * from jd where jingdu="&jingdu&" order by jingdu" rs.open strsql,conn1,1,1 if not rs.eof then do while not rs.eof id2=rs("id") sheng2=rs("sheng") xian2=rs("xian") jingdu2=rs("jingdu") dilimess=dilimess&""&sheng2&"-"&xian2&" " rs.movenext loop dilimess="
原始时间:<%=sj00%>
北京标准时间:<%=sj11%>
平太阳时间:<%=sj22%>
真太阳时间:<%=sj33%>
<%end if%>