modifynews_class3_update.asp

来自「这是一个学生毕业时做的教务系统」· ASP 代码 · 共 66 行

ASP
66
字号
<!--#include file=conn.asp -->
<%
IF not(Session("KEY")="super" or Session("KEY")="input") THEN
response.redirect "login.asp"
response.end
END IF

NewsID=Request.QueryString("NewsID")

BigClassName=trim(Request.Form("BigClassName"))
if BigClassName="" then
%>
<script language=javascript>
history.back()
alert("请选择该新闻所属的大类,如果系统中还没有新闻大类的话,请在《大类管理》中添加新类别!")
</script>
<%
Response.End
end if

SmallClassName=trim(Request.Form("SmallClassName"))
if SmallClassName="" then
%>
<script language=javascript>
history.back()
alert("请选择该新闻所属的小类,如果系统中还没有新闻小类的话,请在《小类管理》中添加新类别!")
</script>
<%
Response.End
end if


sql="update News Set BigClassName='"& BigClassName &"' where NewsID=" & NewsID
conn.execute sql

sql="update News Set SmallClassName='"& SmallClassName &"' where NewsID=" & NewsID
conn.execute sql


%>
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="refresh" content="2;url=ModifyNews2.asp?NewsID=<%=NewsID%>">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href=site.css rel=stylesheet>
</head>

<body>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<table border="0" width="450" align=center bgcolor="#000000" cellpadding="0" cellspacing="1">
<tr>
<td width="100%" bgcolor="#FFFFFF" align="center">
<p>&nbsp;</p>
<p>新闻类型已经修改!</p>
<p>&nbsp;</p>
</td>
</tr>
</table>

</body>

</html>

⌨️ 快捷键说明

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