📄 listbak.asp
字号:
<%option explicit%>
<%
Response.Expires = -1
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "Cache-Control","no-cache,must-revalidate"
%>
<!--#include virtual="/Include/DataEnvi.asp"-->
<!--#include virtual="/Include/string.asp"-->
<!--#include file="const.asp"-->
<!--#include virtual="/Include/Page.asp"-->
<!--#include virtual="/Include/toolbar.asp"-->
<%
Dim ObjDB,ObjRS,StrSQL
Dim StrList,StrTitle,StrWeather,StrKeyword
Dim AbsolutePage,PageSize,PageNo,PageCount,TotalRS
Dim IntAccountID,IntMaxPage,IntWeather
Dim i
PageSize=12
PageNO=Request.QueryString("PageNO")
If PageNO="" then
PageNO=1
Else
PageNO=Cint(PageNO)
End If
' IntAccountID = session("AccountID")
IntAccountID = 1
Set ObjDB=server.CreateObject("Adodb.connection")
Set ObjRS=server.CreateObject("Adodb.recordset")
OpenDB ObjDB
StrSQL = " Select * From t_OA_Private_NoteBook Where AccountID= " & FixSQL(IntAccountID) & " Order By CreateTime desc"
ObjRS.Open StrSQL,ObjDB,1,3
ObjRS.PageSize=PageSize
If Not ObjRS.EOF Then ObjRS.AbsolutePage=PageNO
IntMaxPage=ObjRS.PageCount
For i=1 to PageSize
If ObjRS.EOF Then Exit For
StrList = StrList & " <tr bgcolor=#FOFOFO> " & Vbcrlf
StrList = StrList & " <td><input type=checkbox name=ITEM id="&ObjRS("ID")&"></td>" & Vbcrlf
StrList = StrList & " <td>"&ArrayWeather(IntWeather)&"</td>" & Vbcrlf
StrList = StrList & " <td>"&ObjRS("CreateTime")&"</td>" & Vbcrlf
StrList = StrList & " <td><a href=Edit.asp?ID=" & ObjRS("ID") & "&AccountID=" & ObjRS("AccountID") & ">" & ObjRS("Title") & "</a></td> " & Vbcrlf
StrList = StrList & " <td>"&ObjRS("Keyword")&"</td>" & Vbcrlf
StrList = StrList & "</tr>" & Vbcrlf
If Not ObjRS.EOF Then ObjRS.MoveNext
Next
ObjRS.Close
Set ObjRS=Nothing
StrWeather=ArrayWeather(IntWeather)
%>
<html>
<head>
<title>Untitled Document</title>
<style>
<!--
td { font-size: 12px }
body { font-size: 12px }
input { font-size: 12px }
-->
</style>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
td,br,p,li {font-family:宋体;font-size:12px;}
A:link {text-decoration: none; color: 000080;font-size:12px}
A:visited {text-decoration: none; color: 000080;font-size:12px}
A:active {text-decoration: none;font-size:12px}
A:hover {text-decoration: underline; color: ff0000;font-size:12px}
A.a:link {text-decoration: none; color: 0000ff;font-size:16px}
A.a:visited {text-decoration: underline; color: 000080;font-size:16px}
A.a:active {text-decoration: none; font-size:16px}A.a:hover {text-decoration: underline; color: ff0000;font-size:16px}
</style>
<script language="JavaScript">
<!--
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
function MM_swapImgRestore() { //v3.0
var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}
function MM_findObj(n, d) { //v3.0
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document); return x;
}
function MM_swapImage() { //v3.0
var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>
<script language=javascript>
var urlList = "List.asp"
var urlAddnew = "Addnew.asp"
var urlView = "View.asp"
var urlEdit = "Edit.asp"
var urlDelete = "Delete.asp"
</script>
</head>
<body bgcolor="#ffffff" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onLoad="MM_preloadImages('../../images/fo_win2.gif','../../images/ic_doc1.gif','../../images/sc.gif','../../images/find.gif','../../images/fo_win3.gif')">
<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#c7dbe2">
<tr>
<td height="23" width="85%">
<div align="right"></div>
</td>
<td height="23" width="15%">
<div align="right"><%=date()%></div>
</td>
</tr>
</table>
<div align="center"><br>
<table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="41%"> </td>
<td width="59%">
<div align="right"><A href="View.htm" onmouseout=MM_swapImgRestore() onmouseover="MM_swapImage('a','','../../images/fo_win2.gif',1)"><IMG border=0 height=16 name=a src="../../images/fo_win21.gif" width=16> 查看</A> <A href="Addnew.htm"><IMG border=0 height=16 src="../../images/hoster1.gif" width=13>
添加 </A> <A href="Edit.htm" onmouseout=MM_swapImgRestore() onmouseover="MM_swapImage('Image1','','../../images/ic_doc1.gif',1)"><IMG border=0 height=16 name=Image1 src="../../images/ic_doc11.gif" width=16>
修改</A> <A href="%A3%A3" onmouseout=MM_swapImgRestore() onmouseover="MM_swapImage('Image2','','../../images/sc.gif',1)"><IMG border=0 height=16 name=Image2 src="../../images/sc1.gif" width=16>
删除</A> <A href="Search.htm" onmouseout=MM_swapImgRestore() onmouseover="MM_swapImage('Image3','','../../images/find.gif',1)"><IMG border=0 height=16 name=Image3 src="../../images/find1.gif" width=16>
搜索</A> <A href="List.htm" onmouseout=MM_swapImgRestore() onmouseover="MM_swapImage('Image4','','../../images/fo_win3.gif',1)"><IMG border=0 height=16 name=Image4 src="../../images/fo_win3.gif" width=15>
全部显示</A></div>
</td>
</tr>
</table>
<br>
<form name="form1" >
<table width="95%" border="0" cellspacing="1" cellpadding="4" bgcolor="#999999">
<tr bgcolor="#808080">
<td width="3%" height="22" bgcolor="#ffffff">
<div align="center"></div>
<input color="#ffffff" type="checkbox" id="checkbox1" name="checkbox1" onclick="doSelectAll(this)">
</td>
<td width="12%" height="22">
<div align="center"><font color="#ffffff"><b>天气</b></font></div>
</td>
<td width="22%" height="22">
<div align="center"><font color="#ffffff"><b>日期</b></font></div>
</td>
<td width="32%" height="22">
<div align="center"><font color="#ffffff"><b>标题 </b></font></div>
</td>
<td width="31%" height="22">
<div align="center"><font color="#ffffff"><b>日志关键词</b> </font></div>
</td>
</tr>
<%=StrList%>
<%=PageFooter(IntMaxPage,"PageNO")%>
</table>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<div align="center">共 1 条收文记录 第 1/1 页。 首页|< 前页<< 后页>>尾页>| 跳到第
<input name="textfield" size="8" >
页
<input type="submit" name="Submit" value="GO">
</div>
</td>
</tr>
</table>
</form>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -