📄 tzzy.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"> 
<wml>
<!--#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"
glsb=usb(request("glsb"))
qr=usb(request("qr"))
if qr="" then qr="1"%>
<card title="转移帖子" ontimer="lt_list.asp?glsb=<%=glsb%>&amp;page=<%=page%>&amp;ltid=<%=ltid%>">
<timer value="80"/>
<p>
<!--#include file="66hcsb.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&glsb="&glsb&"&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;glsb="&glsb&"&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"))
glsb=usb(request("glsb"))
ddname=usb(request("ddname"))
tzname=usb(request("tzname"))
nam=usb(request("nam"))
if ltid=zyid then response.redirect "lt_view.asp?cw=2&glsb="&glsb&"&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?glsb=<%=glsb%>&amp;ltid=<%=ltid%>">回到论坛</a><br/>
<!--#include file="w.asp"-->
</p>
</card>
</wml>
⌨️ 快捷键说明

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