📄 11.asp

📁 我的小网站个人利用业余时间设计的

💻 ASP

字号:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body> 

<% 
set conn2=server.CreateObject("ADODB.connection") 
 path=Server.MapPath("AnswerData.mdb")
conn2.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&path

Set rs =server.CreateObject("ADODB.Recordset")
 rs.open "select * from xinqing",conn2,1,1 
If rs.eof Then 
response.Write"数据表为空" 
else
page=request.querystring("page")
rs.PageSize=10
  if page<1 then page=1
  if page>rs.PageCount then  page=rs.PageCount
   rs.AbsolutePage=page 
End If 
%>
<%
             if  page<>1 then
			     response.write "<a href=11.asp?txtpage=1 class=link2>首页</a>&nbsp&nbsp"
				 response.write "<a href=11.asp?txtpage="&(page-1)&" class=link2>上一页</a>&nbsp&nbsp"
			 end if
			 if page<>rs.PageCount then
			    response.write "<a href=11.asp?txtpage="&(page+1)&" class=link2>下一页</a>&nbsp&nbsp"
				response.write "<a href=11.asp?txtpage="&rs.PageCount&" class=link2>尾页</a>"
			 end if 
			%>
 <%
for ipage=1 to rs.PageSize 
    newsTitle=replace(rs("title")," ","")
	if len(newsTitle)>20 then
	    newsTitle=left(newsTitle,19)&"..."
	  end if 
%>
<ul>
<li><a href="#" onMouseDown="MM_openBrWindow('11.asp?newsid=<%=rs("id")%>','','scrollbars=yes,width=720,height=500')" class="link2"><%=newsTitle%></a></li>
</ul>
<%
	rs.movenext
	if  rs.eof  then
		Exit  for
	end if
next
 rs.close
 set rs=nothing
 %>

<br>
</body> 
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -