|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
写软件都是想的时间比写的时间要长的.如果反过来了就得看看是什么原因了.另外大家可以回去问问公司里的小MM.(一般企业里,跟你们交付软件接触得最多的是她们)页面<html>
<head>
<title>AUTOGET</title>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
</head>
<bodybgcolor="#FFFFFF">
<%onerrorresumenext
-----------建一个叫data的access表,字段(称号,来历,内容)
Setconn=Server.CreateObject("ADODB.Connection")
DBPath=Server.MapPath("data.mdb")
conn.Open"driver={MicrosoftAccessDriver(*.mdb)};dbq="&DBPath&";"
Setrs=Server.CreateObject("ADODB.Recordset")
sql="select*fromdata"
rs.opensql,conn,3,2
以上完成表的翻开
SetHttpObj=Server.CreateObject("AspHTTP.Conn")
dimfd
fd=111
SearchFolderfd
以下是历程
SubSearchFolder(fd)
dowhilefd500
Response.Writefd
HTTPObj.Url="http://www.object.net/Read.asp?ArticleID="&fd
HttpObj.RequestMethod="GET"
content=HTTPObj.GetURL
取题目<img
pos0=instr(1,content,"<img")
pos1=instr(pos0,content,">")
pos2=instr(pos1,content,"</td>")
title=mid(content,pos1+1,pos2-pos1-1)
来历<td>
pos=instr(pos2,content,"<td>")
pos1=instr(pos,content,"</td>")
comefrom=mid(content,pos+4,pos1-pos-4)
idno
pos1=instr(1,content,"ArticleID")
pos2=instr(pos1,content,">")
idno=mid(content,pos1+10,pos2-pos1-10)
内容
pos1=instr(1,content,"<blockquote>")
pos2=instr(pos1,content,"</blockquote>")
content=mid(content,pos1+12,pos2-pos1-12)
以下数据库操纵:
rs.addnew
rs("称号")=title
rs("来历")=comefrom
rs("内容")=trim(content)
rs("idno")=trim(idno)
rs.update
fd=fd+1
loop
endsub
历程停止
Response.Writefd&"<br>"
rs.close
setconn=nothing
setfs=nothing
%>
</body>
</html></p>asp,你就只能等着微软给你解决,它不乐意你就只好悲催。而且asp跑在windows服务器上,windows服务器跟linux比起来简直弱爆了! |
|