📄 editbox.inc.asp
字号:
<%
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
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -