dll.asp

全能学校管理网站源码,小草网络提供,下载试用下

IF rs.eof and rs.bof Then
Response.Write("&nbsp;下一"&dw&"：<font color=red>没有下一条记录</font>")
else
Response.Write("&nbsp;下一"&dw&"：<a href="""&page&".asp?id="&rs("id")&""">"&rs("title")&"</a>")
end IF
rs.close
Set rs=Nothing
call br()
end sub
function browser(info)
    if Instr(info,"NetCaptor 6.5.0")>0 then
        browser="NS 6.5.0"
    elseif Instr(info,"MyIe 3.1")>0 then
        browser="遨游 3.1"
    elseif Instr(info,"NetCaptor 6.5.0RC1")>0 then
        browser="NS 6.5.0RC1"
    elseif Instr(info,"NetCaptor 6.5.PB1")>0 then
        browser="NS 6.5.PB1"
    elseif Instr(info,"MSIE 5.5")>0 then
        browser="IE 5.5"
    elseif Instr(info,"MSIE 6.0")>0 then
        browser="IE 6.0"
    elseif Instr(info,"MSIE 6.0b")>0 then
        browser="IE 6.0b"
    elseif Instr(info,"MSIE 5.01")>0 then
        browser="IE 5.01"
    elseif Instr(info,"MSIE 5.0")>0 then
        browser="IE 5.00"
    elseif Instr(info,"MSIE 4.0")>0 then
        browser="IE 4.01"
    else
        browser="其它"
    end if
end function
function system(info)
    if Instr(info,"NT 5.1")>0 then
        system=system+"Windows XP"
    elseif Instr(info,"Tel")>0 then
        system=system+"Telport"
	elseif Instr(info,"webzip")>0 then
        system=system+"webzip"
	elseif Instr(info,"flashget")>0 then
        system=system+"flashget"
	elseif Instr(info,"offline")>0 then
        system=system+"offline"
    elseif Instr(info,"NT 5.2")>0 then
        system=system+"Windows 2003"
    elseif Instr(info,"NT 5")>0 then
        system=system+"Windows 2000"
    elseif Instr(info,"NT 4")>0 then
        system=system+"Windows NT4"
    elseif Instr(info,"98")>0 then
        system=system+"Windows 98"
    elseif Instr(info,"95")>0 then
        system=system+"Windows 95"
	elseif instr(info,"unix") or instr(info,"linux") or instr(info,"SunOS") or instr(info,"BSD") then
	    system=system+"类Unix"
    elseif instr(thesoft,"Mac") then
	    system=system+"Mac"
    else
        system=system+"其它"
    end if
end function
if username="" then
web58818user="游客"
else
web58818user=username
end if
call sqlonline()
sub web58818online()
Response.Write"<a href=showonline.asp><font class=othernav>全部在线<strong>："&online()&"</strong>人</font></a>"
Response.Write"&emsp;<a href=showonline.asp><font class=othernav>游  客<strong>："
online_0()
Response.Write"</strong>人</font></a>"
Response.Write"&emsp;<a href=showonline.asp><font class=othernav>会  员<strong>："
online_1()
Response.Write"</strong>人</font></a>"
end sub
sub sqlonline()
dim statuserid
statuserid=replace(Request.ServerVariables("REMOTE_HOST"),".","")	
Response.Cookies("mesky")("onlineid")=statuserid
sql="select id from [YC_online] where id="&cstr(request.cookies("mesky")("onlineid"))
set rs=conn.execute(sql)
if rs.eof and rs.bof then
sql="insert into YC_online(id,UserName,ip,startime,lastimebk,browser,actforip) values ("&statuserid&",'"&web58818user&"','"&Request.ServerVariables("REMOTE_HOST")&"',now(),now(),'"&Request.ServerVariables("HTTP_USER_AGENT")&"','"&Request.ServerVariables("HTTP_X_FORWARDED_FOR")&"')"
else
sql="update [YC_online] set lastimebk=now(),UserName='"&web58818user&"' where id="&cstr(request.cookies("mesky")("onlineid"))
end if
conn.execute(sql)
set rs=nothing
Rem 删除超时用户
sql="Delete FROM YC_online WHERE DATEDIFF('s', lastimebk, now()) > "&kicktime&"*60"
Conn.Execute sql
end sub
function online()
dim tmprs
sql="Select count(ID) from YC_online"
set tmprs=conn.execute(sql) 
online=tmprs(0) 
set tmprs=nothing 
if isnull(online) then online=0
end function
function online_0()
sql="Select * from [YC_online] where UserName='游客'"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
name=rs.recordcount
response.write name
rs.close
set rs=nothing
end function
function online_1()
sql="Select * from [YC_online] where UserName<>'游客'"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
name=rs.recordcount
response.write name
rs.close
set rs=nothing
end function
'◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆
'◆过程名：web58818class                  ◇
'◇功  能：前台显示栏目分类            ◆
'◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇
sub web58818class(table,url)
set rs=server.CreateObject("adodb.recordset")
sql="select * from "&table&" where class=0"
rs.open sql,conn,1,1
if not rs.bof and not rs.eof then
do while not rs.eof
set rs1=server.CreateObject("adodb.recordset")
sql1="select * from "&table&" where class="&rs("id")&""
rs1.open sql1,conn,1,1
response.Write "&emsp;<img src=img/+.gif>&nbsp;"
if request.querystring("action")="small" and request.querystring("id")=""&rs("id")&"" then
response.Write "<font color=red>"&rs("classname")&"</font><br>"
else
response.write "<a href='"&url&".asp?action=small&id="&rs("id")&"'>"&rs("classname")&"</a><br>"
end if
if not rs1.bof and not rs1.eof then
do while not rs1.eof
response.write "&emsp;<img src='img/+-.gif'><img src='img/-.gif' align=absmiddle>&nbsp;"
if request.querystring("class")=""&rs1("id")&"" then
response.write "<font color=red>"&rs1("classname")&"</font><br>"
else
response.write "<a href='"&url&".asp?action=list&class="&rs1("id")&"'>"&rs1("classname")&"</a><br>"
end if
rs1.movenext
loop
end if
rs1.close
set rs1=nothing
rs.movenext
loop
else
response.write "<center><font color=red><b>没有任何分类！<b></font></center>"
end if
rs.close
set rs=nothing
end sub
'作用：各个版块栏目的显示
function bigclass(bigclassname,url)
'启动分类表，抓取一级分类
set rsbig=server.CreateObject("adodb.recordset")
bigsql="select * from ["&bigclassname&"] where class=0"
rsbig.open bigsql,conn,1,1
if not rsbig.bof and not rsbig.eof then
do while not rsbig.eof
response.write"<table border='0' cellspacing='0' cellpadding='0'><tr><td class='righttopleft'></td><td class='righttopcenter'>&emsp;<a href='"&url&".asp?action=small&id="&rsbig("id")&"'>"&rsbig("classname")&"</a><span style='width=400'></span><a href='"&url&".asp?action=small&id="&rsbig("id")&"'><font class=othernav>更多……</font></a></td></tr></table>"&vbCrLf
select case bigclassname
       case "YC_newsclass"
call newsclass(rsbig("id"),1)

       case "YC_artclass"
call artclass(rsbig("id"),1)

       case "YC_downclass"
call downclass(rsbig("id"),1)

       case "YC_picclass"
call picclass(rsbig("id"),1)

       case "YC_djclass"
call djclass(rsbig("id"),1)		   
end select
rsbig.movenext
loop
else
response.write "<center>目前没有任何分类！</center>" & vbCrLf
end if
rsbig.close
set rsbig=nothing
'抓取一级分类停止，释放资源
end function
'二级版块的显示
function smallclass(smallclassname,url,smallclassid)
set rssmall=server.CreateObject("adodb.recordset")
smallsql="select * from ["&smallclassname&"] where class="&smallclassid&""
rssmall.open smallsql,conn,1,1
if not rssmall.bof and not rssmall.eof then
do while not rssmall.eof
response.write"<table border='0' cellspacing='0' cellpadding='0'><tr><td class='righttopleft'></td><td class='righttopcenter'>&emsp;<a href='"&url&".asp?action=list&class="&rssmall("id")&"'>"&rssmall("classname")&"</a><span style='width=400'></span><a href='"&url&".asp?action=list&class="&rssmall("id")&"'><font class=othernav>更多……</font></a></td></tr></table>"&vbCrLf
select case smallclassname
     case "YC_newsclass"
call newsclass(rssmall("id"),2)
     case "YC_artclass"
call artclass(rssmall("id"),2)
     case "YC_downclass"
call downclass(rssmall("id"),2)
     case "YC_picclass"
call picclass(rssmall("id"),2)
     case "YC_djclass"
call djclass(rssmall("id"),2)	   
end select
rssmall.movenext
loop
else
response.write "<center>没有任何分类！</center>" & vbCrLf
end if
rssmall.close
set rssmall=nothing
end function
'启动新闻内容
sub newsclass(classid,classdj)
if classdj=1 then
  listsql="select top 10 * from [YC_news] where bigclass="&classid&" and pass=true order by id DESC"
else
  listsql="select top 10 * from [YC_news] where class="&classid&" and pass=true order by id DESC"
end if
set rslist=server.createobject("adodb.recordset")
rslist.open listsql,conn,1,1
web58818CMS("<table border='0' cellspacing='0' cellpadding='0'><tr><td class='rightcenterleft'></td><td class='rightcentercenter' valign='top'>")
web58818CMS("<table id=web58818table cellspacing='0' cellpadding='0' border=1 bordercolor=#C2CCE3 class='rightcentercenter' width='100%' rules=rows frame=void>")
if not rslist.bof and not rslist.eof then
do while not rslist.eof
YC("<tr><td height=22 width='80%'>·")
if classdj=1 then
YC("[")
call myclass("YC_newsclass","news",rslist("class"))
YC("]&nbsp;")
end if
web58818CMS("<a href=shownews.asp?id="&rslist("id")&" target=news title='新闻名称："&rslist("title")&"<br>发布会员："&rslist("user")&"<br>发布日期："&rslist("date")&"<br>点击次数："&rslist("click")&"'>"&YC_Kill_Word(rslist("title"),30)&"</a>&nbsp;")
if rslist("best")=true then
web58818CMS("『<font color=red>推荐</font>』 ")
end if
web58818CMS("</td><td aalign=center width='5%'>"&rslist("click")&"</td><td width='15%'>"&rslist("date")&"</td></tr>")
rslist.movenext
loop
else
web58818CMS("<tr><td  height=100 align=center>暂时没有新闻！</td></tr>")
end if
web58818CMS("</table></TD></TR></table><table border='0' cellspacing='0' cellpadding='0'><tr>")
web58818CMS("<td class='rightfootleft'></td><td class='rightfootcenter'></td></tr></table>")
call br()
rslist.close
set rslist=nothing
end sub
'启动文章内容
sub artclass(classid,classdj)
if classdj=1 then
  listsql="select top 15 * from [YC_art] where bigclass="&classid&" and pass=true order by id DESC"
else
  listsql="select top 10 * from [YC_art] where class="&classid&" and pass=true order by id DESC"
end if
set rslist=server.createobject("adodb.recordset")
rslist.open listsql,conn,1,1
web58818CMS("<table border='0' cellspacing='0' cellpadding='0'><tr><td class='rightcenterleft'></td><td class='rightcentercenter' valign='top'> ")
web58818CMS("<table id=web58818table cellspacing='0' cellpadding='0' border=1 bordercolor=#C2CCE3 class='rightcentercenter' width='100%' rules=rows frame=void>")
if not rslist.bof and not rslist.eof then
do while not rslist.eof
YC("<tr><td height=22 width='80%'>·")
if classdj=1 then
YC("[")
call myclass("YC_artclass","art",rslist("class"))
YC("]&nbsp;")
end if
web58818CMS("<a href='showart.asp?id="&rslist("id")&"' target=_blank><font color='"&rslist("color")&"' TITLE='文章标题："&rslist("title")&"<br>文章作者："&rslist("writer")&"<br>发表会员："&rslist("user")&"<br>文章版权："&rslist("copyright")&"<br>发表日期："&rslist("date")&"<br>点击次数："&rslist("click")&"次'>"&YC_Kill_Word(rslist("title"),30)&"</font></a>")
if rslist("best")=true then
web58818CMS("『<font color=red>推荐</font>』")
end if
web58818CMS("</td><td aalign=center width='5%'>"&rslist("click")&"</td><td width='15%'>"&rslist("date")&"</td></tr>")
rslist.movenext
loop
else
web58818CMS("<tr><td  height=100 align=center>暂时没有文章！</td></tr>")
end if
web58818CMS("</table></TD></TR></table><table border='0' cellspacing='0' cellpadding='0'><tr>")
web58818CMS("<td class='rightfootleft'></td><td class='rightfootcenter'></td></tr></table>")
call br()
rslist.close
set rslist=nothing
end sub
 '启动下载内容
sub downclass(classid,classdj)
if classdj=1 then
  listsql="select top 15 * from [YC_down] where bigclass="&classid&" and pass=true order by id DESC"
else
  listsql="select top 10 * from [YC_down] where class="&classid&" and pass=true order by id DESC"
end if
set rslist=server.createobject("adodb.recordset")
rslist.open listsql,conn,1,1
web58818CMS("<table border='0' cellspacing='0' cellpadding='0'><tr><td class='rightcenterleft'></td><td class='rightcentercenter' valign='top'>")
web58818CMS("<table id=web58818table cellspacing='0' cellpadding='0' border=1 bordercolor=#C2CCE3 class='rightcentercenter' width='100%' rules=rows frame=void>")
if not rslist.bof and not rslist.eof then
do while not rslist.eof
YC("<tr><td height=22 width='80%'>·")
if classdj=1 then
YC("[")
call myclass("YC_downclass","down",rslist("class"))
YC("]&nbsp;")
end if
web58818CMS("<a href='showdown.asp?id="&rslist("id")&"' target=_blank><font color='"&rslist("color")&"' TITLE='下载名称："&rslist("title")&"<br>推荐程度："&rslist("commend")&"<br>文件大小："&rslist("size")&"<br>发表会员："&rslist("user")&"<br>发表日期："&rslist("date")&"<br>点击次数："&rslist("click")&"次<br>下载次数："&rslist("downclick")&"次'>"&YC_Kill_Word(rslist("title"),30)&"</font></a>")
if rslist("best")=true then
web58818CMS("『<font color=red>推荐</font>』")
end if
web58818CMS("</td><td aalign=center width='5%'>"&rslist("click")&"</td><td width='15%'>"&rslist("date")&"</td></tr>")
rslist.movenext
loop
else
web58818CMS("<tr><td  height=100 align=center>暂时没有下载资源！</td></tr>")
end if
web58818CMS("</table></TD></TR></table><table border='0' cellspacing='0' cellpadding='0'><tr>")
web58818CMS("<td class='rightfootleft'></td><td class='rightfootcenter'></td></tr></table>")
call br()
rslist.close
set rslist=nothing
end sub	  
 '启动图片内容
sub picclass(classid,classdj)
if classdj=1 then
  listsql="select top 4 * from [YC_pic] where bigclass="&classid&" and pass=true order by id DESC"
else
  listsql="select top 4 * from [YC_pic] where class="&classid&" and pass=true order by id DESC"
end if
set rslist=server.createobject("adodb.recordset")
rslist.open listsql,conn,1,1
web58818CMS("<table border='0' cellspacing='0' cellpadding='0'><tr><td class='rightcenterleft'></td><td class='rightcentercenter' v