📄 ttpp.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>
<%
tid=usb(request("tid"))
ltid=usb(request("ltid"))
voteid=usb(request("voteid"))
%>
<card title="给他投票" ontimer="lt_view.asp?glsb=<%=glsb%>&amp;tid=<%=tid%>&amp;ltid=<%=ltid%>&amp;page=1">
<timer value="10"/>
<p>
<%
if session("myid")="" or tid="" or ltid="" or voteid=""  then%>
出错啦!请不要非法提交参数.<br/>
<%else	
Set Rs = Server.CreateObject("Adodb.Recordset")
Sql = "SELECT * FROM lttz where id="&tid
Rs.Open Sql,conn,1,3
if not (rs.bof and rs.eof)  then 
if rs("addvote")<>"" then addvote=split(utf8(rs("addvote")),"\")
vote=""
if rs("voteid")<>"" then
votei=split(utf8(rs("voteid")),"\")
for i=0 to ubound(votei)
if votei(i)<>"" then
if cint(votei(i))=cint(session("myid")) then
novote="true"
end if
end if
next
end if
if novote<>"true" then
for i=0 to ubound(addvote)
if addvote(i)<>"" then
if cint(i)=cint(voteid) then
vote=vote&cint(addvote(i))+1&"\"
else
vote=vote&addvote(i)&"\"
end if
end if
next
rs("addvote")=vote
rs("voteid")=rs("voteid")&session("myid")&"\"
rs.update
end if
end if
Rs.close
set rs=nothing%>
投票成功!刷新无效!<br/>
正在返回主帖。。。<br/>
<%end if%>
**********<br/>
<a href="lt_list.asp?ltid=<%=ltid%>&amp;glsb=<%=glsb%>">回到论坛</a><br/>
<!--#include file="w.asp"-->
</p>
</card>
</wml>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -