getschool.asp

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

<%
Function GetSchool(str)
  Dim strsq7,rs7
  strsq7="select Name from [School] where ID="&Int(str)
  set rs7=conn.execute(strsq7)
  GetSchool=rs7(0)
  rs7.close
  set rs7=nothing
  GetSchool=GetSchool
End Function
%>