📄 listform.asp

📁 admin/admin.asp是WAP的后台管理登陆页面

💻 ASP

字号:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<% Response.ContentType="text/vnd.wap.wml" %>
<!--#include file="conn.asp"-->
<!-- #include file="onlines.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 align='center'>
<br/><%
	dim rs,sql
	set rs=server.createobject("adodb.recordset")
	sql="select id,form from form where formid="&request("id")&" order by list"
 	rs.open sql,conn,1,1
 	if rs.bof and rs.eof then
	Response.write "还没有版块<br/>"
	else
	do while not rs.eof
%><a href='list.asp?id=<%=rs("id")%>&amp;shouji=<%=request("shouji")%>'><%=rs("form")%></a><br/>
<%
	rs.movenext
	loop
	end if
%>===========<br/>
<a href='bbs.asp?shouji=<%=request("shouji")%>'>论坛首页</a><br/>
<a href='../index.asp?shouji=<%=request("shouji")%>'>网站首页</a><br/>
</p></card></wml>
<% 
	rs.close
	set rs=nothing
	conn.close
	set conn=nothing
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -