news1.asp

这是一个很漂亮的网站购物系统

				rs.movenext
				loop				 
				response.write "<script language='javascript'>"
				response.write "alert('所选新闻文章已被打开！');"
				response.write "location.href='news1.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 "<script language='javascript'>"
	response.write "alert('操作失败，您什么也没有选择。');"
	response.write "location.href='javascript:history.go(-1)';"							
	response.write "</script>"	
	response.end
	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='news1.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='news1.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 "<script language='javascript'>"
	response.write "alert('操作失败，您什么也没有选择。');"
	response.write "location.href='javascript:history.go(-1)';"							
	response.write "</script>"	
	response.end
	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 "<script language='javascript'>"
	response.write "alert('所选新闻已被删除，单击“确定”返回新闻列表！');"
	response.write "location.href='news1.asp';"
	response.write "</script>"	
	response.end

		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("uup")=request.form("uup")
		rs.update	

		rs.close
		conn.close
		set rs=nothing
		set conn=nothing

		response.write "<script language='javascript'>"
		response.write "alert('您已经成功添加一条新闻，单击“确定”返回新闻列表！');"
		response.write "location.href='news1.asp';"
		response.write "</script>"	
		response.end

		end if	
	else
%>
	<table width="98%" border="1"  style="border-collapse: collapse; border-style: dotted; border-width: 0px"  bordercolor="#333333" cellspacing="0" cellpadding="2">
	<form name="addnews" method="post" action='news1.asp?action=addnews'>
	<tr class=backs><td class=td height=18>添加新闻文章</td></tr>

	 <TR><TD>新闻标题：<input name="NewsTitle" type="text" value="" size="50" maxlength="50"></TD></TR>
<TR><TD>新闻类别：<select name="NewsClass">
	<option value="1" selected><%=newstitle1%></option>
	<%if newstitle2<>"" then%><option value="2"><%=newstitle2%></option><%end if%>
	<%if newstitle3<>"" then%><option value="3"><%=newstitle3%></option><%end if%>
	<%if newstitle4<>"" then%><option value="4"><%=newstitle4%></option><%end if%>
	<%if newstitle5<>"" then%><option value="5"><%=newstitle5%></option><%end if%>
</select>
</TD></TR>
<TR><TD>
<textarea name="NewsContain"  style="display:none"></textarea>
<iframe ID="edit1" src="../webedit/ewebeditor.asp?id=NewsContain&style=putong" frameborder="0" scrolling="no" width="98%" HEIGHT="350"></iframe> 
</TD></TR>
	 <TR><TD>新闻来源：<input name="Source" type="text" value="<%=sitename%>" size="40" maxlength="20"></TD></TR>
	 <TR><TD>生效日期：<input name="PubDate" type="text" value="<%=now()%>" size="40" maxlength="20"></TD></TR>
	 <TR><TD>失效日期：<input name="OffDate" type="text" value="<%=now()+731%>" size="40" maxlength="20"></TD></TR>
	 <TR><TD>是否在线：<input type="radio" name="Online" value="0" checked>否 <input type="radio" name="Online" value="1">是</TD></TR>
	 <TR><TD>是否固顶：<input type="radio" name="uup" value="0" checked>否 <input type="radio" name="uup" value="1">是</TD></TR>
	 <TR><TD><INPUT TYPE="hidden" name=add value=ok><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 "<script language='javascript'>"
	response.write "alert('提交了不正确的参数，单击“确定”返回！');"
	response.write "location.href='news1.asp';"
	response.write "</script>"	
	response.end
end if
	'修改新闻资料
	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 not (rs.eof and rs.bof) then
		rs("NewsContain")=request.form("NewsContain")
		rs("NewsTitle")=request.form("NewsTitle")
		rs("PubDate")=request.form("PubDate")
		rs("NewsClass")=request.form("NewsClass")
		rs("Online")=request.form("Online")
		rs("uup")=request.form("uup")
		rs("OffDate")=request.form("OffDate")
		rs("Source")=request.form("Source")
		rs.update
		end if

	rs.close
	set rs=nothing

	response.write "<script language='javascript'>"
	response.write "alert('新闻修改完成，单击“确定”返回新闻列表！');"
	response.write "location.href='news1.asp';"
	response.write "</script>"	
	response.end
	end if

	'显示详细资料
	set rs = server.createobject("adodb.recordset")
	sql = "select * from News where NewsId="&id
	rs.open sql,conn,1,1
	if not (rs.eof and rs.bof) then 
	%>

	<table width="98%" border="1"  style="border-collapse: collapse; border-style: dotted; border-width: 0px"  bordercolor="#333333" cellspacing="0" cellpadding="2">
	<form name="editnews" method="post" action='news1.asp?action=modify&id=<%=id%>'>
	<tr class=backs><td class=td height=18>编辑新闻文章</td></tr>
	<TR><TD>新闻标题：<input name="NewsTitle" type="text" value="<%=rs("NewsTitle")%>" size="50" maxlength="50"></TD></TR>

<TR><TD>新闻类别：<select name="NewsClass">
	<option value="1" <%if rs("NewsClass")="1" then%>selected<%end if%>><%=newstitle1%></option>
	<%if newstitle2<>"" then%><option value="2" <%if rs("NewsClass")="2" then%>selected<%end if%>><%=newstitle2%></option><%end if%>
	<%if newstitle3<>"" then%><option value="3" <%if rs("NewsClass")="3" then%>selected<%end if%>><%=newstitle3%></option><%end if%>
	<%if newstitle4<>"" then%><option value="4" <%if rs("NewsClass")="4" then%>selected<%end if%>><%=newstitle4%></option><%end if%>
	<%if newstitle5<>"" then%><option value="5" <%if rs("NewsClass")="5" then%>selected<%end if%>><%=newstitle5%></option><%end if%>
</select>
</TD></TR>
	 <TR><TD>
<textarea name="NewsContain"  style="display:none"><%=Server.HTMLEncode(rs("NewsContain"))%></textarea>

<iframe ID="edit2" src="../webedit/ewebeditor.asp?id=NewsContain&style=putong" frameborder="0" scrolling="no" width="98%" HEIGHT="350"></iframe> 

</TD></TR>
	 <TR><TD>新闻来源：<input name="Source" type="text" value="<%=rs("Source")%>" size="20" maxlength="20"></TD></TR>
	 <TR><TD>生效日期：<input name="PubDate" type="text" value="<%=rs("pubdate")%>" size="20" maxlength="20"></TD></TR>
	 <TR><TD>失效日期：<input name="OffDate" type="text" value="<%=rs("offdate")%>" size="20" maxlength="20"></TD></TR>
	<TR><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>是否固顶：<input type="radio" name="uup" value="0" <%if rs("uup")=0 then%>checked<%end if%>>否<input type="radio" name="uup" value="1" <%if rs("uup")=1 then%>checked<%end if%>>  是</TD></TR>
	<TR><TD><INPUT TYPE="hidden" name=modify value=ok><input type="submit" name="submit" value="提交修改"> <input type="reset" name="Submit2" value="重新修改"></TD></TR>
	</form></TABLE>

	<%
	end if
	rs.close
	set rs=nothing
end sub
%>