手机WAP编程

开发平台：
ASP/ASPX

zttz.asp：源码内容
							﻿<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><?xml version="1.0" encoding="utf-8"?>
<%response.buffer=true%>
<%Response.ContentType = "text/vnd.wap.wml; charset=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="cnscu_sb.asp"-->
<wml><%
'====================================================================
' 请你保留这段说明，这并不会影响你的速度.   电脑交流:http://www.cnscu.cn
' 程序制作：横云			  掌上校园收倾心整理收集于互联网,感谢你的支持!
' 升级时间： 2008-2-5  		主页地址：HTTP://wap.cnscu.cn
' E-Mail: cnscu@126.com   	客服QQ:554904632 QQ群:30493504 QQ群2:46659883
'====================================================================
%> <head>
<meta http-equiv="Cache-Control" content="no-Cache"/>
<meta http-equiv="Cache-Control" content="max-age=0"/>
<meta http-equiv="Expires" content="Mon, 1 Jan 1990 00:00:00 GMT"/>
</head>
<%id=usb(request("id"))
if id="" then id="99999999999999"
fid=usb(request("fid"))
cz=usb(request("cz"))
if cz="1" then nnnn="解除精华"
if cz="2" then nnnn="设为精华"
if cz="3" then nnnn="解除封锁"
if cz="4" then nnnn="封锁帖子"
if cz="5" then nnnn="置顶帖子"
if cz="6" then nnnn="解除置顶"
if cz="7" then nnnn="删除帖子"
if cz="8" then nnnn="删除成功"
if cz="9" then nnnn="加黑作者"
if cz="10" then nnnn="加黑成功"
if cz="11" then nnnn="清除作者发帖"
if cz="12" then nnnn="清除成功"
if cz="13" then nnnn="批量封锁作者发帖"
if cz="14" then nnnn="批量封锁成功"
if cz="15" then nnnn="批量解锁作者发帖"
if cz="16" then nnnn="批量解锁成功"
if cz="17" then nnnn="解黑作者"
if cz="18" then nnnn="解黑成功"
if cz="19" then nnnn="设为总版"
if cz="20" then nnnn="设置总版成功"
if cz="21" then nnnn="设为巡查员"
if cz="22" then nnnn="巡查员设置成功"
if cz="19" then nnnn="撤除总版"
if cz="20" then nnnn="撤除总版成功"
if cz="21" then nnnn="撤除巡查员"
if cz="22" then nnnn="撤除员设置成功"
%>
<card id="main" title="<%=nnnn%>" >
<p>
<%set rs=Server.CreateObject("ADODB.Recordset")
rspl="select * from lttz where id="&id
rs.open rspl,conn,1,2
if rs.eof then
response.write("没有该帖子!<a href='http://wap.cnscu.cn'>掌上校园</a>收集整理cnscu.cn!<br/>")
else%>
<%if cz="1" then%>
<%
sql="update lttz set jj=0 where cstr(id)="&id
  conn.Execute(sql)
%>
解除精华成功。。
<%elseif cz="2" then%>
<%
sql="update lttz set jj=1 where cstr(id)="&id
  conn.Execute(sql)
%>
设为精华成功。。
<%elseif cz="3" then%>
<%
sql="update lttz set st=0 where cstr(id)="&id
  conn.Execute(sql)
%>
解除封锁成功。。
<%elseif cz="4" then%>
<%
sql="update lttz set st=1 where cstr(id)="&id
  conn.Execute(sql)
%>
封锁帖子成功。。
<%elseif cz="5" then%>
<%
sql="update lttz set dgtm='2100-10-10 12:12:12' where cstr(id)="&id
  conn.Execute(sql)
%>
置顶帖子成功。。
<%elseif cz="6" then%>
<%
sql="update lttz set dgtm=now() where cstr(id)="&id
  conn.Execute(sql)
%>
解除置顶成功。。
<%elseif cz="7" then%>
删除帖子
<a href="zttz.asp?sb=<%=sb%>&amp;id=<%=usb(id)%>&amp;cz=8">确定</a>|<a href="tz_gl.asp?sb=<%=sb%>&amp;id=<%=usb(id)%>">取消</a>
<%elseif cz="8" then%>
<%
sql="delete from lttz Where CStr(id)='" & id & "'"
  conn.Execute(sql)
sql="delete from mtjl Where CStr(tid)='" & id & "'"
  conn.Execute(sql)
sql="delete from lthf Where CStr(tid)='" & id & "'"
  conn.Execute(sql)
%>
删除成功成功。。
<%end if%>
<%end if%>
<%if cz="9" then%>
加黑作者
<a href="zttz.asp?sb=<%=sb%>&amp;fid=<%=usb(fid)%>&amp;id=<%=usb(id)%>&amp;cz=10">确定</a>|<a href="tz_gl.asp?sb=<%=sb%>&amp;id=<%=usb(id)%>">取消</a>
<%elseif cz="10" then%>
加黑成功成功。。
<%
sql="update cnscu_gr set grzt=2 where cstr(id)="&fid
  conn.Execute(sql)
