<%@LANGUAGE="VBSCRIPT"%> <% if request.QueryString("logout")=1 then session("user_name")="" session("user_id")="" end if %> <% Dim key__MMColParam key__MMColParam = "1" If (Request("MM_EmptyValue") <> "") Then key__MMColParam = Request("MM_EmptyValue") End If %> <% Dim key Dim key_numRows Set key = Server.CreateObject("ADODB.Recordset") key.ActiveConnection = MM_adva_STRING key.Source = "SELECT * FROM web_key WHERE key_id = '" + Replace(key__MMColParam, "'", "''") + "'" key.CursorType = 0 key.CursorLocation = 2 key.LockType = 1 key.Open() key_numRows = 0 %> <% Function InterceptString(txt,length) txt=trim(txt) x=len(txt) y = 0 if x >= 1 then for ii = 1 to x if asc(mid(txt,ii,1)) < 0 or asc(mid(txt,ii,1))>255 then'如果是汉字 y = y + 2 else y = y + 1 end if if y >= length then txt = left(trim(txt),ii) '字符串限长 exit for end if next if x <% Dim oupan_zhigong__MMColParam oupan_zhigong__MMColParam = "2" If (Request("MM_EmptyValue") <> "") Then oupan_zhigong__MMColParam = Request("MM_EmptyValue") End If %> <% Dim oupan_zhigong Dim oupan_zhigong_numRows Set oupan_zhigong = Server.CreateObject("ADODB.Recordset") oupan_zhigong.ActiveConnection = MM_adva_STRING oupan_zhigong.Source = "SELECT * FROM V_zj_has_all WHERE zj_class_id = '" + Replace(oupan_zhigong__MMColParam, "'", "''") + "' and zj_index_see = 1 and zj_is_huiyuan = 0 ORDER BY zj_id DESC" oupan_zhigong.CursorType = 0 oupan_zhigong.CursorLocation = 2 oupan_zhigong.LockType = 1 oupan_zhigong.Open() oupan_zhigong_numRows = 0 %> <% Dim baoying_jihua__MMColParam baoying_jihua__MMColParam = "3" If (Request("MM_EmptyValue") <> "") Then baoying_jihua__MMColParam = Request("MM_EmptyValue") End If %> <% Dim baoying_jihua Dim baoying_jihua_numRows Set baoying_jihua = Server.CreateObject("ADODB.Recordset") baoying_jihua.ActiveConnection = MM_adva_STRING baoying_jihua.Source = "SELECT * FROM V_zj_has_all WHERE zj_class_id = '" + Replace(baoying_jihua__MMColParam, "'", "''") + "' and zj_index_see = 1 and zj_is_huiyuan = 0 ORDER BY zj_id DESC" baoying_jihua.CursorType = 0 baoying_jihua.CursorLocation = 2 baoying_jihua.LockType = 1 baoying_jihua.Open() baoying_jihua_numRows = 0 %> <% Dim news_gonggao__MMColParam news_gonggao__MMColParam = "1" If (Request("MM_EmptyValue") <> "") Then news_gonggao__MMColParam = Request("MM_EmptyValue") End If %> <% Dim news_gonggao Dim news_gonggao_numRows Set news_gonggao = Server.CreateObject("ADODB.Recordset") news_gonggao.ActiveConnection = MM_adva_STRING news_gonggao.Source = "SELECT news_content, news_dong FROM dbo.news WHERE news_id = '" + Replace(news_gonggao__MMColParam, "'", "''") + "'" news_gonggao.CursorType = 0 news_gonggao.CursorLocation = 2 news_gonggao.LockType = 1 news_gonggao.Open() news_gonggao_numRows = 0 %> <% Dim link Dim link_numRows Set link = Server.CreateObject("ADODB.Recordset") link.ActiveConnection = MM_adva_STRING link.Source = "SELECT * FROM dbo.link ORDER BY link_id ASC" link.CursorType = 0 link.CursorLocation = 2 link.LockType = 1 link.Open() link_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 1 Repeat1__index = 0 oupan_zhigong_numRows = oupan_zhigong_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 8 Repeat2__index = 0 baoying_jihua_numRows = baoying_jihua_numRows + Repeat2__numRows %> <% Dim Repeat4__numRows Dim Repeat4__index Repeat4__numRows = -1 Repeat4__index = 0 link_numRows = link_numRows + Repeat4__numRows %> <% function finddate(txt,dtype) 'response.write("::"&txt&"::") old_date=split(cstr(txt), " ", 2) n_date=old_date(0) if n_date<>txt then n2_time=old_date(1) n2_date=split(n_date, "-", 2) n2_month=n2_date(0) n2_day=n2_date(1) if dtype="weekday" then Select Case weekday(n_date) Case 1 response.write("星期日") Case 2 response.write("星期一") Case 3 response.write("星期二") Case 4 response.write("星期三") Case 5 response.write("星期四") Case 6 response.write("星期五") Case 7 response.write("星期六") End Select end if if dtype="day" then response.write(n2_day) end if if dtype="month" then response.write(n2_month) end if if dtype="time" then response.write(n2_time) end if else response.Write(" ") end if end function %> <%if (key.Fields.Item("key_value").Value)=1 then%> 鸿泰重金大小球
<%if (news_gonggao.Fields.Item("news_dong").Value=1) then%>鸿泰重金大小球:1500/周,包月5000元,(不议价),每赛日推荐1-3场,赛前1小时通过手机短信发料!<%else%><%=(news_gonggao.Fields.Item("news_content").Value)%><%end if%>
<% While ((Repeat4__numRows <> 0) AND (NOT link.EOF)) %> <% Repeat4__index=Repeat4__index+1 Repeat4__numRows=Repeat4__numRows-1 link.MoveNext() Wend %>
<% If Not oupan_zhigong.EOF Or Not oupan_zhigong.BOF Then %>

