xianshi_news.asp

来自「我的小网站个人利用业余时间设计的」· ASP 代码 · 共 33 行

ASP
33
字号
<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 + =
减小字号Ctrl + -
显示快捷键?