%>
<%elseif cz="11" then%>
清除作者发帖
<a href="zttz.asp?sb=<%=sb%>&amp;id=<%=usb(id)%>&amp;fid=<%=usb(fid)%>&amp;cz=12">确定</a>|<a href="tz_gl.asp?sb=<%=sb%>&amp;id=<%=usb(id)%>">取消</a>
<br/>
注意：一次清除的话卖帖记录与回复记录不会删除！<br/>
建议使用删除功能！
<%elseif cz="12" then%>
<%
sql="delete from lttz Where CStr(fid)='" & fid & "'"
  conn.Execute(sql)
%>
清除成功。。
<%elseif cz="13" then%>
批量封锁作者发帖
<a href="zttz.asp?sb=<%=sb%>&amp;id=<%=usb(id)%>&amp;fid=<%=usb(fid)%>&amp;cz=14">确定</a>|<a href="tz_gl.asp?sb=<%=sb%>&amp;id=<%=usb(id)%>">取消</a>
<br/>
<%elseif cz="14" then%>
<%
sql="update lttz set st=1 where cstr(fid)='" & fid & "'"
  conn.Execute(sql)
%>
批量封锁成功。。
<%elseif cz="15" then%>
批量封锁作者发帖
<a href="zttz.asp?sb=<%=sb%>&amp;id=<%=usb(id)%>&amp;fid=<%=usb(fid)%>&amp;cz=16">确定</a>|<a href="tz_gl.asp?sb=<%=sb%>&amp;id=<%=usb(id)%>">取消</a>
<br/>
<%elseif cz="16" then%>
<%
sql="update lttz set st=0 where cstr(fid)='" & fid & "'"
  conn.Execute(sql)
%>
批量解锁成功。。
<%elseif cz="17" then%>
解黑会员
<a href="zttz.asp?sb=<%=sb%>&amp;fid=<%=usb(fid)%>&amp;id=<%=usb(id)%>&amp;cz=18">确定</a>|<a href="tz_gl.asp?sb=<%=sb%>&amp;id=<%=usb(id)%>">取消</a>
<%elseif cz="18" then%>
解黑成功成功。。
<%
sql="update cnscu_gr set grzt=0 where cstr(id)="&fid
  conn.Execute(sql)
%>
<%elseif cz="19" then%>
设置为总版
<a href="zttz.asp?sb=<%=sb%>&amp;fid=<%=usb(fid)%>&amp;id=<%=usb(id)%>&amp;cz=20">确定</a>|<a href="tz_gl.asp?sb=<%=sb%>&amp;id=<%=usb(id)%>">取消</a>
<%elseif cz="20" then%>
设置总版成功。。
<%
sql="update cnscu_gr set ltzj=1 where cstr(id)="&fid
  conn.Execute(sql)
%>
<%elseif cz="21" then%>
设置为巡查员
<a href="zttz.asp?sb=<%=sb%>&amp;fid=<%=usb(fid)%>&amp;id=<%=usb(id)%>&amp;cz=22">确定</a>|<a href="tz_gl.asp?sb=<%=sb%>&amp;id=<%=usb(id)%>">取消</a>
<%elseif cz="22" then%>
设置巡查员成功。。
<%
sql="update cnscu_gr set ltxcy=1 where cstr(id)="&fid
  conn.Execute(sql)
%>
<%elseif cz="23" then%>
撤除总版
<a href="zttz.asp?sb=<%=sb%>&amp;fid=<%=usb(fid)%>&amp;id=<%=usb(id)%>&amp;cz=24">确定</a>|<a href="tz_gl.asp?sb=<%=sb%>&amp;id=<%=usb(id)%>">取消</a>
<%elseif cz="24" then%>
撤除总版成功。。
<%
sql="update cnscu_gr set ltzj=0 where cstr(id)="&fid
  conn.Execute(sql)
%>
<%elseif cz="25" then%>
撤除巡查员
<a href="zttz.asp?sb=<%=sb%>&amp;fid=<%=usb(fid)%>&amp;id=<%=usb(id)%>&amp;cz=26">确定</a>|<a href="tz_gl.asp?sb=<%=sb%>&amp;id=<%=usb(id)%>">取消</a>
<%elseif cz="26" then%>
撤除巡查员成功。。
<%
sql="update cnscu_gr set ltxcy=0 where cstr(id)="&fid
  conn.Execute(sql)
%>
<%else%>
^_^！出错了请到<a href="http://wap.cnscu.cn">校园</a>交流
<%end if%>
<br/>------------
<br/><a href="tzgl.asp?fs=<%=fs%>&amp;sb=<%=sb%>">返回帖子管理</a><br/>
<a href="admin_index.asp?fs=<%=fs%>&amp;sb=<%=sb%>">返回管理首页</a><br/>
<a href="../index.asp?fs=<%=fs%>&amp;sb=<%=sb%>">返回网站首页</a><br/>
</p>
</card>
</wml>

						