手机WAP编程

开发平台：
ASP/ASPX

lt_view.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>
<!--#include file="conn.inc"-->
<head><%
'====================================================================
' 请你保留这段说明，这并不会影响你的速度.   电脑交流:http://www.cnscu.cn
' 程序制作：横云			  掌上校园收倾心整理收集于互联网,感谢你的支持!
' 升级时间： 2008-2-5  		主页地址：HTTP://wap.cnscu.cn
' E-Mail: cnscu@126.com   	客服QQ:554904632 QQ群:30493504 QQ群2:46659883
'====================================================================
%> <meta http-equiv="Cache-Control" content="no-Cache"/>
<meta http-equiv="Cache-Control" content="max-age=0"/>
<meta http-equiv="Expires" content="Mon, 1 Jan 1990 00:00:00 GMT"/>
</head>
<card id="card1" title="查看文章">
<p>
<!--#include file="yksb.asp"-->
<!--#include file="xxts.asp"-->
<%
Dim d01(12)
d01(0)="顶礼，论坛有你更精彩！"
d01(1)="路过，顶一下！"
d01(2)="楼主，我好崇拜你哦！"
d01(3)="见一次顶你一次！"
d01(4)="高！实在是高！"
d01(5)="我好崇拜你哦！"
d01(6)="你是我心目高手！"
d01(7)="好帖！顶你上天！"
d01(8)="你真的太厉害了！"
Randomize
I=Int(Rnd()*9)
adgg=d01(i)
dim id,page
tid=usb(request.QueryString("tid"))
if tid="" then tid="0"
page=request.QueryString("page")
if page="" or page<1 then page=1
ppage=request.QueryString("ppage")
if ppage="" or ppage<1 then ppage=1
set mtrs=Server.CreateObject("ADODB.Recordset")
mtrsql="select mid,tid from mtjl where CStr(mid)=" & myid & " and CStr(tid)="&tid
mtrs.open mtrsql,conn,1,2
if mtrs.recordcount=0 then 
mmid="0"
else
mmid="1"
end if
mtrs.close
set mtrs=nothing
cw=request.QueryString("cw")
if cw="1" then
response.write("错误：您没有这个权利！<br/>")
end if
if cw="2" then
response.write("错误：该帖子已经在本版了！<br/>")
end if
if cw="3" then
response.write("错误：您已经为本帖献过花了！不要太痴迷嘛！<br/>")
end if
if cw="4" then
response.write("错误：您已经砸了一个臭便便了！有什么深仇大恨么！<br/>")
end if
if cw="5" then
response.write("错误：钱很多吗？反复购买？<br/>")
end if
if cw="6" then
response.write("没钱还想看帖？哼。没门。。<br/>")
end if
if cw="7" then
response.write("喂，喂。捣乱呀？你已经回复过啦？<br/>")
end if
if cw="10" then
response.write("您的回复速度太快啦，做下来喝杯咖啡吧！<br/>")
end if
  sql="update lttz set rc=rc+1 Where CStr(id)='" & tid & "'"
  conn.Execute(sql)
dim rs,tsstr
set rs=Server.CreateObject("ADODB.Recordset")
rsstr="select * from lttz where id=" & tid
rs.open rsstr,conn,1,2
if rs.recordcount=0 then 
response.write("没有这个帖子呀！<br/><a href='lt_list.asp?cnscu="&cnscu&"&amp;ltid="&ltid&"'>回到论坛</a><br/><br/></p></card></wml>")
      rs.close
      set rs=nothing
      conn.close
      set conn=nothing
      response.end
else
ltid=rs("ltid")
dim pageWordNum,StartWord,Content,Length,PageAll,i
pageWordNum=ssbb
StartWord = 1
Content=rs("txt")
Length=len(Content)
PageAll=(Length+PageWordNum-1)PageWordNum
i=request("i")
if isnull(i) or i="" then i=0
Content = mid(Content,StartWord+i*PageWordNum,PageWordNum)
if rs("st")="0" then
	if PageAll>1 then
response.write("<a href='viewqw.asp?tid=" & tid & "&amp;cnscu=" & cnscu & "&amp;ltid=" & ltid & "&amp;ltid=" & ltid & "&amp;id=" & id & "'>[查看全文]</a><br/>")
	end if%>
