sheep_admin.asp

功能强大的bbs

      </td>
          </tr>
         <tr > 
            
      <td width="55%" align="right" class=tablebody1 height=23>喂食一次产品增加量：</td>
            
      <td width="45%" class=tablebody1> 
        <input type=text name="eatplusmilk" value="<%=rs("eatplusmilk")%>">
      </td>
          </tr>

          <tr > 
            
    <td width="55%" align="right" class=tablebody1 height=23>洗澡一次收费：</td>
            
      <td width="45%" class=tablebody1> 
        <input type=text name="cleandel" value="<%=rs("cleandel")%>">
        </td>
          </tr>
         <tr > 
            
      <td width="55%" align="right" class=tablebody1 height=23>洗澡一次清洁增加量：</td>
            
      <td width="45%" class=tablebody1> 
        <input type=text name="cleanplusclean" value="<%=rs("cleanplusclean")%>">
      </td>
          </tr>
         <tr > 
            
      <td width="55%" align="right" class=tablebody1 height=23>洗澡一次生命增加量：</td>
            
      <td width="45%" class=tablebody1> 
        <input type=text name="cleanpluslife" value="<%=rs("cleanpluslife")%>">
      </td>
          </tr>
          <tr > 
            
    <td width="55%" align="right" class=tablebody1 height=23>阳光一次收费：</td>
            
      <td width="45%" class=tablebody1> 
        <input type=text name="sundel" value="<%=rs("sundel")%>">
        </td>
          </tr>
         <tr > 
            
      <td width="55%" align="right" class=tablebody1 height=23>阳光一次健康增加量：</td>
            
      <td width="45%" class=tablebody1> 
        <input type=text name="sunplushealth" value="<%=rs("sunplushealth")%>">
      </td>
          </tr>
         <tr > 
            
      <td width="55%" align="right" class=tablebody1 height=23>阳光一次产品增加量：</td>
            
      <td width="45%" class=tablebody1> 
        <input type=text name="sunplusmilk" value="<%=rs("sunplusmilk")%>">
      </td>
          </tr>
          <tr > 
            
    <td width="55%" align="right" class=tablebody1 height=23>陪伴一次收费：</td>
            
      <td width="45%" class=tablebody1> 
        <input type=text name="peidel" value="<%=rs("peidel")%>">
        </td>
          </tr>
         <tr > 
            
      <td width="55%" align="right" class=tablebody1 height=23>陪伴一次快乐增加量：</td>
            
      <td width="45%" class=tablebody1> 
        <input type=text name="peiplushappy" value="<%=rs("peiplushappy")%>">
      </td>
          </tr>
         <tr > 
            
      <td width="55%" align="right" class=tablebody1 height=23>陪伴一次生命增加量：</td>
            
      <td width="45%" class=tablebody1> 
        <input type=text name="peipluslife" value="<%=rs("peipluslife")%>">
      </td>
          </tr>
         <tr > 
            
      <td width="55%" align="right" class=tablebody1 height=23>生命每天减少值(生命为0时宠物死去)：</td>
            
      <td width="45%" class=tablebody1> 
        <input type=text name="dellifeday" value="<%=rs("dellifeday")%>">
      </td>
          </tr>
         <tr > 
            
      <td width="55%" align="right" class=tablebody1 height=23>冬眠/解除冬眠费用：</td>
            
      <td width="45%" class=tablebody1> 
        <input type=text name="freezpay" value="<%=rs("freezpay")%>">
      </td>
          </tr>
               <tr > 
    <th colspan=2 height=23><font color=red>善后处理参数修改</font></th>
                </tr>

		  		             <tr > 
	  <td width="55%" align="right" class=tablebody1 height=23>尸体允许抛弃(硬要抛弃的人以制造环境污染罪判入狱3个月，没收一切个人财产)</td>
						  <td width="45%" class=tablebody1> 
        <input name="disok" type="radio" value="true" <%if rs("disok")  then%>checked<%end if%>>
        允许　 
        <input type="radio" name="disok" value="false"<%if not rs("disok")  then%>checked<%end if%>>
        不允许 </td>
          </tr> 

		  		             <tr > 
	  <td width="55%" align="right" class=tablebody1 height=23>尸体允许煮来吃掉(不允许时吃的人可能得非典，判刑15天且支付医疗费5000元)</td>
						  <td width="45%" class=tablebody1> 
        <input name="eatok" type="radio" value="true" <%if rs("eatok")  then%>checked<%end if%>>
        允许　 
        <input type="radio" name="eatok" value="false"<%if not rs("eatok")  then%>checked<%end if%>>
        不允许 </td>
          </tr> 
	       <tr > 
      <td width="55%" align="right" class=tablebody1 height=23>农场代为处理尸体收费：</td>
            
      <td width="45%" class=tablebody1> 
        <input type=text name="processprice" value="<%=rs("processprice")%>" width="250">
      </td>
          </tr>		  
      <tr align="center"> 
            <td colspan="2" class=tablebody1> 
              <input type="submit" name="Submit" value="更 新">
            </td>
          </tr>
        </table>
