<%
Response.Buffer = true
On Error Resume Next
%>
<!--#include file="Conn.asp"-->
<%
'//預(yù)定義
dim newsId,rs,errorStr,content,editImageNum

'//初始化
errorStr=""
content = ""
editImageNum=0
newsId = Trim(Request.QueryString("newsId"))

if isNumeric(newsId)=false or newsId="" then
   newsId = 0       
end if

'//
'//取得文章新聞
sql = "select Content,imageNum FROM News where id="&newsId
set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,3
if rs.RecordCount=1 then
   '//讀取文章新聞  
      editImageNum = rs("imageNum")
      content = rs("Content")
      content = Replace(content,"""","\""")
end if
rs.Close
set rs=nothing
%>