index.asp

旅游路线管理 比较方便的旅游路线管理

end if
response.write("<tr><td align=center width=15 height=20><img src=images/mfk4.gif></td><td width=238 height=20>"&mfkiqpl(ly)&"</td></tr>")
lyrs.movenext
wend
response.write("</table></td></tr></table>")
closers(lyrs)
response.write("<table width=222 border=0 cellspacing=0 cellpadding=0><tr><td height=4></td></table>")
end sub

sub showlist2
response.Write("<table width=530 border=0 align=right cellpadding=0 cellspacing=0><tr><td valign=top>")
ssql="select id,board,xid,bio from board order by xid desc"
set ssrs=conn.execute(ssql)
while not ssrs.eof
response.write("<table bgcolor="&c3&" width=530 border=0 cellspacing=0 cellpadding=0><tr><td width=30 height=22 align=center><img id=img"&ssrs("id")&" src=images/mfk8.gif width=15 height=15></td>")
response.Write("<td width=460 height=22><a style=cursor:hand onclick='ccc(img"&ssrs("id")&",table"&ssrs("id")&");' title='点击打开/关闭此类'>"&mfkiqpl(ssrs("board"))&"—("&mfkiqpl(ssrs("bio"))&")</a></td><td width=40 align=center><a href='listall.asp?board="&angelic(ssrs("board"))&"&id="&ssrs("id")&"' title=查看此类更多线路>更多</a></td></tr></table>")
response.write("<table width=530 border=0 cellspacing=0 cellpadding=0><tr><td height=2></td></tr></tdble>")
response.Write("<table id=table"&ssrs("id")&" style=display:none width=530 border=0 cellspacing=0 cellpadding=0>")
dim leiid1
leiid1=ssrs("id")
lssql="select top "&tsize&" id,x_name,x_baojia,x_leixun,x_shijian,x_leiid,x_top from xianlu where x_leiid="&leiid1&" order by x_top desc,id desc"
set als=server.createobject("adodb.recordset")
set als.activeconnection=conn
als.open lssql,,1,2
t=1
while not als.eof
xx_name=mfkiqpl(als("x_name"))
if len(xx_name)>28 then
xx_name=left(xx_name,26)&".."
end if
response.Write("<tr onMouseOver='scolor(this);' onMouseOut='rcolor(this);'><td width=15 height=20 align=center>")
if t=als.recordcount then
response.write("<img src=images/mfk10.gif>")
else
response.write("<img src=images/mfk11.gif>")
end if
response.Write("</td><td width=365 height=20>")
if trim(als("x_top"))=1 then
response.write ("<img src=images/mfk_top.gif width=16 height=16 alt=""置顶线路"">")
else
response.write ("<img src=images/mfk5.gif width=16 height=16 alt=""普通线路"">")
end if
response.write("<a href=listxianlu.asp?id="&als("id")&"  title='查看此线路详细信息'>"&xx_name&"</a>　<a href=giveme.asp?id="&als("id")&"><img src=images/mfk7.gif alt='快速预订' width=10 height=14 border=0></a></td>")
response.Write("<td width=150>"&mfkiqpl(als("x_baojia"))&"("&mfkiqpl(als("x_leixun"))&")</td></tr>")
als.movenext
t=t+1
wend
closers(als)
response.Write("</table>")
ssrs.movenext
wend
closers(ssrs)
response.Write("</td></tr></table>")
end sub

