<% Dim Cts Set Cts = New CtsPublicFunction Class CtsPublicFunction Public vReg '//////////////////////读文件/////////////////////////////// Function ReadFile(Path) On Error Resume Next Set MyFile=Server.CreateObject("Scripting.FileSystemObject") Set CountFile=MyFile.OpenTextFile(server.MapPath(Path)) If Err Then err.Clear Set MeyFile=Nothing Response.Write "读取文件路径错误！！！" Response.End End If ReadFile=CountFile.ReadAll Set MeyFile=Nothing End Function Function DelFile(Path) On Error Resume Next ASPArr=Split(Path,".") IF instr(1,ASPArr(ubound(ASPArr)),"asp",1)>0 Then Response.Write("动态文件,禁止删除！！！") Exit Function End IF Set MyFile=Server.CreateObject("Scripting.FileSystemObject") IF MyFile.FileExists(Server.MapPath(Path)) then MyFile.DeleteFile(Server.MapPath(Path)) Response.Write("删除成功") Else Response.Write("没有找到该文件") End IF Set MeyFile=Nothing End Function Function WriteFile(Path,Content) 'On Error Resume Next Set MyFile=Server.CreateObject("Scripting.FileSystemObject") '/////////////////////////创建目录/////////////////////////////////////////// 'PathArr=split(Path,"/") 'Arrubound=ubound(PathArr) 'IF Arrubound>0 Then ' IF PathArr(0)="" Then ' Pathyuan=Server.MapPath("/") ' Else ' Pathyuan=Server.MapPath(PathArr(0)) ' IF MyFile.FolderExists(Pathyuan)=false then MyFile.CreateFolder(Pathyuan) ' End IF 'End IF ' ' For i=1 to ubound(PathArr)-1 ' Pathyuan=Pathyuan&"\"&PathArr(i) ' IF MyFile.FolderExists(Pathyuan)=false then MyFile.CreateFolder(Pathyuan) ' Next PathArr=split(Path,"/") Arrubound=ubound(PathArr) IF Arrubound=0 Then PathArr=split(Path,"\") Arrubound=ubound(PathArr) End IF IF Arrubound>0 Then IF PathArr(0)="" Then Pathyuan=Server.MapPath("/") Else Pathyuan=Server.MapPath(PathArr(0)) IF MyFile.FolderExists(Pathyuan)=false then MyFile.CreateFolder(Pathyuan) End IF End IF For i=1 to ubound(PathArr)-1 Pathyuan=Pathyuan&"\"&PathArr(i) IF MyFile.FolderExists(Pathyuan)=false then MyFile.CreateFolder(Pathyuan) Next '/////////////////////////创建目录结束/////////////////////////////////////////// '/////////////////////////禁止写入格式/////////////////////////////////////////// ASPArr=Split(Path,".") IF instr(1,ASPArr(ubound(ASPArr)),"asp",1)>0 Then Response.Write("格式错误！！！") Exit Function End IF '/////////////////////////禁止写入格式结束/////////////////////////////////////////// Set WriteFile=MyFile.CreateTextFile(Server.MapPath(Path)) If Err Then err.Clear Set MeyFile=Nothing Response.Write "创建文件路径错误！！！" Response.End End If WriteFile.Write(Content) If Err Then err.Clear Set MeyFile=Nothing Response.Write "写入文件错误！！！" Response.End End If Set MeyFile=Nothing End Function '////////////////////////////////////////////////////////////// '新闻调用 '1省2市3类4记录数5字符数6样式 Public Function News(Prov,City,NewClass,TopNum,ChrNum,Style,Showdate) Dim Sql,Title IF Prov<>"" and Prov<>0 Then Sql="Prov="&Prov End IF IF City<>"" and City<>0 Then IF Sql="" Then Sql="City="&City Else Sql=Sql&" and City="&City End IF End IF IF NewClass<>"" and NewClass<>0 Then IF Sql="" Then Sql="F_Class="&NewClass Else Sql=Sql&" and F_Class="&NewClass End IF End IF IF Sql<>"" Then Sql="Select Top "&TopNum&" id,Title,STitle,Path,FileName,BiaotiNews,UBiaotiNews,AddDate From News Where Del=0 and NewsCheck=0 and "&Sql&" order by DGNews desc,id desc" Else Sql="Select Top "&TopNum&" id,Title,STitle,Path,FileName,BiaotiNews,UBiaotiNews,AddDate From News Where Del=0 and NewsCheck=0 order by DGNews desc,id desc" End IF Set Rs=conn.Execute(Sql) IF Showdate=0 Then Do While Not(Rs.Eof or Rs.Bof) IF Rs("Stitle")="" Then Title=Rs("Title") Else Title=Rs("STitle") End IF IF Rs("BiaoTiNews")=true Then News=News&"·"&Left(Title,ChrNum)&"
" Else News=News&"·"&Left(Title,ChrNum)&"
" End IF Rs.movenext Loop Else Do While Not(Rs.Eof or Rs.Bof) IF Rs("Stitle")="" Then Title=Rs("Title") Else Title=Rs("STitle") End IF IF Rs("BiaoTiNews")=true Then News=News&"·"&Left(Title,ChrNum)&" ["&formatdatetime(rs("AddDate"),2)&"]
" Else News=News&"·"&Left(Title,ChrNum)&" ["&formatdatetime(rs("AddDate"),2)&"]
" End IF Rs.movenext Loop End IF Rs.close Set Rs=nothing End Function '////////////////////////////////////////////////////////////// '文章调用 '1省2市3一级类4二级类5记录数6字符数7样式 Public Function Art(Prov,City,Fu_Colum,Colum_ID,TopNum,ChrNum,Style) Dim Sql,Title IF Prov<>"" and Prov<>0 Then Sql="Prov="&Prov End IF IF City<>"" and City<>0 Then IF Sql="" Then Sql="City="&City Else Sql=Sql&" and City="&City End IF End IF IF Fu_Colum<>"" and Fu_Colum<>0 Then IF Sql="" Then Sql="Fu_Colum="&Fu_Colum Else Sql=Sql&" and Fu_Colum="&Fu_Colum End IF End IF IF Colum_ID<>"" and Colum_ID<>0 Then IF Sql="" Then Sql="Colum_ID="&Colum_ID Else Sql=Sql&" and Colum_ID="&Colum_ID End IF End IF IF Sql<>"" Then Sql="Select Top "&TopNum&" id,Title,Stitle,FileName,Path,BiaotiArt,UBiaotiArt From Art Where del=0 and ArtCheck=0 and "&Sql&" order by DGArt desc,id desc" Else Sql="Select Top "&TopNum&" id,Title,Stitle,FileName,Path,BiaotiArt,UBiaotiArt From Art Where del=0 and ArtCheck=0 order by DGArt desc,id desc" End IF Set Rs=conn.Execute(Sql) Do While Not(Rs.Eof or Rs.Bof) IF Rs("Stitle")="" Then Title=Rs("Title") Else Title=Rs("STitle") End IF IF Rs("BiaotiArt")=true Then Art=Art&"·"&Left(Title,ChrNum)&"
" Else Art=Art&"·"&Left(Title,ChrNum)&"
" End IF Rs.movenext Loop Rs.close End Function Public Function Art2(Prov,City,Fu_Colum,Colum_ID,TopNum,ChrNum,Style) '为生成地区文章而修改，两个colum_ID Dim Sql,Title IF Prov<>"" and Prov<>0 Then Sql="Prov="&Prov End IF IF City<>"" and City<>0 Then IF Sql="" Then Sql="City="&City Else Sql=Sql&" and City="&City End IF End IF IF Sql="" Then Sql="and (Colum_ID=203 or Colum_ID=320)" Else Sql=Sql&" and (Colum_ID=203 or Colum_ID=320)" End IF IF Sql<>"" Then Sql="Select Top "&TopNum&" id,Title,Stitle,FileName,Path,BiaotiArt,UBiaotiArt From Art Where del=0 and ArtCheck=0 and "&Sql&" order by DGArt desc,id desc" Else Sql="Select Top "&TopNum&" id,Title,Stitle,FileName,Path,BiaotiArt,UBiaotiArt From Art Where del=0 and ArtCheck=0 order by DGArt desc,id desc" End IF Set Rs=conn.Execute(Sql) Do While Not(Rs.Eof or Rs.Bof) IF Rs("Stitle")="" Then Title=Rs("Title") Else Title=Rs("STitle") End IF IF Rs("BiaotiArt")=true Then Art2=Art2&"·"&Left(Title,ChrNum)&"
" Else Art2=Art2&"·"&Left(Title,ChrNum)&"
" End IF Rs.movenext Loop Rs.close End Function Public Function Art3(Prov,City,Fu_Colum,Colum_ID,TopNum,ChrNum,Style) '输出所属国[prov] Dim Sql,Title IF Prov<>"" and Prov<>0 Then Sql="Prov="&Prov End IF IF City<>"" and City<>0 Then IF Sql="" Then Sql="City="&City Else Sql=Sql&" and City="&City End IF End IF IF Fu_Colum<>"" and Fu_Colum<>0 Then IF Sql="" Then Sql="Fu_Colum="&Fu_Colum Else Sql=Sql&" and Fu_Colum="&Fu_Colum End IF End IF IF Colum_ID<>"" and Colum_ID<>0 Then IF Sql="" Then Sql="Colum_ID="&Colum_ID Else Sql=Sql&" and Colum_ID="&Colum_ID End IF End IF IF Sql<>"" Then Sql="Select Top "&TopNum&" id,Title,Stitle,FileName,Path,BiaotiArt,UBiaotiArt,City From Art Where del=0 and ArtCheck=0 and "&Sql&" order by DGArt desc,id desc" Else Sql="Select Top "&TopNum&" id,Title,Stitle,FileName,Path,BiaotiArt,UBiaotiArt,City From Art Where del=0 and ArtCheck=0 order by DGArt desc,id desc" End IF Set Rs=conn.Execute(Sql) Do While Not(Rs.Eof or Rs.Bof) IF Rs("Stitle")="" Then Title=Rs("Title") Else Title=Rs("STitle") End IF IF Rs("BiaotiArt")=true Then Art3=Art3&"·["& ProvCityCN(2,Rs("City"))&"] "&Left(Title,ChrNum)&"
" Else Art3=Art3&"·["& ProvCityCN(2,Rs("City"))&"] "&Left(Title,ChrNum)&"
" End IF Rs.movenext Loop Rs.close End Function Public Function ChuJingJD(Prov,City,Fu_Colum,Colum_ID,h,l,ChrNum,Style) '输出所属国景点 Dim Sql,Title IF Prov<>"" and Prov<>0 Then Sql="Prov="&Prov End IF IF City<>"" and City<>0 Then IF Sql="" Then Sql="City="&City Else Sql=Sql&" and City="&City End IF End IF IF Fu_Colum<>"" and Fu_Colum<>0 Then IF Sql="" Then Sql="Fu_Colum="&Fu_Colum Else Sql=Sql&" and Fu_Colum="&Fu_Colum End IF End IF IF Colum_ID<>"" and Colum_ID<>0 Then IF Sql="" Then Sql="Colum_ID="&Colum_ID Else Sql=Sql&" and Colum_ID="&Colum_ID End IF End IF IF Sql<>"" Then Sql="Select Top "&h*l&" id,Title,Stitle,FileName,Path,BiaotiArt,UBiaotiArt,City,BiaoTi_pic From Art Where del=0 and ArtCheck=0 and IntopPic=1 and "&Sql&" order by DGArt desc,id desc" Else Exit Function End IF Set Rs=conn.Execute(Sql) ChuJingJD="" For i=1 to h ChuJingJD=ChuJingJD&"" For b=1 to l IF Not(Rs.Eof or rs.Bof) Then IF Rs("Stitle")="" Then Title=Rs("Title") Else Title=Rs("STitle") End IF IF Rs("BiaotiArt")=true Then ArtLikn=Rs("BiaotiArt") Else ArtLikn="/Art/"&Rs("Path")&"/"&Rs("FileName")&".html" End IF ChuJingJD=ChuJingJD&"" Else ChuJingJD=ChuJingJD&"" End IF Rs.movenext Next ChuJingJD=ChuJingJD&"" Next Rs.close ChuJingJD=ChuJingJD&"
"&_ ""&_ ""&_ ""&_ ""&_ "
["&ProvCityCN(2,Rs("City"))&"] "&Left(Title,ChrNum)&"
"&_ ""&_ ""&_ ""&_ ""&_ "
 
 
" End Function Public Function GJProvCity(Prov) IF FL(Prov,"Number")=0 Then Exit Function Set rs=Conn.Execute("Select * From Prov_Class Where Prov="&Prov&"") Do while Not (rs.Eof or rs.Bof) Response.Write(rs("Prov_CN")) 'Set CRS=Conn.Execute("Select id,Title,Stitle,FileName,Path,BiaotiArt,UBiaotiArt,City,BiaoTi_pic From Art Where del=0 and ArtCheck=0 order by DGArt desc,id asc") ' Do while Not(CRS.Eof or CRS.Bof) ' Response.Write(Crs("Title")&" ") ' CRS.Movenext ' Loop ' CRS.Close ' Set CRS=Nothing Response.Write("
") rs.Movenext Loop rs.Close Set rs=Nothing End Function '////////////////////////////////////////////////////////////// '线路调用 '1省2市3一级类4二级类5记录数6关键字7字符数8样式 Public Sub XL(CFProv,CFCity,MJDProv,MJDCity,XLType,NameKeyWord,TopNum,ChrNum,Account,Style) Dim Sql IF CFProv<>0 Then Sql=" and ChuFD_provid1="&CFProv End IF IF CFCity<>0 Then IF Sql="" Then Sql=" and ChuFD_cityid1="&CFCity Else Sql=Sql&" and ChuFD_cityid1="&CFCity End IF End IF IF MJDProv<>0 Then IF Sql="" Then Sql=" and MuJD_provid2="&MJDProv Else Sql=Sql&" and MuJD_provid2="&MJDProv End IF End IF IF MJDCity<>0 Then IF Sql="" Then Sql=" and MuJD_cityid2 like "&MJDCity Else Sql=Sql&" and MuJD_cityid2 like "&MJDCity End IF End IF IF XLType<>0 Then IF Sql="" Then Sql=" and XL_Type="&XLType Else Sql=Sql&" and XL_Type="&XLType End IF End IF IF NameKeyWord<>"" Then IF Sql="" Then Sql=" and XL_Name like '%"&NameKeyWord&"%'" Else Sql=Sql&" and XL_Name like '%"&NameKeyWord&"%'" End IF End IF IF Account<>"" Then IF Sql="" Then 'Sql="Member_Account='"&Account&"'" Sql=Account Else 'Sql=Sql&" and Member_Account='"&Account&"'" Sql=Sql&Account End IF End IF IF Sql<>"" Then Sql="Select Top "&TopNum&" ID,XL_Name,XL_Type,Member_Account,XLFileName,YouHui_Price,ShiChang_Price from XianLu Where del=0 and XL_Check=0 "&Sql&" order by AddDate desc" Else Sql="Select Top "&TopNum&" ID,XL_Name,XL_Type,Member_Account,XLFileName,YouHui_Price,ShiChang_Price from XianLu Where del=0 and XL_Check=0 order by AddDate desc" End IF Set Rs=conn.Execute(Sql) Response.Write("") Do While Not(Rs.Eof or Rs.Bof) 'IF Rs("XL_Type")=5 Then ' Response.Write("") 'Else Response.Write("") 'End IF Rs.movenext Loop Response.Write("
·"&left(rs("XL_Name"),ChrNum)&"￥电询￥电询
·"&left(rs("XL_Name"),ChrNum)&"￥"&rs("ShiChang_Price")&"￥"&rs("YouHui_Price")&"
") End Sub Public Sub Hotel(Prov,City,KeyWord,TopNum,ChrNum,Style,PC,St,PR) Dim Sql IF Prov<>0 Then Sql=" and h.hotelsheng="&Prov End IF IF City<>0 Then IF Sql="" Then Sql=" and h.hotelcity="&City Else Sql=Sql&" and h.hotelcity="&City End IF End IF IF KeyWord="" Then IF Sql="" Then Sql=" and h.jdname like '%"&KeyWord&"%'" Else Sql=Sql&" and h.jdname like '%"&KeyWord&"%'" End IF End IF Set rs=Conn.Execute("Select Top "&TopNum&" j.*,member.Account,member.MemberType From (select h.id,h.jdname,h.hotelsheng,h.Account,h.jibie,h.show,r.price from hotel as h inner join (select hotelid,min(zhou1) as price from Hotelroom where show=0 group by hotelid) r on h.id=r.hotelid where h.show=0"&Sql&") as j inner join Member on member.Account=j.Account where member.Expires>getdate() order by j.id desc") Response.Write("") Do while not (rs.Eof or rs.Bof) Response.Write("") IF PC=1 Then Response.Write("") Response.Write("") IF St=1 Then Response.Write("") IF Pr=1 Then Response.Write("") Response.Write("") rs.Movenext Loop Response.Write("
[] "&Left(rs("JDName"),ChrNum)&""&rs("jibie")&"星￥"&rs("Price")&"
") rs.Close Set rs=Nothing End Sub Public Sub JDList(Prov,City) Dim ProvCityArr(),ProvCityArrCN(),p IF Prov<>"" and City="" Then Set Prs=Conn.Execute("Select * From Prov_Class Where Prov='"&Prov&"' order by id asc") p=0 Do while not (Prs.Eof or Prs.Bof) Redim Preserve ProvCityArr(p) Redim Preserve ProvCityArrCN(p) ProvCityArr(p)=Prs("Prov_EN") ProvCityArrCN(p)=""&Prs("Prov_CN")&"
" p=p+1 Prs.Movenext Loop Else Set Prs=Conn.Execute("Select * From Prov_Class Where Prov_En='"&City&"' and Prov<>0 order by id asc") IF Prs.Eof or Prs.Bof Then Exit Sub Else Redim Preserve ProvCityArr(0) Redim Preserve ProvCityArrCN(0) ProvCityArr(0)=Prs("Prov_EN") ProvCityArrCN(0)=""&Prs("Prov_CN")&"
" End IF End IF Prs.Close For i=0 to ubound(ProvCityArr) Response.Write(ProvCityArrCN(i)) Set rs=Conn.Execute("Select * From Member Where City='"&ProvCityArr(i)&"' and MemberType='Sight' order by id asc") Do while not (rs.Eof or rs.Bof) Response.Write(" "&rs("UserName")&"
") rs.movenext Loop rs.CLose Set rs=Nothing Response.Write("
") Next End Sub Public Sub JiuDianList(Prov,City,TopNum,Style) Dim Sql IF Prov<>"" Then Sql="shengfen="&Prov End IF IF City<>"" Then IF Sql="" Then Sql="diqu="&City Else Sql=Sql&" and diqu="&City End IF End IF IF Sql<>"" Then Sql="select Top "&TopNum&" * from hotelroom where show='1' and shenhe='0' "&Sql&" order by inputtime desc" Else Sql="select Top "&TopNum&" * from hotelroom where show='1' and shenhe='0' order by inputtime desc" ENd IF Set rs=Conn.Execute(Sql) Response.Write("") Do while not (rs.Eof or rs.Bof) Response.Write("") Response.Write("") Response.Write("") Response.Write("") rs.movenext Loop rs.CLose Response.Write("
·[] "&left(rs("hotelname"),10)&""&rs("roomclass")&"￥"&rs("youhuiprice")&"
") End Sub Function ArtMore(ColumID,PageName,PagePath,MoreSql,yuliu) 'yuliu预留选项 Dim ArtList,ColumTitle,ArtListMoBan,YeiMa,CtsHeadTop ColumID=Fl(ColumID,"Number") ArtListMoBan=ReadFile("/Pattern/ArtMore/ArtMore.html") CtsHeadTop=ReadFile("/Ctshead4.htm") ArtListMoBan=Replace(ArtListMoBan,"$CtsHeadTop$",CtsHeadTop) 'IF ColumID=0 Then ' ColumTitle="没有找到结果！！！" ' ArtList="没有找到结果！！！" ' ArtList=Replace(ArtListMoBan,"$ArtList$",ArtList) ' ArtList=Replace(ArtList,"$ColumTitle$",ColumTitle) ' ArtList=Replace(ArtList,"$YeiMa$","") ' Call WriteFile(PagePath&Replace(PageName,"[Page]",1)&Kuozm,ArtList) 'Else Set rs=Conn.Execute("Select * From Colum Where ID='"&ColumID&"' and Fu_Class<>1") IF rs.Eof or rs.Bof Then ColumTitle="没有找到结果！！！" ArtList="没有找到结果！！！" ArtList=Replace(ArtListMoBan,"$ArtList$",ArtList) ArtList=Replace(ArtList,"$ColumTitle$",ColumTitle) ArtList=Replace(ArtList,"$YeiMa$","") Call WriteFile(PagePath&Replace(PageName,"[Page]",1)&Kuozm,ArtList) Else ColumTitle=rs("Colum") IF rs("Fu_Class")=0 Then Sql=" and Fu_Colum='"&rs("ID")&"'" Else Sql=" and Colum_ID='"&rs("ID")&"'" End IF IF MoreSql<>"" Then IF Sql="" Then Sql=MoreSql Else Sql=Sql&MoreSql End IF End IF End IF IF Sql<>"" Then Set rs=Conn.Execute("Select count(id) From Art Where BiaotiArt=0 and Del=0 and ArtCheck=0 "&Sql) ArtNum=rs(0) IF (ArtNum mod 25)=0 Then ArtPagecount=Cint(ArtNum\25) Else ArtPagecount=Cint(ArtNum\25)+1 End IF IF ArtNum=0 Then '如果为0条记录，写空页，退出函数 ColumTitle="没有找到结果！！！" ArtList="没有找到结果！！！" ArtList=Replace(ArtListMoBan,"$ArtList$",ArtList) ArtList=Replace(ArtList,"$ColumTitle$",ColumTitle) ArtList=Replace(ArtList,"$YeiMa$","") Call WriteFile(PagePath&Replace(PageName,"[Page]",1)&Kuozm,ArtList) Exit Function End IF rs.Close Set rs=Nothing Set rs=Conn.Execute("Select Title,Path,FileName,AddDate From Art Where BiaotiArt=0 and Del=0 and ArtCheck=0 "&Sql&" Order by id desc") For P=1 to ArtPagecount ArtList="" & vbcrlf For i=1 To 25 IF rs.Eof or rs.Bof Then Exit For ArtList=ArtList&"" & vbcrlf ArtList=ArtList&"" & vbcrlf ArtList=ArtList&"" & vbcrlf ArtList=ArtList&"" & vbcrlf rs.Movenext Next ArtList=ArtList&"
" & vbcrlf ArtList=ArtList&" " ArtList=ArtList&""&rs("Title")&"" & vbcrlf ArtList=ArtList&""&rs("AddDate")&"
" & vbcrlf ArtList=Replace(ArtListMoBan,"$ArtList$",ArtList) ArtList=Replace(ArtList,"$ColumTitle$",ColumTitle) IF P=1 Then IF ArtPagecount>1 Then YeiMa="共"&ArtNum&"条信息 首页 上一页 下一页 末页 第"&P&"页/共"&ArtPagecount&"页" Else YeiMa="共"&ArtNum&"条信息 首页 上一页 下一页 末页 第"&P&"页/共"&ArtPagecount&"页" End IF Else IF P=ArtPagecount Then YeiMa="共"&ArtNum&"条信息 首页 上一页 下一页 末页 第"&P&"页/共"&ArtPagecount&"页" Else YeiMa="共"&ArtNum&"条信息 首页 上一页 下一页 末页 第"&P&"页/共"&ArtPagecount&"页" End IF End IF ArtList=Replace(ArtList,"$YeiMa$",YeiMa) Call WriteFile(PagePath&Replace(PageName,"[Page]",P)&Kuozm,ArtList) 'Response.Write(ArtList&"
") Next Else End IF 'End IF End Function '-----------------------------------分类调用查询------------------------------------------------ Function XL_TYPES2(ID) Set C2rs=Conn.Execute("Select *,(select count(x.ID) From XianLu as x inner join Member as m on x.Member_Account=m.Account where m.Expires>getdate() and x.XL_TypeS=T.ID and del=0 and XL_Check=0) as coun From Member_TraveType as T where T.Fu_Class='"&ID&"' order by T.OrderID asc") Do while not (C2rs.Eof or C2rs.Bof) Response.Write(""&C2rs("Title")&"("&C2rs("coun")&")"&" ") C2rs.Movenext Loop '临时添加图季滑雪专题 IF ID=4 Then Response.write("温泉滑雪专题 ") C2rs.CLose Set C2rs=Nothing End Function Function XL_TypeS1() Set rs=Conn.Execute("Select z.* From Member_TraveType as z Where (z.Fu_Class is null) and (Select count(ID) From Member_TraveType Where Fu_Class=z.ID)>0 order by z.OrderID asc") Do while not (rs.Eof or rs.Bof) Response.Write(""&rs("Title")&"
") XL_TYPES2(rs("ID")) Response.Write("
") rs.Movenext Loop Rs.CLose Set rs=Nothing End Function '-----------------------------------分类调用查询结束------------------------------------------------ '-----------------------------------线路调用[下方]----------------------------------------------- Function XLTypeList(ID,ChrNum,ViewType) 'ViewType0,1 Response.write("") Set rs=Conn.Execute("Select * From Admin_XLAD Where ID='"&ID&"'") IF Not(rs.Eof or rs.Bof) Then IDArr=Split(rs("TypeIDArr"),"||") NumArr=Split(rs("TypeNumArr"),"||") For i=0 to ubound(IDArr) Call XLTypeList2(Replace(NumArr(i),"|",""),Replace(IDArr(i),"|",""),ChrNum,ViewType) Next End IF Response.write("
") End Function Function XLTypeList2(Top,XLType,ChrNum,ViewType) Set rs=conn.Execute("Select Top "&Top&" x.*,m.UserName From XianLu as x inner join Member as m on x.Member_Account=m.Account Where (Member_Account='bqxd' or Member_Account='zylxs') and del=0 and XL_Check=0 and XL_TypeS='"&XLType&"' order by x.AddDate desc") Do While Not (rs.Eof or rs.Bof) IF rs("YouHui_Price")="" Then YouHui_Price="详细" Else YouHui_Price=rs("YouHui_Price") End IF IF rs("ShiChang_Price")="" Then ShiChang_Price="详细" Else ShiChang_Price=rs("ShiChang_Price") End IF IF Len(rs("XL_Name"))>ChrNum Then XL_Name=Left(rs("XL_Name"),ChrNum-2)&"..." Else XL_Name=rs("XL_Name") End IF IF ViewType=0 Then Response.write("") Response.write("·"&XL_Name&"") Response.write("￥"&ShiChang_Price&"") Response.write("￥"&YouHui_Price&"") ElseIF ViewType=1 Then Response.write("") Response.write("·"&XL_Name&"") Response.write(""&rs("UserName")&"") Response.write("￥"&ShiChang_Price&"") Response.write("￥"&YouHui_Price&"") End IF rs.Movenext Loop rs.Close Set rs=Nothing End Function '-----------------------------------线路调用[下方]----------------------------------------------- 'Function ProvCityArtMore(如果为0则跳过该务件,生成页名称须加[page],路径,特殊SQL,例表名称) Function ProvCityArtMore(FColumID,ColumID,Prov,City,PageName,PagePath,MoreSql,ColumTitle) 'be（1为省2为市）与ArtMore相比，内容有所增加 Dim ArtList,ArtListMoBan,YeiMa,CtsHeadTop,ProvORCityName Dim CSProvName,CSCityName 'ProvORCityName=ProvCityCN(3,FL(ProvORCity,"Number")) 'IF ProvORCityName="" Then ' Exit Function '如果没有找到返回城市则退出！！！ 'End IF CSProvName=ProvCityCN(3,FL(Prov,"Number")) CSCityName=ProvCityCN(3,FL(City,"Number")) IF CSCityName<>"" Then ProvORCityName=CSCityName ElseIF CSProvName<>"" and CSCityName="" Then ProvORCityName=CSProvName Else Exit Function '如果没有找到返回城市则退出！！！ End IF ArtListMoBan=ReadFile("/Mudidi/MoBan/MoreArt.asp") CtsHeadTop=ReadFile("/Ctshead4.htm") ArtListMoBan=Replace(ArtListMoBan,"$CtsHeadTop$",CtsHeadTop) IF FColumID<>0 Then Sql=" and Fu_Colum='"&ColumID&"'" End IF IF ColumID<>0 Then IF Sql="" Then Sql=" and Colum_ID='"&ColumID&"'" Else Sql=Sql&" and Colum_ID='"&ColumID&"'" End IF End IF IF MoreSql<>"" Then IF Sql="" Then Sql=MoreSql Else Sql=Sql&MoreSql End IF End IF IF Prov<>0 Then IF Sql="" Then Sql="and Prov='"&Prov&"'" Else Sql=Sql&"and Prov='"&Prov&"'" End IF ArtListMoBan=Replace(ArtListMoBan,"$News$",News(Prov,0,0,20,13,"blank",0)) End IF IF City<>0 Then IF Sql="" Then Sql="and City='"&City&"'" Else Sql=Sql&"and City='"&City&"'" End IF ArtListMoBan=Replace(ArtListMoBan,"$News$",News(0,City,0,20,13,"blank",0)) End IF IF Sql<>"" Then Set rs=Conn.Execute("Select count(id) From Art Where BiaotiArt=0 and Del=0 and ArtCheck=0 "&Sql) ArtNum=rs(0) IF (ArtNum mod 25)=0 Then ArtPagecount=Cint(ArtNum\25) Else ArtPagecount=Cint(ArtNum\25)+1 End IF IF ArtNum=0 Then '如果为0条记录，写空页，退出函数 ColumTitle="没有找到"&ColumTitle&"！！！" ArtList=ColumTitle ArtList=Replace(ArtListMoBan,"$ArtList$",ArtList) ArtList=Replace(ArtList,"$ColumTitle$",ColumTitle) ArtList=Replace(ArtList,"$YeiMa$","") ArtList=Replace(ArtList,"$News$","") ArtList=Replace(ArtList,"$ProvTS$",ProvORCityName) Call WriteFile(PagePath&Replace(PageName,"[Page]",1)&Kuozm,ArtList) Exit Function End IF rs.Close Set rs=Nothing Set rs=Conn.Execute("Select Title,Path,FileName,AddDate From Art Where BiaotiArt=0 and Del=0 and ArtCheck=0 "&Sql&" Order by id desc") For P=1 to ArtPagecount ArtList="" & vbcrlf For i=1 To 25 IF rs.Eof or rs.Bof Then Exit For ArtList=ArtList&"" & vbcrlf ArtList=ArtList&"" & vbcrlf ArtList=ArtList&"" & vbcrlf rs.Movenext Next ArtList=ArtList&"
" & vbcrlf ArtList=ArtList&" " ArtList=ArtList&""&rs("Title")&"" & vbcrlf ArtList=ArtList&"
" & vbcrlf ArtList=Replace(ArtListMoBan,"$ArtList$",ArtList) ArtList=Replace(ArtList,"$ColumTitle$",ColumTitle) ArtList=Replace(ArtList,"$ProvTS$",ProvORCityName) ArtList=Replace(ArtList,"$CSProv$",Prov) IF P=1 Then IF ArtPagecount>1 Then YeiMa="共"&ArtNum&"条信息 首页 上一页 下一页 末页 第"&P&"页/共"&ArtPagecount&"页" Else YeiMa="共"&ArtNum&"条信息 首页 上一页 下一页 末页 第"&P&"页/共"&ArtPagecount&"页" End IF Else IF P=ArtPagecount Then YeiMa="共"&ArtNum&"条信息 首页 上一页 下一页 末页 第"&P&"页/共"&ArtPagecount&"页" Else YeiMa="共"&ArtNum&"条信息 首页 上一页 下一页 末页 第"&P&"页/共"&ArtPagecount&"页" End IF End IF ArtList=Replace(ArtList,"$YeiMa$",YeiMa) Call WriteFile(PagePath&Replace(PageName,"[Page]",P)&Kuozm,ArtList) 'Response.Write(ArtList&"
") Next Else End IF 'End IF End Function Public Sub JiPiaoList(Prov,City,TopNum,Style) Dim Sql IF Prov<>"" Then Sql="shengfen="&Prov End IF IF City<>"" Then IF Sql="" Then Sql="diqu="&City Else Sql=Sql&" and diqu="&City End IF End IF IF Sql<>"" Then Sql="select Top "&TopNum&" * from jipiao where show='1' and shenhe='0' and dazhe='1' "&Sql&" order by indata desc" Else Sql="select Top "&TopNum&" * from jipiao where show='1' and shenhe='0' and dazhe='1' order by indata desc" ENd IF Set rs=Conn.Execute(Sql) Response.Write("") Do while not (rs.Eof or rs.Bof) Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") rs.movenext Loop rs.CLose Response.Write("
·"&left(rs("Title"),25)&""&rs("price")&""&rs("HbNo")&""&FormatDateTime(rs("indata"),2)&"
") End Sub Public Function NoHtml(str) '去掉HTML的正则表达式 NoHtml=str dim re Set re=new RegExp re.IgnoreCase =true re.Global=True re.Pattern="(\<.*?\>)" NoHtml=re.replace(NoHtml,"") re.Pattern="(\<\/.*?\>)" NoHtml=re.replace(NoHtml,"") End Function Public Function ProvCityCN(lei,ProvCityNum) '取地区中文名字 IF cint(lei)=1 Then '省 Set PCrs=Conn.Execute("Select Prov_CN From Prov_Class WHere Prov_EN='"&ProvCityNum&"' and Prov=0") ElseIF cint(lei)=2 Then '市 Set PCrs=Conn.Execute("Select Prov_CN From Prov_Class WHere Prov_EN='"&ProvCityNum&"' and Prov<>0") ElseIF cint(lei)=3 Then'不限制 Set PCrs=Conn.Execute("Select Prov_CN From Prov_Class WHere Prov_EN='"&ProvCityNum&"'") Else ProvCityCN="" Exit Function End IF IF PCrs.Eof or PCrs.Bof Then ProvCityCN="" PCrs.Close Exit Function Else ProvCityCN=PCrs("Prov_CN") PCrs.Close End IF End Function '*******************************过滤类函数开始**************************** Public Sub InitReg() If Not IsObject(vReg) Then Set vReg = New RegExp vReg.Global = True vReg.IgnoreCase = True End If End Sub Public Function FL(Str,FilterType) Select Case FilterType Case "Sql" '0 '常用过滤,防SQL注入 FL = FL2(Str,"['#%;]") ' Case fNumber '1 '数字 Case "Number" '1 '数字 ，为了兼容，保留Number FL = FL1(Str, "^-?\d+$") 'If IsNull(FL) Or IsEmpty(FL) Or FL = "" Then FL = 0 If IsNull(FL) Or IsEmpty(FL) Or FL = "" OR Len(FL)>8 Then '增加位数判断 FL = 0 Else FL = CLng(FL) End IF Case "String" '2 '字母 ' FL = FL1(Str, "[a-zA-Z]+") FL = FL2(Str, "[^a-zA-Z]") Case "LCase" '3 '小写字母 FL = FL2(Str, "[^a-z]") ' FL = FL1(Str, "[a-z]+") Case "UCase" '4 '大写字母 FL = FL2(Str, "[^A-Z]") ' FL = FL1(Str, "[A-Z]+") Case "NumberAndString" '5 '数字/大小写字母/下划线，这是标准变量 FL = FL1(Str, "\w+") Case "All" '6 '数字/大小写字母/可显示符号 FL = Str Case "Real" '8 '浮点数 FL = FL1(Str, "^-?\d+(\.\d*)?(e-?\d*)?$") Case "SqlT" '0 '常用过滤,替换为全角 'FL = FL3(Str,"'|#|%|;","’|＃|％|；") FL = FL3(Str,"'|#|%","’|＃|％") Case "SqlR" '0 '常用过滤,防SQL注入 'FL = FL3(Str,"'|#|%|;","$Cts’$|$Cts＃$|$Cts％$|$Cts；$") FL = FL3(Str,"'|#|%","$Cts’$|$Cts＃$|$Cts％$") Case "SqlC" '0 '常用过滤,防SQL注入 'FL = FL3(Str,"$Cts’$|$Cts＃$|$Cts％$|$Cts；$","'|#|%|;") FL = FL3(Str,"$Cts’$|$Cts＃$|$Cts％$|$Cts；$","'|#|%|;") Case Else FL = FL1(Str, FilterType) End Select End Function '只返回允许的字符 Public Function FL1(Str,AllowStr) Dim i,j,t,mStr, Rex FL1 = "" If Not IsObject(vReg) Then Call InitReg() End If FL1 = "" vReg.Pattern = AllowStr If vReg.Test(Str&"") Then FL1 = Str End Function '删除不允许的字符 Public Function FL2(Str,NotAllowStr) Dim i,mStr FL2 = "" If Not IsObject(vReg) Then Call InitReg() End If vReg.Pattern = NotAllowStr FL2 = vReg.Replace(Str, "") End Function '替换不允许的字符为指定字符 Public Function FL3(Str,NotAllowStr,RCstr) IF Str="" or NotAllowStr="" or RCstr="" Then Exit Function End IF YStr=Split(NotAllowStr,"|") GStr=Split(RCstr,"|") For i=0 to ubound(YStr) Str=Replace(Str,YStr(i),GStr(i)) Next FL3=Str End Function Function HTMLEncode(fString) fString=FL3(fString,"'|#|%","’|＃|％") fString=Trim(Server.HtmlEncode(fString)) fString=Replace(fString,"&","&")' fString=Replace(fString,"\","\") fString=Replace(fString,"--","--") fString=Replace(fString,CHR(9)," ") fString=Replace(fString,CHR(10),"
") fString=Replace(fString,CHR(13),"") fString=Replace(fString,CHR(22),"") fString=Replace(fString,CHR(32)," ") fString=Replace(fString,CHR(39),"'")'单引号 fString=Replace(fString,";",";") HTMLEncode=fString End Function '取字符串 Function CutStr(Str,LenNum) Dim P_num Dim I,X If StrLen(Str)<=LenNum Then Cutstr=Str Else P_num=0 X=0 Do While Not P_num > LenNum-2 X=X+1 If Asc(Mid(Str,X,1))<0 Then P_num=Int(P_num) + 2 Else P_num=Int(P_num) + 1 End If Cutstr=Left(Trim(Str),X) Loop End If End Function '计算字符串长度 Function strLen(Str) If Trim(Str)="" Or IsNull(str) Then Exit Function Dim P_len,x P_len=0 StrLen=0 P_len=Len(Trim(Str)) For x=1 To P_len If Asc(Mid(Str,x,1))<0 Then StrLen=Int(StrLen) + 2 Else StrLen=Int(StrLen) + 1 End If Next End Function '*******************************过滤类函数结束**************************** '///////////////////////////////友情连接/////////////////////////////////// Public Function LinkOut(LinkType,hang,lie,L) '类型，行，列 TopNum=cint(hang*lie) width=cint(730/lie) Set rs=Conn.Execute("Select top "&TopNum&" ID,SiteLink,SiteName,SiteLOGO,Content From SiteLink where SiteLOGO='' Order by SiteTop desc,id desc") LinkOut=""&_ ""&_ ""&_ "
友
情
链
接		" do while Not (rs.Eof or rs.Bof) LinkOut=LinkOut&"" For i=1 to lie IF rs.EOf or rs.Bof Then LinkOut=LinkOut&"" Else 'LinkOut=LinkOut&"" LinkOut=LinkOut&"" rs.Movenext End IF Next LinkOut=LinkOut&"" Loop LinkOut=LinkOut&"
"&rs("SiteName")&""&rs("SiteName")&"
" rs.CLose Set rs=Conn.Execute("Select top 16 ID,SiteLink,SiteName,SiteLOGO,Content From SiteLink where SiteLOGO<>''") LinkOut=LinkOut&""& vbcrlf For b=1 to 2 LinkOut=LinkOut&""& vbcrlf For i=1 to 8 IF rs.EOf or rs.Bof Then LinkOut=LinkOut&""& vbcrlf Else 'LinkOut=LinkOut&""& vbcrlf LinkOut=LinkOut&""& vbcrlf rs.Movenext End IF Next LinkOut=LinkOut&""& vbcrlf Next LinkOut=LinkOut&"
" rs.CLose End Function '/////////////////////////////////////////////////////////////////////////// Function jserr(Content) Response.Write("") Response.End() End Function Function Errer(Content) Response.Write ReadFile("../CtsHead4.htm") Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "
"&Content&"
返回上一页
" Response.Write "" Response.End End Function Public Function alert(Content,Redirec) IF Redirec<>"" Then Response.Write("") Response.End() Else Response.Write("") End IF End Function Public Function alert2(Content) Response.Write("") Response.End() End Function '**************************************获取IP******************************************** Public Function IP() IF Request.ServerVariables("HTTP_X_FORWARDED_FOR")="" Then IP = Request.ServerVariables("REMOTE_ADDR") Else IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR") End IF End Function '**************************************增加******************************************** '修改时间2007-6-21 原为用户名记录，现为ID， '添加积分为0分时不进行操做 Public Function UserJF(Num,UserID,ShiJian,Ty) IF FL(UserID,"Number")=0 Then '有的位置不能直接提供用户ID而是用户名，在此找用户ID Set rs=Conn.Execute("Select ID From Cts_User Where UserName='"&FL(UserID,"Sql")&"'") IF rs.Eof or rs.Bof Then rs.CLose:Set rs=Nothing Exit Function Else UserID=rs("ID") rs.CLose:Set rs=Nothing End IF End IF IF FL(Num,"Number")<>0 Then IF FL(Ty,"Number")=1 Then Conn.Execute("Update Cts_User Set XFJiFen=XFJiFen+"&FL(Num,"Number")&" Where ID='"&FL(UserID,"Number")&"'") Conn.Execute("insert into User_JiFen(UserID,JiFenNum,Reason,AddDate,XGDD) Values('"&FL(UserID,"Number")&"','"&FL(Num,"Number")&"','"&FL(ShiJian,"Sql")&"',getdate(),'')") ElseIF FL(Ty,"Number")=0 Then Conn.Execute("Update Cts_User Set JiFen=JiFen+"&FL(Num,"Number")&" Where ID='"&FL(UserID,"Number")&"'") Conn.Execute("insert into User_JiFen(UserID,JiFenNum,Reason,AddDate,XGDD) Values('"&FL(UserID,"Number")&"','"&FL(Num,"Number")&"','"&FL(ShiJian,"Sql")&"',getdate(),'')") End IF End IF End Function '****************************************缩略图******************************************** Sub SuoLT(Saveslimage,imgurl,width,height) Dim Jpeg,BiLi 'On Error Resume Next Set Jpeg = Server.CreateObject("Persits.Jpeg") IF imgurl<>"" then Jpeg.Open Server.MapPath(imgurl)'图片路径并打开它 Else response.write "" exit Sub End IF IF Jpeg.Width > Jpeg.Height Then BiLi=width/Jpeg.Width Else BiLi=height/Jpeg.Height End IF Jpeg.Width = Jpeg.OriginalWidth * BiLi Jpeg.Height = Jpeg.OriginalHeight * BiLi Jpeg.Save Server.MapPath(Saveslimage) Set Jpeg = Nothing 'If Err Then 'err.Clear ' Response.Write "缩略图生成错误" 'Response.End 'End If End SUb Public Function DTPath() '生成日期及文件名称 DTPath=year(now)&"-"&month(now)&"-"&day(now) End Function End Class Function ShowPage(ByRef PageCount,RecordCount,CurrentPage,PageSize,LinkFile,ColumID) Dim Retval,J,StartPage,EndPage If (RecordCount Mod PageSize)=0 Then PageCount=RecordCount \ PageSize Else PageCount=RecordCount \ PageSize+1 End If If PageCount=0 Then PageCount=1 If CurrentPage="" Then CurrentPage=1 else CurrentPage=CInt(CurrentPage) Retval=Retval & "" Retval=Retval & "" Retval=Retval & "" Retval=Retval & "" Retval=Retval & "
" If CurrentPage=1 Then Retval=Retval & "共搜索到"&RecordCount&"条记录  首页 | 前页 | " Else Retval=Retval & "共搜索到"&RecordCount&"条记录  首页 | 前页 | " End If If CurrentPage=PageCount Then Retval=Retval & "后页 | 末页" Else Retval=Retval & "后页 | 末页" End if If RecordCount>0 Then Retval=Retval & " | "&CurrentPage&"页/"&CInt(PageCount)&"页" End If Retval=Retval & "" StartPage = Page-3 EndPage = Page+3 If EndPage>PageCount Then EndPage=PageCount If EndPage < PageCount Then Retval= Retval & " ... :" Retval=Retval & "
" ShowPage=Retval End Function %> <% Const JDCreatePath="/Member/Sight/" '景点生成路径 Const Kuozm=".html" '生成文件扩展名 Const JDCLink="" 'http://www.cts2008.com/mudidi/mu/一定要与JDCreatePath常量相关联 %> <% 'blog常用 '全局常量或变量、参数定义程序段 '重要以下两个选项，每次修改文件都需认真查看 Const Modules_Folder="/Modules/" '静态页面归档目录 A_id,M_Id,S_id Const blogdir = "/" 'blog程序所在目录,非常重要,默认为根目录,如为blog目录请改为/blog/ Const tdir="team" Const f_ext = "html" '(23) '生成的日志静态文件后缀,可以为htm,html,shtml,asp四种格式 Const cookies_name = "oblog4" 'cookies名,一般无须修改(7) Const cookies_domain = "" 'cookeies域名根,一般留空(8) Const cache_name_user = "oblog4" '系统缓存名前缀，一般无须修改 Const cache_name = "oblog4" '系统缓存名前缀，一般无须修改 Const SYSFOLDER_ADMIN = "admin" '该目录名称将被作为系统禁止注册的用户名使用 Const SYSFOLDER_MANAGER = "manager" '该目录名称将被作为系统禁止注册的用户名使用 Const upload_dir = "UploadFiles" '默认上传目录，为空则使用用户所在目录，若需要修改为其他目录，请手工建目录 Const is_unamedir = 1 '是否使用username作用户目录，１为使用，０为关闭 Const en_nameisnum = 0 '是否允许全数字的用户名,1为允许,0为不允许 Const logfilepath = 1 '日志文件路径，0为根目录，1为"/archives/年份/"目录 Const str_htmlfilt = "" '自定义过滤的html代码，必须以|结束，格式如aaa|bbb|，则过滤aaa和bbb标签(对评论和留言有效) Const is_debug = 1 '是否开启调试模式,1为开启，0为关闭 Const is_relativepath = 1 '站内连接路径参数，1为相对路径，0为绝对路径 Const P_TAGS_SPLIT = " " 'TAG Split Const P_TAGS_MAX = 10 'TAGS IN ONE BLOG Const P_TAGS_DESC = "日志标签" 'TAG DESC Const P_TAGS_ICON = "TAG" 'TAG DESC Const P_TAGS_CLOUD = 1 '1:CLOUD;2:LIST DESC Const P_TAGS_PerLine = 8 Const P_TAGS_SYSURL = "tags.asp" Const P_TRACKBACK_MAX = 5 Const P_QQ_NAME = "群组" Const P_QQ_MASTERNAME = "组长" Const p_Group_MaxUser=500 Const P_QQ_MINBLOGS = 0 '发表多少篇日志才能创建圈圈，0为不限制 Const P_Site_Hours = 0 '服务器与时差设置 Const P_BLOG_UPDATEPAUSE = 2 '每生成5篇日志的暂停时间(1~100) Const C_BLOGSTAR_MINBLOGS = 10 '最少发布多少篇日志才允许申请博客之星,0为不限制 Const C_SKIN_USERGOOD = 0 '是否启用用户推荐自己的模板功能,0为否,1为启用 Const C_Sequence_Max = 0 '系统允许同时进行整站更新的数目，0为不限制 Const C_Reg_AutoCreate = 1 '是否启用注册后自动创建用户目录 Const C_Reg_AutoTemplate = 1 '是否启用注册后自动选择默认模板（如果启用，C_Reg_AutoCreate的值必须为1） Const C_Reg_AutoPost = 1 '是否启用注册后自动发布一篇默认日志 Const C_Reg_AutoPostStr = "" '用户注册后自动发布日志的内容 Const C_User_ViewUploadfiles = 1 '是否启用后台上传图片文件的预览功能 '垃圾注册、回复、留言控制v1.0 Const C_Spam_RegCodeTime = 180 '注册授权码更新间隔时间,单位为分钟，30分钟最小,一天最大(1440分钟),间隔太小，可能会造成正常用户注册失败 Const C_Spam_RegCheckTime = 300 '帐号注册间隔时间单位秒 Const C_Spam_RegInOneHour = 2 '连续1小时内同一IP的注册数目,0为不限制 Const C_Spam_RegInOneIP = 10 '同一IP允许注册的最大数目，如果超过该数目，该IP的注册用户将被全部禁止；0为不限制 Const C_Spam_ChkMinutes=5 '检查时间间隔(请根据站点的流量和反应度设置) Const C_Spam_OneIp = 10 '如果设置间隔内回复/评论连续超过一定数目，则该IP将被列入黑名单 Const C_Spam_AllIp = 15 '如果设置间隔内回复/评论连续超过一定数目，则该IP将被列入黑名单 '真实域名相关参数 Const true_domain = 0 '是否启用真实二级域名,需OblogDns组件支持(6) Dim blogurl, str_domain If true_domain = 1 Then '真实域名必填，设置blog程序绝对路径 blogurl = "http://blog.cts2008.com/" str_domain = ",custom_domain" Else blogurl = blogdir End If '分页公用变量 Dim G_P_PerMax,G_P_AllRecords,G_P_AllPages,G_P_This,G_P_FileName,G_P_Guide dim C_Editor C_Editor=blogdir&"editor" Const C_Vote_Action1="鲜花" Const C_Vote_Action2="板砖" Const C_UserIcon_Width="48" Const C_UserIcon_Height="48" Const En_OutRss=1 '是否允许订阅站外rss源 Const En_Recycle=1 '是否启用回收站功能(只对日志及用户数据启用,回复、评论、文件等不启用) %> <% 'Option Explicit Response.Buffer = True dim CTSName,CTSPass,CTSDatabaseName,CTSLocal,Str CTSname="web294651" CTSPass="a1s2d3f4g5h6" CTSDatabaseName="www_cts2008_com" CTSLocal="(local)" On Error Resume Next Set Conn = Server.CreateObject("ADODB.Connection") Str = "Provider = Sqloledb; User ID = " & CTSname & "; Password = " & CTSPass & "; Initial Catalog = " & CTSDatabaseName & "; Data Source = " & CTSLocal & ";" Conn.open Str If Err Then err.Clear Set Conn = Nothing Response.Write "数据库连接出错，请检查连接字串。" Response.End End If 'set rs=server.CreateObject("adodb.recordset") %> 游易天下中国旅游网—出发地—上海
首　　页 | 出 境 游 | 国 内 游 | 周 边 游 | 户外拓展 | 休闲度假 | 机    票 | 酒    店 | 论    坛
新闻中心 | 旅游超市 | 精品景区 | 出行必备 | 导游培训 | 民族风俗 | 中华美食 | 企业中心 | 会员目录
香    港 | 澳    门 | 台    湾 | 亚    洲 | 非    洲 | 欧    洲 | 大 洋 州 | 南 美 洲 | 北 美 洲
 
游易天下旅游网论坛 会员： 密码：
 
   出发地： 北京 | 上海 | 广州
目的地：
<% %>
精彩推荐
<%set jcrs=server.CreateObject("adodb.recordset") jcsql="select * from Art where Prov=10020 and Colum_ID=329 and PicArt=1 and ArtCheck=0 and del=0 order by id desc" jcrs.open jcsql,conn,1,1 for i=0 to 3 if jcrs.eof then exit for end if%>
" target=_blank class=huise> " Alt="<%=jcrs("Title")%>" width=66 and height=55 border=0> <%set textrs=server.CreateObject("adodb.recordset") textsql="select * from Art where Prov=10020 and Colum_ID=329 and PicArt=0 and ArtCheck=0 and del=0 order by id desc" textrs.open textsql,conn,1,1 for j=1 to 3 if textrs.eof then exit for end if%>
<% if textrs("BiaotiArt")=1 then%> " target="_blank" class="huise"> <%=left(textrs("Title"),6)%> <%else%> /<%=textrs("FileName")%>.html class="huise" target="_blank" "> <%=left(textrs("Title"),6)%> <%end if%>
<%textrs.movenext next%>
<%jcrs.movenext next%>
酒店宾馆
<%set jl=server.CreateObject("adodb.recordset") jlsql="select * from Art where PicArt=1 and del=0 and Colum_ID=343 and ArtCheck=0 order by id desc" jl.open jlsql,conn,1,1 if not jl.eof then %> <%if jl("BiaotiArt")=1 then %> ">" width=60 height=55 hspace="2" border=0> <%else%> /<%=jl("FileName")%>/.html" target="_blank">" width=60 height=55 hspace="2" border=0> <% end if end if%> <%set jl=server.CreateObject("adodb.recordset") jlsql="select * from Art where PicArt=0 and del=0 and Colum_ID=343 and ArtCheck=0 order by id desc" jl.open jlsql,conn,1,1 if not jl.eof then for i=1 to 3 if jl.eof then exit for end if%><%if jl("BiaotiArt")=1 then %> " class="huise"> <%=left(jl("Title"),6)%> <%else%> /<%=jl("FileName")%>.html" class="huise" target="_blank"> <%=left(jl("Title"),6)%> <% end if jl.movenext next end if%>
<%set jl=server.CreateObject("adodb.recordset") jlsql="select * from Art where PicArt=1 and del=0 and Colum_ID=344 and ArtCheck=0 order by id desc" jl.open jlsql,conn,1,1 if not jl.eof then %> <%if jl("BiaotiArt")=1 then %> ">" width=60 height=55 hspace="2" border=0> <%else%> /<%=jl("FileName")%>/.html" target="_blank">" width=60 height=55 hspace="2" border=0> <%end if end if%> <%set jl=server.CreateObject("adodb.recordset") jlsql="select * from Art where PicArt=0 and del=0 and Colum_ID=344 and ArtCheck=0 order by id desc" jl.open jlsql,conn,1,1 for i=1 to 3 if jl.eof then exit for end if%> <%if jl("BiaotiArt")=1 then %> " class="huise"> <%=left(jl("Title"),6)%> <%else%> /<%=jl("FileName")%>/.html" class="huise" target="_blank"> <%=left(jl("Title"),6)%> <% end if jl.movenext next%>
<%set jl=server.CreateObject("adodb.recordset") jlsql="select * from Art where PicArt=1 and del=0 and Colum_ID=345 and ArtCheck=0 order by id desc" jl.open jlsql,conn,1,1 if not jl.eof then%> <%if jl("BiaotiArt")=1 then %> ">" width=60 height=55 hspace="2" border=0> <%else%> /<%=jl("FileName")%>/.html" target="_blank">" width=60 height=55 hspace="2" border=0> <%end if end if %> <%set jl=server.CreateObject("adodb.recordset") jlsql="select * from Art where PicArt=0 and del=0 and Colum_ID=345 and ArtCheck=0 order by id desc" jl.open jlsql,conn,1,1 for i=1 to 3 if jl.eof then exit for end if%> <%if jl("BiaotiArt")=1 then %> " class="huise"> <%=left(jl("Title"),6)%> <%else%> /<%=jl("FileName")%>/.html" class="huise" target="_blank"> <%=left(jl("Title"),6)%> <% end if jl.movenext next%>
<% Sub ImagePage(Colum) %>
<%=TitleContent(0)%> <%=TitleContent(1)%>
<%=TitleContent(2)%> <%=TitleContent(3)%>
<% End Sub Call ImagePage(386) %>
想成为时尚尖端的人吗
体验漂流的激情
浪漫三亚的海滩
回味无穷的游走
北京青年旅行社为您提供更多旅游线路
热推线路
<% set xlrs=server.CreateObject("adodb.recordset") Dim XLID(8) xlsql="select top 9 * from XianLu where Member_Account='bqxd' and ChuFD_provid1 like '%10020%' and Del=0 and XL_Check=0 order by AddDate desc" xlrs.open xlsql,conn,1,1 for i=0 to 8 if Not (xlrs.eof or xlrs.Bof) then%> /<%=xlrs("XLFileName")%>.html" class="huise" title="<%=xlrs("XL_Name")%>">·<%=left(xlrs("XL_Name"),16)%>..   ￥<%=xlrs("YouHui_Price")%> <%=FormatDateTime(xlrs("AddDate"),2)%>
<% XLID(i)=xlrs("id") xlrs.movenext Else XLID(i)=0 End IF next xlrs=close Set xlrs=Nothing set xlrs=server.CreateObject("adodb.recordset") xlsql="select top 5 * from XianLu where id<>'"&XLID(0)&"' and id<>'"&XLID(1)&"' and id<>'"&XLID(2)&"' and id<>'"&XLID(3)&"' and id<>'"&XLID(4)&"' and id<>'"&XLID(5)&"' and id<>'"&XLID(6)&"' and id<>'"&XLID(7)&"' and id<>'"&XLID(8)&"' and ChuFD_provid1 like '%10020%' and Del=0 and XL_Check=0 order by AddDate desc" xlrs.open xlsql,conn,1,1 for i=1 to 5 if xlrs.eof then exit for end if%> /<%=xlrs("XLFileName")%>.html" class="huise" title="<%=xlrs("XL_Name")%>">·<%=left(xlrs("XL_Name"),16)%>..   ￥<%=xlrs("YouHui_Price")%> <%=FormatDateTime(xlrs("AddDate"),2)%>
<% xlrs.movenext next xlrs=close Set xlrs=Nothing %>
当地新闻
<%set rs=server.CreateObject("adodb.recordset") sql="select * from News where Prov=10020 and del=0 and NewsCheck=0 order by id desc" rs.open sql,conn,1,1 for i=1 to 12 if rs.eof then exit for end if %>· /<%=rs("FileName")%>.html" class="huise" target="_blank" title="<%=rs("Title")%>"><%=left(rs("Title"),14)%>
<%rs.movenext next%>
异地风俗
<% Sub Art(Colum,Prov) %>
<% '欧洲 Set ll=conn.Execute("select Top 1 * from Art where PicArt=1 and del=0 and ArtCheck=0 and Colum_ID='"&Colum&"' "&Prov&" order by id desc") if not (ll.eof or ll.Bof) then if ll("BiaotiArt")=true then %> " target="_blank">" width=76 height=76 hspace="2" border=0 alt="<%=ll("Title")%>"> <%else%> /<%=ll("FileName")%>.html" target="_blank">" width=76 height=76 hspace="2" border=0 alt="<%=ll("Title")%>"> <%end if end if%>
<% Set lltext=conn.Execute("select * from Art where del=0 and ArtCheck=0 and Colum_ID='"&Colum&"' "&Prov&" order by id desc ") for i=1 to 4 if (lltext.eof or lltext.Bof) then exit for IF lltext("STitle")="" Then Title=lltext("Title") Else Title=lltext("STitle") End IF if lltext("BiaotiArt")=true then %> ·" target="_blank" class="huise " Title="<%=lltext("Title")%>"><%=Left(Title,7)%>
<%else %> ·/<%=lltext("FileName")%>.html" target="_blank" class="huise" Title="<%=lltext("Title")%>"><%=Left(Title,7)%>
<%end if%> <% lltext.movenext next%>
<% for j= 1 to 2 if lltext.eof then exit for IF lltext("STitle")="" Then Title=lltext("Title") Else Title=lltext("STitle") End IF %> <%if lltext("BiaotiArt")=1 then %> ·" target="_blank" class="huise " Title="<%=lltext("Title")%>"><%=Left(Title,14)%>
<%else %> ·/<%=lltext("FileName")%>.html" target="_blank" class="huise" Title="<%=lltext("Title")%>"><%=Left(Title,14)%>
<%end if%> <% lltext.movenext next lltext.close Set lltext=nothing %>
<% End Sub %> <%Call Art(207,"and Prov=10011")%> 		<%Call Art(207,"and Prov=10040")%>
<%Call Art(207,"and Prov=30")%> <%Call Art(207,"and Prov=40")%>
著名景点
<%'公园一 set turs=server.CreateObject("adodb.recordset") tusql="select * from Art where PicArt=1 and del=0 and ArtCheck=0 and Colum_ID=327 order by id desc" turs.open tusql,conn,1,1 if not turs.eof then if turs("BiaotiArt")=1 then%> " target="_blank" class="huise">" width="74" height="80" border="0"> <%else%> /<%=turs("FileName")%>.html" target="_blank" class="huise">" width="74" height="80 " border="0"> <%end if end if %>
<% set turs=server.CreateObject("adodb.recordset") tusql="select * from Art where PicArt=0 and del=0 and ArtCheck=0 and Colum_ID=327 order by id desc" turs.open tusql,conn,1,1 for i=1 to 4 if turs.eof then exit for end if %> <%if turs("BiaotiArt")=1 then%> " target="_blank" class="huise" title="<%=turs("Title")%>"><%=turs("Title")%>
<%else%> /<%=turs("FileName")%>.html" target="_blank" class="huise" title="<%=turs("Title")%>"><%=turs("Title")%>
<%end if turs.movenext next %>
<%'公园二 set turs=server.CreateObject("adodb.recordset") tusql="select * from Art where PicArt=1 and del=0 and ArtCheck=0 and Colum_ID=327 order by id desc" turs.open tusql,conn,1,1 if not turs.eof then turs.move 1 end if if turs.eof then response.Write("暂无图片") end if if not turs.eof then if turs("BiaotiArt")=1 then%> " target="_blank" class="huise">" width=74 height=80 hspace=2 border=0> <%else%> /<%=turs("FileName")%>.html" target="_blank" class="huise">" width=74 height=80 hspace=2 border=0> <%end if end if %>
<% set turs=server.CreateObject("adodb.recordset") tusql="select * from Art where PicArt=0 and del=0 and ArtCheck=0 and Colum_ID=327 order by id desc" turs.open tusql,conn,1,1 if turs.eof then response.Write("暂无内容") else turs.move 4 end if for i=1 to 4 if turs.eof then exit for end if %> <%if turs("BiaotiArt")=1 then%> " target="_blank" class="huise" title="<%=turs("Title")%>"><%=turs("Title")%>
<%else%> /<%=turs("FileName")%>.html" target="_blank" class="huise" title="<%=turs("Title")%>"><%=turs("Title")%>
<%end if turs.movenext next %>
<%'公园二 set turs=server.CreateObject("adodb.recordset") tusql="select * from Art where PicArt=1 and del=0 and ArtCheck=0 and Colum_ID=327 order by id desc" turs.open tusql,conn,1,1 if turs.eof then response.Write("暂无图片") else turs.move 2 end if if not turs.eof then if turs("BiaotiArt")=1 then%> " target="_blank" class="huise">" width=74 height=80 hspace=2 border=0> <%else%> /<%=turs("FileName")%>.html" target="_blank" class="huise">" width=74 height=80 hspace=2 border=0> <%end if end if %>
<% set turs=server.CreateObject("adodb.recordset") tusql="select * from Art where PicArt=0 and del=0 and ArtCheck=0 and Colum_ID=327 order by id desc" turs.open tusql,conn,1,1 if turs.eof then response.Write("暂无内容") else turs.move 7 end if for i=1 to 4 if turs.eof then exit for end if %> <%if turs("BiaotiArt")=1 then%> " target="_blank" class="huise" title="<%=turs("Title")%>"><%=turs("Title")%>
<%else%> /<%=turs("FileName")%>.html" target="_blank" class="huise" title="<%=turs("Title")%>"><%=turs("Title")%>
<%end if turs.movenext next %>
<%'公园二 set turs=server.CreateObject("adodb.recordset") tusql="select * from Art where PicArt=1 and del=0 and ArtCheck=0 and Colum_ID=327 order by id desc" turs.open tusql,conn,1,1 if turs.eof then response.Write("暂无图片") else turs.move 3 end if if not turs.eof then if turs("BiaotiArt")=1 then%> " target="_blank" class="huise">" width=74 height=80 hspace=2 border=0> <%else%> /<%=turs("FileName")%>.html" target="_blank" class="huise">" width=74 height=80 hspace=2 border=0> <%end if end if %>
<% set turs=server.CreateObject("adodb.recordset") tusql="select * from Art where PicArt=0 and del=0 and ArtCheck=0 and Colum_ID=327 order by id desc" turs.open tusql,conn,1,1 if turs.eof then response.Write("暂无内容") else turs.move 10 end if for i=1 to 4 if turs.eof then exit for end if %> <%if turs("BiaotiArt")=1 then%> " target="_blank" class="huise" title="<%=turs("Title")%>"><%=turs("Title")%>
<%else%> /<%=turs("FileName")%>.html" target="_blank" class="huise" title="<%=turs("Title")%>"><%=turs("Title")%>
<%end if turs.movenext next %>
旅游机构
<%set rsxx=server.CreateObject("adodb.recordset") sqlxx="select * from Art where Colum_ID=324 and ArtCheck=0 and del=0 order by id desc" rsxx.open sqlxx,conn,1,1 for j=1 to 7 if rsxx.eof then exit for end if if rsxx("BiaotiArt")=1 then%> " target="_blank" class="huise">·<%=rsxx("Title")%>
<%else%> /<%=rsxx("FileName")%>.html" target="_blank" class="huise">·<%=rsxx("Title")%>
<%end if%> <%rsxx.movenext next%>
自助游
<%set rsxx=server.CreateObject("adodb.recordset") sqlxx="select * from Art where Colum_ID=325 and ArtCheck=0 and del=0 order by id desc" rsxx.open sqlxx,conn,1,1 for j=1 to 8 if rsxx.eof then exit for end if if rsxx("BiaotiArt")=1 then%> " target="_blank" class="huise">·<%=rsxx("Title")%> <%else%> /<%=rsxx("FileName")%>.html" target="_blank" class="huise">·<%=rsxx("Title")%> <%end if%> <%rsxx.movenext next%>
推荐旅行社
 推荐酒店 推荐线路
<%set rs0=server.CreateObject("adodb.recordset") sql0="select * from Art where del=0 and ArtCheck=0 and Colum_ID=326 order by id desc" rs0.open sql0,conn,1,1 for k=1 to 7 if rs0.eof then exit for end if%> <%if rs0("BiaotiArt")=1 then %> " class="huise" target="_blank" title="<%=rs0("Title")%>">·<%=rs0("Title")%>
<%else%> /<%=rs0("FileName")%>.html" class="huise" target="_blank" title="<%=rs0("Title")%>">·<%=rs0("Title")%>
<%end if%> <%rs0.movenext next%>
<%set rs0=server.CreateObject("adodb.recordset") sql0="select * from Art where del=0 and ArtCheck=0 and Colum_ID= 328 order by id desc" rs0.open sql0,conn,1,1 for k=1 to 7 if rs0.eof then exit for end if%> <%if rs0("BiaotiArt")=1 then%> " target="_blank" class="huise" title="<%=rs0("Title")%>">·<%=left(rs0("Title"),12)%>
<%else%> /<%=rs0("FileName")%>.html " target="_blank" class="huise" title="<%=rs0("Title")%>"> ·<%=left(rs0("Title"),12)%>
<%end if%> <%rs0.movenext next%>
<%set rs0=server.CreateObject("adodb.recordset") sql0="select * from Art where del=0 and ArtCheck=0 and Colum_ID= 337 order by id desc" rs0.open sql0,conn,1,1 for k=1 to 7 if rs0.eof then exit for end if%> <%if rs0("BiaotiArt")=1 then%> " target="_blank" class="huise" title="<%=rs0("Title")%>">·<%=left(rs0("Title"),12)%>
<%else%> /<%=rs0("FileName")%>.html " target="_blank" class="huise" title="<%=rs0("Title")%>">·<%=left(rs0("Title"),12)%>
<%end if%> <%rs0.movenext next%>
心情游记
最新加盟
我行我摄
<%set mm=server.CreateObject("adodb.recordset") msql="select * from Art where Colum_ID=320 and del=0 and ArtCheck=0 and Prov=10020 order by id desc" mm.open msql,conn,1,1 for k=1 to 7 if mm.eof then exit for end if %> <%if mm("BiaotiArt")=1 then%> " class="huise" target="_blank" title="<%=mm("Title")%>">·<%=left(mm("Title"),8)%>
<%else%> /<%=mm("FileName")%>.html" class="huise" target="_blank" title="<%=mm("Title")%>">·<%=left(mm("Title"),8)%>
<%end if mm.movenext next%>
<%set rs1=server.CreateObject("adodb.recordset") sql1="select * from Member where Prov=10020 order by id desc" rs1.open sql1,conn,1,1 for n=1 to 7 if rs1.eof then exit for end if %>/<%=rs1("Account")%>/index.html" target="_blank" class="huise" title="<%=rs1("UserName")%>">·<%=left(rs1("UserName"),10)%>
<%rs1.movenext next%>
 
 
 
本网站旅游线路由北京青年旅行社等上百家大型旅行社提供旅游线路网上查询预定
Tel：010—51298952 010－51661901
MSN:cts2008-8@hotmail.com EMAIL：cts@cts2008com
游易天下中国旅游网 ＆ 北京青年畅游电子商务有限公司 www.cts2008.com＆ 版权所有
京ICP备05007222号