📄 admin_news.asp
字号:
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")=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 "<BLOCKQUOTE><br>新闻删除成功！<meta http-equiv=refresh content=""2;URL=admin_news.asp""></BLOCKQUOTE>"
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.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=addnews'>
<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>
<input type="button" onClick="javascript:location.href='newsclass.asp';" value="编辑新闻类别" name="edit">
</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="555" HEIGHT="350"></iframe>
</TD></TR>
<TR><TD>新闻来源：<input name="Source" type="text" value="<%=sitename%>" size="20" maxlength="20"></TD></TR>
<TR><TD>生效日期：<input name="PubDate" type="text" value="<%=now()%>" size="20" maxlength="20"></TD></TR>
<TR><Td>失效日期：<input name="OffDate" type="text" value="<%=now()+731%>" size="20" maxlength="20"></TD></TR>
<TR><TD>是否在线：<input type="radio" name="Online" value="1">是 <input type="radio" name="Online" value="0" checked>否</TD></TR>
<TR><TD>是否固顶：<input type="radio" name="uup" value="1">是 <input type="radio" name="uup" value="0" checked>否</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 "非法新闻编号"
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("uup")=request.form("uup")
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"">"
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>新闻标题：<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>
<input type="button" onClick="javascript:location.href='newsclass.asp';" value="编辑新闻类别" name="edit">
</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="555" 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>
<%
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
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -