index.asp

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

<!--===============================================================-->
<!--Mfkiqpl旅行社旅游线路预订程序源代码仅供学习或部分旅行社网站用---->
<!--任何单位或个人不得随意修改、截取其中代码或做不法用途------------->
<!--版权归属:mfkiqpl   http://www.zjjnet.com 所有-------------------->
<!--请务必保留以下版权信息------------------------------------------->
<!--作者:mfkiqpl----------------------------------------------------->
<!--QQ:31827726 mail:[e-mail]--------------------------------->
<!--主页地址:http://www.zjjnet.com----------------------------------->
<!----------------欢迎各位站长与本人小站进行友情链接----------------->
<!--===============================================================-->
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="conn.asp"-->
<script>function scolor(dd){dd.style.backgroundColor='<%=c4%>';}function rcolor(tt){tt.style.backgroundColor='';}
function ccc(ss,dd){if(dd.style.display=='none'){dd.style.display='';ss.src='images/mfk9.gif';}else{dd.style.display='none';ss.src='images/mfk8.gif';}}</script>
<%
pagestart

sub vote
  set voters=conn.execute("select * from vote")	
	all1 = 0
	if not(voters.eof and voters.bof) then
		all1 = all1 + voters("tickets1") + voters("tickets2") + voters("tickets3") + voters("tickets4") + voters("tickets5") + voters("tickets6")
	else
	response.redirect "error.asp?errormsg=<li>严重错误！</li><br><li>无投票项目，或者投票项目在刚刚被删除！</li><br><li>如果你是管理员，看到这条信息，可能是你未设置投票而启用了投票功能！</li><br><li>请立即更改搞票设置，已勉造成暂时性的首页无法访问！</li>"
	end if
response.write("<table width='220' border='0' align='center' cellpadding='0' cellspacing='0'><form action='vote.asp?action=add' method=post><tr><td bgcolor="&c5&" align='center' height=22>调查："&voters("topic")&"</td></tr><tr><td bgcolor="&c1&" height=1></td></tr><tr><td>")
if voters("option1")<>"" then
response.write("<input type=radio name='vote' value='"&voters("option1")&"' checked>"&voters("option1")&"<br>")
end if
if voters("option2")<>"" then
response.write("<input type=radio name='vote' value='"&voters("option2")&"'>"&voters("option2")&"<br>")
end if
if voters("option3")<>"" then
response.write("<input type=radio name='vote' value='"&voters("option3")&"'>"&voters("option3")&"<br>")
end if
if voters("option4")<>"" then
response.write("<input type=radio name='vote' value='"&voters("option4")&"'>"&voters("option4")&"<br>")
end if
if voters("option5")<>"" then
response.write("<input type=radio name='vote' value='"&voters("option5")&"'>"&voters("option5")&"<br>")
end if
if voters("option6")<>"" then
response.write("<input type=radio name='vote' value='"&voters("option6")&"'>"&voters("option6")&"<br>")
end if
response.write("</td></tr><tr><td height=25 align=center><input type='submit' value='投  票' name=submit>")
response.write("　　　<input type='button' value='结  果' onClick=window.location='vote.asp?action=look' name=button></td></tr><tr>")
response.write("<td align=center height=20>已有<strong>"&all1&"</strong>人/次参加投票</td></tr></form></table>")
response.write("<table width=222 border=0 cellspacing=0 cellpadding=0><tr><td height=4></td></table>")
closers(voters)
end sub

sub lxwc
response.write("<table width=222 border=0 cellspacing=0 cellpadding=0>")
response.write("<tr><td width=21 height=22 align=center bgcolor="&c5&"><img src=images/mfk2.gif width=12 height=13></td><td width=110 bgcolor="&c5&"> 联 系 我 社 </td>")
response.write("<td width=91 bgcolor="&c5&"><img src=images/mfk3.gif width=79 height=22></td></tr></table>")
response.write("<table width=222 border=0 cellspacing=0 cellpadding=0><tr><td height=1 bgcolor="&c1&"></td></tr></table>")
response.write("<table width=222 border=0 cellspacing=0 cellpadding=0><tr><td height=4></td></table>")
qq1="select id,fax,address,qq,email,dianhua from master where id=1"
set qqrs=conn.execute(qq1)
response.write("<table width=222 border=0 cellpadding=0 cellspacing=0><tr><td width=56 height=18 align=center>电话：</td>")
response.write("<td width=166>"&mfkiqpl(qqrs("dianhua"))&"</td></tr><tr><td height=18 align=center>传真：</td><td>"&mfkiqpl(qqrs("fax"))&"</td>")
response.write("</tr><tr><td height=18 align=center>地址：</td><td>"&mfkiqpl(qqrs("address"))&"</td></tr><tr><td height=18 align=center>Email：</td>")
response.write("<td>"&mfkiqpl(qqrs("email"))&"</td></tr><tr><td height=18 align=center>在线QQ：</td><td>"&mfkiqpl(qqrs("qq"))&"</td></tr></table>")
closers(qqrs)
response.write("<table width=222 border=0 cellspacing=0 cellpadding=0><tr><td height=4></td></table>")
end sub

sub hotxl
response.write("<table width=222 border=0 cellspacing=0 cellpadding=0>")
response.write("<tr><td width=21 height=22 align=center bgcolor="&c5&"><img src=images/mfk2.gif width=12 height=13></td><td width=110 bgcolor="&c5&"> 最 热 线 路 </td>")
response.write("<td width=91 bgcolor="&c5&"><img src=images/mfk3.gif width=79 height=22></td></tr></table>")
response.write("<table width=222 border=0 cellspacing=0 cellpadding=0><tr><td height=1 bgcolor="&c1&"></td></tr></table>")
response.write("<table width=222 border=0 cellspacing=0 cellpadding=0><tr><td height=4></td></table><table width=222 border=0 cellspacing=0 cellpadding=0><tr><td>")
response.write("<table width=222 border=0 cellspacing=0 cellpadding=0>")
hot="select top 5 id,x_name,x_n from xianlu order by x_n desc"
set hotrs=conn.execute (hot)
while not hotrs.eof
dim x_name
x_name=hotrs("x_name")
if len(x_name)>20 then
x_name=left(x_name,14)&"..."
end if
response.write("<tr><td align=center width=15 height=20><img src=images/mfk4.gif></td><td width=238 height=20><a href=listxianlu.asp?id="&hotrs("id")&" title='共有： "&hotrs("x_n")&" 人查看'>"&mfkiqpl(x_name)&"</a></td></tr>")
hotrs.movenext
wend
response.write("</table></td></tr></table>")
closers(hotrs)
response.write("<table width=222 border=0 cellspacing=0 cellpadding=0><tr><td height=4></td></table>")
end sub

sub newxl
response.write("<table width=222 border=0 cellspacing=0 cellpadding=0><tr>")
response.write("<td width=21 height=22 align=center bgcolor="&c5&"><img src=images/mfk2.gif width=12 height=13></td>")
response.write("<td width=110 bgcolor="&c5&"> 最 新 线 路 </td><td width=91 bgcolor="&c5&"><img src=images/mfk3.gif width=79 height=22></td>")
response.write("</tr></table><table width=222 border=0 cellspacing=0 cellpadding=0><tr><td height=1 bgcolor="&c1&"></td></tr></table>")
response.write("<table width=222 border=0 cellspacing=0 cellpadding=0><tr><td height=4></td></tr></table>")
response.write("<table width=222 border=0 cellspacing=0 cellpadding=0><tr><td>")
response.write("<table width=222 border=0 cellspacing=0 cellpadding=0>")
new1="select top "&rsize&" id,x_name from xianlu order by id desc"
set newrs=conn.execute (new1)
while not newrs.eof
dim x_name1
x_name1=newrs("x_name")
if len(x_name1)>20 then
x_name1=left(x_name1,14)&"..."
end if
response.write("<tr><td align=center width=15 height=20><img src=images/mfk4.gif></td><td width=238 height=20><a href=listxianlu.asp?id="&newrs("id")&">"&mfkiqpl(x_name1)&"</a></td></tr>")
newrs.movenext
wend
response.write("</table></td></tr></table>")
response.write("<table width=222 border=0 cellspacing=0 cellpadding=0><tr><td height=4></td></table>")
closers(newrs)
end sub

sub topxl
response.write("<table width=222 border=0 cellspacing=0 cellpadding=0><tr>")
response.write("<td width=21 height=22 align=center bgcolor="&c5&"><img src=images/mfk2.gif width=12 height=13></td>")
response.write("<td width=110 bgcolor="&c5&"> 置 顶 线 路 </td><td width=91 bgcolor="&c5&"><img src=images/mfk3.gif width=79 height=22></td>")
response.write("</tr></table><table width=222 border=0 cellspacing=0 cellpadding=0><tr><td height=1 bgcolor="&c1&"></td></tr></table>")
response.write("<table width=222 border=0 cellspacing=0 cellpadding=0><tr><td height=4></td></tr></table>")
response.write("<table width=222 border=0 cellspacing=0 cellpadding=0><tr><td>")
response.write("<table width=222 border=0 cellspacing=0 cellpadding=0>")
top1="select top "&rsize&" id,x_name from xianlu order by id desc"
set toprs=conn.execute (top1)
while not toprs.eof
dim x_name1
x_name1=toprs("x_name")
if len(x_name1)>20 then
x_name1=left(x_name1,14)&"..."
end if
response.write("<tr><td align=center width=15 height=20><img src=images/mfk_top.gif></td><td width=238 height=20><a href=listxianlu.asp?id="&toprs("id")&">"&mfkiqpl(x_name1)&"</a></td></tr>")
toprs.movenext
wend
response.write("</table></td></tr></table>")
response.write("<table width=222 border=0 cellspacing=0 cellpadding=0><tr><td height=4></td></table>")
closers(toprs)
end sub

sub newly
response.write("<table width=222 border=0 cellspacing=0 cellpadding=0>")
response.write("<tr><td width=21 height=22 align=center bgcolor="&c5&"><img src=images/mfk2.gif width=12 height=13></td><td width=110 bgcolor="&c5&"> 最 新 留 言 </td>")
response.write("<td width=91 bgcolor="&c5&"><img src=images/mfk3.gif width=79 height=22></td></tr></table>")
response.write("<table width=222 border=0 cellspacing=0 cellpadding=0><tr><td height=1 bgcolor="&c1&"></td></tr></table>")
response.write("<table width=222 border=0 cellspacing=0 cellpadding=0><tr><td height=4></td></table><table width=222 border=0 cellspacing=0 cellpadding=0><tr><td>")
response.write("<table width=222 border=0 cellspacing=0 cellpadding=0>")
nely="select top "&rsize&" utext from guestbook order by id desc"
set lyrs=conn.execute (nely)
while not lyrs.eof
dim ly
ly=lyrs("utext")
if len(ly)>20 then
ly=left(ly,15)&"..."