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> </p>
<p> </p>
<p> </p>
<table border="0" width="450" align=center bgcolor="#000000" cellpadding="0" cellspacing="1">
<tr>
<td width="100%" bgcolor="#FFFFFF" align="center">
<p> </p>
<p>新闻类型已经修改!</p>
<p> </p>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?