shopselect.asp

来自「校园二手交易系统,具有完备的后台操作以及应用功能!」· ASP 代码 · 共 18 行

<%
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
%>