<% NewsID=Request.QueryString("NewsID") conn.execute("update News Set Click=click+1 where NewsID="&NewsID ) set rs=server.CreateObject("ADODB.RecordSet") rs.Source="select * from News where NewsID=" & NewsID rs.Open rs.Source,conn,1,1 Title=trim(rs("Title")) Author=trim(rs("Author")) Original=trim(rs("Original")) image=rs("image") News_Content=trim(rs("Content")) click=rs("click") EnCode=trim(rs("EnCode")) rs.Close %> 918°®¹úÍø
<%=title%>
 <%=original%>   ¡¡<%=author%>
 
<% select case EnCode case "self" Response.Write SelfEnCode(News_Content,image) case "ubb" Response.Write UBBEnCode(News_Content) case "html" Response.Write HtmlSelfEnCode(News_Content,image) end select %>