?? 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 + -