<%@ 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"),"=") name=TWT_ArrArg(0) grade=TWT_ArrArg(2) myid=TWT_ArrArg(1) %> <% sql="select * from 物品 where 类型='主料' and 拥有者='" & name & "'" set rs=connt.execute(sql) if rs.eof or rs.bof then%> <%connt.close response.end end if sql="select * from 物品 where 类型='辅料' and 拥有者='" & name & "'" set rs=connt.execute(sql) if rs.eof or rs.bof then%> <%connt.close response.end end if sql="select 美味度 from 物品 where 类型='汤料' and 拥有者='" & name & "'" set rs=connt.execute(sql) if rs.eof or rs.bof then%> <%connt.close response.end else mw=rs("美味度") Set conn=Server.CreateObject("ADODB.CONNECTION") Set rs=Server.CreateObject("ADODB.RecordSet") connstr=Application("hg_connstr") conn.open connstr sql="select 美味度 from 巧面 where 拥有者='" & name & "'" set rs=connt.execute(sql) if rs.eof or rs.bof then sql="insert into 巧面 (拥有者,美味度) values ('"& name &"'," & mw & ")" rs=connt.execute(sql) sql="delete * from 物品 where 类型='汤料' and 拥有者='" & name & "'" set rs=connt.execute(sql) connt.close conn.close set rs=nothing %> <%else sql="update 巧面 set 美味度=美味度+" &mw& " where 拥有者='" & name & "'" rs=connt.execute(sql) sql="select * from 物品 where 类型='汤料' and 拥有者='" & name & "'" sql="delete * from 物品 where 类型='汤料' and 拥有者='" & name & "'" set rs=connt.execute(sql) connt.close conn.close set rs=nothing %> <% end if end if %>