</FORM>
<%
end sub
sub saveedit()
dim id
   id=request("id")
        set rs=nothing
		set rs=server.createobject("adodb.recordset")      
		sql="select * from [rules] where id="&id
		rs.open sql,conn1,1,3
        if rs.eof then
        response.write "找不到你要更新的记录!"
        exit sub
%>
<a href="sheep_admin.asp"><font color=red>返回</font></a>
<%

        end if
     rs("cleaninit")=request("cleaninit")
     rs("happyinit")=request("happyinit")
     rs("milkinit")=request("milkinit")
     rs("healthinit")=request("healthinit")
     rs("lifeinit")=request("lifeinit")
     rs("hungryinit")=request("hungryinit")
     rs("eatdel")=request("eatdel")
     rs("cleandel")=request("cleandel")
     rs("sundel")=request("sundel")
     rs("peidel")=request("peidel")
     rs("eatplushungry")=request("eatplushungry")
     rs("eatplusmilk")=request("eatplusmilk")
     rs("cleanplusclean")=request("cleanplusclean")
     rs("cleanpluslife")=request("cleanpluslife")
     rs("sunplushealth")=request("sunplushealth")
     rs("sunplusmilk")=request("sunplusmilk")
     rs("peiplushappy")=request("peiplushappy")
     rs("peipluslife")=request("peipluslife")
     rs("dellifeday")=request("dellifeday")
if (isnull(request("milkname"))) then
     rs("milkprice")=0
else
     rs("milkprice")=request("milkprice")
end if
     rs("uplife")=request("uplife")
     rs("type")=request("type")
     rs("buyprice")=request("buyprice")
     rs("sumcount")=request("sumcount")
     rs("sheeppic")=request("sheeppic")
     rs("milkname")=request("milkname")
     rs("eatname")=request("eatname")
     if request("processprice")="" or isnull(request("processprice")) then
     rs("processprice")=0
     else
     rs("processprice")=request("processprice")
     end if
     rs("disok")=request("disok")
     rs("eatok")=request("eatok")
     rs("freezpay")=request("freezpay")
     rs.update
	 rs.close 
response.Write("更改成功!")
%>
<a href="sheep_admin.asp"><font color=red>返回</font></a>
<%
end sub
sub app()
dim id
	sql="insert into rules(freezpay,cleaninit,happyinit,healthinit,milkinit,lifeinit,hungryinit,eatdel,eatplushungry,eatplusmilk,cleandel,cleanplusclean,cleanpluslife,sundel,sunplushealth,sunplusmilk,peidel,peiplushappy,peipluslife,dellifeday,milkprice,uplife,type,buyprice,sumcount,sheeppic,milkname,eatname,disok,eatok,processprice) values(40,100,100,100,0,100,100,50,20,5,50,20,5,50,20,20,50,20,20,20,10,500,'请输入宠物名称',100,100,'输入图片地址','产品名称','食物',true,true,0)"
	conn1.Execute(sql)
set rs=conn1.execute("select top 1 id from [rules] order by id desc")
id=rs(0)
set rs=nothing
response.redirect"sheep_admin.asp?action=edi&id="&id
end sub
%>