📄 ding.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="conn.asp"--->
<!-- #include file="onlines.asp" -->
<%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">
<%
dim id,tid,objj,hid
id=request.QueryString("id")
tid=request.QueryString("tID")
objj=request.QueryString("obj")
hid=request.QueryString("hID")
dim rsad,pno
set rsad=Server.CreateObject("ADODB.Recordset")
rsad.open "select phone from login where id='"&request("shouji")&"'",conn,1,3
if rsad.bof and rsad.eof then
response.redirect "index.asp"
else
pno=rsad("phone")
end if
rsad.close
set rsad=nothing
dim rsp,bz
set rsp=Server.CreateObject("ADODB.Recordset")
rsp.open "select bz from sheet where shouji='" & pno & "'",conn,1,2
bz=rsp("bz")
rsp.close
set rsp=nothing
if instr(bz,"-"& id &"-")>0 or instr(bz,"-99-")>0 or instr(bz,"-98-")>0 or instr(bz,"-97-")>0 then
dim rsy
set rsy=Server.CreateObject("ADODB.Recordset")
rsy.open "select * from art where ID=" & tid,conn,1,2
if rsy.recordcount=1 then
if objj="u" then
rsy("ding")=1
rsy.update
end if
if objj="d" then
rsy("ding")=0
rsy.update
end if
if objj="f" then
rsy("ding")=2
rsy.update
end if
end if
rsy.close
set rsy=nothing
conn.close
set conn=nothing
end if
%><wml>
<head>
<meta http-equiv="Cache-Control" content="no-Cache"/>
</head>
<card title="置顶" ontimer="view.asp?id=<%=id%>&tID=<%=tid%>&shouji=<%=request("shouji")%>">
<timer value="20"/>
<p align="center">
设置成功！<br/><br/>
<a href="view.asp?id=<%=id%>&tID=<%=tid%>&shouji=<%=request("shouji")%>">[返回主帖]</a><br/>
<a href="list.asp?id=<%=id%>&shouji=<%=request("shouji")%>">[返回论坛]</a><br/>
<a href="bbs.asp?shouji=<%=request("shouji")%>">[论坛首页]</a><br/>
<a href="../index.asp?shouji=<%=request("shouji")%>">[网站首页]</a><br/></p>
</card>
</wml>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -