<%@ LANGUAGE=VBScript codepage ="936" %> <% Response.Expires=0 Response.ExpiresAbsolute = Now() - 1 Response.AddHeader "Pragma","No-Cache" Response.AddHeader "Cache-Control","Private" Response.CacheControl = "No-Cache" if session("TWT_ARR_ArgALL")="" then response.end TWT_ArrArg=split(session("TWT_ARR_ArgALL"),"=") nickname=TWT_ArrArg(0) grade=TWT_ArrArg(2) myid=TWT_ArrArg(1) If Session("ADMIN") <> True Then Response.Redirect "../error.asp?id=439" if grade<10 then Response.Redirect "../error.asp?id=439"%> 物品管理
<% Set conn=Server.CreateObject("ADODB.CONNECTION") Set rs=Server.CreateObject("ADODB.RecordSet") connstr=Application("hg_connstr") conn.open connstr %> <% sql="SELECT * FROM 物品买 where 类型='药品'" Set Rs=conn.Execute(sql) do while not rs.bof and not rs.eof %> <% rs.movenext loop %>
药品名 功能 售价操作
<%=rs("物品名")%> 补内力<%=rs("内力")%>，补生命<%=rs("体力")%> <%=rs("银两")%>两 ">修改
<% Set conn=Server.CreateObject("ADODB.CONNECTION") Set rs=Server.CreateObject("ADODB.RecordSet") connstr=Application("hg_connstr") conn.open connstr %> <% sql="SELECT * FROM 物品买 where 类型='毒药'" Set Rs=conn.Execute(sql) do while not rs.bof and not rs.eof %> <% rs.movenext loop conn.close %>
毒药名功能售价操作
<%=rs("物品名")%> 伤内力<%=abs(rs("内力"))%>，伤生命<%=abs(rs("体力"))%> <%=rs("银两")%>两 ">修改
<% Set conn=Server.CreateObject("ADODB.CONNECTION") Set rs=Server.CreateObject("ADODB.RecordSet") connstr=Application("hg_connstr") conn.open connstr %> <% sql="SELECT * FROM 物品买 where 类型='道具攻' or 类型='道具防' or 类型='道具免' or 类型='道具会员'" Set Rs=conn.Execute(sql) do while not rs.bof and not rs.eof %> <% rs.movenext loop conn.close %>
卡片名功能售价操作
<%=rs("物品名")%> <%=rs("银两")%>个金币 ">修改
<% Set conn=Server.CreateObject("ADODB.CONNECTION") Set rs=Server.CreateObject("ADODB.RecordSet") connstr=Application("hg_connstr") conn.open connstr %> <% sql="SELECT * FROM 物品买 where 类型='食品'" Set Rs=conn.Execute(sql) do while not rs.bof and not rs.eof %> <% rs.movenext loop %>
食品名功能售价操作
<%=rs("物品名")%> 补体力<%=rs("体力")%> <%=rs("银两")%>两 ">修改


现有卫生用品

<% Set conn=Server.CreateObject("ADODB.CONNECTION") Set rs=Server.CreateObject("ADODB.RecordSet") connstr=Application("hg_connstr") conn.open connstr %> <% sql="SELECT * FROM 物品买 where 类型='卫生用品'" Set Rs=conn.Execute(sql) do while not rs.bof and not rs.eof %> <% rs.movenext loop %>
物品名功能售价操作
<%=rs("物品名")%> 补魅力<%=rs("体力")%> <%=rs("银两")%>两 ">修改


现有书籍

<% Set conn=Server.CreateObject("ADODB.CONNECTION") Set rs=Server.CreateObject("ADODB.RecordSet") connstr=Application("hg_connstr") conn.open connstr %> <% sql="SELECT * FROM 物品买 where 类型='书籍'" Set Rs=conn.Execute(sql) do while not rs.bof and not rs.eof %> <% rs.movenext loop %>
书籍名功能售价操作
<%=rs("物品名")%> 补道德<%=rs("内力")%>，补魅力<%=rs("体力")%> <%=rs("银两")%>两 ">修改


现有神龙

<% Set conn=Server.CreateObject("ADODB.CONNECTION") Set rs=Server.CreateObject("ADODB.RecordSet") connstr=Application("hg_connstr") conn.open connstr %> <% sql="SELECT * FROM 物品买 where 类型='龙'" Set Rs=conn.Execute(sql) do while not rs.bof and not rs.eof %> <% rs.movenext loop %>
神龙功能售价攻击操作
<%=rs("物品名")%> <%=rs("功能")%> 金币<%=rs("内力")%>，点卷<%=rs("体力")%> <%=rs("银两无")%> ">修改


现有龙粮

<% Set conn=Server.CreateObject("ADODB.CONNECTION") Set rs=Server.CreateObject("ADODB.RecordSet") connstr=Application("hg_connstr") conn.open connstr %> <% sql="SELECT * FROM 物品买 where 类型='龙粮'" Set Rs=conn.Execute(sql) do while not rs.bof and not rs.eof %> <% rs.movenext loop %>
龙粮体力售价操作
<%=rs("物品名")%> <%=rs("体力")%> 金币<%=rs("银两")%> ">修改