📄 review.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="session3.asp"-->
<html>
<head>
<title>留言审核</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css/style.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#D9E6FF">
<%dim action
pinglunid=request.QueryString("id")
action=request.QueryString("action")
if action="save" then
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from pl where pinglunid="&pinglunid,conn,1,3
rs("shenghe")=int(request("shenghe"))
rs.update
rs.close
set rs=nothing
response.write "<br><br><table width=96% border=0 align=center cellpadding=0 cellspacing=0><tr><td height=86 bgcolor=#F5F5F5><div align=center>"
response.write "审核已成功提交！<br><br><a href=javascript:window.close()>关闭窗口</a></div></td></tr></table>"
response.End
end if
%><%set rs=server.CreateObject("adodb.recordset")
rs.open "select * from pl where pinglunid="&pinglunid,conn,1,3
%>
<table cellpadding="1" cellspacing="0" border="0" width="100%" class="tableBorder" align="center">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tH colspan="2" height=25>审核评论</tH> <tr>
<form name="pinglunform" method="post" action="review.asp?action=save&id=<%=pinglunid%>">
<td class="forumRowHighlight" width=50% > </td>
<td class="forumRowHighlight"> 审核 <select name="shenghe" >
<option value="1" <%if rs("shenghe")=1 then %>selected <%end if%> >通过</option>
<option value="0" <%if rs("shenghe")=0 then %>selected <%end if%> >待审核</option>
<option value="-1" <%if rs("shenghe")=-1 then %>selected <%end if%> >未通过</option>
</select></td>
</tr>
<tr>
<td colspan="2" class="forumRowHighlight">
<table width="100%" border="1" cellpadding="2" cellspacing="1" style="border-collapse: collapse" bordercolor="#FFFFFF">
<tr>
<td width="23%">姓名：</td>
<td width="77%">
<input name="pinglunname" type="text" id="pinglunname" size="12" value="<%=rs("nickName")%>" readonly>
</td>
</tr>
<tr>
<td width="23%"><span lang="zh-cn">联系方式</span>：</td>
<td width="77%">
<input name="pingluntitle" type="text" id="contact" size="26" value="<%=rs("contact")%>" readonly>
<br>
<input type="radio" value="0" name="open" <%if rs("open")=0 then%> checked <%end if%> readonly>不对外公开
<input type="radio" value="1" name="open" <%if rs("open")=1 then%> checked <%end if%> readonly>对外公开）</a></td>
</tr>
<tr>
<td valign="top">评论正文：</td>
<td>
<textarea name="pingluncontent" cols="26" rows="5" id="pingluncontent" readonly><%=rs("pingluncontent")%></textarea>
</td>
</tr>
<tr>
<td colspan="2">
<div align="center">
<input type="submit" name="submit" value="提 交">
</div>
</td>
</tr>
</table>
<%rs.close
set rs=nothing%>
</td>
</form>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
<%function HTMLEncode2(fString)
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
fString = Replace(fString, CHR(10), "<BR>")
HTMLEncode2 = fString
end function%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -