📄 config.asp
字号:
<!--#include file="../conn.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
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -