📄 addnews.asp
字号:
<%
'如果用户没有登陆，则终止响应
if session("admin_name")="" then response.end
%>
<!--#include file="conn.asp"-->
<head>
<link href=../style.css rel=stylesheet type=text/css>
</head>
<%
'记录集对象
set rs=server.createobject("adodb.recordset")
'如果是进行保存操作
if request("action")="save" then
'获得用户输入的各字段
newsclass_id=trim(request("newsclass_id"))
news_title=trim(request("news_title"))
news_content=trim(request("news_content"))
'新闻类别、新闻标题、新闻内容都不能为空
if newsclass_id="" or news_title="" or news_content="" then
response.write "输入数据不能为空"
response.write "<br>"
response.write "<a href=addnews.asp>返回</a>"
else
'处理字符串中的html编码
news_title=server.htmlencode(news_title)
news_content=server.htmlencode(news_content)
'对字符串中的html字符进行替换
news_content=replace(news_content," "," ")
news_content=replace(news_content,chr(13)&chr(10),"<br>")
sql="select * from news"
'打开记录集
rs.open sql,conn,3,3
'向记录集中添加新的记录
rs.addnew
rs("news_title")=news_title
rs("news_content")=news_content
rs("newsclass_id")=newsclass_id
rs.update
rs.close
response.write "新闻添加完成"
response.write "<br>"
response.write "<a href=addnews.asp>返回"
end if
else
%>
<table border="0" width="100%" cellspacing="1">
<tr>
<td width="100%">
<form method="post" action="addnews.asp?action=save">
<table border="0" width="100%" cellspacing="1">
<tr>
<td width="100%">新闻类型<select size="1" name="newsclass_id">
<%
'查询新闻分类数据表，获得所有新闻类别
sql="select * from newsclass"
'打开数据库
rs.open sql,conn,3,3
'如果记录集不为空
if rs.eof then
else
'循环将每一个新闻分类加入到下拉列表中
do while not rs.eof
%>
<option value="<%=rs("newsclass_id")%>"><%=rs("newsclass_name")%></option>
<%
rs.movenext
loop
end if
'关闭记录集对象
rs.close
%>
</select></td>
</tr>
<tr>
<td width="100%">新闻标题<input type="text" name="news_title" size="20" class=input></td>
</tr>
<tr>
<td width="100%">新闻内容</td>
</tr>
<tr>
<td width="100%"><textarea rows="14" name="news_content" cols="79" class=input></textarea></td>
</tr>
</table>
<p><input type="submit" value="提交" name="b1" class=input><input type="reset" value="全部重写" name="b2" class=input></p>
</form>
<p> </td>
</tr>
</table>
<%
end if
'释放记录集对象
set rs=nothing
'关闭数据库连接，释放对象
conn.close
set conn=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -