手机WAP编程

开发平台：
ASP/ASPX

you.asp：源码内容
							﻿<% Response.ContentType="text/vnd.wap.wml" %><?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"-->
<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="max-age=0"/>
<meta http-equiv="Cache-Control" content="no-cache"/>
</head>
<card id='card1' title='友情链接'><p>
<%
Function c2u(sGBStr)
Dim i,c
if sGBStr<> "" then
For i = 1 to Len(sGBStr)
c = Mid(sGBStr,i,1)
if c=chr(13) then 
c2u = c2u & "<br/>"
else
c2u = c2u & "&#x" & Hex(AscW(c)) & ";"
end if
Next
end if
End Function
'登陆UBB
function ssubb(str)
	if IsNull(str) then exit function
	str=trim(str)
	str=replace(str,"&","&amp;")
	str=replace(str,"<","&lt;")
	str=replace(str,">","&gt;")
	str=replace(str,"'","&apos;")
	str=replace(str,"""","&quot;")
	str=replace(str,"$","$$")
	str=replace(str,"&nbsp;","")
	str=replace(str,"作爱","**")
	str=replace(str,"穴","*")
	str=replace(str,"色情","**")
	str=replace(str,"淫","*")
	str=replace(str,"成人","**")
	str=replace(str,"两性","**")
	str=replace(str,"高潮","**")
	str=replace(str,"自慰","**")
	str=replace(str,"性爱","**")
	str=replace(str,"六合","**")
	str=replace(str,"特码","**")
	str=replace(str,"日本色图","****")
	str=replace(str,"日本幼女","****")
	str=replace(str,"掰穴","**")
	str=replace(str,"强奸日本","****")
	str=replace(str,"女被干","***")
	str=replace(str,"女被奸","***")
	str=replace(str,"女被插","***")
	str=replace(str,"颜射","**")
	str=replace(str,"吞精","**")
	str=replace(str,"暴力虐待","****")
	str=replace(str,"变态虐待","****")
	str=replace(str,"淫妻","**")
	str=replace(str,"处女开苞","****")
	str=replace(str,"女被开苞","****")
	str=replace(str,"性交组图","****")
	str=replace(str,"穴特写","***")
	str=replace(str,"毛特写","***")
	str=replace(str,"逼特写","***")
	str=replace(str,"尿特写","***")
	str=replace(str,"厕所偷拍","****")
	str=replace(str,"无码成人","****")
	str=replace(str,"成人无码","****")
	str=replace(str,"日本无码","****")
	str=replace(str,"嫩穴","**")
	str=replace(str,"阴穴","**")
	str=replace(str,"蜜穴","**")
	str=replace(str,"淫妻","**")
	str=replace(str,"密穴","**")
	str=replace(str,"诱奸修女","****")
	str=replace(str,"淫片","**")
	str=replace(str,"淫逼","**")
	str=replace(str,"小穴","**")
	str=replace(str,"淫水","**")
	str=replace(str,"骚穴","**")
	str=replace(str,"狂插","**")
	str=replace(str,"淫洞","**")
	str=replace(str,"肉洞","**")
	str=replace(str,"肉棒","**")
	str=replace(str,"鸡巴","**")
	str=replace(str,"阴户","**")
	str=replace(str,"屄","*")
	str=replace(str,"乱伦","**")
	str=replace(str,"www.leyouyou.com","****")
	str=replace(str,"phonerotica.com","****")
        str=replace(str,"买春","**")
	str=replace(str,"卖春","**")
	str=replace(str,"打飞机","***")
	str=replace(str,"女自慰","***")
	str=replace(str,"露逼","**")	
        str=replace(str,"露穴","**")
	str=replace(str,"露点CG","****")
	str=replace(str,"喔..喔..喔","*****")
	str=replace(str,"淫叫","**")	
        str=replace(str,"淫乱","**")
	str=replace(str,"淫母","**")
	str=replace(str,"性交电影","****")
	str=replace(str,"性交组图","****")	
        str=replace(str,"抽插","**")
	str=replace(str,"猛插","**")
	str=replace(str,"狂插","**")
	str=replace(str,"妞被插","***")	
        str=replace(str,"明星裸体","****")
        str=replace(str,"六合","**")
	str=replace(str,"特码","**")
	str=replace(str,"作爱","**")
	str=replace(str,"插B","***")	
        str=replace(str,"A片","****")
        str=replace(str,"三级视频","****")
	set re=Nothing
	ssubb=str
	set re=Nothing
	ssubb=str
end function
  set objgbrs=Server.CreateObject("ADODB.Recordset")
  ssql="select * from cnscu_yl order by ttvv desc "
  objgbrs.open ssql,conn,1,1
 objgbrs.PageSize=20
  page=CLng(Request("page"))
 if page<1 then
    page=1
  End if
 if page>objgbrs.pagecount then
    page=objgbrs.pagecount
  End if
if objgbrs.eof then
   Response.write "<br/>暂时没有友链，欢迎交换<br/>"
Else
 objgbrs.absolutepage=page
   if page=1 then
     bihao=0
    else
     bihao=page*10-10
   End if
For i=1 to objgbrs.PageSize
    id=objgbrs("id")
  bihaocont=bihaocont+1
if objgbrs("zt")="0" then
Response.write "-&gt;" & ssubb(objgbrs("name")) &"[等待审核]&lt;-<br/>"
elseif objgbrs("zt")="2" then
Response.write "-&gt;" & ssubb(objgbrs("name")) &"[站长封锁]&lt;-<br/>"
else
Response.write "-&gt;"& bihao+bihaocont & ":" & "<a href='youcl.asp?id=" & objgbrs("id") & "'>" & ssubb(objgbrs("name")) &"</a>&lt;-<br/>"
End if
    objgbrs.Movenext
  if objgbrs.EOF then Exit for
    Next
  End if
response.write "(" &  Page & "/" & objgbrs.PageCount & ")" & "&#x5171;" & objgbrs.RecordCount & "&#x4E2A;"
if objgbrs.PageCount>1 then
response.write "<a href='#card2'>&#x8DF3;&#x9875;</a><br/>"
end if
If Page<objgbrs.PageCount then
    Response.Write "<a href='you.asp?page=" & (page+1) & "'>下一页</a>"
End if
If page>1 then
    Response.Write "&nbsp;<a href='you.asp?page=" & (page-1) & "'>上一页</a>"
End if
Response.write "<br/><a href='index.asp'>主页</a>|<a href='tjyou.asp'>申请</a>|<a href='yousm.asp'>条款</a></p></card>"
objgbrs.close
Set objgbrs= Nothing
conn.close
set conn=nothing
Response.write "<card id='card2' title='&#x8DF3;&#x9875;'><p><input  name='page' value='1' format='*N'/><anchor>GO<go method='post' href='you.asp?'><postfield name='itid' value='" & itid & "'/><postfield name='page' value='$(page)'/></go></anchor></p></card></wml>"
%>

						