旅游数据填报系统

<% TABBG1="images\index012.jpg" TABBG2="images\index012.jpg" 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 %> 旅游数据填报系统



	永定区旅游数据填报系统
	如果您已在首页登陆请:
	点击进入

张家界永定区人民欢迎四方宾客！

返回上页返回首页　

永定区政府旅游促销奖励网上填报数据方法

一、由自愿参加此项活动的旅行社、景区点向永定区旅游局(或电话\或传真)申领网上填报数据的权限,得到权限后,可登陆张家界旅游电子信息平台(www.zjjly.com.cn).

二、在”张家界旅游电子信息平台”首页点击”登陆”项,填入用户名和密码,以管理员身份进入”政务”栏目,打开其子栏目”数据填报”,便可在其页面中的”发布” 项里填报数据.

三、数据填报后,不能更改.如填报有误,请电话通知区旅游局网管更改. 网管电话:8222904,网管员:吴友明 ;负责人:李祥国(电话:8282155)

<% 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 "

" Response.Write "" Response.Write " " Response.Write " " ' 以上是显示一个项目的头部分 Response.Write "

" Response.Write " "&mid(menu(i,1),4,50)&"" Response.Write "

" else Response.Write "

" end if '以下是显示一个项目的内容部分 Response.Write "

"&readtext("gx/IN"&i&".htm")&"

" ' 以上显示一个项目 if ii<>ls then i=i+1 next Response.Write "

" 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 "

" Response.Write "" Response.Write " " Response.Write "

" Response.Write " "&mid(menu(i,1),4,50)&"" Response.Write "

" '以上是显示一个项目的头部分 else Response.Write "

" end if '以下是显示一个项目的内容部分 Response.Write "

"&readtext("gx/cIN"&i&".htm")&"

" '以上显示一个项目 if ii<>ls then i=i+1 next if i=menu(0,3) then end if Response.Write "

" next END SUB function CMENU() '反回所有设置有要在首页更新的子栏目 sql="select * from menu where 不准复制=1 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 disp_PHB(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 %>/*