📄 diary_index_new.asp

📁 功能强大的日记本实现管理写日记和真实的日记本一样带锁不会让别人看到你的隐私

💻 ASP

字号:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%
error_ip = Request.ServerVariables("REMOTE_ADDR")
if error_ip = "202.103.229.174" then
  Response.Write("本站不欢迎你的到来。")
  Response.End()
end if
'数据库链接字符串
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("asp/###！￥%diary.asp")
conn.open connstr
if err.number <> 0 then
	Response.Write("连接数据库出错！请与管理员联系")
	Response.end
end if

Function CloseDataConn
  conn.close
  set conn = Nothing
end Function
%>
<html>
<head>
<META http-equiv=Content-Language content=zh-cn>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Description" content="我爱我吧学习网,Flash留言本,Flash日记本,日记,日记本,我的Flash日记本,Flash多用户留言本,Flash日记,Flash与asp日记程序">
<meta name="Keywords" content="我爱我吧学习网,Flash留言本,Flash日记本,日记,日记本,我的Flash日记本,Flash多用户留言本,Flash日记,Flash与asp日记程序">
<META content="MSHTML 6.00.2800.1106" name=GENERATOR>
<META NAME="ROBOTS" CONTENT="all">
<title>Flash日记本和Flash留言本</title>
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
body,td,th {
	font-size: 12px;
}
a:link {
	color: #3300CC;
	text-decoration: none;
}
a:visited {
	text-decoration: none;
	color: #3300CC;
}
a:hover {
	text-decoration: underline;
	color: #0099FF;
}
a:active {
	text-decoration: none;
	color: #FF9900;
}
.style4 {
	color: #FFFFFF;
	font-weight: bold;
	font-size: 14px;
}
-->
</style>

</head>

<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr align="left">
    <td width="50%" height="22" align="center" bgcolor="#1FB6D7"><span class="style4">最新注册用户</span></td>
  </tr>
</table>
<table width="96%"  border="0" align="center" cellpadding="2" cellspacing="0">
  <tr>
    <td height="18"><strong>日记本</strong></td>
    <td><strong>作 者</strong></td>
  </tr>
  <%
	  SET rsHY = Server.CreateObject("ADODB.Recordset")
	  SQL="SELECT top 25 * from HuiYuan order by HYzhuchedate desc"  
      rsHY.Open SQL,conn,1,1
	  do while not rsHY.EOF
		%>
  <tr>
    <td width="57%" height="18">·<a href="http://www.5irj.com/diary.asp?id=<%=rsHY("id")%>" target="_blank" title="注册日期：<%=rsHY("HYzhuchedate")%>"><%=rsHY("diary_title")%></a> </td>
    <td width="43%"><span class="liuYanTitle"><%=rsHY("HYname")%></span></td>
  </tr>
  <%
		  rsHY.movenext
		  loop
		rsHY.close
		set rsHY=Nothing
		%>
</table>
</body>
</html>
<%CloseDataConn%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -