62,269
社区成员
发帖
与我相关
我的任务
分享private sub ctrlx(num,bgn,over,br)
xx=1
do while xx<=num
tittle=GetKey(HTML,"********","*********") '两组星号加入 变量 bgn + over
Response.write tittle
Response.write ("<br/>")
xx=xx+1
pos=instr(HTML,br)
HTML=mid(HTML,pos+1)
loop
end sub
Function getkey(HTML,Start,Last) '截取指定内容
filearray=split(HTML,Start)
filearray2=split(filearray(1),Last)
GetKey=filearray2(0)
End Function