editbox.inc.asp

来自「能进行网上购物的需求」· ASP 代码 · 共 36 行

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

<%
'//预定义
dim newsId, rs, errorStr, content,content_ename,content_fname, editImageNum
'//初始化
errorStr=""
content = ""
editImageNum=0
newsId = Trim(Request.QueryString("newsId"))
if isNumeric(newsId)=false or newsId="" then
        newsId = 0
end if
'//
'//取得文章新闻
sql = "select Content,content_ename,content_fname,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, """", "\""")
content_ename = rs("Content_ename")
content_ename = Replace(content_ename, """", "\""")
content_fname = rs("Content_fname")
content_fname = Replace(content_fname, """", "\""")
end if
rs.Close
set rs=nothing
%>