<!--#include file="news_session.asp"-- <% dim id id=Request.QueryString ("id") dim myfso set myfso=createobject("scripting.filesystemobject") if myfso.FileExists(server.mappath("./news_content/"&id&".txt"))then myfso.DeleteFile (server.mappath("./news_content/"&id&".txt"))'###...[ 查看全文 ]
以下是代码: <% on error resume next Dim objXMLHTTP, xml Set xml = Server.CreateObject("Microsoft.XMLHTTP") xml.Open "GET", "http://chanye.finance.sina.com.cn/yj/2005-01-05/236914.shtml", False xml.Send tmpstr= xml.responseText ep=clng(instr(1,tmpstr,"meta_data2"))+18 tmpstr=replace(tmpstr,vbcrlf,"") tmpstr=re...[ 查看全文 ]