📄 add.asp

📁 大家用用看希望不久v1.1就要和大家见面了账号密码 admin
💻 ASP
字号:
<!--#include file="conn.asp"-->
<html>
<head>
<title>后台管理</title>
<script language="javascript">
function check(zt,nr)
{
if(zt==""||nr=="")
{alert("新闻不能为空!");
return false;}
}
</script>
<link rel="stylesheet" href="style.css" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<%if session("newsyhm")="" then%>
<script language="javascript">
alert("还没有登陆!");
window.location="news_dl.asp";
</script>
<%end if
xw=request.form("xw")
cz = request.querystring("cz")
zt = request.form("zt")
lx = request.form("lx")
id = request.querystring("id")

if zt<>"" and xw<>"" and cz="tj" then
	zt = xrzh(zt)
	xw = xrzh(xw)
	exec="insert into NEWS (zt,lx,nr,sj,sp) values ('"+zt+"','"+lx+"','"+xw+"','"+cstr(date())+"','0')"
	conn.execute exec
	conn.close
	response.redirect "news_admin.asp"
end if
response.write exec
if id<>"" and cz="sc" then
	exec="delete from news where id="+id
	conn.execute exec
	conn.close
	response.redirect "news_admin.asp"
end if
if id<>"" and cz="sp" then
	exec="update news set sp='1' where id="+id
	conn.execute exec
	conn.close
	response.redirect "news_admin.asp"
end if%>
<body>
<table width="778" border="1" cellspacing="0" cellpadding="0" bgcolor="#7894AF" align="center">
  <tr bgcolor="#eeeeee">
    <td height="25">
	<table width="778"><tr><td><%=why%>&nbsp;&nbsp;&nbsp;欢迎来到 <%=bb%>!<%
RESPONSE.Write "CM提醒你---你来访的时间是: " & YEAR(date()) & "年" & MONTH(date()) & "月" & DAY(date()) & "日" 
%></td>
	<td width="10%"><a href="news.asp" target="_parent">返回</a></td>
	<td width="10%"><a href="news_sz.asp">修改信息</a></td>
	<td width="10%"><a href="news_type.asp">类别设置</a></td></tr></table>
	</td>
  </tr>
</table>
<table width="778" border="0" cellpadding="0" cellspacing="1" align="center">
<%exec="select * from news order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
page =int(Request.QueryString("page"))
rs.PageSize =30
If page < 1 Then    page = 1
If page > rs.PageCount Then    page = rs.PageCount
if not  rs.eof then  rs.AbsolutePage =page
for i=1 to rs.pagesize
if rs.eof then exit for
zt=xszh(rs("zt"))
if len(zt)>80 then zt=left(zt,80)+".."%>
	<%rs.movenext
next%>
<tr height="25"><td width="8" align="center">
  <div align="center"></div></td>
</tr>
<tr><td>
<form name="de"  method="post" action="news_admin.asp?cz=tj">
	<tr height="25"><td colspan="3"> <div align="center">主题
	            <input type="text" size="50" name="zt" maxlength="100">
	    </div></td></tr>
	<tr height="25"><td colspan="3"> <div align="center">新闻
	            <select name="lx">
                  <%exec="select * from type order by id desc"
	set rs=server.createobject("adodb.recordset")
	rs.open exec,conn,1,1
	do while not rs.eof%>
                  <option value="<%=rs("lx")%>"><%=rs("lx")%></option>
                  <%rs.movenext
	loop
	rs.close%>
                </select>
	    </div></td></tr>
	<tr height="25"><td colspan="3">
	  <div align="center">
	    <textarea  name="xw" rows="5" cols="60"></textarea>
	    </div></td></tr>
	<tr height="25"><td colspan="3">
	  <div align="center">
  <input type="submit" name="Submit" value="提　交" onClick="javascript:return check(zt.value,xw.value);">
&nbsp;&nbsp;&nbsp;&nbsp;
	  <input type="reset" name="Submit2" value="清　空">
	    </div></td></tr>
</form>
</table>
<p align="center">&nbsp;</p>
<p align="center">&nbsp;</p>
<p align="center">Copyright 2006-2008 http://cm86.vicp.net All Rights Reserved </p>
<p align="center"><font color="#E3E9F1"  size="6" face="华文行楷">CM 新 闻 发 布 系 统 V 1。0</font> </p>
</body>
</htm>
⌨️ 快捷键说明

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