editbox.inc.asp

来自「一个功能非常强大的新闻发布系统,里面的技术都是采用最新的,支持当前最流行的网站风」· ASP 代码 · 共 34 行

<%
Response.Buffer = true
On Error Resume Next
%>
<!--#include file="adminconn.inc"-->
<%
'//预定义
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
%>