主题：<%=ubb(rs("name"))%><br/>
作者：<a href='gr_zl.asp?id=<%=ubb(rs("fid"))%>&amp;cnscu=<%=cnscu%>'><%=ubb(rs("fname"))%></a>(ID:<%=ubb(rs("fid"))%>)<br/>
<%=ubb(rs("tm"))%><br/>
----------<br/>
<%if len(rs("touu"))>3 then%><img src="<%=rs("touu")%>" alt="加载表情。"/><%end if%>
<%if rs("mtjg")="0" or mmid="1" then%> 
<%=ubb2(content)%> <br/>
<%else%> 
本帖价格：<%=rs("mtjg")%><br/>
<a href='mymt.asp?cnscu=<%=cnscu%>&amp;tid=<%=tid%>&amp;ppage=<%=ppage%>'>我要购买</a>
<%end if%> 
<%if rs("vote")<>"" then 
if rs("vote")<>"" then vote=split(utf8(rs("vote")),"")
if rs("addvote")<>"" then addvote=split(utf8(rs("addvote")),"")
if rs("voteid")<>"" then voteid=split(utf8(rs("voteid")),"")
if rs("voteid")<>"" then
for i=0 to ubound(voteid)
if voteid(i)<>"" then
if cint(voteid(i))=session("myid") then votesa="true"
end if
next
end if
for i=0 to ubound(addvote)
if addvote(i)<>"" then
votecoun=votecoun+cint(addvote(i))
end if
next
if votesa<>"true" then%>
<select name="voteid"  value="0"><%
for i=0 to ubound(vote)
if vote(i)<>"" then %>
<option value="<%=i%>"><%=vote(i)%></option>
<%end if
next%>
</select><br/>
<anchor>投他一票
<go href="ttpp.asp?tid=<%=tid%>&amp;ltid=<%=ltid%>&amp;cnscu=<%=cnscu%>&amp;ppage=<%=ppage%>" method="post">
<postfield name="voteid" value="$(voteid)" />
</go>
</anchor><br/>
<%end if
votesa=""%>
投票结果:<%=votecoun%>票<br/>
<%for i=0 to ubound(vote)
if vote(i)<>"" then 
if votecoun<>0 then%>
<%=vote(i)%>:<%=addvote(i)%>票<%=round(cint(addvote(i))*100/votecoun,0)%>%<br/>
<%end if
end if
next%>
					<%end if%>
<%
if 0<=i<PageAll then
       Response.Write "<br/>"
   if cint(i)<cint(PageAll)-1 then
       Response.Write "<a href='lt_view.asp?cnscu="&cnscu&"&amp;tid="&tid&"&amp;ltid="&ltid&"&amp;i=" & i+1 & "&amp;page=" & page & "'>下一页</a>"
   End if
   if cint(i)>0 then 
       Response.Write "&nbsp;" & "<a href='lt_view.asp?cnscu="&cnscu&"&amp;tid="&tid&"&amp;ltid="&ltid&"&amp;i=" & i-1 & "&amp;page=" & page & "'>上一页</a><br/>"
   End if
End if
if PageAll>1 then
       response.write "(" & i+1 & "/" & PageAll & ")"
%>
<br/>
跳到第<input name="i<%=minute(now)%><%=second(now)%>" title="页码" type="text" format="*N" emptyok="true" size="3" value="<%response.write(i+1)%>" maxlength="3"/>页
<anchor>[GO]
    <go href="lt_view.asp?cnscu=<%=cnscu%>&amp;tid=<%=tid%>&amp;ltid=<%=ltid%>&amp;id=<%=id%>&amp;page=<%=page%>" accept-charset='utf-8'>
        <postfield name="i" value="$(i<%=minute(now)%><%=second(now)%>)"/>
    </go>
</anchor><br/>
<%
end if
  if rs("gtm")<>rs("tm") then
response.write("最后修改时间：" & rs("gtm") & "<br/>")
  end if
