<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<!--#include file="../inc.asp"-->
<!--#include file="../ydzq.asp"-->
<%
call head()
call saycardd("自杀成功")
ids=session("id")
%>
<!--#INCLUDE file="conn1.asp"-->
<%
set rs=Server.CreateObject("ADODB.Recordset")
strSQL="select * from sx where cstr(ids)="&myid
rs.open strSQL,liao,1,1
mysd=rs("sd")
myjj=rs("jj")
myxx=rs("xx")
sql="delete from sx Where CStr(ids)='" & myid & "'"
  liao.Execute(sql)
sql="delete from pk Where CStr(ids)='" & myid & "'"
  liao.Execute(sql)
sql="delete from kywap Where CStr(ids)='" & myid & "'"
  liao.Execute(sql)
sql="delete from luo Where CStr(ids)='" & myid & "'"
  liao.Execute(sql)
sql="delete from ding Where CStr(ids)='" & myid & "'"
  liao.Execute(sql)

sql="delete from zb Where CStr(ids)='" & myid & "'"
  liao.Execute(sql)
sql="delete from wupin Where CStr(ids)='" & myid & "'"
  liao.Execute(sql)

Response.Write "自杀成功<br/>您的各项属性已经恢复到初始状态<br/>"
set rs=Server.CreateObject("ADODB.Recordset")
strsQL="select * from sx where cstr(ids)='"&myid& "'"
rs.open strsQL,liao,1,2
if rs.recordcount<1 then
rs.addnew
rs("ids")=ids
rs.update
end if
set rs11112=Server.CreateObject("ADODB.Recordset")
strsQL="select xue from sx where cstr(ids)="&myid&""
rs11112.open strsQL,liao,1,1
if rs11112("xue")<1 then
liao.Execute("update sx set xue=30 where ids="&myid&"")
end if
rs11112.close
set rs11112=nothing
Response.Write "您现在的属性如下：<br/>----------<br/>攻击力：[" & rs("gj") &"]<br/>防御力：[" & rs("fs") &"]<br/>经验值：[" & rs("jy") &"]<br/>生命值：[" & rs("tl") &"/" & rs("xue") &"]<br/>当前等级：[" & rs("dj") &"]<br/>"
   rs.close
set rs=Nothing
liao.close
set liao=nothing
%>
----------<br/>
<a href="index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">[江湖首页]</a><br/>
<a href="/index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">[社区首页]</a><br/>
<%call head1()%>