editbox.inc1.asp

来自「全新后台新闻编辑器 2.全新后台下载编辑器 3.增加图片友情链接管理功能」· ASP 代码 · 共 33 行

<%
Response.Buffer = true
On Error Resume Next
%>
<!--#include file="conn.asp"-->

<%
'//预定义
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 download 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
%>