%
id=cint(request("id"))
set rs = server.CreateObject ("Adodb.recordset")
sql="select * from news where newsid="&id
rs.open sql,conn,1,1
if not rs.bof and not rs.eof then
set rs1 = server.CreateObject ("Adodb.recordset")
sql1="select * from topic where topicid="&rs("topicid")
rs1.open sql1,conn,1,1
dim y,m,d
y=year(rs("addtime"))
m=right("0" & month(rs("addtime")),2)
d=right("0" & day(rs("addtime")),2)
%>