else
response.write "本文已被锁定，可能含有非法内容，如果你是原作者请你修改好后，再发表评论说明。<br/>"
end if
end if
%>
<%if myid=rs("fid") then%>
<a href="grtzjx.asp?cnscu=<%=cnscu%>&amp;ltid=<%=rs("ltid")%>&amp;tid=<%=rs("id")%>&amp;ppage=<%=ppage%>">续帖</a>|<a href="grtzbj.asp?cnscu=<%=cnscu%>&amp;ltid=<%=rs("ltid")%>&amp;tid=<%=rs("id")%>&amp;ppage=<%=ppage%>">修改</a>|<a href="grtzsc.asp?cnscu=<%=cnscu%>&amp;ltid=<%=rs("ltid")%>&amp;tid=<%=rs("id")%>&amp;tzname=<%=ubb(rs("name"))%>&amp;ppage=<%=ppage%>">删除</a><br/>
<%end if%>
<%if ltmybz=rs("ltid") or mycjbz="1" or myxcy="1" then%>
<%if rs("jj")="1" then%><a href='tzjj.asp?tid=<%=rs("id")%>&amp;cnscu=<%=cnscu%>&amp;ltid=<%=rs("ltid")%>&amp;cc=0&amp;ppage=<%=ppage%>'>解精</a><%end if%><%if rs("jj")="0" then%><a href='tzjj.asp?tid=<%=rs("id")%>&amp;cnscu=<%=cnscu%>&amp;ltid=<%=rs("ltid")%>&amp;cc=1&amp;ppage=<%=ppage%>'>加精</a><%end if%>|<%if rs("dgtm")<>"2100-10-10 12:12:12" then%><a href="tzzd.asp?tid=<%=rs("id")%>&amp;cnscu=<%=cnscu%>&amp;ltid=<%=rs("ltid")%>&amp;cc=0&amp;ppage=<%=ppage%>">置顶</a><%end if%><%if rs("dgtm")="2100-10-10 12:12:12" then%><a href="tzzd.asp?tid=<%=rs("id")%>&amp;cnscu=<%=cnscu%>&amp;ltid=<%=rs("ltid")%>&amp;cc=1&amp;ppage=<%=ppage%>">解顶</a><%end if%>|<%if rs("dgtm")<>"2000-10-10 12:12:12" then%><a href="tzgd.asp?tid=<%=rs("id")%>&amp;cnscu=<%=cnscu%>&amp;ltid=<%=rs("ltid")%>&amp;cc=0&amp;ppage=<%=ppage%>">固底</a><%end if%><%if rs("dgtm")="2000-10-10 12:12:12" then%><a href="tzgd.asp?tid=<%=rs("id")%>&amp;cnscu=<%=cnscu%>&amp;ltid=<%=rs("ltid")%>&amp;cc=1&amp;ppage=<%=ppage%>">解固</a><%end if%>|<%if rs("st")="0" then%><a href="tzfs.asp?tid=<%=rs("id")%>&amp;cnscu=<%=cnscu%>&amp;ltid=<%=rs("ltid")%>&amp;cc=1&amp;ppage=<%=ppage%>">封锁</a><%end if%><%if rs("st")="1" then%><a href="tzfs.asp?tid=<%=rs("id")%>&amp;cnscu=<%=cnscu%>&amp;ltid=<%=rs("ltid")%>&amp;cc=0&amp;ppage=<%=ppage%>">解锁</a><%end if%><br/>
谨慎操作，操作都有纪录！<br/>
<%end if%>
<%if ltmybz1=rs("ltid") or mycjbz="1" then%>
<a href="tzsc.asp?tid=<%=rs("id")%>&amp;cnscu=<%=cnscu%>&amp;ltid=<%=rs("ltid")%>&amp;tzname=<%=ubb(rs("name"))%>&amp;ppage=<%=ppage%>">删除</a>|<a href="tzzy.asp?tid=<%=rs("id")%>&amp;cnscu=<%=cnscu%>&amp;ltid=<%=rs("ltid")%>&amp;ppage=<%=ppage%>">转移</a>|<a href="tzbj.asp?tid=<%=rs("id")%>&amp;cnscu=<%=cnscu%>&amp;ltid=<%=rs("ltid")%>&amp;ppage=<%=ppage%>">编辑</a>|<%if rs("yc")="0" then%><a href="tzyc.asp?tid=<%=rs("id")%>&amp;cnscu=<%=cnscu%>&amp;ltid=<%=rs("ltid")%>&amp;cc=1&amp;ppage=<%=ppage%>">隐藏</a><%end if%><%if rs("yc")="1" then%><a href="tzyc.asp?tid=<%=rs("id")%>&amp;cnscu=<%=cnscu%>&amp;ltid=<%=rs("ltid")%>&amp;cc=0&amp;ppage=<%=ppage%>">解隐</a><%end if%><br/>
<a href="j_hy.asp?id=<%=rs("fid")%>&amp;tid=<%=rs("id")%>&amp;cnscu=<%=cnscu%>&amp;ltid=<%=rs("ltid")%>&amp;cc=0&amp;ppage=<%=ppage%>">加黑作者</a><br/>
<%end if%>
<%if rs("hfs")>3 then%>
<a href='hf_view.asp?tid=<%=tid%>&amp;cnscu=<%=cnscu%>&amp;ltid=<%=ltid%>&amp;ppage=<%=ppage%>'>看回复(<%=rs("hfs")%>)条</a><br/>
<%end if
if rs("hfs")<>0 then response.write("--最新回复--<br/>")
set rsxl=Server.CreateObject("ADODB.Recordset")
rspl="select * from lthf where CStr(tid)='"&tid&"' order by htm desc"
rsxl.open rspl,conn,1,2
if rsxl.eof then
   Response.write "暂无回复!<br/>"
Else
y=Month(rsxl("htm"))&"" 
r=Day(rsxl("htm"))&"" 
if len(r)=1 then r="0"&r
h=hour(rsxl("htm"))&"" 
if len(h)=1 then h="0"&h
m=minute(rsxl("htm"))&"" 
if len(m)=1 then m="0"&m
tt="" & y & "-" & r &" " & h &":" & m &""
k=rsxl.recordcount
i=1
do while ((not rsxl.EOF) and i <=cint(3))
hfid=rsxl("fid")
hfname=ubb(rsxl("fni"))
tzbt=left(rsxl("nr"),99)
if len(rsxl("nr"))>99 then
tzbt=tzbt+"。。"
end if
%>
<a href='pl_view.asp?cnscu=<%=cnscu%>&amp;id=<%=ubb(rsxl("id"))%>&amp;ltid=<%=ubb(ltid)%>&amp;ppage=<%=ppage%>'><%=k%></a>.<%=hfname%>(ID:<%=hfid%>):<%=ubb2(tzbt)%>(<%=tt%>)<br/>
<%
rsxl.Movenext
k=k-1
i=i+1
loop
end if
%>
--快速回复--<br/>
<a href='kshf.asp?tid=<%=tid%>&amp;cnscu=<%=cnscu%>&amp;dgly=我顶!&amp;ppage=<%=ppage%>'>我顶</a>◆<a href='kshf.asp?tid=<%=tid%>&amp;cnscu=<%=cnscu%>&amp;dgly=支持!&amp;ppage=<%=ppage%>'>支持</a>◆<a href='kshf.asp?tid=<%=tid%>&amp;cnscu=<%=cnscu%>&amp;dgly=反对!&amp;ppage=<%=ppage%>'>反对</a>
<br/>
<input name="dgly<%=minute(now)%><%=second(now)%>" emptyok="true" maxlength="100" value="<%=adgg%>"/><br/>
<anchor title="快速回复">快速回复
<go href="kshf.asp?tid=<%=tid%>&amp;ppage=<%=ppage%>&amp;cnscu=<%=cnscu%>&amp;ltid=<%=ltid%>" method="post" accept-charset='utf-8'>
<postfield name="dgly" value="$(dgly<%=minute(now)%><%=second(now)%>)"/></go>
</anchor><a href='mysctz.asp?tid=<%=tid%>&amp;ppage=<%=ppage%>&amp;cnscu=<%=cnscu%>'>收藏帖子</a><br/><br/>
<%
rsxl.close
set rsxl=nothing
response.write("----------<br/>")
set npp=Server.CreateObject("ADODB.Recordset")
rspl="select name,id from sclt where id="&ltid
npp.open rspl,conn,1,2
if not npp.eof then
mmnnyy=npp("name")
else
mmnnyy="该板块"
end if
npp.close
set npp=nothing%>
<a href='lt_list.asp?cnscu=<%=cnscu%>&amp;ltid=<%=ltid%>&amp;page=<%=ppage%>'>返回<%=mmnnyy%></a><br/>
<!--#include file="w.asp"-->
</p>
</card>
</wml> 
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

						