addnews.asp

来自「办公自动化系统」· 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
%>