<% End If ' end Not oupan_zhigong.EOF Or NOT oupan_zhigong.BOF %> 鸿泰重金大小球:1500/周,包月5000元,(不议价)

客服qq:374284435
<% While ((Repeat1__numRows <> 0) AND (NOT oupan_zhigong.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 oupan_zhigong.MoveNext() Wend %>
时间
上 盘
让 球
下 盘
推 介
完场
赛 果
7-3 　 　 　 　 　
7-2 甘美奧 两球半 高士路 大球 2-2
7-1 利尼史特朗 两球半/三球 史達 大球 3-2
6-30 賈布朗尼 两球半 布拉格布咸美恩斯 大球 2-1
6-29 史達B 三球半 斯基騰 小球<% if now()>=#2009/06/10 01:40# then vstr2="咸卡姆" else vstr2="欢迎预定" end if response.write(vstr2) %> 2-0
6-28 蘇黎世 三球半/四球 哥索 小球<% if now()>=#2009/06/10 01:40# then vstr2="咸卡姆" else vstr2="欢迎预定" end if response.write(vstr2) %> 4-0
6-25 卡芬堡 三球 澤斯塔弗尼 大球 2-1
6-24 安其爾何馬士 两球半/三球 加爾斯 大球 2-2
6-21 新加坡U23 两球半 印尼U23 大球 2-0
6-19 錫永 两球半/三球 洛桑體育隊 大球 3-2
6-15 巴西 三球 埃及 大球 4-3
6-14 錫永 三球/三球半 伊華東 小球<% if now()>=#2009/06/10 01:40# then vstr2="咸卡姆" else vstr2="欢迎预定" end if response.write(vstr2) %> 0-0
6-13  巴拉納 两球半/三球 卡爾拉 大球 3-3
6-10 伊朗 两球半/三球 阿聯酋 小球<% if now()>=#2009/06/10 01:40# then vstr2="咸卡姆" else vstr2="欢迎预定" end if response.write(vstr2) %> 1-0
6-7 廣島三箭 两球半/三球 新潟天鵝 大球 5-1
6-6 哥連泰斯 两球半/三球 哥列迪巴 大球 2-0
6-2 安祖荷姆斯U21 三球半/四球 蘭斯干拿U21 大球 2-2
6-1 里斯提德 三球/三球半 哈維德夫 小球 0-1
5-30 車路士 两球/两球半 愛華頓 大球 2-1
5-28 西里安斯卡 两球半 諾高平 大球 2-1
5-27 日本 两球 智利 大球 4-0
5-24 費雷堡 两球半 凱沙羅頓 大球 4-3
5-23 華盛頓聯隊 两球半 皇家鹽湖城 小球 0-0
5-21 拜尼 两球半/三球 拿夫咸 大球 3-1
5-20 福岡黃蜂 两球 甲府風林 大球 2-4
5-17 川迪 两球半/三球 海倫維恩 大球 1-1
5-16 廣島三箭 两球半/三球 山形山神 大球 3-1
5-15 馬斯特里赫特 两球半/三球 史當禾祖斯 小球 1-0
5-13 年青人 三球/三球半 錫永 小球 2-1
5-10 科布倫茨 两球半 費雷堡 大球 2-5
5-9 聖加倫 三球/三球半 洛桑體育隊 大球 4-0
5-8 譚柏利 两球/两球半 TPS杜古 小球 0-2
5-7 富明尼斯 两球半/三球 戈亞斯 小球 1-1
<%else%> 无法找到该页

粤ICP备06106641号

<%end if%> <% oupan_zhigong.Close() Set oupan_zhigong = Nothing %> <% baoying_jihua.Close() Set baoying_jihua = Nothing %> <% news_gonggao.Close() Set news_gonggao = Nothing %> <% link.Close() Set link = Nothing %> <% key.Close() Set key = Nothing%>