📄 liuyan.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>liuyanban</title>
<style type="text/css">
<!--
.STYLE1 {
font-size: 36px;
font-weight: bold;
color: #FF0099;
}
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"></div>
<div align="center"></div>
<table width="841" border="0" align="center" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="841" height="276" align="center" valign="middle"><div align="center" class="STYLE1"><img src="../images/4F4873F1CCE52D750D1DF829B978A5A9.gif" width="823" height="50" /></div>
<p align="right" class="text"><a href="login.asp">管理员页面</a></p>
<p align="center" class="text"><strong>留言板</strong>
</h2>
<%
'以下连接数据库，建立一个Connection对象实例db
Dim db
Set db=Server.CreateObject("ADODB.Connection")
db.Open "Dbq="&Server.Mappath("liuyan.mdb")&";Driver={Microsoft Access Driver (*.mdb)};"
'以下建立Recordset对象实例r
Dim strSql,rs
strSql="Select * From liuyan "
Set rs=db.Execute(strSql)
'以下显示数据库记录
%>
<div align="center">
<span class="text">
</p>
</span></div>
<table width="79%" border="1" align="center" bordercolor="#CCCCFF" >
<tr bgcolor="#E0E0E0">
<td width="24%" class="text">姓名</td>
<td width="24%" class="text">留言</td>
<td width="43%" class="text">回复留言</td>
</tr>
<%
Do While Not rs.Eof
%>
<tr>
<td class="text"><%=rs("name")%></td>
<td class="text"><%=rs("liuyan")%></td>
<td class="text"><%=rs("reply")%></td>
</tr>
<%
rs.MoveNext
Loop
%>
</table>
<p align="right"> <span class="text"><a href="../moban/index.asp">返回首页
</a>
</span>
<p align="center" class="text"> <strong>添加留言
</h2>
</strong>
<div align="center">
<table width="78%" border="1" bordercolor="#CCCCFF">
<form name="form1" method="post" action="add.asp">
<tr>
<td class="text">姓名</td>
<td class="text">
<span class="text">
<input type="text" name="name" size=20>
</span></td>
</tr><tr>
<td class="text">留言</td><td>
<span class="text">
<textarea name="liuyan" rows="2" cols="40" wrap="soft"></textarea>
</span></td>
</tr><tr>
<td></td><td class="text">
<span class="text">
<input type="submit" value=" 确 定 ">
</span></td>
</tr>
</form>
</table>
<span class="text">
</p>
</span></div></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -