|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
使用filesystemobject,可以对服务器上的文件进行操作,浏览、复制、移动、删除等。有ado的支持,asp对数据库的操作非常得心应手。你甚至可以像使用本地数据库那样,管理远程主机上的数据库,对表格、记录进行各种操作。天色预告http://community.csdn.net/Expert/topic/3720/3720043.xml?temp=.9098169
<formmethod=postaction="weareport.asp">
乡村:<inputname=cityvalue=哈尔滨><br/>
区域:<inputname=areavalue=西南><br/>
省分:<inputname=provincevalue=黑龙江><br/>
<inputtype=submitvalue=检察>
</form>
<%
ifrequest("city")""then
city=request("city")
area=request("area")
province=request("province")
contents=getHTTPpage("http://www.cma.gov.cn/netcenter_news/qxyb/city/index.php?city="&city&"&province="&province&"&area="&area)
startPos=CutedPage(contents,"<!--天色预告入手下手-->",1)
endPos=CutedPage(contents,"<!--天色预告停止-->",0)
contents=mid(contents,startPos,endPos-startPos)
contents=replace(contents,"src=/","src=http://www.cma.gov.cn/")
contents=replace(contents,"src=..","src=http://www.cma.gov.cn/netcenter_news/qxyb/city/..")
response.writecontents
endif
functionCutedPage(scontent,str,mode)
ifscontent=""thenexitfunction
pos=instr(scontent,str)
ifpos>=0then
ifmode=0then
CutedPage=pos
else
CutedPage=pos+len(str)
endif
else
Cutepage=len(scontent)
endif
endfunction
FunctionBytes2Bstr2(body,Cset)
dimobjstream
setobjstream=Server.CreateObject("adodb.stream")
objstream.Type=1
objstream.Mode=3
objstream.Open
objstream.Writebody
objstream.Position=0
objstream.Type=2
objstream.Charset=Cset
Bytes2Bstr2=objstream.ReadText
objstream.Close
setobjstream=nothing
EndFunction
functiongetHTTPPage(url)
onerrorresumenext
dimhttp
sethttp=Server.createobject("Microsoft.XMLHTTP")
Http.open"GET",url,false
Http.send()
ifHttp.readystate4thenexitfunction
getHTTPPage=bytes2BSTR2(Http.responseBody,"GB2312")
sethttp=nothing
iferr.number0thenerr.Clear
endfunction
%>
</p>减少客户内IT专业人才缺乏带来的影响。ASP的客户员工利用浏览器进入相关的应用软件,简单易用,无需专业技术支持。 |
|