addnews.asp

来自「办公自动化系统」· ASP 代码 · 共 21 行

ASP
21
字号
<!--#include virtual="/_inc/GeneralADO.asp"-->
<%
dim strTopic,strContent,page
page=request.querystring("page")
strTopic=request.form("topic")
strTopic=Replace(strTopic,"'","''")
strTopic=Replace(strTopic,"<","〈")
strTopic=Replace(strTopic,">","〉")
strContent=request.form("content")
strContent=Replace(strContent,"<","〈")
strContent=Replace(strContent,">","〉")
'strContent=Replace(strContent,Chr(13)+Chr(10),"<br>")
strContent=Replace(strContent,"'","''")

oCon.execute"insert into IC_NEWS (TOPIC,CONTENT,TIME) values('"&strTopic&"','"&strContent&"','"&date&"')"

oCon.close
set oCon=nothing

response.redirect "news.asp?page="&page
%>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?