<%
dim ydzqconn,ballAdmin,rsadmin,fortime,adminmsg
On Error Resume Next
set ydzqconn=Createobject("ADODB.Connection")
ydzqconn.ConnectionString="DBQ="& server.mappath("/bbs/ball/#nowtx#cn#ball.mdb")& ";DRIVER={Microsoft Access Driver (*.mdb)};"
ydzqconn.open
set rsadmin=Server.CreateObject("ADODB.Recordset")
rsadmin.open"select ballAdmin,fortime,adminmsg from YD_all where id=1",ydzqconn,1,1
if not rsadmin.eof then
ballAdmin="1,"&rsadmin("ballAdmin")'管理员ID1为默认管理员
fortime=rsadmin("fortime")
adminmsg=rsadmin("adminmsg")
end if
rsadmin.close
set rsadmin=nothing
'统一时间
Function fordate2(riqi)
if IsDate(riqi) = True then
   fordate2 =""
  fordate2 = fordate2&month(riqi) & "月"
  fordate2 = fordate2&day(riqi)&"日"
  fordate2 = fordate2&Hour(riqi)&":"
  if Minute(riqi) < 10 then
  fordate2 = fordate2&"0"
  end if
  fordate2 = fordate2&Minute(riqi)
end if
End Function
%>