欢迎光临中国艺术网

<%@LANGUAGE="VBSCRIPT"%> <% ' FileName="Connection_ado_conn_string.htm" ' Type="ADO" ' DesigntimeType="ADO" ' HTTP="false" ' Catalog="" ' Schema="" Dim MM_Conn_STRING 'MM_Conn_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\李超\中国艺术网\exec\database\yishu.asp" MM_Conn_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("/exec/database/yishu.asp") 'MM_Conn_STRING = "Driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("..\database\yishu.asp") %> <% set more = Server.CreateObject("ADODB.Recordset") more.ActiveConnection = MM_conn_STRING more.Source = "SELECT date, img, link, te, title, type FROM news WHERE type='News38' ORDER BY date desc,id desc" more.CursorType = 1 more.CursorLocation = 2 more.LockType = 3 more.Open() more_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = 30 Dim Repeat1__index Repeat1__index = 0 more_numRows = more_numRows + Repeat1__numRows %> <% page=Repeat1__numRows %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables ' set the record count more_total = more.RecordCount ' set the number of rows displayed on this page If (more_numRows < 0) Then more_numRows = more_total Elseif (more_numRows = 0) Then more_numRows = 1 End If ' set the first and last displayed record more_first = 1 more_last = more_first + more_numRows - 1 ' if we have the correct record count, check the other stats If (more_total <> -1) Then If (more_first > more_total) Then more_first = more_total If (more_last > more_total) Then more_last = more_total If (more_numRows > more_total) Then more_numRows = more_total End If %> <% ' *** Move To Record and Go To Record: declare variables Set MM_rs = more MM_rsCount = more_total MM_size = more_numRows MM_uniqueCol = "" MM_paramName = "" MM_offset = 0 MM_atTotal = false MM_paramIsDefined = false If (MM_paramName <> "") Then MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "") End If %> <% ' *** Move To Record: handle 'index' or 'offset' parameter if (Not MM_paramIsDefined And MM_rsCount <> 0) then ' use index parameter if defined, otherwise use offset parameter r = Request.QueryString("index") If r = "" Then r = Request.QueryString("offset") If r <> "" Then MM_offset = Int(r) ' if we have a record count, check if we are past the end of the recordset If (MM_rsCount <> -1) Then If (MM_offset >= MM_rsCount Or MM_offset = -1) Then ' past end or move last If ((MM_rsCount Mod MM_size) > 0) Then ' last page not a full repeat region MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size End If End If End If ' move the cursor to the selected record i = 0 While ((Not MM_rs.EOF) And (i < MM_offset Or MM_offset = -1)) MM_rs.MoveNext i = i + 1 Wend If (MM_rs.EOF) Then MM_offset = i ' set MM_offset to the last possible record End If %> <% ' *** Move To Record: if we dont know the record count, check the display range If (MM_rsCount = -1) Then ' walk to the end of the display range for this page i = MM_offset While (Not MM_rs.EOF And (MM_size < 0 Or i < MM_offset + MM_size)) MM_rs.MoveNext i = i + 1 Wend ' if we walked off the end of the recordset, set MM_rsCount and MM_size If (MM_rs.EOF) Then MM_rsCount = i If (MM_size < 0 Or MM_size > MM_rsCount) Then MM_size = MM_rsCount End If ' if we walked off the end, set the offset based on page size If (MM_rs.EOF And Not MM_paramIsDefined) Then If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then If ((MM_rsCount Mod MM_size) > 0) Then MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size End If End If End If ' reset the cursor to the beginning If (MM_rs.CursorType > 0) Then MM_rs.MoveFirst Else MM_rs.Requery End If ' move the cursor to the selected record i = 0 While (Not MM_rs.EOF And i < MM_offset) MM_rs.MoveNext i = i + 1 Wend End If %> <% ' *** Move To Record: update recordset stats ' set the first and last displayed record more_first = MM_offset + 1 more_last = MM_offset + MM_size If (MM_rsCount <> -1) Then If (more_first > MM_rsCount) Then more_first = MM_rsCount If (more_last > MM_rsCount) Then more_last = MM_rsCount End If ' set the boolean used by hide region to check if we are on the last record MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount) %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each Item In Request.QueryString NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item)) End If Next ' add the Form variables to the MM_keepForm string For Each Item In Request.Form NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> <% ' *** Move To Record: set the strings for the first, last, next, and previous links MM_keepMove = MM_keepBoth MM_moveParam = "index" ' if the page has a repeated region, remove 'offset' from the maintained parameters If (MM_size > 0) Then MM_moveParam = "offset" If (MM_keepMove <> "") Then params = Split(MM_keepMove, "&") MM_keepMove = "" For i = 0 To UBound(params) nextItem = Left(params(i), InStr(params(i),"=") - 1) If (StrComp(nextItem,MM_moveParam,1) <> 0) Then MM_keepMove = MM_keepMove & "&" & params(i) End If Next If (MM_keepMove <> "") Then MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1) End If End If End If ' set the strings for the move to links If (MM_keepMove <> "") Then MM_keepMove = MM_keepMove & "&" urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "=" MM_moveFirst = urlStr & "0" MM_moveLast = urlStr & "-1" MM_moveNext = urlStr & Cstr(MM_offset + MM_size) prev = MM_offset - MM_size If (prev < 0) Then prev = 0 MM_movePrev = urlStr & Cstr(prev) %> 欢迎光临中国艺术网

中国艺术网热忱欢迎您发布信息、刊登广告!!! 世华网中国第一网集团。中国最大的网站集群。全国首批批准的正规网站(京 ICP 证 000045 号....) 请参见我们300余家网站。

首页	新闻	娱乐	演艺	影视	歌手	模特	音乐	论坛	人体艺术	现代艺术	相声小品
美术	书画	摄影	戏曲	舞蹈	工艺	设计	民间	拍卖	文革艺术	民族艺术	表扬/批评

　　首页

无限情缘

艺术动态

	严冬更火爆，京城商业地产突现文艺界的里程碑 “发现中国”文物讲座在马受欢李可染作品将上纪特邮票画布之外的风景——“纸广州艺博会全球艺术家参展避暑山庄美景入标中内地艺术品拍卖市场呼唤诚信古代幽默滑稽文物图片展明日开 >>>>>更多

艺术教育

从小事看俄罗斯家庭的艺术教育
选秀评委骂“艺术教育”被开除
綦江农村课外艺术教育实验获全
孩子接受艺术教育，只为考级吗
贝克汉姆人气跌钱包胀次子病
张仃作品展暨艺术教育研讨会举
姜丹建议改革普通高校的音乐艺
“国际艺术教育论坛”在清华召
京剧团进学校探索艺术教育多

>>>>>更多

各地演出信息

话剧《我这一辈子》连排导
芭蕾诠释云南民族风情《小
超女内地巡演遇冷香港开唱
《满城全是金字塔》开演恶
为纪念袁世海诞辰90周年
低票价等于扰乱市场？麻花4
舞剧《红楼梦》展现夸张美
《麻花》开涮《夜宴》顾阳

>>>>>更多

当前位置：中国艺术网>>娱乐>>大陆男歌手

大陆男歌手

崔健　郭峰　何勇　胡彦斌　黄磊　李春波　老狼　满文军　满江　朴树　孙楠　雪村　郑钧　肖飞　　石开　屠洪刚　王子鸣　杨坤　张楚　黄征　许巍　王珏　胡彦斌　解小东
港台男歌手

阿　牛　卜学亮　陈百强　陈　升　陈小春　陈晓东　迪克牛仔　杜德伟　光　良　郭富城　刚泽斌　古天乐　何润东　黄　安　黄品源　黄国俊　　李克勤　黎明　　林志炫　林志颖　刘德华　李宗盛　罗百吉　罗大佑　　吕方　　品冠　　齐秦　　任贤齐　苏永康　苏有朋　邰正霄　谭咏粼　　童安格　王杰　　王力宏　温兆伦　伍佰　　吴奇隆　巫启贤　伍思凯　　谢霆锋　许志安　言承旭　叶启田　游鸿明　庾澄庆　张洪量　张卫健　　张信哲　张学友　张宇　　张雨生　张震岳　赵传　　郑伊健　郑中基　　郑智化　周传雄　周华健　周杰伦　周渝民　周治平　黄舒骏　孙耀威　　张智霖　陶喆　　车继铃　蔡国权　熊天平　费翔　　陈奕迅　张真　　许绍洋　哈狗帮　陈冠希　金城武　阿杜　　黄大炜　李圣杰　永邦罗文

热点话题

- 锋菲恋:这次你牵我的手
- 一肩担尽天下风情
- 2003年度香港小姐竞选
- 解读我们眼中的明星
- 女星与富商的情场纠葛
- 汤加丽人体艺术写真
- 2003环球小姐大赛
- 明星演唱会意外频生
- "非典"在家娱乐指南
- 当明星遇到广告

本周明星榜