📄 xinqingrizhit.asp

📁 大一下学期

💻 ASP

字号:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>心情日志</title>
<style type="text/css">
<!--
body {
	background-color: #9900FF;
	background-image: url(../images/star01.jpg);
}
-->
</style>
<link href="../images/css.css" rel="stylesheet" type="text/css" />
</head>

<body>
<div align="center"><img src="../images/photoimg89.qq.gif" width="600" height="50" align="middle" /></div>
<% 
	'以下连接数据库，建立一个Connection对象实例db
	Dim db 
	Set db=Server.CreateObject("ADODB.Connection") 
	db.Open "Dbq="&Server.Mappath("xinqingrizhiq.mdb")&";Driver={Microsoft Access Driver (*.mdb)};"    
	'以下建立记录集
	Dim strSql,rs 
	strSql="Select * From rizhi Order By id DESC"        
	Set rs=db.Execute(strSql)
	'以下显示数据库记录
	%>
<p align="center" class="text"><a href="rizhidenglu.asp">管理日志</a> <a href="../moban/index.asp">返回首页</a></p>
<table width="600" height="80" border="1" align="center" bordercolor="#FFCC66">
  <tr>
    <td width="475" height="23" bgcolor="#CCCCCC" class="text">心情日志</td>
  </tr>
  <% 
		Do While Not rs.Eof                          
		%>
  <tr>
    <td class="text"><p><%=rs("rizhi")%></p></td>
  </tr>
  <% 
		rs.MoveNext                          
		Loop
		%>
</table>
<p align="center">&nbsp;</p>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -