手机WAP编程

开发平台：

ASP/ASPX

ttpp.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="cnscucsb.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'/>
</head>
<%
tid=usb(request("tid"))
ltid=usb(request("ltid"))
voteid=usb(request("voteid"))
%>
<card title="给他投票" ontimer="lt_view.asp?cnscu=<%=cnscu%>&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;cnscu=<%=cnscu%>">回到论坛</a><br/>
<!--#include file="w.asp"-->
</p>
</card>
</wml>

						