<!--#include file="../conns.asp"-->
<!--#include file="../inc/const.asp"-->
<!--#include file="../inc/cls_public.asp"-->
<%
Dim ChannelID,HtmlContent,ChannelRootDir,FoundErr,ErrMsg
FoundErr = False
ChannelID = 4
Newasp.ReadChannel(ChannelID)
ChannelRootDir = Newasp.InstallDir & Newasp.ChannelDir
'=============================================================
'函数名：GuestStation
'作  用：取留言者的身份
'参  数：userid   ----用户ID
'=============================================================
Function GuestStation(ByVal userid)
	On Error Resume Next
	If userid = 0 Or Not IsNumeric(userid) Then
		GuestStation = "游客"
		Exit Function
	End If
	Dim rsUser,sqlUser
	sqlUser = "SELECT UserGroup FROM NC_User WHERE userid ="& userid
	Set rsUser = Newasp.Execute(sqlUser)
	If rsUser.BOF And rsUser.EOF Then
		GuestStation = "游客"
		Set rsUser = Nothing
		Exit Function
	End If
	GuestStation = rsUser("UserGroup")
	Set rsUser = Nothing
End Function
%>
