📄 add_news.asp
字号:
<%
dim ftitle,fcontent,fdate,fradiobutton
ftitle=request("title")
fcontent=request("input_news")
'response.write(ftitle)
if ftitle="" or fcontent="" then
showmessage"标题，和修改内容不能为空"
else
Set conn= Server.CreateObject("ADODB.Connection")
Path=Server.MapPath("AnswerData.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Path
strsql="insert into news(title,content)values('"&ftitle&"','"&fcontent&"')"
conn.execute(strsql)
conn.close
set conn=nothing
showmessage"添加新闻成功"
end if
%>
<html>
<head>
<title>显示</title>
</head>
<%
sub showmessage(message)
response.write"<center><h3>"&message&"</h3>"
response.write"<a href=admin.htm>返回上一页!</a></center>"
response.end
end sub
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -