noterep.asp

一个非常优秀的自动建站程序

<%
NoteID = Request("NoteID")
if (NoteID="") then Response.Redirect ("error.asp?id=001")
%>
<!--#include file="top.asp"-->
<%
if Request("action")="action" then
set rs=server.createobject("adodb.recordset")
sql="select * from [Notes] where NoteID=" & NoteID
rs.open sql,conn,1,3
if rs.bof and rs.eof then Response.Redirect("error.asp?id=001")
rs("NoteRep")=Request.Form("NoteRep")
rs.update
rs.close
set rs=nothing
response.redirect "NoteList.asp"
response.end
else
set rs=server.createobject("adodb.recordset")
sql="select * from [Notes] where NoteID=" & NoteID
rs.open sql,conn,1,3
if rs.bof and rs.eof then Response.Redirect("error.asp?id=001")
NoteSub=rs("NoteSub")
NoteType=rs("NoteType")
NoteBody=rs("NoteBody")
NoteRep=rs("NoteRep")
rs.close
set rs=nothing
end if
%>

<table width="100%" align="center" bgcolor="#cccccc" border="0" cellpadding="2" cellspacing="1" style="font-size: 9pt; line-height: 200%">
<tr>
<td align=center bgcolor="#FFFFFF">

<br>
<table align=center width=600 cellpadding="2" cellspacing="1" bgcolor=#cccccc>
<form name=AddForm action="?action=action&NoteID=<%=NoteID%>" method=post>
<tr>
<td bgcolor=ffffff align=center height=24 colspan="3">
回复留言
</td>
</tr>
<tr>
<td bgcolor=FFFFFF align=center height=24 width=100>
留言主题
</td>
<td bgcolor=FFFFFF height=24 width=400>
<%=NoteSub%>
</td>
<td bgcolor=FFFFFF height=24 align=center width=100>
[<%=NoteType%>]
</td>
</tr>
<tr>
<td bgcolor=FFFFFF align=center height=60>
留言内容
</td>
<td bgcolor=FFFFFF height=60 colspan="2">
<%=NoteBody%>
</td>
</tr>
<tr>
<td bgcolor=FFFFFF align=center height=24>
回复留言
</td>
<td bgcolor=FFFFFF align=center height=24 colspan="2">
<textarea name="NoteRep" style="width:500px; height:100px"><%=NoteRep%></textarea>
</td>
</tr>
<tr>
<td bgcolor=FFFFFF align=center height=24 colspan="3">
<input type="submit" name="Submit" value=" 回复留言 ">
<input type="RESET" name="Reset2" value=" 重新填写 ">
</td>
</tr>
</form>
</table>
<br>
</td>
</tr>
</table>
</TD></TR></TABLE>
<!--#include file="foot.asp"-->