admin_news.asp

本程序采用花香内核

title=trim(replace(request.form("news_title"),"'",""))
keyword=trim(replace(request.form("news_keyword"),"'",""))
content=rtrim(replace(request.form("news_content"),"",""))
content=trim(replace(request.form("news_content"),"∈",""))
color=trim(replace(request.form("news_color"),"'",""))
rs("news_color")=color
newsisbest=request.form("isbest")
newistop=request.form("istop")
newpic=request.form("images")
isimg=request.form("hx66")
if catid<1 then
  founderr=true
Response.Write("<script language=javascript>alert('你必须选择新闻的分类！');history.back(1);</script>")
else
  rs("cat_id")=catid
end if
if title="" then
  founderr=true
Response.Write("<script language=javascript>alert('你必须填写新闻的标题！');history.back(1);</script>")
else
  rs("news_title")=title
end if
if keyword="" then
  founderr=true
Response.Write("<script language=javascript>alert('你必须填写新闻的关键字！');history.back(1);</script>")
else
  rs("news_keyword")=keyword
end if
if content="" then
  founderr=true
Response.Write("<script language=javascript>alert('你必须填写新闻的内容！');history.back(1);</script>")
else
  rs("news_content")=content
end if
  rs("isbest")=cint(newsisbest)
  rs("istop")=cint(newistop)
  rs("images")=newpic
  rs("isimg")=cint(isimg)
if founderr then
  call diserror()
  response.end
else
  rs.update
  rs.close
  set rs=nothing
  response.redirect "admin_news.asp?action=cat"
end if
end if
if request.Form("action")="delnews" then
if request.Form("id")="" then
  founderr=true
Response.Write("<script language=javascript>alert('你必须指定操作的对象！');history.back(1);</script>")
else
  if not isInteger(request.form("id")) then
    founderr=true
Response.Write("<script language=javascript>alert('非法的新闻id参数。');history.back(1);</script>")
  end if
end if
if founderr then
  call diserror()
  response.End
