editbox.inc.asp

本实例为一个完整的网上购物商城的完整例子程序,里面有所以的源代码.希望对大家学习有用.

<%
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 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
%>