yqljclass.asp

来自「admin/admin.asp是WAP的后台管理登陆页面」· ASP 代码 · 共 39 行

ASP
39
字号
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
'=================================================
' Copyright 2007-05 jinqiu. All Rights Reserved.
' Last Update: 2007-05-15   HTTP://www.wapfs.net
'=================================================
%>
<%Response.ContentType = "text/vnd.wap.wml; charset=utf-8"%>
<!-- #include file="conn.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='no-cache'/>
</head>
<card title='友情链接'>  
<p mode='nowrap' >
<%
	dim rs,sql
        set rs = server.createobject("adodb.recordset")
	sql="select id,class from linkclass"
	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
		response.write "还没有任何栏目<br/>"
	else
	do while not rs.eof
%><a href='yqlj.asp?class=<% =rs("id") %>'><% =rs("class") %></a><br/> 
<%  
        rs.movenext  
	loop  
	end if  
	rs.close  
set rs=nothing
conn.close
set conn=nothing
%>-----------<br/>
<a href='zjlj.asp'>自助增加</a>
<br/><a href='index.asp'>&#x8FD4;&#x56DE;&#x9996;&#x9875;</a>
</p>
</card>
</wml>

⌨️ 快捷键说明

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