<%@ codepage="936" %> <% dim sql dim rstype dim typesql dim typeid,typename,classname,classid dim title set rs=server.createobject("adodb.recordset") sql="update article set hits=hits+1 where articleID="&request("id") rs.open sql,conn,1,3 sql="select Aclass.class,article.title,article.classid from article,Aclass where article.classid=Aclass.classid and article.articleID="&request("id") rs.open sql,conn,1,1 if not rs.eof then title=rs("title") classid=rs("classid") classname=rs("class") end if rs.close %> 詳細信息 <% sql="select class,classid from Aclass" rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "還沒有任何欄目" response.end else do while not rs.eof %> "> <% rs.movenext loop end if rs.close dim key sql="select * from article where articleid="&request("id") rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "沒有找到相關文章。" response.end end if if rs("Nkey")<>"" then key=rs("Nkey") else key="None News" end if %> 北美洲工作犬會(遠東區)
 
您的位置：首頁-> <%=classname%>
 
<%=rs("title")%>  
   
活動時間：<%=rs("dateandtime")%> <%=ubbcode(rs("img"))%>
發布時間： <%=year(rs("adddate"))&"/"&month(rs("adddate"))&"/"&day(rs("adddate"))&" 時間 "&hour(rs("adddate"))&":"&minute(rs("adddate"))%>
活動地點：<%=rs("writer")%>
 
<%=ubbcode(rs("content"))%>