📄 usercategorylist.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 ID="Table6" BORDER=0 CELLSPACING=3 CELLPADDING=1 WIDTH=376>
             <%
					Dim dbconnUserCat,dbRecUserCat
					Dim Row,id,name
					Set dbconnUserCat = Server.CreateObject("ADODB.Connection")
					dbconnUserCat.mode=adModeRead
					dbconnUserCat.open "BidBase","scott","tiger"
					Set dbRecUserCat = Server.CreateObject("ADODB.Recordset")
					dbRecUserCat.Open "Select * from category order by category_name" ,dbconnUserCat
					Response.Write "<TR>"
					Row=0
						Do While Not dbRecUserCat.EOF 
						id=dbRecUserCat("category_id")
						name=dbRecUserCat("category_name")
						Response.Write "<TD WIDTH=181><P><A HREF='./body_category.asp?category="&id&"' TARGET='body'>"& name&"</A></TD>"
						Row=Row+1
						if Row = 5 then
							Response.Write "</TR> <TR>"
							Row=0
						end if
						dbRecUserCat.MoveNext
					loop
					if Row <> 0 then
						Response.Write "</TR>"
					end if
					dbRecUserCat.close
					dbconnUserCat.close
				  %>
      	</TABLE>
</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -