【導讀】{ "error_code": 17, "error_msg": "Open api daily request limit reached" }

　　

【正文】 =102img src=pic/ border=0/td /tr % 39。依次顯示推薦線路類型 Do While Not % trtd bgcolor=CEE7FF width=360 height=14 %=rs(CateName)%/td td bgcolor=CEE7FF width=75 height=14p align=centerfont color=800080b經(jīng)濟報價 /b/font/td td bgcolor=CEE7FF width=75 height=14p align=centerfont color=800080b標準報價 /b/font/td td bgcolor=CEE7FF width=75 height=14p align=centerfont color=800080b豪華報價 /b/font/td 37 td bgcolor=CEE7FF width=75 height=14p align=centerfont color=800080b兒童報價 /b/font/td/tr % 39。讀取此線路類 型中的所有線路 sql = SELECT * FROM Line WHERE CateId= amp。 rs(CateId) amp。 ORDER BY LineName SEt rsLine = (sql) If Then % trtd width=360 height=14==暫時沒有此類線路 ==/td td width=75 height=14 align=center/td td width=75 height=14 align=center/td td width=75 height=14 align=center/td td width=75 height=14 align=center/td/tr % End If 39。依次顯示線路信息 Do While Not % trtd width=360 height=14a href=?lid=%=rsLine(LineId)% target=_blank%=rsLine(LineName)%/a/td td width=75 height=14 align=center%=rsLine(EcoPrice)%/td td width=75 height=14 align=center%=rsLine(StdPrice)%/td td width=75 height=14 align=center%=rsLine(ExpPrice)%/td td width=75 height=14 align=center%=rsLine(CldPrice)%/td/tr % Loop Loop set conn=nothing % tr td bgcolor=CEE7FF colspan=5 width=692 height=14 p align=centera href= onclick=return AreaWin() target=_blank font color=000000旅游線路查詢 /font/a/p /td 38 /tr /table /body /html 管理登錄界面： !include file= html head title旅游在線報名系統(tǒng)管理 /title link href=../ rel=stylesheet /head frameset cols=150,* framespacing=0 border=0 frameborder=0 frame name=contents target=main src= scrolling=auto noresize frame name=main src= scrolling=auto noframes body topmargin=0 leftmargin=0 p此網(wǎng)頁使用了框架，但您的瀏覽器不支持框架。 /p /body /noframes /frameset /html 地域管理： !include file= !include file= html head meta equiv=ContentType content=text/html。 charset=gb2312 title地域管理 /title link href=../ rel=stylesheet script language=javascript function AreaWin(url) { var oth=toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,left=200,top=200。 oth = oth+,width=400,height=300。 var AreaWin=(url,AreaWin,oth)。 ()。 return false。 } function SELECTChk() { var s=false。 39 var areaid,n=0。 var strid,strurl。 var nn = (area) for (j=0。j。j++) { if ((area,j).checked) { n = n + 1。 s=true。 areaid = (area,j).id+。 if(n==1) { strid = areaid。 } else { strid = strid + , + areaid。 } } } strurl = ?id= + strid。 if(!s) { alert(請選擇要刪除的地域 !)。 return false。 } if ( confirm(你確定要刪除這些地域嗎？ )) { = strurl。 ()。 } } function sltAll() { var nn = (area)。 for(j=0。j。j++) { (area,j).checked = true。 } } function sltNull() { var nn = (area)。 for(j=0。j。j++) { 40 (area,j).checked = false。 } } /script /head body link=000080 vlink=080080 form id=form1 name=form1 method=POST % Dim rs Set rs = () % p align=centerfont style=39。FONTSIZE:12pt39。 color=000080b地 域 管 理 /b/font/p table align=center border=1 cellspacing=0 width=100% bordercolorlight=4DA6FF bordercolordark=ECF5FF tr td width=20% align=center bgcolor=BEDCFAstrong 類型/strong/td td width=50% align=center bgcolor=BEDCFAstrong地域名稱/strong/td td width=15% align=center bgcolor=BEDCFAstrong 修改/strong/td td width=15% align=center bgcolor=BEDCFAstrong 選擇/strong/td /tr % 39。讀取并顯示本市地域 sqlType1 = SELECT * FROM Area WHERE TypeId = 0 sqlType1, Conn, 1, 1 % trtd align=center rowspan=%=%本市 /td % Do While Not % td align=center%=rs(AreaName)%/td td align=centera href=?id=%=rs(AreaId)% onClick=return AreaWin()修改 /a/td td align=centerinput type=checkbox name=area id=%=rs(AreaId)% style=fontsize: 9pt/td/tr % () Loop 39。讀取省外地域 41 39。 sqlType2 = SELECT * FROM Area WHERE TypeId = 1 sqlType2 = SELECT * FROM Area where typeid=1 sqlType2, Conn, 1, 1 % trtd align=center rowspan=%=%外埠 /td % Do While Not % td align=center%=rs(AreaName)%/td td align=centera href=?id=%=rs(AreaId)% onClick=return AreaWin()修改 /a/td td align=centerinput type=checkbox name=area id=%=rs(AreaId)% style=fontsize: 9pt/td/tr % () Loop set rs=nothing set conn=nothing % /table p align=center input type=button value= 添加地域 onclick=AreaWin(39。39。) name=add input type=button value= 全 選 onclick=sltAll() name=button1 input type=button value= 清 空 onclick=sltNull() name=button2 input type=submit value=刪 除 name=tijiao onclick=SELECTChk() brbr input type=hidden name=area /form /body /html 線路管理： !include file= !include file= html head meta equiv=ContentType content=text/html。 charset=gb2312 title旅游線路管理 /title link href=../ rel=stylesheet 42 script language=javascript function LineWin(url) { var oth=toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,left=200,top=200。 oth = oth+,width=600,height=600。 var LineWin=(url,LineWin,oth)。 ()。 return false。 } /script /head body link=000080 vlink=080080 form id=form1 name=form1 method=POST % Dim rs Set rs = () 39。設(shè)置 SELECT 語句，讀取旅游線路和地域類型數(shù)據(jù) sql = SELECT l.*, , FROM Line l, Area a WHERE = ORDER BY , sql,