%
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
%>
|
|
|
|
|