admindeletetopic.asp

这是ASP使用的经典例子,非常适合于学习使用

<!-- #include file="..\auctionlib.asp" -->
<!-- #include file="admconfig.asp" -->
<%

If IsLoggedOn Then
	Call DoPageHeader
	Call OpenDBConn
	sSQL="SELECT ID, CategoryName FROM Categories ORDER BY CategoryName"
	Set rs = GobjConnect.Execute(sSQL)
	Response.Write("<FONT FACE =" & chr(34) & sFont & chr(34) & ">")
	Response.Write("<BIG>删除拍卖目录</BIG>")
			Response.Write("<FORM METHOD=""POST"" ACTION=""deletetopic.asp"">")
			Response.Write("<TABLE BORDER=""0"" CELLPADDING=""3"">")
			Response.Write("<TR><TD>删除拍卖目录</TD>")
				If rs.EOF THEN
					Response.Write("<TD>No Topics to Delete</TD><TD>&nbsp;</TD>")
				Else
					Response.Write("<TD>")
					Response.Write("<SELECT NAME=""Topics"" SIZE=""1"">")
					Do While Not rs.EOF
						Response.Write("<OPTION VALUE=" & chr(34) & rs.fields("ID") & chr(34)& ">" & rs.fields("CategoryName") & "</OPTION>")
						rs.MoveNext		
					Loop
					Response.Write("</SELECT></TD>")
					Response.Write("<TD><INPUT TYPE=""SUBMIT"" VALUE=""删除""></TD>")
				End If
			
			Response.Write("</TR>")
			Response.Write("<TR><TD COLSPAN=""3""><SMALL><FONT COLOR=""RED"">记得删除拍卖目录也会同时删除所有的拍卖和出价记录</FONT></SMALL></TD></TR>")
			Response.Write("</TABLE>")
			Response.Write("<IMG border=""0"" SRC=""http://www.responsewrite.com/pics/0006.gif"">")
			Response.Write("</FORM>")
	rs.Close
	Set rs = Nothing		
	Call DoPageFooter
	Call CloseDBConn
Else
	Response.Redirect "adminlogin.asp"
End If


%>