ad_editnewsok.asp

商品订单管理：商品分类管理 添加与修改商品 管理订单 投诉订单 反馈信息 商品留言管理 管理网站用户：管理用户 管理后台管理员 新闻公告管理：新闻添加（支持图片新闻） 修改删除 首页公告设置 网站常规

<!--#include file="conn.asp"-->
<%
function htmlencode2(str)
    dim result
    dim l
    if isNULL(str) then 
       htmlencode2=""
       exit function
    end if
    l=len(str)
    result=""
	dim i
	for i = 1 to l
	    select case mid(str,i,1)
	           case "<"
	                result=result+"&lt;"
	           case ">"
	                result=result+"&gt;"
              case chr(13)
	                result=result+"<br>"
	           case chr(34)
	                result=result+"&quot;"
	           case "&"
	                result=result+"&amp;"
              case chr(32)	           
	                'result=result+"&nbsp;"
	                if i+1<=l and i-1>0 then
	                   if mid(str,i+1,1)=chr(32) or mid(str,i+1,1)=chr(9) or mid(str,i-1,1)=chr(32) or mid(str,i-1,1)=chr(9)  then	                      
	                      result=result+"&nbsp;"
	                   else
	                      result=result+" "
	                   end if
	                else
	                   result=result+"&nbsp;"	                    
	                end if
	           case chr(9)
	                result=result+"    "
	           case else
	                result=result+mid(str,i,1)
         end select
       next 
       htmlencode2=result
   end function
%>
<link href=img/css.css rel=STYLESHEET type=text/css>
<%dim news_id,news_title,news_pic,news_content,sql,rs
news_id=Request("news_id")
news_title=Request("news_title")
news_pic=Request("news_pic")
news_content=htmlencode2(request("news_content"))
set rs=server.createobject("adodb.recordset")
sql="select * from news where news_id="&request("news_id")
rs.open sql,conn,3,3
rs("news_title")=news_title
rs("news_pic")=news_pic
rs("news_content")=news_content
rs.Update
response.write "OK!"
    response.write "<br>"
    response.write "<a href=ad_delnews.asp>Back</a>"
    rs.close
%>