📄 xianshi_news.asp

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

💻 ASP

字号:

<html>
<head>
<title>显示新闻</title>
</head>
<body background="image/back.gif">
<%				 
		   Set conn= Server.CreateObject("ADODB.Connection")
                   Path=Server.MapPath("AnswerData.mdb")
                   conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Path
                   boardSql="select * from news where title"
				   Set RStb1List = conn.Execute(boardSql)				                     
				   %>
             <form action="delete_news.asp" method="post">
                  <table border="0">
				   <% Do While Not RStb1List.EOF %> 				  
				  <TR>
               <TD  ALIGN=CENTER > 
               <FONT STYLE="ARIAL NARROW" SIZE=4 color="#CC33FF"> 
			   <%=RStb1List("title")%>
                </FONT></TD>
          
				<td><input type="checkbox" name="title" value="<%=RStb1List("title")%>"></td>
				</tr>				   
				   <%
				   RStb1List.movenext
				   loop		
				   %>
				   </table>
	               <input type="submit" name="delete" value="删除"><input type="reset" name="parden_chose" value="重选">
				   </form> 
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -