📄 reportforadminre.asp
字号:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="islogin.asp"-->
<!--#include file="isloginForadmin.asp"-->
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css/css.css" rel="stylesheet" type="text/css">
<title></title>
<style type="text/css">
<!--
@import url("../style/admin.css");
.STYLE1 { font-family: Arial, Helvetica, sans-serif;
font-weight: bold;
color: #FF0000;
}
-->
</style></head>
<body>
<%
IDID=request("id")
set rs=server.createobject("adodb.recordset")
sql="select * from Report where ID="&IDID&""
rs.open sql,conn,1,3
%>
<form name="form1" method="post" action="ReportForAdminReDo.asp?id=<%=IDID%>">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="table_1">
<tr>
<td height="25" class="table_1_top"><strong>部门主管:<%=session("Member")%></strong></td>
</tr>
<tr>
<td bgcolor="#FFFFFF">
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="0" class="table_1_inc">
<tr>
<td width="68" align="right" valign="top"><strong>评语：</strong></td>
<td><textarea name="Re" cols="50" rows="8" id="Re"><%=rs("re")%></textarea></td>
</tr>
<tr>
<td align="right" valign="top"><strong>评分：</strong></td>
<td><select name="PF" id="PF">
<option value="5" <%If (Not isNull(rs("PF"))) Then If ("5" = CStr(rs("PF"))) Then Response.Write("SELECTED") : Response.Write("")%>>5</option>
<option value="4" <%If (Not isNull(rs("PF"))) Then If ("4" = CStr(rs("PF"))) Then Response.Write("SELECTED") : Response.Write("")%>>4</option>
<option value="3" <%If (Not isNull(rs("PF"))) Then If ("3" = CStr(rs("PF"))) Then Response.Write("SELECTED") : Response.Write("")%>>3</option>
<option value="2" <%If (Not isNull(rs("PF"))) Then If ("2" = CStr(rs("PF"))) Then Response.Write("SELECTED") : Response.Write("")%>>2</option>
<option value="1" <%If (Not isNull(rs("PF"))) Then If ("1" = CStr(rs("PF"))) Then Response.Write("SELECTED") : Response.Write("")%>>1</option>
<option value="0" <%If (Not isNull(rs("PF"))) Then If ("0" = CStr(rs("PF"))) Then Response.Write("SELECTED") : Response.Write("")%>>0</option>
</select></td>
</tr>
</table></td>
</tr>
<tr>
<td height="25" align="center" bgcolor="#FFFFFF"><label>
<input type="submit" name="Submit" value="保存信息">
</label>
<input name="button" type="button" onClick="javascript:window.close()" value="关闭窗口">
<label></label></td>
</tr>
</table>
</form>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</body>
</html>
<!--#include file="MenuRight.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -