📄 update_xinqing1.asp

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

💻 ASP

字号:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<%				 
		           Set conn= Server.CreateObject("ADODB.Connection")
                   Path=Server.MapPath("AnswerData.mdb")
                   conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Path		                     
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>心情一</title>
</head>

<body>
<div align="center">
<table width="720">
<tr>
<td width="180" height="200" align="center">
<% 
 boardSql="select PageId from xinqing where id<11"
 Set RSxinqingList=conn.Execute(boardSql)		
Do While Not RSxinqingList.EOF 
%>
<ul>
<li><a href="updatexinqing.asp?PageId=<%=RSxinqingList("PageId")%>"><%=RSxinqingList("PageId")%></a></li><br>
</ul>
<%
				   RSxinqingList.movenext
				   loop				   	
				   %></td>
<td width="180">
<% 
 boardSql="select PageId from xinqing where id>10 and id<21"
 Set RSxinqingList=conn.Execute(boardSql)		
Do While Not RSxinqingList.EOF 
%>
<ul>
<li><a href="updatexinqing.asp?PageId=<%=RSxinqingList("PageId")%>"><%=RSxinqingList("PageId")%></a></li><br>
</ul>
<%
				   RSxinqingList.movenext
				   loop				   	
		%>
</td>
<td width="180">
<% 
 boardSql="select PageId from xinqing where id>30 and id<41"
 Set RSxinqingList=conn.Execute(boardSql)		
Do While Not RSxinqingList.EOF 
%>
<ul>
<li><a href="updatexinqing.asp?PageId=<%=RSxinqingList("PageId")%>"><%=RSxinqingList("PageId")%></a></li><br>
</ul>
<%
				   RSxinqingList.movenext
				   loop				   	
		%>
</td>
<td width="180">
<% 
 boardSql="select PageId from xinqing where id>30 and id<41"
 Set RSxinqingList=conn.Execute(boardSql)		
Do While Not RSxinqingList.EOF 
%>
<ul>
<li><a href="updatexinqing.asp?PageId=<%=RSxinqingList("PageId")%>"><%=RSxinqingList("PageId")%></a></li><br>
</ul>
<%
				   RSxinqingList.movenext
				   loop				   	
		%>
</td>
</tr>
</table>
</div>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -