📄 defau1t.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.asp"-->
<!--#include file="char.asp"-->
<%
if request("shouji")<>"" then
set rs=Server.CreateObject("ADODB.Recordset")
rs.open "select * from login where id='" & request("shouji") &"'",conn,1,2
if not (rs.bof and rs.eof) then
Session.Timeout=999
session("nameup")=rs("name")
session("shoujiup")=request("shouji")
session("shoujipno")=rs("phone")
end if
end if
Set rs= Server.CreateObject("ADODB.Recordset")
sql ="SELECT * From config Order By id DESC"
rs.open sql,conn,1,1
webname=rs("webname")
duqi=rs("duqi")
weblogo=rs("weblogo")
bbsname=rs("bbsname")
xinxian=rs("xinxian")
zuixin=rs("zuixin")
remen=rs("remen")
chaxu=rs("chaxu")
liuyan=rs("liuyan")
guanyu=rs("guanyu")
yqlj=rs("yqlj")
l=rs("lists")
x=rs("shijian")
b=rs("br")
rs.close
set rs=nothing
%>
<wml>
<head>
<meta http-equiv='Cache-Control' content='no-Cache'/>
<meta http-equiv='Cache-Control' content='max-age=0'/>
</head>
<card id='main' title='<%=untow(webname)%>'>
<p align='<%=duqi%>'>
<%
On Error Resume Next
Server.ScriptTimeOut=9999999
Function getHTTPPage(Path)
t = GetBody(Path)
End function
function getHTTPPage(url)
dim Http
set Http=server.createobject("Microsoft.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytesToBSTR(Http.responseBody,"utf-8")
set http=nothing
if err.number<>0 then err.Clear
end function
Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
%>
<img src='/7k.gif' alt=""/><br />
欢迎光临!<a href="/lt/reg/sgdl.asp">注册登陆</a><br/>
<a href="/lt">社区</a>.<a href="/index9.asp">书城</a>.<a href="/pic/index.asp">图片</a>.<a href="/index022.asp">视频</a><br/>
<a href="http://ad.kclick.cn/30655.wap?kong=news">新闻</a>.<a href="http://ad.kclick.cn/30655.wap?kong=video">影院</a>.<a href="/index6.asp">游戏</a>.<a href="/mp3/index.asp">MP3</a><br/>
[午夜]<a href="http://waptong.cn/jump.jsp?p=1555,3">让老婆变身午夜艳女</a><br/>
[推广]<a href="http://wap.518click.cn/dk/hit.asp?p=a2s262u1092">海量手机赏百万禁书</a><br/>
我的:<a href='/lt/Public/Gygl.asp?wap='>地盘</a>.<a href='/lt/hk/index0.asp?wap='>博客</a>.<a href='/lt/friandbook/mybookmark1.asp?wap='>日记</a><br/>
<a href='/lt/myalbum/index.asp?wap='>相册</a>.<a href='/lt/Sqtt.asp?wap='>部落</a>.<a href='/lt/Room/From.asp?wap='>聊天</a>.<a href='/lt/Tcjy/index.asp?wap='>同城</a><br/>
<a href='/new.asp'>最新</a>.<a href='/top.asp'>火热</a>.<a href='http://wap.wapstart.cn/11.wap?ftom=zzcn.dwap.cn'>好图</a>.<a href="http://wap.wapstart.cn/11.wap?from=sz.3g9.cn">好书</a><br/>
[火]<a href="http://ad.kclick.cn/30632.wap?sina=3g%2Fnews%2Findex.php%3Fdid%3D1%26tid%3D110%26vid%3D414">24小时在线更新动态新闻</a><br/>
<!--#include file="new1.asp"-->
排行:<a href="/wwwroot/book.asp?38635&pid=303&url=topList.jsp%3Ftype%3Dday%26k_id%3D5471851">日-</a> <a href="/wwwroot/book.asp?38635&pid=303&url=topList.jsp%3Ftype%3Dweek%26k_id%3D5471851">周-</a> <a href="/wwwroot/book.asp?38635&pid=303&url=topList.jsp%3Ftype%3Dmonth%26k_id%3D5471851">月-</a> <a href="/wwwroot/book.asp?38635&pid=303&url=topList.jsp%3Ftype%3Dall%26k_id%3D5471851">总</a> <br /><a href="http://33333g.cn/000">连载-</a> <a href="/wwwroot/book.asp?38635&pid=303&url=dm.jsp%3Fk_id%3D10203009">精选-</a> <a href="/new.asp">最新-</a><a href="/top.asp">热门</a><br />
文艺杂志|真情讲述<br/>
<a href='/lang.asp?classid=4&nclassid=11'>情感故事</a>|<a href='/lang.asp?classid=4&nclassid=12'>打工创业</a><br/>
<a href='lang.asp?classid=12&nclassid=54'>养生保健</a>|<a href='lang.asp?classid=12&nclassid=55'>婚姻家庭 </a><br/>
<a href='lang.asp?classid=12&nclassid=56'>女性天地</a>|<a href='lang.asp?classid=12&nclassid=57'>激情都市</a><br/>
<a href='lang.asp?classid=12&nclassid=58'>南方文艺</a>|<a href='lang.asp?classid=12&nclassid=59'>社会经历</a><br/>
<a href='lang.asp?classid=12&nclassid=60'>时尚生活</a>|<a href='lang.asp?classid=12&nclassid=61'>倾诉真情</a><br/>
猛鬼故事|内容精品<br/>
<a href='/lang.asp?classid=3&nclassid=5'>民间故事</a>|<a href='/lang.asp?classid=3&nclassid=6'>猛鬼故事</a><br/>
<a href='/lang.asp?classid=3&nclassid=7'>惊险故事</a>|<a href='/lang.asp?classid=3&nclassid=8'>恐怖故事</a><br/>
<a href="http://7k.hk/lang.asp?classid=11&nclassid=46">夜夜鬼故</a>|<a href="http://7k.hk/lang.asp?classid=11&nclassid=47">半夜惊魂</a><br/>
<a href="http://7k.hk/lang.asp?classid=11&nclassid=52">长篇鬼故</a>|<a href="http://7k.hk/lang.asp?classid=11&nclassid=53">短篇鬼故</a><br/>
<a href='/lang.asp?classid=3&nclassid=9'>恐怖幽洞</a>|<a href='/lang.asp?classid=8&nclassid=23'>张震讲鬼</a><br/>
<a href='/lang.asp?classid=8&nclassid=45'>百姓纪实</a>|<a href='/lang.asp?classid=8&nclassid=28'>鬼新娘区</a><br/>
<input type='text' name='txtitle' title='关键字' size='14' maxlength='50'/><br/><anchor>站内搜索<go href='ru_query.asp' method='post' accept-charset='utf-8'><postfield name='txtitle' value='$(txtitle)'/></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><br/>
明星激情|<%
Dim Url,Html,start,over,body,wap,wstr,str
Url="http://61.145.124.12/photo/"
wstr=getHTTPPage(url)
start=Instr(wstr,"【")
over=Instr(wstr,"【写真搜索】")
body=mid(wstr,start,over-start)
'------------------------------------------------
body = replace(body,"<p align=""left"">","")
body = replace(body,"<p align=""center"">","")
body = replace(body,"</p>","")
body = replace(body,"<p>","")
body = replace(body,"upload/","http://61.145.124.12/photo/upload/")
body = replace(body,"aspx","asp")
body = replace(body,"【","")
body = replace(body,"】","")
body = replace(body,"","")
'--------------------------------------------------
Response.write body
%>
小说专区|天天更新<br/>
<a href="/wwwroot/book.asp?38635&pid=303&url=dm.jsp%3Fk_id%3D9846045">修真</a>|<a href="/wwwroot/book.asp?38635&pid=303&url=dm.jsp%3Fk_id%3D9846039">玄幻</a>|<a href="/wwwroot/book.asp?38635&pid=303&url=dm.jsp%3Fk_id%3D9846036">武侠</a>|<a href="/wwwroot/book.asp?38635&pid=303&url=dm.jsp%3Fk_id%3D9845853">游戏</a><br/>
<a href="/wwwroot/book.asp?38635&pid=303&url=dm.jsp%3Fk_id%3D13864738">星幻</a>|<a href="/wwwroot/book.asp?38635&pid=303&url=dm.jsp%3Fk_id%3D12439521">江湖</a>|<a href="/wwwroot/book.asp?38635&pid=303&url=dm.jsp%3Fk_id%3D9963142">星辰</a>|<a href="/wwwroot/book.asp?38635&pid=303&url=dm.jsp%3Fk_id%3D9846033">都市</a><br/>
<a href="/wwwroot/book.asp?38635&pid=303&url=dm.jsp%3Fk_id%3D9852589">边缘</a>|<a href="/wwwroot/book.asp?38635&pid=303&url=dm.jsp%3Fk_id%3D9852587">穿越</a>|<a href="/wwwroot/book.asp?38635&pid=303&url=dm.jsp%3Fk_id%3D9846008">爱情</a>|<a href="/wwwroot/book.asp?38635&pid=303&url=dm.jsp%3Fk_id%3D10119240">箭穿</a><br/>
<a href="/wwwroot/book.asp?38635&pid=303&url=dm.jsp%3Fk_id%3D12267245%26pg%3D1">神传</a>|<a href="/wwwroot/book.asp?38635&pid=303&url=dm.jsp%3Fk_id%3D10284624">天机</a>|<a href="/wwwroot/book.asp?38635&pid=303&url=dm.jsp%3Fk_id%3D9845997">连载</a>|<a href="/wwwroot/book.asp?38635&pid=303&url=dm.jsp%3Fk_id%3D9845990">鬼话</a><br/>
<a href="/wwwroot/book.asp?38635&pid=303&url=dm.jsp%3Fk_id%3D9845856">悬疑</a>|<a href="/wwwroot/book.asp?38635&pid=303&url=dm.jsp%3Fk_id%3D9845862">历史</a>|<a href="/wwwroot/book.asp?38635&pid=303&url=dm.jsp%3Fk_id%3D13850879%26pg%3D1">暗算</a>|<a href="/wwwroot/book.asp?38635&pid=303&url=dm.jsp%3Fk_id%3D10943175%26pg%3D2">外史</a><br/>
<a href="/wwwroot/book.asp?38635&pid=303&url=dm.jsp%3Fk_id%3D9845861">战争</a>|<a href="/wwwroot/book.asp?38635&pid=303&url=dm.jsp%3Fk_id%3D9845858">人物</a>|<a href="/wwwroot/book.asp?38635&pid=303&url=dm.jsp%3Fk_id%3D9845845">竞技</a>|<a href="http://wap.wapstart.cn/11.wap?from=sz.3g9.cn">更多</a><br/>
=^=^=^=^=^=^=^=<br/>
<a href="/index03.asp">推荐</a>|<a href="/you/index.asp">友情</a>|<a href="/ly/index.asp">留言</a>|<a href="/index01.asp">客服</a><br/>
书签:7k.hk<br/>
7K报时:<%=time()%><br/>
</p>
</card>
</wml>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -