⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 index.asp

📁 非常好的源码 非常好的源码 非常好的源码
💻 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.2//EN" "http://www.wapforum.org/DTD/wml12.dtd">
<!--#include file="conn.asp"-->
<wml>
<head>
<meta http-equiv="Cache-Control" content="must-revalidate" forua="true"/>
<meta http-equiv="Cache-Control" content="no-cache" forua="true"/>
<meta http-equiv="Cache-Control" content="max-age=0" forua="true"/>
<meta http-equiv="Expires" content="0" forua="true"/>
<meta http-equiv="Pragma" content="no-cache" forua="true"/>
</head>
<%
t1=timer()
dim sql1,rs1,sql,br
	Set Rs1 = Server.CreateObject("Adodb.Recordset")
	Sql1 = "SELECT * FROM config"
	Rs1.Open Sql1,conn,1,1
	if not (rs1.bof and rs1.eof)  then 
%>
	<card id="index" title="<%=utf8(rs1("title"))%>">
		<p align="<%=rs1("const")%>">
<%	if rs1("logo")<>"" then%>
			<img src="<%=rs1("logo")%>" alt='WAP网站'/><br/>

	<%end if%>
	<%if session("name")<>"" then%>

	欢迎您:<%=session("name")%>
	<%else%>
	<a href="reg.asp">注册登陆</a>&nbsp;
<a href="ly.asp">留言</a>
	<%end if%>
	<%if session("name")<>"" then%>
	<br/><a href="mycol.asp">我的收藏</a>&nbsp;
<a href="ly.asp">留言</a>
	<%end if%>
           <br/>
<%
	Set Rs9 = Server.CreateObject("Adodb.Recordset")
	Sql9 = "SELECT * FROM ufile order by id desc"
	Rs9.Open Sql9,conn,1,1
	if not (rs9.bof and rs9.eof)  then 
		if rs9.RecordCount>3 then
			aaaaa=3
		else
			aaaaa=rs9.RecordCount
		end if
		%>
		
		<%
	For i=1 to aaaaa
		%>
		
		<%
		Rs9.MoveNext
	Next
		%>
		<a href='newfile.asp'>最新加入</a>&nbsp;
		
		<%

	end if
		Rs9.close
		set rs9=nothing


	Set Rs9 = Server.CreateObject("Adodb.Recordset")
	Sql9 = "SELECT * FROM ufile order by kid desc"
	Rs9.Open Sql9,conn,1,1
	if not (rs9.bof and rs9.eof)  then 
		if rs9.RecordCount>3 then
			aaaaa=3
		else
			aaaaa=rs9.RecordCount
		end if
		%>
		
		<%
	For i=1 to aaaaa
		%>
		
		<%
		Rs9.MoveNext
	Next
		%>
		<a href='kidfile.asp'>排行</a><br/>
		
		<%
	end if
		Rs9.close
		set rs9=nothing

	Set Rs = Server.CreateObject("Adodb.Recordset")
	Sql = "SELECT * FROM main order by pid asc"
	Rs.Open Sql,conn,1,1
	if not (rs.bof and rs.eof)  then 

	For i=1 to rs.RecordCount
		If Rs.Eof Then
			exit For
		End If
		if rs("br")="true" then
			br="<br/>"
		else
			br=""
		end if
		if rs("img")<>"" then
			if rs("url")<>"" then%>
				<a href="<%=rs("url")%>"><img  src="<%=rs("img")%>" alt="<%=utf8(rs("title"))%>"/></a><%=br%>
			<%else%>
				<img  src="<%=rs("img")%>" alt="<%=utf8(rs("title"))%>"/><%=br%>
			<%end if
		else

			if rs("url")<>"" then%>
				<a href="<%=rs("url")%>"><%=utf8(rs("title"))%></a><%=br%>
			<%else%>
				<%=utf8(rs("title"))%><%=br%>
			<%end if
		end if
		Rs.MoveNext
	Next
	end if
%>
		<br/><input type='text'  name='txt' size="10"/>
		<anchor>搜索
		<go method='post' href='search.asp?id=2'>
		<postfield name='txt' value='$(txt)'/>
		</go>
		</anchor><br/>
		<a href="http://wap.lsylsy.cn">返回首页</a>

<%else%>
<card id="index" title="出错啦"><p>出错啦!系统资料没配置.<br/>
<%end if%><br/>
<%
		Rs1.close
		set rs1=nothing
		Rs.close
		set rs=nothing
response.write time() 
response.write "<br/>努力创造未来！</p>"
%>
</card>
</wml>

⌨️ 快捷键说明

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