userview.asp

来自「程序名称：酷虎网校友录 V1.0 （商业版）*(修改版） * 本软体为商业软件」· ASP 代码 · 共 86 行

<%
Function UserView(IntValue)
SQL="SELECT * FROM 注册信息 Where ID=" & CInt(IntValue)
Set UserIDRS=Server.CreateObject("ADODB.Recordset")
UserIDRS.Open SQL,Conn,1,1
IF Not UserIDRS.EOF Then
	Response.Write UserIDRS("姓名")
End IF
Set UserIDRS=Nothing
End Function

Function ProView(IntValue)
SQL="SELECT * FROM 专业设置 Where ID=" & CInt(IntValue)
Set UserIDRS=Server.CreateObject("ADODB.Recordset")
UserIDRS.Open SQL,Conn,1,1
IF Not UserIDRS.EOF Then
	If IntValue=0 Then
	Response.Write "没有填写"
	Else
	Response.Write UserIDRS("专业名称")
	End IF
End IF
Set UserIDRS=Nothing
End Function


Function ClassUserS(IntValue)
SQL="SELECT * FROM 注册信息 WHERE 班别=" & CInt(IntValue)
Set UserIDRS=Server.CreateObject("ADODB.Recordset")
UserIDRS.Open SQL,Conn,1,1
Response.Write UserIDRS.RecordCount
Set UserIDRS=Nothing
End Function

Rem 设置性别头像
Function CheckSexImg(SexValue)
If SexValue="女" then
	Response.Write "images/girl.gif"
Else
	Response.Write "images/boy.gif"
End IF
End Function

Function CheckSex(SexValue)
If SexValue="女" then
	Response.Write "女"
Else
	Response.Write "男"
End IF
End Function

Function Whether(Name)
SQL="Select * From 注册信息 Where 姓名='"& Name &"' And 是否在线='线上' And Year(最后访问时间)=Year(now) And Month(最后访问时间)=Month(now) And Day(最后访问时间)=Day(Now) And Hour(最后访问时间)=Hour(Now) And Minute(Now)-Minute(最后访问时间)<20"
Set WhetherRS=Server.CreateObject("ADODB.Recordset")
WhetherRS.Open SQL,Conn,1,1
If WhetherRS.Eof Then
	Response.Write "<img border='0' src='images/offline.gif' width='55' height='11'>"
Else
	Response.Write "<img border='0' src='images/online.gif' width='55' height='11'>"
End IF
End Function

Function Whether1(Name)
SQL="Select * From 注册信息 Where 姓名='"& Name &"' And 是否在线='线上' And Year(最后访问时间)=Year(now) And Month(最后访问时间)=Month(now) And Day(最后访问时间)=Day(Now) And Hour(最后访问时间)=Hour(Now) And Minute(Now)-Minute(最后访问时间)<20"
Set WhetherRS=Server.CreateObject("ADODB.Recordset")
WhetherRS.Open SQL,Conn,1,1
If WhetherRS.Eof Then
	Response.Write "此人不在线"
Else
	Response.Write "此人在线上"
End IF
End Function

Function ViewOICQ(Name)
SQL="SELECT * FROM 注册信息 WHERE 姓名='" & Name & "'"
Set ViewOICQRS=Server.CreateObject("ADODB.Recordset")
ViewOICQRS.Open SQL,Conn,1,1
IF Not ViewOICQRS.EOF Then
	IF ViewOICQRS("OICQ")="0" Then
	Response.Write "无"
	Else
	Response.Write ViewOICQRS("OICQ")
	End IF
End IF
End Function
%>