?? add.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%> 歡迎來到 <%=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);">
<input type="reset" name="Submit2" value="清 空">
</div></td></tr>
</form>
</table>
<p align="center"> </p>
<p align="center"> </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 + -