sheep_admin.asp

功能强大的bbs

<!--#include file="conn.asp"-->
<!--#include file="connsheep.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="sheepconfig.asp"-->
<!-- #include file="inc/DvADChar.asp" -->
<%
Dvbbs.stats="管理农场"
Dvbbs.Nav()
Dvbbs.Head_var 2,0,"",""
%>
<%
dim username
'username=request.cookies("aspsky")("username")
   call sheephead()
call main()
dvbbs.footer
sub main()
  if not dvbbs.master then
Dvbbs.AddErrMsg("<li>农场保安拦在你的面前，说道：这是农场主办公室，一切闲杂人等不得入内!!!")
	dvbbs.FoundIsChallenge=true
    Dvbbs_error() 
      exit sub
   end if
   dim action
   action=request("action")
   select case action
   case "del"		'删除数据
      call del()
   case "edi"		'编辑数据
       call edi()
   case "app"		'添加数据
       call app()
   case "saveedit"		'保存修改
       call saveedit()
   case else
		call showsheep()'显示数据
   end select
end sub
sub showsheep()
%>
<table cellspacing=1 cellpadding=5 align=center class=tableborder1 width="100%">
	<tr align=center>
	<th width=8% height=25>宠物名</td>
	<th width=9% height=25>进货数</td>
	<th width=6% height=25>售价</td>
	<th width=9% height=25>食物</td>
	<th width=8% height=25>喂食费</td>
	<th width=8% height=25>洗澡费</td>
	<th width=8% height=25>太阳费</td>
	<th width=8% height=25>陪伴费</td>
	<th width=8% height=25>兽医收费</td>
	<th width=9% height=25>产品名</td>
	<th width=10% height=25>产品价钱</td>
	<th width=10% height=25>管理操作</td>
	</tr>
    <%
     dim tempcount,sumtype,typecursor,milkname,milkprice
        sumtype=""
set rs=nothing
set rs=server.createobject("adodb.recordset")
rs.open"select * from rules",conn1,1,1
while not rs.eof
milkname=rs("milkname")
milkprice=cstr(rs("milkprice"))
if len(trim(milkname))=0 or IsNull(milkname) then
milkname="仅供观赏"
milkprice="-"
end if
%>

              <tr> 
 <td class=tablebody1 ><%=rs("type")%></td><td class=tablebody1 ><%=rs("sumcount")%></td><td class=tablebody1><%=rs("buyprice")%></td><td class=tablebody1 ><%=rs("eatname")%></td><td class=tablebody1 ><%=rs("eatdel")%></td><td class=tablebody1 ><%=rs("cleandel")%></td><td class=tablebody1><%=rs("sundel")%></td><td class=tablebody1 ><%=rs("peidel")%></td><td class=tablebody1 ><%=rs("uplife")%></td><td class=tablebody1 ><%=milkname%></td><td class=tablebody1><%=milkprice%></td><td class=tablebody1 ><a href="sheep_admin.asp?action=del&id=<%=rs("id")%>"onclick="javascript:{if(confirm('您确定执行删除操作吗?')){return true;}return false;}">删除</a>|<a href=sheep_admin.asp?action=edi&id=<%=rs("id")%>>修改</a></td>               
              </tr>

<%
rs.movenext
wend
'-----------------end while--------------------------
%> 
<tr>
 <td class=tablebody1 colspan=12 align="center"><a href="sheep_admin.asp?action=app"><font color=red>添加新品种</font></a></td>               
</tr>
             </table> 
<%
end sub
%>
<%
sub del()
   dim id,sql1
   id=request("id")
    sql1="delete from rules where id="&id                                          
	conn1.Execute(sql1)
    response.Write("成功删除指定的动物数据!!!")
%>
<a href="sheep_admin.asp"><font color=red>返回</font></a>
<%
end sub

