?? editannounce.asp
字號(hào):
<!--#include file="conn.asp"-->
<!--#include file="Cookies.asp"-->
<%
if request.QueryString("xingxing")="edit" then
call edit
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>無(wú)標(biāo)題文檔</title>
<link href="../xingxing.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {
font-family: "華文行楷";
font-size: 36px;
color: #0000FF;
}
-->
</style>
</head>
<body>
<div align="center">
<%
id=request.QueryString("id")
Set rs =Server.CreateObject("ADODB.Recordset")
sql="select * from announce where announce_id="& id
rs.open sql,conn
%>
<span class="style1 ">公告修改 </span> </div>
<form name="form1" method="post" action="editannounce.asp?xingxing=edit&id=<%=id%>">
<div align="center">
<table width="492" height="97" border="1" bgcolor="#999933">
<tr>
<th width="138" scope="col">ID號(hào)</th>
<td width="338" scope="col">
<div align="left">
<input type="text" name="id" value="<%=rs(0)%>" readonly="">
</div></td>
</tr>
<tr>
<th scope="row">標(biāo)題</th>
<td>
<div align="left">
<input type="text" name="tile" value="<%=rs(3)%>">
</div></td>
</tr>
<tr>
<th scope="row">發(fā)布時(shí)間</th>
<td>
<div align="left">
<input type="text" name="textfield2" value="<%=rs(2)%>" disabled>
</div></td>
</tr>
<tr>
<th scope="row">內(nèi)容</th>
<td><div align="left">
<textarea name="announce" cols="40" rows="10" ><%=rs(1)%> </textarea>
</div></td>
</tr>
</table>
<input type="submit" name="Submit" value="提交">
</div>
</form>
<h1 align="center" class="style1 "> </h1>
</body>
</html>
<%
rs.close
set rs=nothing
closedb
%>
<%
sub edit
announce=request.Form("announce")
tile=request.Form("tile")
id=request.Form("id")
sql="update announce set tile='"& tile &"',announce='"& announce &"',pub_date=#"& now() & "# where announce_id="& id
conn.execute(sql)
response.write "<li>修改公告信息成功。"
response.write "<meta http-equiv=refresh content="&"1;URL=editannounce.asp?id="& id &">"
response.End()
closedb
end sub
%>
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -