func.inc

一路飞扬在线同学录单班级版,主要用于个人系统中的同学录,不过对于学习有帮助!

<%
function allphotoes(keytype) 
if keytype="all" then
	tmprs=conn.execute("Select count(picid) from [classpic]")
else
	tmprs=conn.execute("Select count(picid) from [classpic] where type='"&keytype&"'")
end if
	allphotoes=tmprs(0) 
	set tmprs=nothing 
	if isnull(allphotoes) then allphotoes=0 
end function 

function allrec(tabname) 
	tmprs=conn.execute("Select count(id) from ["&tabname&"]")

	allrec=tmprs(0) 
	set tmprs=nothing 
	if isnull(allrec) then allrec=0 
end function

function allprivate(tabname,geter) 
	tmprs=conn.execute("Select count(id) from ["&tabname&"] where geter='"&geter&"'")

	allprivate=tmprs(0) 
	set tmprs=nothing 
	if isnull(allprivate) then allprivate=0 
end function

function  lastone(tabname,keyword,myorder)
set tmprs=conn.execute("select "&keyword&" from ["&tabname&"] order by '"&myorder&"' desc")
if tmprs.eof then
lastone="暂无"
else
lastone=tmprs(0)
end if
set tmprs=nothing
end function

function isuser(userid,password)
	dim sql
	sql="select userid from txluser where userid='"&userid&"' and password='"&password&"'"
	set rs=Server.CreateObject ("ADODB.Recordset")
	rs.open sql,conn,1,1
	if rs.eof or rs.bof then
	isuser=0
	else
	isuser=1
	end if
	rs.close
	set rs=nothing
end function

function isman(userid,password)
	dim sql
	sql="select manclass from txluser where userid='"&userid&"' and password='"&password&"'"
	set rs=Server.CreateObject ("ADODB.Recordset")
	rs.open sql,conn,1,1
	if rs.eof or bof then
	isman=0
	elseif  rs("manclass")=0 then
	isman=0
	else
	isman=1
	end if
	rs.close
	set rs=nothing
end function

%>