<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<!--#include file="../inc.asp"-->
<!--#include file="../ydzq.asp"-->
<%call head()
Server.ScriptTimeout=999

pid=request("pid")


ids=session("id")
Select Case pid
   Case "1"
      itidtit="原始森林"
   Case "2"
      itidtit="魔鬼山洞"
   Case "3"
      itidtit="丰富矿山"
   Case "4"
      itidtit="浩瀚北海"
 End Select
%>
<card title="<%=itidtit%>">
<p>
<!--#INCLUDE file="conn1.asp"-->
<%
set rs1=Server.CreateObject("ADODB.Recordset")
strSQL="select * from pk where pid="&pid&" and cstr(ids)="&myid
sql="delete from pk Where CStr(ids)='" & myid & "'"
  liao.Execute(sql)
Response.Write "瞬移成功！<br/>我，我，我打不起还跑不起么！<br/>哼！你等着``偶早晚回来报仇的！<br/>"
%>
=========<br/>
<a href="index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">江湖首页</a><br/>
<a href="/bbs/index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">社区首页</a><br/>
<%call head1()%>