adminadd.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=""addtopic.asp"">")
			Response.Write("<TABLE BORDER=""0"" CELLPADDING=""1"" bgcolor=" & detailcolor & ">")
			Response.Write("<TR><TD>目前存在的目录</TD>")
			Response.Write("<TD>&nbsp;<SELECT NAME=" & chr(34) & "Topics" & chr(34) & "SIZE=1>")
			
				If rs.EOF THEN
					Response.Write("<OPTION>没有存在的目录</OPTION>")
				Else
					Do While Not rs.EOF
						Response.Write("<OPTION VALUE=" & chr(34) & rs.fields("ID") & chr(34)& ">" & rs.fields("CategoryName") & "</OPTION>")
						rs.MoveNext		
					Loop
				End If 
		Response.Write("</SELECT></TD></TR>")
		Response.Write("<TR><TD> 添加的目录名称: </TD>")
		Response.Write("<TD>&nbsp;<INPUT TYPE=""TEXT"" NAME=""topicadd"">&nbsp;<INPUT TYPE=""SUBMIT"" VALUE=""添加""></TD></TR></TABLE>")
		Response.Write("</FORM>")			
	rs.Close
	Set rs = Nothing
	Call CloseDBConn
	Call DoPageFooter
Else
	Response.Redirect "adminlogin.asp"
End If




%>