📄 edinews.asp

📁 仿搜狐NBA网站源码,仿搜狐NBA网站源码全站生成HTML静态页面
💻 ASP
字号:
<!--#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
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN""http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="images/style.css" type=text/css rel=stylesheet>
<title>米儿文章管理系统</title>
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
}
-->
</style></head>
<body>
<center>
<p>&nbsp;</p>
<p>&nbsp;</p>
<%
if request("mi222")="ediok" then
title=trim(request.Form("title"))
key=trim(request.Form("key"))
user=trim(request.Form("user"))
classname=trim(request.Form("classname"))
id=trim(request.Form("newsid"))
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("cnWords2")) 
	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 cstr(id)='"& id &"'"
rs.open sql,conn,1,3
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='newslist.asp';"&Chr(13)
		response.write "</script>" & Chr(13)
Response.End
end if
end if
%>
<%
id=trim(request("id"))
set rs=server.createobject("adodb.recordset")
sql="select * from news where cstr(id)='"& id &"'"
rs.open sql,conn,1,1
if rs.bof or rs.eof then
  rs.close
  Response.Write("<script>alert('文章ID错误!');history.go(-1)</script>")
  Response.End
else
  title=rs("mi222_title")
  key=rs("mi222_key")
  bigclass=rs("mi222_bigclass")
  smaclass=rs("mi222_smaclass")
  Content=rs("mi222_body")
  user=rs("mi222_writer")
  ok=rs("ok")
  rs.close
  if smaclass="" then
    smaclass="mi222"
  end if
%>
<TABLE cellSpacing=1 width=600 bgColor=#1b7bce border=0>
  <TBODY>
    <TR bgColor=#ffffff>
      <TD class=title2>修改文章</TD>
    </TR>
    <TR bgColor=#ffffff>
      <TD><table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#1b7bce">
          <form name="addNEWS" method="post" action="edinews.asp?mi222=ediok">
            <tr bgcolor="#FFFFFF">
              <td height="25" bgcolor="#FFFFFF"><div align="left">*新闻标题：
                    <input name="title" type="text" class="input" value="<%=title%>" size="30">
              </div></td>
            </tr>
            <tr bgcolor="#FFFFFF">
              <td height="25" bgcolor="#FFFFFF"><div align="left">*关 键 字：
                    <input name="key" type="text" class="input" id="key" value="<%=key%>" size="50">
              </div></td>
            </tr>
            <tr bgcolor="#FFFFFF">
              <td height="25" bgcolor="#FFFFFF"><div align="left">*新闻类别： 
                <select name="classname" id="classname">
<%
Set rs=Server.CreateObject("ADODB.RecordSet") 
sql="select * from mi222class order by bigclass,id"
rs.Open sql,conn,1,1
if not rs.bof and not rs.eof then
for i=1 to rs.recordcount
%>
  <%
  if rs("bigclass")=bigclass and rs("smaclass")=smaclass then
  %>
    <%
    if rs("smaclass")="mi222" then
    %>
                  <option value=<%=rs("bigclass")%>;<%=rs("smaclass")%> selected>├<%=rs("bigclass")%></option>
	<%
	else
	%>
                  <option value=<%=rs("bigclass")%>;<%=rs("smaclass")%> selected>&nbsp;&nbsp;&nbsp;&nbsp;├<%=rs("smaclass")%></option>
	<%
	end if
	%>
  <%
  else
  %>
    <%
    if rs("smaclass")="mi222" then
    %>
                  <option value=<%=rs("bigclass")%>;<%=rs("smaclass")%>>├<%=rs("bigclass")%></option>
	<%
	else
	%>
                  <option value=<%=rs("bigclass")%>;<%=rs("smaclass")%>>&nbsp;&nbsp;&nbsp;&nbsp;├<%=rs("smaclass")%></option>
	<%
	end if
	%>
  <%
  end if
  %>
<%
rs.movenext
if rs.eof then exit for
next
else
%>
                 <option value="0" selected>暂无分类信息</option>
<%
end if
%>
                </select>
              </div></td>
            </tr>
            <tr bgcolor="#FFFFFF">
              <td height="25" valign="top" bgcolor="#FFFFFF"><div align="left">*新闻内容：</div></td>
            </tr>
            <tr bgcolor="#FFFFFF">
              <td height="25" valign="top" bgcolor="#FFFFFF"><div align="left">
                <input type="hidden" name="cnWords2" value="<%=Server.HTMLEncode(Content)%>">
				<iframe ID="eWebEditor1" src="../eWebEditor/ewebeditor.asp?id=cnWords2&style=standard1" frameborder="0" scrolling="no" width="100%" HEIGHT="350"></iframe>
              </div></td>
            </tr>
            <tr bgcolor="#FFFFFF">
              <td height="25" bgcolor="#FFFFFF"><div align="left">*发布人：
                    <input name="user" type="text" class="input" value="<%=user%>" size="30">
              </div></td>
            </tr>
            <tr bgcolor="#FFFFFF">
              <td height="25" bgcolor="#FFFFFF"> <div align="left">是否设为首页图片新闻：
                  <input type="radio" value="True" <%if ok=True then Response.Write "checked"%>  name="ok">是
				  <input type="radio" value="False" <%if ok=False then Response.Write "checked"%> name="ok">否 　<font color="#FF0000">选择此项时请注意文章中是否添加有图片 ！</font></div></td>
            </tr>
            <tr bgcolor="#FFFFFF">
              <td height="30" align="center" bgcolor="#FFFFFF">
                  <div align="center">
                    <input type="submit" name="Submit" value="提交" class="input">
                    <input type="hidden" name="newsId" value="<%=id%>">                    　
                    <input type="reset" name="Submit2" value="重置" class="input">
                    <!--获取EditBox的内容-->
                    <input name=cnWords type=hidden ID="cnWords" value="">
                    <input name=imageNum type=hidden ID="imageNum" value="<%=mImageNum%>">
                    <input name=editFirstImageName type=hidden ID="editFirstImageName" value="">
<!--获取EditBox的内容-->
                    </div></td>
            </tr>
          </form>
      </table></TD>
    </TR>
  </TBODY>
</TABLE>
<%
end if
%>
</center>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -