<% Function FormatTime( rs_time ) FormatTime = Year(rs_time) & "年" & Month(rs_time) & "月" & Day(rs_time) & "日" & Hour(rs_time) & ":" & Minute(rs_time) End Function dim customerlist,sn,str_sn sn=trim(request("id1")) set dbconnection=Server.CREATEOBJECT("ADODB.CONNECTION") DBPath = Server.MapPath("../data/gcywdb1.mdb") dbconnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath SQL="select * from jryytable where id="&sn SET CustomerList=dbconnection.EXECUTE(SQL) lb=CustomerList("lb") %>
>> 首页 → 两性地带