getshopzu.asp

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

<%
Function GetShopZu(str)
  Dim strsq9,rs9
  strsq9="Select Name From [typ] where ID="&str
  Set Rs9=conn.execute(strsq9)
  GetShopZu=Rs9(0)
  Rs9.Close
  Set Rs9=Nothing
End Function
%>