<!--#include file="check.asp"-->
<!--#include file="webconn.asp"-->
<!--#include file="../inc/aspip.asp"-->
<%
ID=request("id")
%>
<%
Action=request("action")
if Action="" then 
%>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from NewFaxing where f_id="& ID
rs.open sql,conn,1,3 
%>
<link href="web_jspok.css" rel="stylesheet" type="text/css" />

<form action="set_hot.asp?id=<%=ID%>&action=save" method="post">
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#A3BFE8">
  <tr>
    <td height="20" colspan="2" align="center" bgcolor="#E9F1F8">创意发型推荐度修改</td>
  </tr>
  <tr>
    <td height="20" colspan="2" align="center" bgcolor="#FFFFFF">&nbsp;</td>
  </tr>
  
  <tr>
    <td width="21%" height="20" align="center" bgcolor="#E9F1F8">发型名称</td>
    <td width="79%" align="left" bgcolor="#E9F1F8"><input name="txt_title" type="text" id="txt_title"  style="width:400px" size="45" value="<%=rs("f_name")%>" readonly="yes"/></td>
  </tr>
  
  <tr>
    <td height="20" align="center" bgcolor="#E9F1F8">发型推荐度</td>
    <td align="left" bgcolor="#E9F1F8"><label>
    <select name="txt_top" id="txt_top" style="width:400px">
      <option value="1" <%if rs("f_hot")="1" then response.Write("selected") end if%>>一星</option>
      <option value="2" <%if rs("f_hot")="2" then response.Write("selected") end if%>>二星</option>
      <option value="3" <%if rs("f_hot")="3" then response.Write("selected") end if%>>三星</option>
      <option value="4" <%if rs("f_hot")="4" then response.Write("selected") end if%>>四星</option>
      <option value="5" <%if rs("f_hot")="5" then response.Write("selected") end if%>>五星</option>
    </select>
    </label></td>
  </tr>
  
  <tr>
    <td height="20" colspan="2" align="center" bgcolor="#E9F1F8">&nbsp;</td>
  </tr>
  <tr>
    <td height="20" colspan="2" align="center" bgcolor="#E9F1F8"><label>
      <input type="submit" name="Submit" value="提交修改">
    </label></td>
  </tr>
</table>
</form>
<%
rs.close
set rs=nothing
%>
<%else%>
<%
Title=server.HTMLEncode(trim(request("txt_title")))
Ttop=request("txt_top")
if Ttop="" then 
response.write "<script>alert('信息提示：\n\n内容不能为空！');history.go(-1);</Script>"
else
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from NewFaxing where f_id="& request("id")
rs.open sql,conn,1,3 
rs("f_hot")=Ttop
rs.update
rs.close
set rs=nothing
response.write "<script language='javascript'>alert('信息提示：\n\n操作成功!');location='main.asp?adminjob=faxing';</script>"
end if
%>
<%end if%>
<!--#include file="copyright.asp"-->