update_form.asp

来自「大一下学期」· ASP 代码 · 共 63 行

<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" />
<style type="text/css">
<!--
.STYLE1 {color: #FFFFFF}
-->
</style>
<h2 align="center" class="text"><img src="../images/4F4873F1CCE52D750D1DF829B978A5A9.gif" width="600" height="50" /></h2>
<h2 align="center" class="text">&nbsp;</h2>
<h2 align="center" class="text">&nbsp;</h2>
<h5 align="center" class="text STYLE1"><strong>回复留言</strong></h5>
<span class="text">
	<% 
	Dim varLink_id
	varLink_id=Request.QueryString("id")          '获取要修改的记录的网站编号
	Session("id")=varLink_id                     '保存到Session中，以备upload.asp使用
	'以下连接数据库，建立一个Connection对象实例db
	Dim db 
	Set db=Server.CreateObject("ADODB.Connection") 
	db.Open "Dbq="&Server.Mappath("liuyan.mdb")&";Driver={Microsoft Access Driver (*.mdb)};" 
	'以下打开记录集
	Dim strSql,rs 
	strSql="Select * From liuyan Where id=" & varLink_id  
	Set rs=db.Execute(strSql)
	%>
</span>
	<center>
	<table width="75%" border="1" bordercolor="#CCCCFF">
		<form name="form1"  method="post" action="update.asp" >
		<tr>
			<td class="text">名字</td>
			<td class="text">
		    <input type="text" name="name" size=20 value="<%=rs("name")%>">
			</td>
		</tr><tr>
			<td class="text">留言</td>
			<td class="text">
		    <input type="text" name="liuyan" size=40 value="<%=rs("liuyan")%>">
			</td>
		</tr><tr>
			<td class="text">回复</td>
			<td>
			  <span class="text">
			  <textarea name="reply" rows="2" cols="40" wrap="soft"> <%=rs("reply")%></textarea>
		    </span></td>
		</tr><tr>
			<td></td><td class="text">
		    <input type="submit" value=" 确 定 ">
			</td>
		</tr>
		</form>
	</table>
</center>
</body> 
</html>