shopselect.asp

本源代码为大学生购物网的源代码,欢迎大家的下载,学习与交流

<%
Function ShopSelect()
  Dim Strsq8,Rs8
  SET Rs8=Server.CreateObject("Adodb.Recordset")
  Strsq8="SELECT ID,Name FROM [typ] ORDER BY Taxis ASC"
  Rs8.Open Strsq8,conn,1,1
  IF NOT Rs8.EOF AND NOT Rs8.BOF THEN
    ShopSelect=empty
    DO WHILE NOT Rs8.EOF
	  ShopSelect=ShopSelect&"<option value='"& Rs8(0) &"'>"& Rs8(1) &"</option>"
	  Rs8.MoveNext
	Loop
	Rs8.Close
	SET Rs8=Nothing
  END IF
  ShopSelect=ShopSelect
END Function
%>