sub edi()
dim id
id=request("id")
set rs=nothing
set rs=server.createobject("adodb.recordset")
rs.open"select * from rules where id="&id,conn1,1,1
if rs.eof and rs.bof then
response.write "你指定要修改的动物本农场没有进货，无法修改"
exit sub
%>
<a href="sheep_admin.asp"><font color=red>返回</font></a>
<%
end if
%>
<FORM METHOD=POST ACTION="sheep_admin.asp?action=saveedit&id=<%=id%>">
<table width=600 cellspacing=1 cellpadding=3 align=center class=tableborder1>
               <tr> 
      <th colspan=2 height=23><font color=red>基本信息</font></th>
                </tr>
               <tr > 
    <td colspan=2  align="center" class=tablebody1>宠物名：
          <input type=text value=<%=rs("type")%> name="type">
     图片地址(相对于论坛根目录)：
          <input type=text name="sheeppic" value="<%if isnull(rs("sheeppic")) then%><%else%> <%=rs("sheeppic")%><% end if%>">
      </td>
          </tr>
               <tr > 
    <td colspan=2  align="center" class=tablebody1>进货总数：
          <input type=text value=<%=rs("sumcount")%> name="sumcount">
     零售价：
        <input type=text value=<%=rs("buyprice")%> name="buyprice">
      </td>
          </tr>
               <tr > 
    <td colspan=2  align="center" class=tablebody1>产品名称(<font color=red>留空表示观赏动物，没有产品</font>)：
          <input type=text name="milkname" value="<%if isnull(rs("milkname")) then%><%else%> <%=rs("milkname")%><% end if%>">
     产品收购价：
        <input type=text value=<%=rs("milkprice")%> name="milkprice">
      </td>
          </tr>
               <tr > 
    <td  align="center" class=tablebody1>吃的食物名称：
          <input type=text value=<%=rs("eatname")%> name="eatname">
      </td>
    <td  align="center" class=tablebody1>兽医收费：
          <input type=text value=<%=rs("uplife")%> name="uplife">
      </td>

          </tr>

               <tr> 
    <th colspan=2 height=23><font color=red>出生初始参数</font> </th>
                </tr>
               <tr > 
    <td width="55%" align="right" class=tablebody1>清洁初始值：</td>
            <td width="45%" class=tablebody1>
              <input type=text name="cleaninit" value="<%=rs("cleaninit")%>">  
            </td>
          </tr>
          <tr > 
            
    <td width="55%" align="right" class=tablebody1>快乐初始值：</td>
            <td width="45%" class=tablebody1>
              <input type=text name="happyinit" value="<%=rs("happyinit")%>">
      </td>
          </tr>
          <tr > 
          <tr > 
    <td width="55%" align="right" class=tablebody1 height=23>非饥饿初始值：</td>
      <td width="45%" class=tablebody1> 
        <input type=text name="hungryinit" value="<%=rs("hungryinit")%>">
      </td>
          </tr>            
    <td width="55%" align="right" class=tablebody1 height=23>健康初始值</td>
            <td width="45%" class=tablebody1>
              <input type=text name="healthinit"  value="<%=rs("healthinit")%>">
        </td>
          </tr>
          <tr > 
    <td width="55%" align="right" class=tablebody1 height=23>生命初始值：</td>
      <td width="45%" class=tablebody1> 
        <input type=text name="lifeinit" value="<%=rs("lifeinit")%>">
      </td>
          </tr>
          <tr > 
            
    <td width="55%" align="right" class=tablebody1 height=23>产品产量初始值：</td>
            
      <td width="45%" class=tablebody1> 
        <input type=text name="milkinit" value="<%=rs("milkinit")%>">
        </td>
          </tr>
               <tr > 
    <th colspan=2 height=23><font color=red>喂养相关参数修改</font></th>
                </tr>
          <tr > 
            
    <td width="55%" align="right" class=tablebody1 height=23>喂食一次收费：</td>
            
      <td width="45%" class=tablebody1> 
        <input type=text name="eatdel" value="<%=rs("eatdel")%>">
        </td>
          </tr>
         <tr > 
            
      <td width="55%" align="right" class=tablebody1 height=23>喂食一次非饥饿增加量：</td>
            
      <td width="45%" class=tablebody1> 
        <input type=text name="eatplushungry" value="<%=rs("eatplushungry")%>">