end if
sql="select * from news where news_id="&cint(request.Form("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
  rs.delete
  rs.close
  set rs=nothing
  openadmin
  sql="update allcount set newscount = newscount - 1"
  conn.execute(sql)
  
  response.redirect "admin_news.asp?action=cat"
end if
if request.QueryString("action")="newnew" then%>
<script>
<!--
function showimg(){
if (document.addnews.hx66.checked == true) {
	img.style.display = "";
	advance.innerText="取消图片新闻"
}else{
	img.style.display = "none";
	advance.innerText="设为图片新闻"
}
}

function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
//-->
</script>
<table width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
        <form name="addnews" method="post" action="">
          <tr> 
            <td class=lanyuss>新增新闻</td>
          </tr>
          <tr> 
            <td class=lanyuds>标题
              <input type="text" name="news_title" size="50" class="textarea">&nbsp;<select name="news_color" id="news_color">
          <option value="" selected>标题醒目</option>
          <option value="red">红色醒目</option>
          <option value="green">绿色醒目</option>
          <option value="blue">蓝色醒目</option>
          <option value="#FF00FF">粉红醒目</option>
        </select>
            </td>
          </tr>
          <tr> 
            <td class=lanyuds>分类
              <select name="cat_id">
                <%
sql="select * from newcat where sid=0"
set rs1=conn.execute(sql)
do while not rs1.eof
response.write "<optgroup label='"&rs1("cat_name")&"'>"
sql="select * from newcat where sid="&rs1("cat_id") 
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
do while not rs2.eof
%>
              <option value="<%=rs2("cat_id")%>">├ <%=rs2("cat_name")%></option>
<%
rs2.movenext
loop
rs1.movenext
loop
rs1.close
set rs1=nothing%>
              </select>
              &nbsp;&nbsp;关键字 
<input type="text" name="news_keyword" size="10" class="textarea">&nbsp;&nbsp&nbsp;&nbsp;<input type="checkbox" name="hx66" value=1 onClick=showimg()> <span id=advance>设为图片新闻</span>&nbsp;&nbsp;&nbsp;&nbsp;<a href="eWebEditor/Admin_Login.asp">※编辑器管理※</a>
            </td>
          </tr>
            <tr>
          <td>
      <table width="100%" border="0" align="seft" cellpadding="0" cellspacing="0" bordercolor="#EFEFEF" id="img" style="display: none">
          <tr class=lanyuds> 
            <td width="17%">图片地址：</td>
            <td width="83%"> 
              <input type="text" name="images" class="textarea" size="40" value="">
            </td>
          </tr>
          <tr class=lanyuds> 
           <td>图片上传：</td>
           <td align="left" height="25"><iframe frameborder=0 width=290 height=25 scrolling=no src="upload.asp?action=xwpic"></iframe></td>
         </tr>
        </table>
            </td>
          </tr>
          <tr> 
            <td class=lanyuds> 
              <textarea cols="85" name="news_content" rows="20" class="textarea" style="display:none"></textarea>
              <IFRAME ID="eWebEditor1" src="ewebeditor/ewebeditor.asp?id=news_content&style=s_blue" frameborder="0" scrolling="no" width="550" height="350"></IFRAME>  
            </td>
          </tr>
          <tr> 
            <td bgcolor="#E8E8E8" height="30" align="center">
              <input type="checkbox" name="istop" value="1">
              置顶&nbsp;&nbsp;&nbsp;
              <input type="submit" name="Submit" value="确定新增" class="button">
              <input type="reset" name="Reset" value="清空重写" class="button">
              [<a href="admin_news.asp">返回</a>] </td>
          </tr>
		  <input type="hidden" name="action" value="newnew">
		  <input type="hidden" name="MM_insert" value="true">
        </form>
      </table>
<%end if
	  if request.QueryString("action")="editnew" then
if request.querystring("news_id")="" then
Response.Write("<script language=javascript>alert('请指定操作的对象！');history.back(1);</script>")
  response.end
else
  if not isinteger(request.querystring("news_id")) then
Response.Write("<script language=javascript>alert('非法的新闻ID参数！');history.back(1);</script>")
	response.end
  end if
end if
if request.querystring("cat_id")="" then
Response.Write("<script language=javascript>alert('请指定操作的对象！');history.back(1);</script>")
  response.end
else
  if not isinteger(request.querystring("cat_id")) then
Response.Write("<script language=javascript>alert('非法的新闻ID参数！');history.back(1);</script>")
	response.end
  end if
end if
sql="select * from news where news_id="&cint(request.querystring("news_id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
	  %>
<script>
<!--
function showimg(){
if (document.addnews.hx66.checked == true) {
	img.style.display = "";
	advance.innerText="取消图片新闻"
}else{
	img.style.display = "none";
	advance.innerText="设为图片新闻"
}
}

function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
//-->
</script>
      <table width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
        <form name="addnews" method="post" action="">
          <tr> 
            <td class=lanyuss>修改新闻</td>
          </tr>
          <tr> 
            <td class=lanyuds>标题
              <input name="news_title" type="text" class="textarea" id="news_title" size="50" value="<%=rs("news_title")%>"> 
            &nbsp;<select name="news_color" id="news_color">
          <option value="" selected>标题醒目</option>
          <option value="red">红色醒目</option>
          <option value="green">绿色醒目</option>
          <option value="blue">蓝色醒目</option>
          <option value="#FF00FF">粉红醒目</option>
        </select></td>
          </tr>
          <tr> 
            <td class=lanyuds>所属分类 
              <select name="cat_id" id="cat_id">
                <%
sql="select * from newcat where sid=0"
set rs1=conn.execute(sql)
do while not rs1.eof
response.write "<optgroup label='"&rs1("cat_name")&"'>"
sql="select * from newcat where sid="&rs1("cat_id") 
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
do while not rs2.eof
%>
              <option value="<%=rs2("cat_id")%>"<%if rs2("cat_id")=rs("cat_id") then response.write "selected" end if%>>├ <%=rs2("cat_name")%></option>
<%
rs2.movenext
loop
rs1.movenext
loop
rs1.close
set rs1=nothing%>
              </select>
&nbsp;&nbsp;关键字 
<input type="text" name="news_keyword" size="10" class="textarea" id="news_keyword" value="<%=rs("news_keyword")%>">&nbsp;&nbsp&nbsp;&nbsp;<input name="hx66" type="checkbox"  id="hx66" value="1" <%if rs("isimg")=1 then response.write "checked" end if%> onClick=showimg()> <span id=advance>图片新闻</span></td>
          </tr>
            <tr>
          <td>
      <table width="100%" border="0" align="seft" cellpadding="0" cellspacing="0" bordercolor="#EFEFEF" id="img" style="display: none">
          <tr class=lanyuds> 
            <td width="17%">图片地址：</td>
            <td width="83%"> 
              <input type="text" name="images" class="textarea" size="40" value="<%=rs("images")%>">
            </td>
          </tr>
          <tr class=lanyuds> 
           <td>图片上传：</td>
           <td align="left" height="25"><iframe frameborder=0 width=290 height=25 scrolling=no src="upload.asp?action=xwpic"></iframe></td>
         </tr>
        </table>
            </td>
          </tr>
          <tr> 
            <td class=lanyuds><textarea name="news_content" style="display:none"><%=Server.HtmlEncode(rs("news_content"))%></textarea>
             <IFRAME ID="eWebEditor2" src="ewebeditor/ewebeditor.asp?id=news_content&style=s_blue" frameborder="0" scrolling="no" width="550" height="350"></IFRAME>
            </td>
          </tr>
          <tr> 
            <td class=lanyuqs height="30" align="center"> <input name="istop" type="checkbox"  id="istop" value="1" <%if rs("istop")=1 then response.write "checked" end if%>>
              置顶&nbsp;&nbsp;&nbsp; <input name="Submit" type="submit" class="button" id="Submit" value="确定修改"> 
              <input name="Reset" type="reset" class="button" id="Reset" value="清空重写">
              [<a href="admin_news.asp">返回</a>] </td>
          </tr>
		  <input type="hidden" name="id" value="<%=rs("news_id")%>">
		  <input type="hidden" name="action" value="editnew">
          <input type="hidden" name="MM_insert" value="true">
        </form>
      </table>
<%rs.close
set rs=nothing
end if%>