📄 newsman.asp
字号:
<%@ Language=VBScript %>
<% option explicit %>
<!--#include file="conn.asp"-->
<!--#include file="../style.asp"-->
<!--#include file="chkadmin.asp"-->
<%
dim curaction, curid, bedit, founderr, errmsg
curaction = request("action")
curid = request("id")
bedit = false
founderr = false
if curaction = "edit" then
bedit = true
end if
dim sql
'删除记录
if curaction = "delete" then
sql = "DELETE FROM news WHERE id=" + cstr(curid)
conn.execute sql
if err.number <> 0 then
response.write "数据库操作错误：" + err.description
err.clear
else
response.write "记录已经删除。"
end if
end if
'添加记录
if curaction = "newsave" then
if trim(request("txttitle")) = "" then
founderr = true
errmsg = "<p>请输入标题！</p>"
end if
if founderr then
response.write errmsg
else
sql = "INSERT INTO news(title,cateid,topicid,link,addtime,image,special,content,hits) VALUES('"
sql = sql + htmlencode(request("txttitle")) + "',"
sql = sql + request("selcate") + ","
sql = sql + request("seltopic") + ",'"
sql = sql + htmlencode(request("txtlink")) + "',#"
sql = sql + request("txtaddtime") + "#,'"
sql = sql + htmlencode(request("txtimage")) + "',"
if request("chkspecial") = "checked" then
sql = sql + "true,'"
else
sql = sql + "false,'"
end if
sql = sql + htmlencode(request("txtcontent")) + "',0)"
'response.write sql
conn.execute sql
if err.number <> 0 then
response.write "无法保存,数据库操作出错:" + err.description
else
response.write "记录已经添加到数据库。"
end if
end if
end if
'保存记录
if curaction = "editsave" then
if trim(request("txttitle")) = "" then
founderr = true
errmsg = "<p>请输入标题！</p>"
end if
if founderr then
response.write errmsg
else
sql = "UPDATE news SET "
sql = sql + "title='" + htmlencode(request("txttitle")) + "',"
sql = sql + "cateid=" + request("selcate") + ","
sql = sql + "topicid=" + request("seltopic") + ","
sql = sql + "link='" + htmlencode(request("txtlink")) + "',"
sql = sql + "addtime=#" + htmlencode(request("txtaddtime")) + "#,"
sql = sql + "image='" + htmlencode(request("txtimage")) + "',"
if request("chkspecial") = "checked" then
sql = sql + "special=true,"
else
sql = sql + "special=false,"
end if
sql = sql + "content='" + htmlencode(request("txtcontent")) + "'"
sql = sql + " WHERE id = " + cstr(curid)
conn.execute sql
if err.number <> 0 then
response.write "无法保存,数据库操作出错:" + err.description
else
response.write "记录已经更新到数据库。"
end if
end if
end if
%>
<html>
<head>
<title>站点更新管理</title>
<meta HTTP-EQUIV="Content-topic" content="text/html; charset=gb2312">
<style type="text/css">
<!--
td { font-family: "宋体"; font-size: 9pt}
body { font-family: "宋体"; font-size: 9pt}
select { font-family: "宋体"; font-size: 9pt}
A {text-decoration: none; color: #336699; font-family: "宋体"; font-size: 9pt}
A:hover {text-decoration: underline; color: #FF0000; font-family: "宋体"; font-size: 9pt}
-->
</style>
<script language="javascript">
function confirmDel(id){
if ( confirm("你确定要删除吗？")) {
window.location.href = "newsman.asp?action=delete&id=" + id
}
}
</script>
</head>
<body>
<%
dim rs, rs1, sql1, strtype, strvalue
if request("cate") <> "" then
strtype="cate"
strvalue=request("cate")
end if
if request("topic") <> "" then
strtype="topic"
strvalue=request("topic")
end if
set rs = server.createobject("adodb.recordset")
set rs1 = server.createobject("adodb.recordset")
select case strtype
case "cate"
sql = "SELECT * FROM news WHERE cateid=" + cstr(strvalue) + " ORDER BY addtime DESC"
sql1 = "SELECT title FROM category WHERE id=" + cstr(strvalue)
rs1.open sql1, conn, 1, 1
response.write "<p align=center>类别：" + rs1("title") + "</p>"
rs1.close
case "topic"
sql = "SELECT * FROM news WHERE topicid=" + cstr(strvalue) + " ORDER BY addtime DESC"
sql1 = "SELECT title FROM topic WHERE id=" + cstr(strvalue)
rs1.open sql1, conn, 1, 1
response.write "<p align=center>专题：" + rs1("title") + "</p>"
rs1.close
case else
sql = "SELECT * FROM news ORDER BY addtime DESC"
end select
rs.open sql, conn, 1, 1
if err.number <> 0 then
response.write "数据库操作失败："&err.description
else
if rs.eof and rs.bof then
response.write "没有记录"
else
%>
<div align="center">
<center>
<table width="100%" border="0" cellspacing="1" bgcolor="#000000">
<tr bgcolor=<%= THCOLOR %>>
<td width="60%" bgcolor="#F4CF9D"> == 新 闻 标 题 ==</td>
<td width="25%" bgcolor="#F4CF9D" align="center">日期</td>
<td width="15%" bgcolor="#F4CF9D" align="center">操 作</td></tr>
<%
dim curpage, i
if request("page")="" then
curpage = 1
else
curpage = cint(request("page"))
end if
rs.pagesize = PERPAGE
rs.absolutepage = curpage
for i = 1 to rs.pagesize
dim tdcolor
tdcolor = TDCOLORL
if clng(rs("id")) = clng(curid) then
tdcolor = TDCOLORD
end if%>
<tr bgcolor=<%= tdcolor %>><td bgcolor="#FEF7ED"><%= rs("title") %></td>
<td bgcolor="#FEF7ED" align="center"><%= cstr(rs("addtime")) %></td>
<td bgcolor="#FEF7ED" align="center"><a href='newsman.asp?<%= strtype %>=<%= strvalue %>&action=edit&id=<%= cstr(rs("id")) %>'>编辑</a>
<a href='javascript:confirmDel(<%= rs("id") %>)'>删除</a></td></tr>
<% rs.movenext
if rs.eof then
i = i + 1
exit for
end if
next %>
</table>
</center>
</div>
<%
response.write "<hr noshade size=1 color=#000000><center>"
response.write "第" + cstr(curpage) + "页/总" + cstr(rs.pagecount) + "页 "
response.write "本页" + cstr(i-1) + "条/总" + cstr(rs.recordcount) + "条 "
if curpage = 1 then
response.write "首页 前页 "
else
response.write "<a href='newsman.asp?" + strtype + "=" + cstr(strvalue) + "&page=1'>首页</a> <a href='newsman.asp?" + strtype + "=" + cstr(strvalue) + "&page=" + cstr(curpage-1) + "'>前页</a> "
end if
if curpage = rs.pagecount then
response.write "后页 末页"
else
response.write "<a href='newsman.asp?" + strtype + "=" + cstr(strvalue) + "&page=" + cstr(curpage+1) + "'>后页</a> <a href='newsman.asp?" + strtype + "=" + cstr(strvalue) + "&page=" + cstr(rs.pagecount) + "'>末页</a>"
end if
End If
rs.close
end if
%>
<hr noshade size="1" color="#000000">
<%
if bedit then
sql = "SELECT * FROM news WHERE id = " + cstr(curid)
rs.open sql, conn, 1, 1
end if
%>
<table border="0" width="100%" bgcolor="#000000" cellspacing="0" cellpadding="0">
<tr>
<td width="100%"><form action="newsman.asp" method="POST">
<div align="center">
<center>
<table cellspacing="1" border="0" color=#000000 width="100%">
<tr>
<td width="100%" bgcolor=#F4CF9D colspan="2">
<p align=center><% If bedit then %>新闻编辑：<% Else %>新闻添加：<% End If %></p>
</td>
</tr>
<tr>
<td width="10%" bgcolor=#FEF7ED>标题：</td>
<td width="90%" bgcolor=#FEF7ED><input type="Text" name="txttitle" size="50" value='<% If bedit then
response.write rs("title")
end if
%>'></td>
</tr>
<tr>
<td width="15%" bgcolor=#FEF7ED>类别：</td>
<td width="85%" bgcolor=#FEF7ED><select name="selcate">
<%
sql1 = "SELECT * FROM category"
rs1.open sql1, conn, 1, 1
do while not rs1.eof
response.write "<option value=" + cstr(rs1("id"))
if bedit then
if rs("cateid") = rs1("id") then
response.write " selected"
end if
else
if request("cate") <> "" then
if rs1("id") = cint(request("cate")) then
response.write " selected"
end if
end if
end if
response.write ">" + rs1("title")
rs1.movenext
loop
rs1.close
%>
</select>
</td>
</tr>
<tr>
<td width="10%" bgcolor=#FEF7ED>专题:</td>
<td width="90%" bgcolor=#FEF7ED><select name="seltopic">
<option value="0"><无专题> <%
sql1 = "SELECT * FROM topic"
rs1.open sql1, conn, 1, 1
do while not rs1.eof
response.write "<option value=" + cstr(rs1("id"))
if bedit then
if rs("topicid") = rs1("id") then
response.write " selected"
end if
else
if request("topic") <> "" then
if rs1("id") = cint(request("topic")) then
response.write " selected"
end if
end if
end if
response.write ">" + rs1("title")
rs1.movenext
loop
rs1.close
%>
</select>
</td>
</tr>
<tr>
<td bgcolor=#FEF7ED>连接：</td>
<td bgcolor=#FEF7ED><input type="Text" name="txtlink" size="50" value='<% If bedit then
response.write rs("link")
else
response.write "http://"
end if
%>'></td>
</tr>
<tr>
<td bgcolor=#FEF7ED>时间：</td>
<td bgcolor=#FEF7ED><input type="Text" name="txtaddtime" value='<% If bedit then
response.write rs("addtime")
else
response.write formatdatetime(now())
end if%>'></td>
</tr>
<tr>
<td bgcolor=#FEF7ED>图像：</td>
<td bgcolor=#FEF7ED><input type="Text" name="txtimage" size="50" value='<% If bedit then
response.write rs("image")
end if
%>'></td>
</tr>
<tr>
<td width="10%" bgcolor=#FEF7ED>特别新闻：</td>
<td width="90%" bgcolor=#FEF7ED>
<input type="Checkbox" name="chkspecial" value="checked" <% if bedit then
if rs("special") then
response.write " checked"
end if
end if %>>
</td>
</tr>
<tr>
<td bgcolor=#FEF7ED>内容：</td>
<td bgcolor=#FEF7ED><textarea name="txtcontent" cols="50" rows="5"><% If bedit then
response.write rs("content")
end if
%></textarea></td>
</tr>
<tr><td align=center colspan="2" bgcolor=#FEF7ED>
<input type="Hidden" name="action" value='<% If bedit then%>editsave<% Else %>newsave<% End If %>'>
<% If bedit then %>
<input type="Hidden" name="id" value='<%= cstr(curid) %>'>
<% End If %>
<input type="Hidden" name=<%= strtype %> value=<%= strvalue %>>
<input type="Submit" name="btnsave" value="保存">
<input type="Reset" value="取消"></td></tr>
</table>
</center>
</div>
</td>
</tr>
</table>
<%
set rs = nothing
call endconnection()
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -