msg.asp

使用源码注意项： 1、Windows2000 Professional SP3、DELPHI 6.0、SQL Server2000的开发环境； 2、开发目录为：D:PieceRate

<!--#include file="conn.asp"-->
<!--#include file="qx.asp"-->
<%
exec="select * from message"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1 
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%do while not rs.eof%><tr>
<td>
<p align="center">　</p>
<p align="center">　</p>
<p align="center">　</p>
<p align="center"><form method="POST" action="msgchange.asp"><textarea rows="4" name="msg" cols="78"><%=rs("msg")%></textarea>
<p align="center"><input type="submit" value="提交" name="B1">&nbsp;&nbsp;&nbsp;  
<input type="reset" value="重写" name="B2"></p> 
<input type="hidden" name="id" value="<%=rs("id")%>">
</tr>
<%
rs.movenext
loop
%>
</table>
<p align="center"><font size="2">支持html语法</font></p>