%@ Language=VBScript%> <% Response.Buffer=true Response.Expires=0 %> <% pageno=Request.QueryString("pageno") keyno=Request.QueryString("keyno") set cn = Server.CreateObject("ADODB.Connection") cn.Open(mycnstr) set rs = Server.CreateObject("ADODB.Recordset") set rs2 = Server.CreateObject("ADODB.Recordset") mymenu="intro" sqltext="select content from miscell where classcode='999' and sortnum=5 " rs.Open sqltext,cn,1,1 if not rs.EOF then content=trim(rs(0)) end if rs.Close sqltext="select content from miscell where classcode='999' and sortnum=6 " rs.Open sqltext,cn,1,1 if not rs.EOF then content2=trim(rs(0)) end if rs.Close mymenu="intro" %>
回到首页![]() |
温馨提示:用鼠标点击地图然后拖动画面用来查看周边线路位置 |