📄 admin_news.asp

📁 广告策划中心整站程序
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
				rs("online")=true
				rs.update
				rs.movenext
				loop				 
				response.write "<script language='javascript'>"
				response.write "alert('文章 在线显示 设置成功！');"
				response.write "location.href='admin_news.asp';"			
				response.write "</script>"
			end if
			rs.close
			conn.close
			set rs=nothing
			set conn=nothing
		end if
	end if
end sub

sub prodclose()
if NewsId="" or isnull(NewsId) then
		Response.write "<BLOCKQUOTE><br><br>操作失败，没有选择合适参数！<A HREF='admin_news.asp'><b>点击返回</b></A><BR><br><meta http-equiv=refresh content=""2;URL=admin_news.asp""></BLOCKQUOTE>"
	else
		Set rs=Server.CreateObject("ADODB.Recordset")
		sql="select * from News where NewsId in ("&NewsId&")"
		rs.open sql,conn,1,3
		if err.number<>0 then '错误处理
			response.write "数据库操作失败：" & err.description
			err.clear
		else
			if rs.eof and rs.bof then
				response.write "<script language='javascript'>"
				response.write "alert('该文章不存在，或者被删除了！');"	
				response.write "location.href='admin_news.asp';"				
				response.write "</script>"			
			else
				Do while not rs.eof
				rs("online")=false
				rs.update
				rs.movenext
				loop		 
				response.write "<script language='javascript'>"
				response.write "alert('文章 离线 设置成功！');"
				response.write "location.href='admin_news.asp';"			
				response.write "</script>"
			end if
			rs.close
			conn.close
			set rs=nothing
			set conn=nothing
		end if
	end if
end sub

sub proddel()
	if delid="" or isnull(delid) then
		Response.write "<BLOCKQUOTE><br><br>操作失败，没有选择合适参数！<A HREF='admin_news.asp'><b>点击返回</b></A><BR><br><meta http-equiv=refresh content=""2;URL=admin_news.asp""></BLOCKQUOTE>"
	else
		conn.execute("delete from News where NewsId in ("&delid&")")
		if err.number<>0 then '错误处理
			response.write "数据库操作失败：" & err.description
			err.clear
		else		
			conn.close
			set conn=nothing
			Response.write "<tr><td colspan=8><BLOCKQUOTE><br><br>文章删除成功！<A HREF='admin_news.asp'><b>点击返回</b></A><BR><br><meta http-equiv=refresh content=""2;URL=admin_news.asp""></BLOCKQUOTE></td></tr>"
		end if
	end if
end sub


sub newsadd()
	if request("add") ="ok" then	
		Set rs=Server.CreateObject("ADODB.Recordset")
		sql = "select * from News"
		rs.open sql,conn,1,3
		if err.number<>0 then '错误处理
			response.write "数据库操作失败：" & err.description
			err.clear
		else		
		rs.Addnew
		rs("NewsTitle")=request.form("NewsTitle")
		rs("NewsContain")=request.form("NewsContain")
		rs("PubDate")=request.form("PubDate")
		rs("NewsClass")=request.form("NewsClass")
		rs("Online")=request.form("Online")
		rs("OffDate")=request.form("OffDate")
		rs("Source")=request.form("Source")
		rs.update	

		rs.close
		conn.close
		set rs=nothing
		set conn=nothing
		Response.Redirect "admin_news.asp"
		end if	
	else
%>
		<br><br><TABLE width="95%" border=1 cellpadding=3 style="border-collapse: collapse" bordercolor="#3D5489" align=center>
	<form name=prodtable method="post" action='admin_news.asp?action=加文章'>
	<tr><td><B><font color="yellow"> 序列ID :</font></B></td>
	<td align=right><input type="button" name="action" onclick="javascript:location.href='admin_news.asp?action=加文章';" value="加文章"></td></tr>
	 <TR><TD align="right">文章标题</TD>
	 <TD><input name="NewsTitle" type="text" value="" size="50" maxlength="50"></TD></TR>
<TR><TD align="right">类别</TD><TD>
<input type="radio" name="NewsClass" value="促销信息" checked>促销信息
<input type="radio" name="NewsClass" value="广告信息">广告信息
<input type="radio" name="NewsClass" value="网站动态">网站动态</TD></TR>
	 <TR><TD align="right">文章内容</TD>
	 <TD><textarea name="NewsContain" cols="65" rows="12"></textarea><br>支持html语法</TD></TR>
	 <TR><TD align="right">来源</TD>
	 <TD><input name="Source" type="text" value="<%=sitename%>" size="20" maxlength="20"></TD></TR>
	 <TR><TD align="right">发布日期</TD>
	 <TD><input name="PubDate" type="text" value="<%=date()%>" size="20" maxlength="20"> 如果是未来的日期，就是到该日期才会生效</TD></TR>
	 <TR><TD align="right">失效日期</TD>
	 <TD><input name="OffDate" type="text" value="<%=date()+731%>" size="20" maxlength="20"> 如果是该日期到了，文章则不会显示</TD></TR>
	<TR><TD align="right">是否在线</TD><TD>
	<input type="radio" name="Online" value="0" checked>否
	<input type="radio" name="Online" value="1">是 </TD></TR><TR> 
	<TD align="right">&nbsp;<INPUT TYPE="hidden" name=add value=ok></TD><TD>
				<input type="submit" name="submit" value="提交"> <input type="reset" name="Submit2" value="重新填写">
			  </TD></TR>
			</form></TABLE>

