room_gb.asp

来自「wap系统程序源码 用户名密码:admin」· ASP 代码 · 共 29 行

ASP
29
字号
<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%>
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml"> 
<!--#include file="conn.inc"-->
<!--#include file="66hcsb.asp"-->
<wml>
<head><meta http-equiv='Cache-Control' content='no-cache'/>
</head>
<card title="关闭聊天室">
<p>
<%ltid=usb(request("ltid"))
cz=usb(request("cz"))%>
<%if cz<>"" then%>
<%
sql="delete from ltlb Where CStr(id)='" & ltid & "'"
  conn.Execute(sql)
%>
关闭成功。。<br/>
<%end if%>
是否关闭聊天室?<br/>
<a href="room_gb.asp?glsb=<%=glsb%>&amp;id=<%=usb(id)%>&amp;ltid=<%=usb(ltid)%>&amp;cz=10">是</a>|<a href="ROOM.asp?glsb=<%=glsb%>&amp;ltid=<%=usb(ltid)%>">否</a>

<br/>**********<br/>
<a href="ROOMT.asp?ltid=<%=ltid%>&amp;glsb=<%=glsb%>">聊天大厅</a>|
<a href="index.asp?ltid=<%=ltid%>&amp;glsb=<%=glsb%>">社区首页</a>
</p>
</card>
</wml>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?