"
End If
End Function
Function WebLocation()
WebLocation = "会员中心 "&vbCrLf
End Function
Function MemGroup(GroupID)
Dim rs, sql
Set rs = server.CreateObject("adodb.recordset")
sql = "select * from Qianbo_MemGroup where GroupID='"&GroupID&"'"
rs.Open sql, conn, 1, 1
MemGroup = rs("GroupName")
rs.Close
Set rs = Nothing
End Function
%>