📄 tzfs.asp

📁 wap系统程序源码用户名密码:admin

💻 ASP

字号:

<% @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>
<%
'---接收数据----
id=request.QueryString("id")
ltid=request.QueryString("ltid")
tid=request.QueryString("tid")
cc=request("cc")
if cc="0" then cczz="解除封锁"
if cc="1" then cczz="封锁"
'---结束接收----
%>
<card title="<%=cczz%>" ontimer="lt_list.asp?glsb=<%=glsb%>&amp;tid=<%=tid%>&amp;ltid=<%=ltid%>&amp;page=<%=request("ppage")%>">
<timer value="10"/>
<p>
<%
'---读取数据----
set rs=Server.CreateObject("ADODB.Recordset")
rspl="select * from lttz where id="&tid
rs.open rspl,conn,1,2%>
<%if rs.recordcount=0 then%> 
错误了，帖子不存在或以被删除！<br/>
<%
else
tzname=rs("name")
'---开始修改----
rs("st")=cc
'---结束增加----
rs.update
'---关闭数据----
end if
rs.close
set rs=nothing
%>
<%=cczz%>成功，<br/>正在返回..
<%set rs=Server.CreateObject("ADODB.Recordset")
rspl="select * from [czjl] order by id desc"
rs.open rspl,conn,1,2
rs.addnew
rs("ltid")=ltid
rs("nr")="版主："&myni&"(id："&myid&")将帖子["&tzname&"]“"&cczz&"”"
rs.update
'---关闭数据----
rs.close
set rs=nothing%>
<br/><!--#include file="w.asp"-->
</p>
</card>
</wml>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -