addinfo_ok.asp

来自「能进行网上购物的需求」· ASP 代码 · 共 47 行

<!--#include file="conn.asp"-->
<%
title=request("title")
title_ename=request("title_ename")
title_fname=request("title_fname")
BigClassName=request("BigClassid")
mContent = trim(Request.form("cnWords"))
mContent = Replace(mContent, "<script", "<sscript")
mContent = Replace(mContent, "/script>", "/scripts>")
mContent = Replace(mContent, "/script >", "/scripts>")
eContent = trim(Request.form("content_ename"))
eContent = Replace(eContent, "<script", "<sscript")
eContent = Replace(eContent, "/script>", "/scripts>")
eContent = Replace(eContent, "/script >", "/scripts>")
fContent = trim(Request.form("content_fname"))
fContent = Replace(fContent, "<script", "<sscript")
fContent = Replace(fContent, "/script>", "/scripts>")
fContent = Replace(fContent, "/script >", "/scripts>")
mimageNum = Request.form("imageNum")
firstImageName = trim(Request.form("editFirstImageName"))
ok=request("ok")
set rs=server.createobject("adodb.recordset")
sql="select * from NEWS where (id is null)"
rs.open sql, conn, 1, 3
rs.addnew
rs("title")=title
rs("title_ename")=title_ename
rs("title_fname")=title_fname
rs("content")=mcontent
rs("content_ename")=econtent
rs("content_fname")=fcontent
rs("BigClassName")=BigClassName
if ok<>"" then rs("ok")= ok
        if mimageNum<>"" then rs("imageNum")= mimageNum
        if firstImageName<>"" then rs("firstImageName")= firstImageName
        rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write "<script language='javascript'>" & chr(13)
response.write "alert('商品专题提交成功！');" & Chr(13)
response.write "window.document.location.href='admin_info.asp';"&Chr(13)
response.write "</script>" & Chr(13)
Response.End
%>