📄 newsedit.asp

📁 asp开发 asp开发 asp开发 asp开发

💻 ASP

字号:

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新闻</title>
<link rel="stylesheet" type="text/css" href="news.css">
<script language="JavaScript">
function NewsWindow(id)
{
window.open('newswind.asp?id='+id,'infoWin', 'height=400,width=600,scrollbars=yes,resizable=yes');
}
</script>
</head>

<body>
<%
set conn = Server.CreateObject("ADODB.CONNECTION")
conn.open "DBQ=" & Server.Mappath("news.mdb") & _
	";DRIVER={Microsoft Access Driver (*.mdb)};"
set rs = Server.CreateObject("adodb.recordset")
if request("del")<>"" then conn.Execute("DELETE * FROM news WHERE id=" & request("del"))
sql="SELECT * FROM news ORDER BY ID DESC"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
	response.write "<p>还 没 有 任 何 新 闻</p>"
else
	if not isempty(request("page")) then
		pagecount = cint(request("page"))
	else
		pagecount = 1
	end if
	rs.PageSize = 10
	rs.AbsolutePage = pagecount
%>
    <p><strong>全部新闻</strong><table width=100%>
<%For iPage = 1 To rs.PageSize
If rs.EOF Then Exit For
id=rs("ID")%>
<tr><td><a href="javascript:NewsWindow(<%=id%>)"><u><%=rs("title")%></u>
</a>--<%=rs("write")%>【<%=rs("times")%>】
</td><td align=right><img src=note.gif><a href=newsadd.asp?id=<%=id%>>编辑</a>
<img src=del.gif><a href=newsedit.asp?del=<%=id%>>删除</a></td></tr>
<%
rs.movenext
Next
Response.Write "</table><p>共" & rs.recordcount & "条记录<br>"
if rs.PageCount>1 Then
 If pagecount<>1 Then
   Response.Write "〖<A HREF=newsedit.asp?Page=1&boardid="&request("boardid")&">首页</A>〗

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -