📄 categorylist.asp

📁 电子投标系统

💻 ASP

字号:

<%@ LANGUAGE="VBSCRIPT" %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="NetObjects ScriptBuilder 2.0">
<META HTTP-EQUIV="Content-Type" content="text/html; charset=iso-8859-1">
<TITLE>Document Title</TITLE>
</HEAD>
<BODY>

<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=332 NOF="LayoutRegion1">
	<TR VALIGN=TOP ALIGN=LEFT>
   	<TD WIDTH=73 HEIGHT=47><IMG SRC="./clearpixel.gif" WIDTH=73 HEIGHT=1 BORDER=0></TD>
   	<TD WIDTH=259><IMG SRC="./clearpixel.gif" WIDTH=259 HEIGHT=1 BORDER=0></TD>
   </TR>
   <TR VALIGN=TOP ALIGN=LEFT>
   	<TD></TD>
      <TD WIDTH=259><P><I><FONT SIZE="+3" FACE="Lucida Console"><B>Categories</B></FONT></I></TD>
   </TR>
</TABLE>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 NOF="LayoutRegion1">
	<TR VALIGN=TOP ALIGN=LEFT>
   	<TD WIDTH=25 HEIGHT=23><IMG SRC="./clearpixel.gif" WIDTH=25 HEIGHT=1 BORDER=0></TD>
      <TD></TD>
   </TR>
   <TR VALIGN=TOP ALIGN=LEFT>
   	<TD></TD>
	   <TD WIDTH=376>
   <TABLE ID="Table6" BORDER=0 CELLSPACING=3 CELLPADDING=1 WIDTH=376>
             <%
					Dim dbconn2,dbRec3
					Dim Row,id,name
					Set dbconn2 = Server.CreateObject("ADODB.Connection")
					dbconn2.open "BidBase","scott","tiger"
					Set dbRec3 = Server.CreateObject("ADODB.Recordset")
					dbRec3.Open "Select * from category order by category_name" ,dbconn2
					Response.Write "<TR>"
					Row=0
						Do While Not dbRec3.EOF 
						id=dbRec3("category_id")
						name=dbRec3("category_name")
						Response.Write "<TD WIDTH=181><P><A HREF='./body_category.asp?category="&id&"'>"& name&"</A></TD>"
						Row=Row+1
						if Row = 5 then
							Response.Write "</TR> <TR>"
							Row=0
						end if
						dbRec3.MoveNext
					loop
					if Row <> 0 then
						Response.Write "</TR>"
					end if
					dbRec3.close
					dbconn2.close
				  %>
      	</TABLE>
   	</TD>
	</TR>
</TABLE>


</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -