📄 index2.asp

📁 7k书城小偷程序。。。。。。。。。。。。。。。。。。。。。
💻 ASP
字号:
<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %><% 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">
<wml>




<head>
<!--#include file="head1.asp"-->
<%opendata
set cn1=server.createobject("adodb.command")
cn1.activeconnection=cn
cn1.commandtype=1
cn1.commandtext="select * from shezhi"
set cn2=cn1.execute
if not cn2.eof then
	z_name=cn2("mingchen")
	z_logo=cn2("logo")
	z_lei=cn2("lei")
	z_max=cn2("smax")
end if
set cn2=nothing
set cn1=nothing
set cn1=server.createobject("adodb.command")
cn1.activeconnection=cn
cn1.commandtype=1
cn1.commandtext="select * from shuiying"
set cn2=cn1.execute
if not cn2.eof then
	s_s=cn2("shuiying")
	s_word=cn2("wenzi")
	s_x=cn2("x")
	s_y=cn2("y")
	s_family=cn2("ziti")
	s_bold=cn2("jiachu")
end if
set cn2=nothing
set cn1=nothing
closedata
%>
<meta http-equiv="Cache-Control" content="no-cache"/>

</head>
<card  id='towap' title='<%=z_name%>'>
<p>

每天更新大量成人内容<br/><a href="wap/lei.asp?xu=j">[推荐]</a><a href="wap/lei.asp">[最新]</a><a href="wap/lei.asp?xu=d2">[排行]</a><br/><a href="http://ad.spad.net.cn/113.wap?from=p1093">[视频]</a><a href="wap/index1.asp">[进入豪华版]</a><br/>～最新图片～<br/>














<%
opendata
set cn1=server.createobject("adodb.recordset")
cn1.open "select id,mingchen from tu where zhuangtai<>'0' order by id desc",cn,1,1
i=0
do while(not cn1.eof and i<10)
response.write("<a href=""wap/tu.asp?id="&cn1("id")&""">"&cn1("mingchen")&"</a><br/>")
cn1.movenext
i=i+1
loop
cn1.close
set cn1=nothing
set cn1=server.createobject("adodb.recordset")
cn1.open "select id,dizhi from tu where zhuangtai<>'0' and dizhi<>'' order by id desc",cn,1,1
j=cn1.recordcount
if j>1 then
	randomize
	shu=clng(rnd*j)
	cn1.move+shu
	If Not cn1.eof then
		d=split(cn1("dizhi"),",")
		response.write("")
	End if
end if
cn1.close
set cn1=nothing 
%>




～图片分类～<br/>
<%
set cn1=server.createobject("adodb.recordset")
cn1.open "select id,mingchen,huanhang from fenlei order by id",cn,1,1
do while(not cn1.eof)
	response.write("<a href=""wap/lei.asp?id="&cn1("id")&""">"&cn1("mingchen")&"</a>")
	if cn1("huanhang")="1" then
		response.write("<br/>")
	else
		response.write("&nbsp;")
	end if
	cn1.movenext
loop
cn1.close
set cn1=nothing
closedata
%>


～服务中心～<br/><a href="http://vgbl.cn/join.aspx?url=vgbl.cn">动态友链</a>|<a href="/wapbook">联系站长</a><br/><b>永久域名：vgbl.cn</b><br/><b>凹凸报时：<%=time()%></b><br/><b>情人网络提供www.qrdhl.cn</b><br/>



</p>
</card>
</wml>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -