长春净月潭

<% ' --------------------------- 创建连接数据库 --------------------------- '注：以 Access 数据库为连接对象，连接对象名为：Conn。 Set ProduConn = Server.CreateObject("ADODB.Connection") cnnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & Server.MapPath("Database/Produ.mdb") ProduConn.Open cnnStr Set Conngao = Server.CreateObject("ADODB.Connection") cnnStrgao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & Server.MapPath("Database/Other.mdb") Conngao.Open cnnStrgao Set ConnNews = Server.CreateObject("ADODB.Connection") cnnStrNews = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & Server.MapPath("Database/News.mdb") ConnNews.Open cnnStrNews Set Conn = Server.CreateObject("ADODB.Connection") cnnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & Server.MapPath("Database/Book.mdb") Conn.Open cnnStr ' --------------------------- 创建记录集 --------------------------- '注：记录集名 "Rs" 应与表名相加。并以 3, 2 方式打开。 Set ContentRs = Server.CreateObject("ADODB.RecordSet") ContentSQL = "Select * From Content" ContentRs.Open ContentSQL, Conngao, 3, 2 Set ProduRs = Server.CreateObject("ADODB.RecordSet") ProduSQL = "Select * From Produ Order By ID DESC" ProduRs.Open ProduSQL, ProduConn, 3, 2 Set HomeNewsRs = Server.CreateObject("ADODB.RecordSet") HomeNewsSQL = "Select top 8 * From HomeNews Order by ID Desc" HomeNewsRs.Open HomeNewsSQL, ConnNews, 3, 2 Set Produtype = Server.CreateObject("ADODB.RecordSet") Produtype1 = "Select * From Produtype Order By ID DESC" Produtype.Open Produtype1, ProduConn, 3, 2 set Bookrs = Server.CreateObject("ADODB.Recordset") Booksql = "select * from Book" Bookrs.open Booksql,conn,3,2 Dim j j = Produtype.RecordCount Dim Produ_type(30),imaetype(30) For i = 0 to Produtype.RecordCount - 1 Produ_type(i) = Produtype("produtype") imaetype(i)=Produtype("produimage") Produtype.Movenext Next %> 长春净月潭


	旅　行　途　中　钱　放　哪　儿　好

详细内容 >>

　　外出旅游观光最担心的是钱丢失或被盗。那么旅行途中应怎样把钱放好呢？
　　
　　首先，要找准“藏”钱的地点。钱的存放要化整为零，大票面的放在贴身的内衣裤外面的几个口袋里，并至少应分在两处。元和角票是旅行中最频繁使用的，对这笔钱宜分散放在上衣和裤子外面的几个口袋里，每处总数三五元而已。钱包和背包里原则上不应放钱。在公共车辆上，更切忌背在背上，而夹克、西装也应拉上拉锁或扣上扣子。
　　
　　其次，要掌握取钱的技巧。始终保持各种面值钞票的结构平衡。买5角钱的东西，就不要掏5元钱的口袋。掏小钱时不妨动作“毛糙”一点，一把全抓出来，乱七八糟不过三五元，即使小偷在旁，看你没什么“油水”也就不屑动手。在吃饭、购物等要花中等面额钱的时候，付款最好做到该付多少整数，就取几张整钱。零票花掉了，要及时在僻静处取出一张大票面的钱在下一次消费中换成中小币值的票子，匀放到各个口袋里。
　　

　　转自 : 新华网

<% If Request("radiobutton")<>"" then strsql2 = "update Book set Hits =hits+1 Where proname ='"&Request("radiobutton")&"'" conn.execute(strsql2) response.write"" End if %>