userview.asp

这是一个校友录管理系统

<%
Function UserView(IntValue)
SQL="SELECT * FROM [user] Where ID=" & CInt(IntValue)
Set UserIDRS=Server.CreateObject("ADODB.Recordset")
UserIDRS.Open SQL,Conn,1,1
IF Not UserIDRS.EOF Then
	Response.Write UserIDRS("username")
End IF
Set UserIDRS=Nothing
End Function

Function ProView(IntValue)
SQL="SELECT * FROM specialty 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("specialty")
	End IF
End IF
Set UserIDRS=Nothing
End Function


Function ClassUserS(IntValue)
SQL="SELECT * FROM [user] WHERE class=" & 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 [user] Where username='"& Name &"' And online='线上' And Year(lastvst)=Year(now) And Month(lastvst)=Month(now) And Day(lastvst)=Day(Now) And Hour(lastvst)=Hour(Now) And Minute(Now)-Minute(lastvst)<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 [user] Where username='"& Name &"' And online='线上' And Year(lastvst)=Year(now) And Month(lastvst)=Month(now) And Day(lastvst)=Day(Now) And Hour(lastvst)=Hour(Now) And Minute(Now)-Minute(lastvst)<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 [user] WHERE username='" & 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
%>