Function Newstring(Wstr,Strng) 40 Newstring=Instr(Lcase(Wstr),Lcase(Strng)) 41 If Newstring<=0Then Newstring=Len(Wstr) 42 End Function 43 44 '处理抓取回来的数据需要调用adodb.Stream组件并进行初始化设置。%>
以下即为页面显示部分:
1 <% 2 Dim Wstr,Str,Url,Start,Over,City 3 '定义一些需要使用到的变量 4 5 City = Request.Querystring("Id") 6 '程序传回的id变量(即用户选择的城市)赋给id 7 8 Url="