addnewsok.asp

仿搜狐NBA网站源码,仿搜狐NBA网站源码全站生成HTML静态页面

<!--#include file="conn.asp"-->
<%
if session("adminname")="" then
    response.write "<script language='javascript'>" & chr(13)
    response.write "window.document.location.href='login.asp';"&Chr(13)
    response.write "</script>" & Chr(13)
    Response.End
end if
%>
<%
title=trim(request.Form("title"))
key=trim(request.Form("key"))
user=trim(request.Form("user"))
classname=trim(request.Form("classname"))
if title="" then
  response.write "<script language='javascript'>" & chr(13)
  response.write "alert('请填写标题！');" & Chr(13)
  response.write "window.document.location.href='addnews.asp';"&Chr(13)
  response.write "</script>" & Chr(13)
  Response.End
elseif key="" then
  response.write "<script language='javascript'>" & chr(13)
  response.write "alert('请填写关键词！');" & Chr(13)
  response.write "window.document.location.href='addnews.asp';"&Chr(13)
  response.write "</script>" & Chr(13)
  Response.End
elseif user="" then
  response.write "<script language='javascript'>" & chr(13)
  response.write "alert('请填写发布人！');" & Chr(13)
  response.write "window.document.location.href='addnews.asp';"&Chr(13)
  response.write "</script>" & Chr(13)
  Response.End
elseif classname="0" then
  response.write "<script language='javascript'>" & chr(13)
  response.write "alert('请选择新闻类型！');" & Chr(13)
  response.write "window.document.location.href='addnews.asp';"&Chr(13)
  response.write "</script>" & Chr(13)
  Response.End
else
    mi222class=split(classname,";")
	bigclass=mi222class(0)
	smaclass=mi222class(1)
	if smaclass="mi222" then
	  smaclass=""
	end if
	mContent = trim(Request.form("cnWords")) 
	mContent = Replace(mContent,"<script","<sscript") 
	mContent = Replace(mContent,"/script>","/scripts>")
	mContent = Replace(mContent,"/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("mi222_title")=title
if key<>"" then
  rs("mi222_key")=key
end if
rs("mi222_body")=mcontent
rs("mi222_writer")=user
rs("mi222_bigclass")=bigclass
rs("mi222_smaclass")=smaclass
if ok<>"" then rs("ok") = ok
if mimageNum<>"" then rs("imagenum") = mimageNum 
if firstImageName<>"" then rs("firstimage") = 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='addnews.asp';"&Chr(13)
		response.write "</script>" & Chr(13)
Response.End
end if
%>