% dim conn dim connstr dim db db=server.mappath("News")+"\_Database\news.mdb" connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db '如果你的服务器采用较老版本Access驱动,请用下面连接方法 'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & db set conn=server.createobject("ADODB.CONNECTION") conn.open connstr function changetime(str) if isNULL(str) then changetime="" exit function end if dim mytime mytime=month(str)&"/"&day(str)&"/"&year(str) changetime=mytime end function function object_selected(current_value,value) if current_value=value then sel_str="selected" else sel_str="" end if object_selected=sel_str end function %>