<%		
	end if
end sub




sub modify()

if id="" then
	response.write "非法文章编号"
	response.write "<meta http-equiv=refresh content=""1;URL=admin_news.asp"">"
else
	'修改文章资料
	if request("modify")="ok" then
	set rs=server.createobject("adodb.recordset")
	sql = "select * from News where NewsId="&id
	rs.open sql,conn,1,3
	if err.number<>0 then
		response.write "数据库操作失败：" & err.description '错误描述
		err.clear
	else
		if not (rs.eof and rs.bof) then
		rs("NewsTitle")=request.form("NewsTitle")
		rs("NewsContain")=request.form("NewsContain")
		rs("PubDate")=request.form("PubDate")
		rs("NewsClass")=request.form("NewsClass")
		rs("Online")=request.form("Online")
		rs("OffDate")=request.form("OffDate")
		rs("Source")=request.form("Source")
		rs.update
		end if
	end if	
	rs.close

	response.write "文章资料已经修改"
	response.write "<meta http-equiv=refresh content=""1;URL=admin_news.asp?action=modify&id="&id&""">"
	response.end
	end if

	'显示详细资料
	set rs = server.createobject("adodb.recordset")
	sql = "select * from News where NewsId="&id
	rs.open sql,conn,1,1
	if err.number<>0 then '错误处理
		response.write "数据库操作失败：" & err.description '错误描述
		err.clear
	else
		if not (rs.eof and rs.bof) then 
		%>
	<br><TABLE width="95%" border=1 cellpadding=3 style="border-collapse: collapse" bordercolor="#3D5489" align=center>
	<form name=prodtable method="post" action='admin_news.asp?action=modify&id=<%=id%>'>
	<tr><td><B><font color="yellow"> 序列ID : <%=rs("NewsId")%></font></B></td>
	<td align=right><input type="button" name="action" onclick="javascript:location.href='admin_news.asp?action=加文章';" value="加文章"></td></tr>
	 <TR><TD align="right">文章标题</TD>
	 <TD><input name="NewsTitle" type="text" value="<%=rs("NewsTitle")%>" size="50" maxlength="50"></TD></TR>
<TR><TD align="right">类别</TD><TD>
<input type="radio" name="NewsClass" value="促销信息" <%if rs("NewsClass")="促销信息" then%>checked <%end if%>>
促销信息
<input type="radio" name="NewsClass" value="广告信息" <%if rs("NewsClass")="广告信息" then%>checked<%end if%>>
广告信息
<input type="radio" name="NewsClass" value="网站动态" <%if rs("NewsClass")="网站动态" then%>checked<%end if%>>
网站动态</TD></TR>
	 <TR><TD align="right">文章内容</TD>
	 <TD><textarea name="NewsContain" cols="65" rows="12"><%=rs("NewsContain")%></textarea><br>支持html语法</TD></TR>
	 <TR><TD align="right">来源</TD>
	 <TD><input name="Source" type="text" value="<%=rs("Source")%>" size="20" maxlength="20"></TD></TR>
	 <TR><TD align="right">发布日期</TD>
	 <TD><input name="PubDate" type="text" value="<%=rs("PubDate")%>" size="20" maxlength="20">类似：2004-12-14</TD></TR>
	 <TR><TD align="right">失效日期</TD>
	 <TD><input name="OffDate" type="text" value="<%=rs("OffDate")%>" size="20" maxlength="20"></TD></TR>
<TR><TD align="right">是否在线</TD>
			<TD><input type="radio" name="Online" value="0" <%if rs("Online")=false then%>checked<%end if%>>
			  否<input type="radio" name="Online" value="1" <%if rs("Online")=true then%>checked<%end if%>>
			  是 </TD></TR><TR> 
			<TD align="right">&nbsp;<INPUT TYPE="hidden" name=modify value=ok></TD><TD>
				<input type="submit" name="submit" value="提交修改"> <input type="reset" name="Submit2" value="重新修改">
			  </TD></TR>
			</form></TABLE>
		<%
		else
		response.write "<BR><BLOCKQUOTE>无此序号商品！<br><br><font color=yellow><B>请检查！</B></font><BR></BLOCKQUOTE>"
		end if	
	end if
	rs.close
	set rs=nothing
end if
end sub
%>
上一页 12
💿 文件大小 2196 K
👤 上传用户 hqq
📂 所属分类 Internet/网络编程
🏷️ 相关标签

#策划 #程序
⌨️ 快捷键说明

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