手机WAP编程

开发平台：
ASP/ASPX

tzzy.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"> 
<wml><%
'====================================================================
' 请你保留这段说明，这并不会影响你的速度.   电脑交流:http://www.cnscu.cn
' 程序制作：横云			  掌上校园收倾心整理收集于互联网,感谢你的支持!
' 升级时间： 2008-2-5  		主页地址：HTTP://wap.cnscu.cn
' E-Mail: cnscu@126.com   	客服QQ:554904632 QQ群:30493504 QQ群2:46659883
'====================================================================
%> <!--#include file="conn.inc"-->
<head>
<meta http-equiv='Cache-Control' content='no-cache'/>
</head>
<%
url=usb(request("url"))
ltid=usb(request("ltid"))
tid=usb(request("tid"))
cz=usb(request("cz"))
page=usb(request("page"))
if page="" then page="1"
cnscu=usb(request("cnscu"))
qr=usb(request("qr"))
if qr="" then qr="1"%>
<card title="转移帖子" ontimer="lt_list.asp?cnscu=<%=cnscu%>&amp;page=<%=page%>&amp;ltid=<%=ltid%>">
<timer value="80"/>
<p>
<!--#include file="cnscucsb.asp"-->
无操作50秒自动返回。<br/>
<%
if cz="" then
set rsxl=Server.CreateObject("ADODB.Recordset")
rspl="select id,ltid,name from lttz where id="&tid
rsxl.open rspl,conn,1,2
sodl=rsxl("ltid")
tzname=rsxl("name")
if rsxl("ltid")<>ltmybz1 and mycjbz<>"1" then response.redirect "lt_view.asp?cw=1&cnscu="&cnscu&"&ltid="&ltid&"&tid="&tid&""
rsxl.close
set rsxl=nothing%>
<%
dim sodl
if sodl<>"0" then
set rsxlp=Server.CreateObject("ADODB.Recordset")
rspll="select * from sclt where id="&sodl
rsxlp.open rspll,conn,1,2
ddname=rsxlp("name")
rsxlp.close
set rsxlp=nothing
end if
response.write "帖子现在所在的论坛为<br/>"%>
<%if ddname<>"" then%>
<%=ddname%><br/>
<%elseif ddname="" then
response.write "错误ID<br/>"
end if
response.write "***********<br/>"
response.write "<select name='idp'><option onpick='转移帖子'>=您需要转移到=</option>"
set rse=server.createobject("ADODB.Recordset")
aql="select id,name,pid from sclt order by pid asc"
rse.open aql,conn,1,2
j=1
do while not rse.eof
 dim name
nam=rse("name")
if len(nam)>8 then nam=left(nam,8)
Response.write "<option onpick='tzzy.asp?yid="&tid&"&amp;zyid="&rse("id")&"&amp;cnscu="&cnscu&"&amp;cz=1&amp;url="&url&"&amp;ltid="&ltid&"&amp;nam="&nam&"&amp;tzname="&ubb(tzname)&"&amp;ddname="&ubb(ddname)&"'>" & ubb(nam) & "</option>"
j=j+1
rse.movenext
loop
rse.close
set rse=nothing
Response.write "</select>"
end if
if cz="1" then
url=usb(request("url"))
ltid=usb(request("ltid"))
yid=usb(request("yid"))
zyid=usb(request("zyid"))
cnscu=usb(request("cnscu"))
ddname=usb(request("ddname"))
tzname=usb(request("tzname"))
nam=usb(request("nam"))
if ltid=zyid then response.redirect "lt_view.asp?cw=2&cnscu="&cnscu&"&ltid="&ltid&"&tid="&yid&""
sql="update lttz set ltid="&zyid&" where cstr(id)="&yid
  conn.Execute(sql)
'---开始增加----
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&"]从“"&ddname&"”转移到“"&nam&"”"
rs.update
'---关闭数据----
rs.close
set rs=nothing
response.write "转移成功！"
end if
response.write "<br/>***********<br/>"
%>
<a href="lt_list.asp?cnscu=<%=cnscu%>&amp;ltid=<%=ltid%>">回到论坛</a><br/>
<!--#include file="w.asp"-->
</p>
</card>
</wml>

						