helpmanage_inc.asp

来自「网店批发系统,很好很强大,很好很强大很好很强大」· ASP 代码 · 共 49 行

<%
	call CheckType(37)	
	dim i,j,rs,help,helpNum,NewsID,action,NewsContent,NewsTitle,ReturnUrl
	dim content,title,n_Title
	
	NewsID = sqlcheck(Request.QueryString("NewsID"))
	action = sqlchg(Request.QueryString("action"))
	title = sqlchg(Request.Form("title"))
	Newstitle = Request.Form("Newstitle")
	NewsContent = Request.Form("NewsContent")
	ReturnUrl = "helpmanage.asp"
	
	if action = "save" then
		conn.execute("Update News set NewsContent = '"&NewsContent&"',Newstitle = '"&Newstitle&"' where NewsID = "&NewsID&"")
		Response.Write("<script language='javascript'>alert('操作成功');window.location.href='"&ReturnUrl&"';</script>")
		Response.End()
	end if
	
	if action = "del" then
		conn.execute("DELETE FROM News where NewsID = "&NewsID&" AND NewsType = 4")
		Response.Write("<script language='javascript'>alert('操作成功');window.location.href='"&ReturnUrl&"';</script>")
		Response.End()
	end if
	
	if action = "add" then
		conn.execute("INSERT INTO News (NewsTitle,NewsContent,NewsType) VALUES ('"&title&"','"&NewsContent&"','4')")
		Response.Write("<script language='javascript'>alert('操作成功');window.location.href='"&ReturnUrl&"';</script>")
		Response.End()
	end if
	
	if NewsID <> "" then
		set rs = conn.execute("Select NewsTitle,NewsContent from News where NewsID = "&NewsID&"")
		if not rs.eof then
			n_Title = rs(0)
			content = rs(1)
		end if
	end if
	
	set rs = conn.execute("Select NewsID,NewsTitle,NewsContent,NewsType from News order by orderid,NewsID")
	if not rs.eof then
		help = rs.getrows
		helpNum = ubound(help,2)
		if not isnumeric(helpNum) then
			helpNum = 1
		end if
	else
		helpNum = -1
	end if
%>