＃
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=config_web_name%> <%=config_web_ver%></title>
<STYLE type=text/css>.MainMenuBGStyle {
BACKGROUND-POSITION: right center; BACKGROUND-REPEAT: no-repeat
}
</STYLE>
<LINK href="YuQaIFS_Admin_Images/css.css" rel=stylesheet>
</head>
<body topmargin="1" leftmargin="1" rightmargin="1" bottommargin="1" marginwidth="1" marginheight="1">
＃
<TABLE height=30 cellSpacing=0 cellPadding=0 width=978
background=YuQaIFS_Admin_Images/main_bg.gif border=0>
<!--DWLayoutTable-->
<TBODY>
<TR>
<TD> <strong><font color="#006699">反馈信息管理</font></strong></TD>
<td width="532"></td>
</TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD height=1></TD></TR></TBODY></TABLE>
<table width="978" border="0" cellpadding="0" cellspacing="0">
<!--DWLayoutDefaultTable-->
<tr>
＃
<label>回复：
<textarea name="<%=("rcom")%>" cols="90" rows="8"><%
rcom=replace(rs("rcom"),"<BR>",chr(13))
rcom=replace(rcom," "," ")
response.write rcom
%>
</textarea>
</label>
</p>
<table width="200">
<tr>
<td><label>
<input name="Feedback_zt" type="radio" value="1" checked>
通过审核</label></td>
</tr>
<tr>
<td><label>
<input name="Feedback_zt" type="radio" value="0">
不通过审核</label></td>
</tr>
</table>
<tr>
<td><!--DWLayoutEmptyCell--> </td>
</tr>
<p> </p>
<p>
<p><input type="submit" value=" 添 加 "
name="cmdok" class="buttonface">
<input type="hidden" name="id" value="">
<input type="reset" value=" 清 除 "
name="cmdcancel" class="buttonface"></p>
</p>
</form>
</td>
</tr>
</table>
</body>
</html>
处理页：
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("../YuQaIFS_Data/#1.mdb")
exec="select * from YuQaIFS_Feedback where Feedback_id="&("Feedback_id")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3
rs("rcom")=request.form("rcom")
rs("Feedback_info")=request.form("Feedback_info")
rs("Feedback_zt")=request.form("Feedback_zt")
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
Response.write "<script language=javascript>alert('回复/审核成功');location='YuQaIFS_Admin_Msg.asp';</script>"
%>
[此贴子已经被作者于2007-7-14 16:36:44编辑过]
