📄 xinwen.asp
字号:
<!--#include file="../conn.asp"-->
<!--#include file="../check.asp"-->
<%
call LinkData()
dim sql,rs,absolutepage,pagecount,i
Set rs = Server.CreateObject("ADODB.RecordSet")
sql="select * from xinwen order by xid desc"
rs.open sql,conn,1,1
%>
<html>
<head>
<title>www.114kj.com心理知识</title>
<link href="../teacher.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script LANGUAGE="javascript" src="window.js"></script>
<script language="JavaScript">
function checkall(num){
for (i=1;i<num*2+1;i++){
document.form4("del_flag"&&i).checked="on"
}
}
function del(){
var x=document.form4.radio.value;
if (x=="pass") x="通过";
if (x=="delete") x="删除";
return window.confirm("您确定要批量 -'"+x+"'- 吗？")
}
</script>
</head>
<body topmargin="0">
<%
rs.PageSize=10
absolutepage=request("absolutepage")
if absolutepage="" then absolutepage=1
if not rs.EOF then
rs.AbsolutePage=absolutepage
end if
pagecount=rs.PageCount
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="2">
<tr>
<td align="center"> 知识列表 <a href="xinwenadd.asp">增加知识</a></td>
</tr>
<tr>
<form name=form2 action="xinwen.asp">
<td align="center">每页<%=rs.PageSize%>条 当前页<%=absolutepage%>/<%=pagecount %>
<%if cint(absolutepage)>1 then %>
<a href="xinwen.asp?absolutepage=1">首页</a>
<%else %>
首页
<%end if%>
<%if cint(absolutepage)>1 then %>
<a href="xinwen.asp?absolutepage=<%=cint(absolutepage)-1%>">前页</a>
<%else %>
前页
<%end if%>
<%if cint(absolutepage)<cint(pagecount) then %>
<a href="xinwen.asp?absolutepage=<%=cint(absolutepage)+1%>">后页</a>
<%else Response.Write "后页" end if%>
<%if cint(absolutepage)<cint(pagecount) then %>
<a href="xinwen.asp?absolutepage=<%=pagecount%>">末页</a>
<%else Response.Write "末页" end if%> </td>
</form>
</tr>
<tr>
<td align="center">
<form name=form4 action="xinwendelete.asp" onsubmit="return del()">
<table border="1" align="center" width="100%" cellpadding="0" cellspacing="0">
<tr >
<td align="center">标题</td>
<td align="center">内容 (点击标题查看详细内容) </td>
<td align="center">日期</td>
<td align="center">修改</td>
<td align="center">
<input type="button" name="Submit" value="全选" onclick="checkall(<%=rs.PageSize%>)">
</font></td>
</tr>
<%
for i=1 to rs.PageSize
if rs.EOF then exit for
%>
<tr>
<td align="center"><a href="xinwendetail.asp?xid=<%=rs("xid")%>" target="_blank"><%=rs("biaoti")%></a></td>
<td> <%=left(rs("neirong"),50)%>......</td>
<td align="center"><%=rs("riqi")%></td>
<td align="center"><a href="xinwenedit.asp?xid=<%=rs("xid")%>">修改</a></td>
<td align="center">
<div align="center">
<input type="checkbox" name="del_flag<%=i%>">
<input type="hidden" value="<%=rs("xid")%>" name="record_id<%=i%>">
</div>
</td>
</tr>
<%
rs.MoveNext
next
%>
<input type="hidden" name="record_count" value=<%=i-1%>>
</table>
<div align="right"><input type="submit" value="删除">
</div>
</form> </td>
</tr>
</table>
</body>
</html>
<%
rs.close
call CloseData()
'call Timenum()
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -