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 + -
显示快捷键?