📄 add.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% response.buffer=false %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>信息添加</title>
<link rel="stylesheet" href="../../Css/Style.css">
</head>
<script src="../../Js/Add.js"></script>
<!-- #include file="../../Conn/conn.asp" -->
<%
sql="insert into tb_Log(Name,Content,IssueDate) values('"&_
session("Admin")&"','进行"&Request.QueryString("name")&"类新闻信息添加','"&Now()&"')"
rs.open sql,conn
set rs=nothing
conn.close
set conn=nothing
%>
<!-- #include file="../../Conn/conn.asp" -->
<%
If Request.QueryString("action")<>"" Then
if Request.Form("Content")="" or Request.Form("Title")="" then
%>
<script language="javascript">
alert("您添加的信息不完整！");
history.back();
</script>
<% else
sql="select * from tb_News where Title='"&Request.Form("Title")&_
"' and Type='"&Request.QueryString("type")&"'"
rs.open sql,conn
if not rs.Eof And not rs.Bof Then
set rs=nothing
conn.close
set conn=nothing
%>
<!-- #include file="../../Conn/conn.asp" -->
<%
sql="insert into tb_Log(Name,Content,IssueDate) values('"&_
session("Admin")&"','新闻信息"&Request.Form("Title")&"添加失败','"&Now()&"')"
rs.open sql,conn
set rs=nothing
conn.close
set conn=nothing
%>
`
<script language="javascript">
alert("相同信息已经存在");
history.back();
</script>
<%
Else
set rs=nothing
conn.close
set conn=nothing
%>
<!-- #include file="../../Conn/conn.asp" -->
<%
sql="insert into tb_News(Title,Content,Style,Type,IssueDate) values('"&_
Request.Form("Title")&"','"&Request.Form("Content")&"','"&_
Request.QueryString("action")&"','"&Request.Form("Type")&"','"&Date()&"')"
rs.open sql,conn
Set rs=nothing
conn.close
Set conn=nothing
%>
<!-- #include file="../../Conn/conn.asp" -->
<%
sql="insert into tb_Log(Name,Content,IssueDate) values('"&session("Admin")&_
"','新闻信息--"&Request.Form("Title")&"添加成功','"&Now()&"')"
rs.open sql,conn
set rs=nothing
conn.close
set conn=nothing
%>
<script language="javascript">
alert("信息添加成功");
window.close();
opener.location.reload();
</script>
<%End if %>
<% End If %>
<% End If %>
<body topmargin="0" leftmargin="0">
<% names=Request.QueryString("name") %>
<form name="form1" method="post" action="Add.asp?action=<%=names%>">
<table width="443" height="200" border="0" cellpadding="0" cellspacing="0" bgcolor="#f9f9f9" class="wenbenkuang">
<tr bgcolor="#214994">
<td height="20" colspan="2"><div align="center"><font color="#FFFFFF"><%=names%>添加</font></div></td>
</tr>
<tr>
<td width="80" height="20"><div align="right"><font color="#214994">新闻类别：</font></div></td>
<td width="363"> <% Select Case names %>
<% Case "时政要闻" %>
<select name="type" class="wenbenkuang1">
<option value="国内事件">国内事件</option>
<option value="国际事件">国际事件</option>
</select>
<% Case "经济动向" %>
<select name="type" class="wenbenkuang1">
<option value="政策">政策</option>
<option value="国际">国际</option>
<option value="市场">市场</option>
<option value="股市">股市</option>
<option value="企业">企业</option>
<option value="产品">产品</option>
<option value="投资">投资</option>
</select>
<% Case "世界军事" %>
<select name="type" class="wenbenkuang1">
<option value="军旅生活">军旅生活</option>
<option value="军事武器">军事武器</option>
<option value="国际战事">国际战事</option>
<option value="战场前沿">战场前沿</option>
<option value="军事经济">军事经济</option>
<option value="台湾问题">台湾问题</option>
</select>
<% Case "科学教育" %>
<select name="type" class="wenbenkuang1">
<option value="空间科技">空间科技</option>
<option value="前沿技术">前沿技术</option>
<option value="生命科学">生命科学</option>
<option value="医疗发展">医疗发展</option>
<option value="考古发现">考古发现</option>
<option value="地球环境">地球环境</option>
<option value="国内教育">国内教育</option>
<option value="国际校园">国际校园</option>
<option value="教育问题">教育问题</option>
</select>
<% Case "法治道德" %>
<select name="type" class="wenbenkuang1">
<option value="反腐倡廉">反腐倡廉</option>
<option value="社会整顿">社会整顿</option>
<option value="法律法规">法律法规</option>
<option value="道德思考">道德思考</option>
<option value="案件跟踪">案件跟踪</option>
<option value="律师视点">律师视点</option>
</select>
<% Case "社会现象" %>
<select name="type" class="wenbenkuang1">
<option value="衣食住行">衣食住行</option>
<option value="大街小巷">大街小巷</option>
</select>
<% Case "体育世界" %>
<select name="type" class="wenbenkuang1">
<option value="足球">足球</option>
<option value="篮球">篮球</option>
<option value="竞技">竞技</option>
<option value="赛事跟踪">赛事跟踪</option>
<option value="体育趣闻">体育趣闻</option>
</select>
<% Case "时尚娱乐" %>
<select name="type" class="wenbenkuang1">
<option value="流行趋势">流行趋势</option>
<option value="时尚服饰">时尚服饰</option>
<option value="影视快讯">影视快讯</option>
<option value="明星生活">明星生活</option>
<option value="娱乐点播">娱乐点播</option>
</select>
<% End Select %> </td>
</tr>
<tr>
<td height="20"><div align="right"><font color="#214994">新闻标题：</font></div></td>
<td><input name="title" type="text" class="wenbenkuang" size="50"></td>
</tr>
<tr>
<td height="20"><div align="right"><font color="#214994">新闻内容：</font></div></td>
<td rowspan="2"><textarea name="content" cols="50" rows="6" class="wenbenkuang"></textarea></td>
</tr>
<tr>
<td height="10"> </td>
</tr>
<tr>
<td height="27" colspan="2"> <div align="center">
<input name="Submit2" type="button" class="go-wenbenkuang3"
value="添加" onClick="add()">
<input name="Submit" type="button" class="go-wenbenkuang3"
value="返回" onClick="javascript:window.close()">
</div></td>
</tr>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -