滇兰在线

<% if date<>cdate(gxdate) then response.redirect "system/newindex.asp" usna=REQUEST.COOKIES("USERname") if usna<>"" and session("username")="" then response.redirect "system/user/autologin.asp" end if %> 滇兰在线

<% Response.Write year(date)&"年"&month(date)&"月" Response.Write day(date)&"日　" select case weekday(date) case 1: Response.Write "星期日" case 2: Response.Write "星期一" case 3: Response.Write "星期二" case 4: Response.Write "星期三" case 5: Response.Write "星期四" case 6: Response.Write "星期五" case 7: Response.Write "星期六" end select%>

....最新公告....

....用户登录....

<% if session("username")="" then%>

姓名:
密码:

<%else CS=REQUEST.COOKIES("USERCS") Response.Write " 您好：
　"&session("username")&" "&session("userdsf")&"
感谢您第"&CS&"次登录
" Response.Write "　注销登录 " Response.Write "控制面板
" IF SESSION("USERDSF")<>"用户" THEN 'Response.Write "
" Response.Write "　审核用户" Response.Write " 管理网站
" END IF end if %>

....兰友俱乐部....

   供求信息
   本站现有文章<%=filezs%>篇
   注册用户<%=USERzs%>人
   被访问次
   当前在线<%=application("online")%>人
   网站地图

....首页链接....

兰友精品

<% Response.Write "" IN5LR= READTEXT("GX\IN5.HTM") in5lr=replace(lcase(in5lr),"
","|") in5=split(in5lr,"|") for i=0 to ubound(in5) if in5(i)="" then exit for Response.Write "" for ii=0 to 2 Response.Write "" i=i+1 if i> ubound(in5) then exit for if in5(i)="" then exit for next Response.Write "" next Response.Write "

"&in5(i)&"

" %>

<% CALL menuCindisp("单") '用来显示所有单独挑选出来单独显示的子栏目 %>

养兰用品：精品推荐兰花药品兰花肥料兰花书籍购买方法

...... 兰市行情 ......

...... 兰友家园 ......

...... 养兰心得 ......

...... 供求信息 ......

<% conn.close set conn=nothing function ReadText(FileName) '这是一个用于读出文本文件的函数 set adf=server.CreateObject("Adodb.Stream") if instr(filename,":\")<>0 then path=filename else path=server.MapPath(FileName) end if with adf .Type=2 .LineSeparator=13 .Open .LoadFromFile (path) .Charset="GB2312" .Position=2 ReadText=.ReadText .Cancel() .Close() end with set adF=nothing end function function downmenulist(Mn1,Mjb) '此函数用于检测某一栏目下的一级子栏目列表,如有子栏目,存于一数量中,如没有,返回为空,第一个参数是栏目名,第二个是栏目级别 MJB=MJB MN=MN1 dim rsdown1 dim mymenulist(100,6) sql="select id,menuname,栏目管理员,挂接表,不准复制,栏目简介 from menu where menuup='"&Mn&"' and jb='"&Mjb&"' order by menuname" Set rsdown1=Server.CreateObject("ADODB.RecordSet") 'Response.Write sql rsdown1.Open sql,conn,1,1 if rsdown1.eof then mymenulist(0,1)="" else i=0 '以下为四个反回的四列,第一列,栏目名,第二,ID,第三,管理员,第四,是否可复制,第五,栏目简介,第六,挂接的表 do while not rsdown1.eof mymenulist(i,1)=rsdown1("menuname") mymenulist(i,2)=rsdown1("ID") mymenulist(i,3)=rsdown1("栏目管理员") mymenulist(i,4)=rsdown1("不准复制") mymenulist(i,5)=rsdown1("栏目简介") mymenulist(i,6)=rsdown1("挂接表") i=i+1 rsdown1.movenext loop end if rsdown1.close downmenulist=mymenulist end function SUB menuindisp(str,en,ls) '三个参数的意思分别是: 起始的栏目，结束的栏目,单列还是双列 menu=downmenulist("",1) if ls="单" then ls=1 else ls=2 end if for i=str to en Response.Write " " for ii=1 to ls if menu(i,1) ="" then exit for if bttou<>"YES" then Response.Write "" if ii<>ls then i=i+1 next Response.Write "

　　"&mid(menu(i,1),4,50)&"

"&menu(i,5)&"

" else Response.Write "

" end if Response.Write readtext("gx/IN"&i&".htm")&"

" next END SUB SUB menuCindisp(ls) '参数的意思单列还是双列 menu=CMENU() if ls="单" then ls=1 else ls=2 end if for i=0 to MENU(0,3) Response.Write " " for ii=1 to ls if menu(i,1) ="" then exit for if bttou<>"YES" then Response.Write "" if ii<>ls then i=i+1 next Response.Write "

　　"&mid(menu(i,1),4,50)&"

"&menu(i,5)&"

" else Response.Write "

" end if Response.Write readtext("gx/CIN"&i&".htm")&"

" next END SUB function CMENU() '反回所有设置有要在首页更新的子栏目 sql="select * from menu where 不准复制 order by menuname" Set rs1=Server.CreateObject("ADODB.RecordSet") rs1.Open sql,conn,1,1 DIM MEN(30,7) CI=0 DO WHILE NOT RS1.EOF MEN(CI,1)=RS1("MENUNAME") MEN(CI,2)=RS1("ID") men(ci,3)=rs1("栏目管理员") men(ci,4)=rs1("不准复制") men(ci,5)=rs1("栏目简介") men(ci,6)=rs1("挂接表") RS1.MOVENEXT CI=CI+1 LOOP MEN(0,3)=RS1.recordcount RS1.CLOSE CMENU=MEN END function sub dispmenu(str,en) '用来显示栏目导航 Response.Write " " for i=str to en Response.Write "" next Response.Write "

" Response.Write readtext("gx/menu"&i&".htm") Response.Write "

" end sub SUB dispfilePHB(SN) sql="select top "&sn&" * from filephb order by -filesn" Set rs1=Server.CreateObject("ADODB.RecordSet") rs1.Open sql,conn,1,1 Response.Write "" do while not rs1.eof Response.Write "" rs1.movenext loop Response.Write "

作者	发文数
"&RS1("USERname")&"	"&rs1("filesn")&"

" rs1.close end sub %>