📄 defau1t.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<% Response.ContentType="text/vnd.wap.wml" %>
<!--#INCLUDE VIRTUAL="/data/conn.asp"-->
<!--#INCLUDE FILE="e.asp"--><?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">
<wml>
<head>
<meta http-equiv="Cache-Control" content="max-age=0"/>
<meta http-equiv="Cache-Control" content="no-cache"/>
</head>
<card id='main' title='UCWSP网址导航'>
<p><%
Dim userua,browsers,uucun
userua=Request.ServerVariables("HTTP_USER_AGENT")
browsers=Lcase(Left(userua,4))
uucun=Lcase(Left(userua,12))
if browsers="oper" or browsers="winw" or browsers="wapi" or browsers="mc21" or browsers="up.b" or browsers="upg1" or browsers="upsi" or browsers="qwap" or browsers="jigs" or browsers="java" or browsers="alca" or browsers="wapj" or browsers="fetc" or browsers="r380" or browsers="mozi" or browsers="tdr/" or uucun="nec-n820 yes" then
response.redirect "http://ucwsp.cn"
end if
Dim useip,ipaddr
useip=Request.ServerVariables("REMOTE_ADDR")
ipaddr=Clng(left(trim(replace(useip,".","")),6))
if (ipaddr<>211103 and ipaddr<211136) or (ipaddr>211143 and ipaddr<218200) or (ipaddr>218207 and ipaddr<221130) or (ipaddr>221131) Then
response.redirect "http://ucwsp.cn"
end if
%>
<img src="/2.gif" alt=""/><img src="/1.jpg" alt=""/><br/>
<a href="/index1.asp">分类</a>.<a href="siteslist.asp?sort=1">今日</a>.<a href="siteslist.asp?sort=2">昨日</a>.<a href="siteslist.asp?sort=0">排行</a><br/>
推广><a href="/2.asp">两性小说</a>|<a href="/1.asp">禁书</a><br/>
>>>动态排行榜<br/>
<%
'隐藏N天未链入站点
sql="Update sites set IsViewSite=false WHERE DATEDIFF('d', fromtime, now()) > "& myunionautohideday
conn.Execute sql
'删除N天未链入站点
sql="Delete FROM sites WHERE DATEDIFF('d', fromtime, now()) > "& myunionautodelday
conn.Execute sql
'conn.CommandTimeOut = 999
set rs=Server.CreateObject("ADODB.Recordset")
sql="select top " & myuniontopsize & " id,sitename from sites where IsViewSite=true order by fromtime desc,id"
rs.open sql,conn,1,1
If rs.Bof And rs.Eof Then
Response.write "当前没有找到相关站点…<br/>"
Response.write "－－－－－<br/>"
Else
Do While Not rs.Eof
Response.write "><a href='linkto.asp?id=" & rs("id") & "'>" & rs("sitename") &"</a><br/>"
rs.MoveNext
Loop
End If
rs.close
Set rs=nothing
conn.close
set conn=nothing
%>
【<a href="/wap7.asp">导航</a>】<a href="">空位</a>|<a href="">空位</a>|<a href="">空位</a>|<a href="">空位</a>|<a href="">空位</a>|<a href="">空位</a>|<a href="">空位</a><br/>
【<a href="/wap5.asp">综合</a>】<a href="http://ad.kclick.cn/41552.wap">搜狐</a>|<a href="http://ad.kclick.cn/36661.wap?sina=">新浪</a>|<a href="http://ad2.easou.com:8080/j10ad/3026b9695.wad">宜搜</a>|<a href="http://ad.xt99.net/advertise.asp?id=1364&adv=1093 ">大头网</a>|<a href="">空位</a>|<a href="">空位</a>|<a href="">空位</a><br/>
【<a href="/wap.asp">文学</a>】<a href="http://33333g.cn">三猪</a>|<a href="http://7k.hk">7k</a>|<a href="http://ad.xt99.net/advertise.asp?id=1364&adv=1086 ">咪客</a>|<a href="">空位</a>|<a href="">空位</a>|<a href="">空位</a>|<a href="">空位</a><br/>
【<a href="/wap8.asp">实用</a>】<a href="http://ad2.easou.com:8080/j10ad/3083b9695.wad">UC</a>|<a href="http://ad2.easou.com:8080/j10ad/3101b9695.wad">百阅</a>|<a href="">空位</a>|<a href="">空位</a>|<a href="">空位</a>|<a href="">空位</a>|<a href="">空位</a><br/>
【<a href="/wap3.asp">社区</a>】<a href="">空位</a>|<a href="">空位</a>|<a href="">空位</a>|<a href="">空位</a>|<a href="">空位</a>|<a href="">空位</a>|<a href="">空位</a><br/>
【<a href="/wap9.asp">娱乐</a>】<a href="http://ad.kclick.cn/47907.wap">麻将</a>|<a href="http://ad.kclick.cn/47908.wap">指精灵</a>|<a href="http://ad2.easou.com:8080/j10ad/3088b9695.wad">水浒传</a>|<a href="http://ad2.easou.com:8080/j10ad/3087b9695.wad">征途</a>|<a href="http://ad.xt99.net/advertise.asp?id=1364&adv=1099 ">海贼王</a>|<a href="http://ad.xt99.net/advertise.asp?id=1364&adv=1068">mp3播放器</a>|<a href="http://ad.meuu.com/go.do?id=1066_1">大宋豪侠</a><br/>
【<a href="/wap4.asp">两性</a>】<a href="http://waptong.cn/jump.jsp?p=1555,6">云雨堂</a>|<a href="">空位</a>|<a href="">空位</a>|<a href="">空位</a>|<a href="">空位</a>|<a href="">空位</a>|<a href="">空位</a><br/>
【<a href="/wap6.asp">软件</a>】<a href="http://ad.kclick.cn/47904.wap">赛车</a>|<a href="http://ad.kclick.cn/47905.wap">台球</a>|<a href="http://ad.kclick.cn/47910.wap">大富翁</a>|<a href="http://ad.kclick.cn/47911.wap">方块</a>|<a href="http://ad.kclick.cn/47912.wap">杀毒</a>|<a href="http://ad.kclick.cn/47915.wap">小星哥</a>|<a href="http://ad.kclick.cn/47916.wap">坦克</a><br/>
【<a href="/wap1.asp">图铃</a>】<a href="http://ad.kclick.cn/47906.wap">漫画</a>|<a href="http://ad.kclick.cn/47913.wap">pop音乐</a>|<a href="">空位</a>|<a href="">空位</a>|<a href="">空位</a>|<a href="">空位</a>|<a href="">空位</a><br/>
【<a href="/wap2.asp">彩票</a>】<a href="">空位</a>|<a href="">空位</a>|<a href="">空位</a>|<a href="">空位</a>|<a href="">空位</a>|<a href="">空位</a>|<a href="">空位</a><br/>
【<a href="/wap10.asp">视频</a>】<a href="">空位</a>|<a href="">空位</a>|<a href="">空位</a>|<a href="">空位</a>|<a href="">空位</a>|<a href="">空位</a>|<a href="">空位</a><br/>
其他栏目|内容精品<br/>
<a href="http://ad.kclick.cn/32841.wap?kong=2008">奥运</a>.<a href="http://ad.kclick.cn/32841.wap?kong=sports">体育</a>.<a href="http://ad.kclick.cn/32841.wap?kong=stocks">证券</a>.<a href="http://ad.kclick.cn/32841.wap?kong=txzh">军事</a>.<a href="http://ad.kclick.cn/32841.wap?kong=finance">财经</a>.<a href="http://ad.kclick.cn/32841.wap?kong=weather">天气</a>.<a href="http://ad.kclick.cn/32841.wap?kong=it">科技</a>.<a href="http://ad.kclick.cn/32841.wap?kong=nba">NBA</a><br/>
<input emptyok="true" name="keyword" value="" title="请输入关键词" accept-charset="utf-8"/><br/><anchor>站内<go href="search.asp" method="get" ><postfield name="keyword" value="$(keyword)"/></go></anchor>.<anchor>儒豹<go method="post" href="http://wap.roboo.com/auto.jsp"><postfield name="q" value="$(q)"/><postfield name="back" value="http://0775k.cn"/><postfield name="f" value="0712260002"/></go></anchor>.<anchor>宜搜<go href="http://ad.easou.com/search" method="get"><postfield name="key" value="$(key)"/><postfield name="channel" value="$(channel)"/><postfield name="ep" value="1150_9695_0_0_0"/></go></anchor>.<a href="http://wap.wapstart.cn/11.wap?from=sz.3g9.cn">百度</a><br/>
-------------<br/>
<a href="/union/site_regagreement.asp" title="确定">合作</a>.<a href="/ly">留言</a>.<a href="/index01.asp">联系</a><br/>
无线互联.无限可能<br/>
书签 ucwsp.Cn <br/>
报时:<%=time()%><br/>
完全免费。放心使用<br/>
</p>
</card>
</wml>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -