<%
newsid=1695
conn.execute("update about Set Click=click+1 where NewsID=" & NewsID )
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from about where NewsID=" & NewsID
rs.Open rs.Source,conn,1,1
BigClassID=rs("BigClassID")
smallclassid=rs("smallclassid")
Title=trim(rs("Title"))
Author=trim(rs("Author"))
Original=trim(rs("Original"))
'image=rs("image")
UpdateTime=trim(rs("UpdateTime"))
Content=trim(rs("Content"))
hot=rs("hot")
SpecialID=rs("SpecialID")
click=rs("click")
'content=replace(content,"<","<")
'content=replace(content,">",">")
'content=replace(content,chr(13),"
")
'if image>0 then
'for i=1 to image
' Content=replace(Content,"[[image" & i & "]]","
")
' next
'end if
'content=replace(content,"[[","<")
'content=replace(content,"]]",">")
'Content=" " & Content
rs.Close
%>