sub showlist1()
response.write("<table width=530 border=0 align=right cellpadding=0 cellspacing=0><tr><td valign=top>")
sqllei="select id,board,xid,bio from board order by xid desc"
set rslei=conn.execute(sqllei)
while not rslei.eof
response.write("<table width=530 border=0 cellpadding=0 cellspacing=1 bgcolor="&c1&"><tr><td height=22 bgcolor="&c2&"><table width=528 border=0 cellspacing=0 cellpadding=0>")
response.write("<tr><td width=21 height=20 align=center><img src=images/mfk6.gif width=12 height=13></td>")
response.write("<td width=477 height=20>"&mfkiqpl(rslei("board"))&"—("&mfkiqpl(rslei("bio"))&")</td><td width=40 align=center><a href='listall.asp?board="&angelic(rslei("board"))&"&id="&rslei("id")&"' title=查看此类更多线路>更多</a></td></tr></table></td></tr></table>")
response.write("<table width=530 border=0 cellpadding=0 cellspacing=1><tr align=center bgcolor="&c3&">")
response.write("<td width=20 height=20>&nbsp;</td><td width=290 height=20> 线路名称 </td><td width=100> 类型/时间 </td><td width=82> 线路报价 </td><td width=32>订</td></tr></table>")
response.write("<table width=530 border=0 cellspacing=0 cellpadding=0>")
dim leiid
leiid=rslei("id")
lssql="select top "&dsize&" id,x_name,x_baojia,x_leixun,x_shijian,x_leiid,x_top from xianlu where x_leiid="&leiid&" order by x_top desc,id desc"
set lsrs=conn.execute(lssql)
while not lsrs.eof
x_name=mfkiqpl(trim(lsrs("x_name")))
if len(x_name)>25 then
x_name=left(x_name,24)&".."
end if
sl=mfkiqpl(lsrs("x_shijian"))&"/"&mfkiqpl(lsrs("x_leixun"))
if len(sl)>9 then
sl=left(sl,8)&".."
end if
response.write("<tr onmouseover=scolor(this); onMouseOut=rcolor(this);><td width=320 height=20 >")
if trim(lsrs("x_top"))=1 then
response.write ("<img src=images/mfk_top.gif width=16 height=16 alt=""置顶线路"">")
else
response.write ("<img src=images/mfk5.gif width=16 height=16 alt=""普通线路"">")
end if
response.write("<a href=listxianlu.asp?id="&lsrs("id")&" title='点击查看此条线路详细信息'>"&x_name&"</a></td>")
response.write("<td width=111 height=20>"&sl&"</td><td width=74 height=20>"&mfkiqpl(lsrs("x_baojia"))&"</td>")
response.write("<td width=25 height=20 align=center><a href=giveme.asp?id="&lsrs("id")&"><img src=images/mfk7.gif alt='预订这条线路' width=10 height=14 border=0></a></td>")
lsrs.movenext
wend
closers(lsrs)
response.write("</table><table width=530 border=0 cellspacing=0 cellpadding=0><tr><td height=4></td></table>")
rslei.movenext
wend
closers(rslei)
response.write("</td></tr></table>")
end sub

dim ch
ch=trim(request("ch"))
if ch="ang" or ch="" then
show=1
else
show=2
end if
ss="select id from xianlu"
set rn=server.createobject("adodb.recordset")
set rn.activeconnection=conn
rn.open ss,,1,2
response.Write("<table width=755 border=0 align=center cellpadding=0 cellspacing=0 bgcolor="&c3&"><tr>")
response.Write("<td height=22>　　您好")
if session("user")<>"" then
response.Write("：<a href=userlook.asp?action=logout title=点击退出身份>"&session("user")&"</a>")
end if
response.write("！我社现共有<strong>"&rn.recordcount&"</strong> 条线路可供选择。请选择浏览方式，当前为：")
if show=1 then
response.write("平板模式")
else
response.write("目录模式")
end if
response.Write("</td><td width=90 align=center><a href=?ch=mfk><img src=images/mfk.gif width=79 height=14 border=0 alt=改变模式为：目录模式></a></td>")
response.Write("<td width=90 align=center><a href=?ch=ang><img src=images/mfk1.gif width=80 height=12 border=0 alt=改变模式为：平板模式></a></td></tr></table>")
closers(rn)
response.write("<table width=755 border=0 align=center cellpadding=0 cellspacing=0><tr><td height=5></td></tr></table>")
response.write("<table width=755 border=0 align=center cellpadding=0 cellspacing=0><tr><td width=222 height=289 valign=top bgcolor="&c4&">")

if showlx then
lxwc
end if
if showhot then
hotxl
end if
if shownew then
newxl
end if
if showtop then
topxl
end if
if showly then
newly
end if
if showvote then
vote
end if

response.Write("</td><td width=533 valign=top>")
if show=1 then
showlist1
else
showlist2
end if
response.Write("</td></tr></table>")
pageend%>