<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% managemode dim action action=trim(request("action")) select case action case "add" add case "addok" addok case "del" del case "delok" delok case "edit" edit case "editok" editok case "editok1" editok1 case else response.write("") end select sub add %>

套餐名称：
套餐报价：	请用统一简结格式：XXXRMB/人、XXX人民币/人
套餐类型：	如：普通套餐、特别套餐、节日套餐 等
套餐类别：	<% set rs=conn.execute("select id,board from board order by id desc") while not rs.eof response.write(""&rs("board")&"") rs.movenext wend closers(rs) %> 请先择。如没有类型，请先建立类别后再添加套餐
是否置顶：	不置顶 置　顶 置顶后，此套餐总是显示在最前面
有效时间：	请用统一简结格式：三天、十天、长期 等
套餐景点图片：
*上传文件类型为：gif,jpg,bmp，大小<2M。除图片外所有项均为必填写项。

<% end sub sub addok dim t(12) for i=1 to 12 t(i)=trim(replace(request.form("textfield"&i&""),"'","")) next 'if t(13)="" then t(13)=0 sql="insert into xianlu (x_name,x_baojia,x_baojia_1,x_leixun,x_leiid,x_top,x_shijian,x_anpai,x_jingdian,x_shuoming,x_zhushi,x_jingdiantupian) values ('"&t(1)&"','"&t(2)&"','"&t(3)&"','"&t(4)&"','"&t(5)&"','"&t(6)&"','"&t(7)&"','"&t(8)&"','"&t(9)&"','"&t(10)&"','"&t(11)&"','"&t(12)&"')" conn.execute(sql) closeconn response.write ("") end sub sub del %> <% set rs1=conn.execute("select id,board from board") while not rs1.eof response.write("") rs1.movenext wend response.write("

"&mfkiqpl(rs1("board"))&"

") closers(rs1) %> <% dim id id=trim(request("id")) if id="" or not isnumeric(id) then sql="select top 10 id,x_name,x_leiid,x_jingdiantupian,x_top from xianlu order by x_top desc" else sql="select id,x_name,x_leiid,x_jingdiantupian,x_top from xianlu where x_leiid="&id&" order by x_top desc" end if set rs=server.CreateObject("ADODB.Recordset") rs.open sql,conn,3,1 if not(rs.eof or rs.bof) then rs.pagesize=20 dim page page=trim(request("page")) if page<>"" then page=cint(page) else page=1 end if pagec=rs.pagecount if page>pagec then page=pagec end if rs.absolutepage=page a=0 do while not rs.eof and a") response.write("") rs.movenext a=a+1 loop else response.write("没有相关记录！请先添加！") end if rs.close set rs=nothing %>

前20条套餐名称，更多请点击上面分类(点击查看详细信息)	图片	删除
") if trim(rs("x_top"))=1 then response.write ("") else response.write ("") end if response.write(" "&mfkiqpl(rs("x_name"))&"	") if instr(rs("x_jingdiantupian"),"system/uploadimages")>0 then response.Write("有图") else response.write("无图") end if response.write("

<% response.write ("首页　") if page>1 then response.write ("上一页　") else response.write("上一页　") end if if page下一页　") else response.write("下一页　") end if response.write ("尾页　") response.write ("当前："&page&"/"&pagec&"") %>

<% end sub sub delok dim id,img id=trim(request("id")) if not isnumeric(id) then response.write("") end if img=trim(request("img")) conn.execute("delete from xianlu where id="&id) if instr(img,"system/uploadimages/")>0 then img=replace(img,"system/uploadimages/","") Set fso = CreateObject("Scripting.FileSystemObject") if fso.fileexists(server.mappath("system/uploadimages/"&img)) then Set f2 = fso.getfile(server.mappath("system/uploadimages/"&img)) f2.delete end if set fso=nothing set f2=nothing end if response.write("") end sub sub edit %> <% set rs11=conn.execute("select id,board from board") while not rs11.eof response.write("") rs11.movenext wend response.write("

"&mfkiqpl(rs11("board"))&"

") closers(rs11) %> <% dim id,tt id=trim(request("id")) if id="" or not isnumeric(id) then tt="select top 20 id,x_name,x_leiid,x_top from xianlu order by x_top desc" else tt="select id,x_name,x_leiid,x_top from xianlu where x_leiid="&id&" order by x_top desc" end if set rs=server.CreateObject("ADODB.Recordset") rs.open tt,conn,3,1 if not(rs.eof or rs.bof) then rs.pagesize=20 dim page page=trim(request("page")) if page<>"" then page=cint(page) else page=1 end if pagec=rs.pagecount if page>pagec then page=pagec end if rs.absolutepage=page a=0 do while not rs.eof and a <% rs.movenext a=a+1 loop else response.write("没有相关记录！请先添加！") end if rs.close set rs=nothing %>

前20条套餐名称，更多请点击上面分类(点击查看详细信息)	类别标识	编辑
<% if trim(rs("x_top"))=1 then response.write ("") else response.write ("") end if %> " target="_blank"><%=rs("x_name")%>	<%=rs("x_leiid")%>	" title='编辑'>

<% response.write ("首页　") if page>1 then response.write ("上一页　") else response.write("上一页　") end if if page下一页　") else response.write("下一页　") end if response.write ("尾页　") response.write ("当前："&page&"/"&pagec&"") %>

<% end sub sub editok set rs=conn.execute("select * from xianlu where id="&trim(request("id"))) %>

套餐名称：	" size="50">
套餐报价：	" size="15"> " size="15">
套餐类型：	" size="15">
套餐类别：	<% set leirs=conn.execute("select id,board from board order by id desc") while not leirs.eof s=trim(leirs("id")) d=trim(rs("x_leiid").value) response.write(""&leirs("board")&"") leirs.movenext wend closers(leirs) %>
置顶情况：	>不置顶 >置　顶
套餐时间：	" size="20">
<%=Server.HTMLEncode(rs("x_zhushi"))%>
套餐景点图片：	" size="30"> ">
原图片情况：	<% if instr(rs("x_jingdiantupian"),"system/uploadimages/")=0 then response.write ("　无内部图片或图片是外部，建议重新上传内部图片来覆盖此！　 　当前图片地址：") response.write (""&rs("x_jingdiantupian")&"") else response.write("　内部图片地址："&rs("x_jingdiantupian")&" 　要删除此图片只要重新上传，不做操作则保持图片不变。") end if %>
*上传文件类型为：gif,jpg,bmp，大小<200kb。除图片外所有项均为必填写项。

<% closers(rs) end sub sub editok1 dim t(13) for i=1 to 13 t(i)=trim(replace(request.form("textfield"&i&""),"'","")) next sql="update xianlu set x_name='"&t(1)&"',x_baojia='"&t(2)&"',x_baojia_1='"&t(3)&"',x_leixun='"&t(4)&"',x_leiid='"&t(5)&"',x_top='"&t(6)&"',x_shijian='"&t(7)&"',x_anpai='"&t(8)&"',x_jingdian='"&t(9)&"',x_shuoming='"&t(10)&"',x_zhushi='"&t(11)&"',x_jingdiantupian='"&t(12)&"' where id="&t(13) conn.execute(sql) closeconn response.write ("") end sub call manageend %>