www.gusucode.com > 艺术签名文章资讯网源代码 > 艺术签名文章资讯网源代码/624/GuestBook/config.asp

    <!--#include file="../conn.asp"-->
<!--#include file="../inc/const.asp"-->
<!--#include file="../inc/cls_public.asp"-->
<%
Dim ChannelID,HtmlContent,ChannelRootDir,FoundErr,ErrMsg,strIndexName
FoundErr = False
ChannelID = 4
Newasp.ReadChannel(ChannelID)
ChannelRootDir = Newasp.InstallDir & Newasp.ChannelDir
strIndexName = "<a href=""" & Newasp.InstallDir & Newasp.ChannelDir & """>" & Newasp.ChannelName & "</a>"
'=============================================================
'函数名：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
%>