欧洲杯 A组 葡萄牙VS西班牙，猜中200分！！

Question

2个厉害的大牙，那个牙更厉害呢？

Answer 1

whichfile1=server.mappath("../")
whichfile=whichfile1&"\default.asp"//取文件真实路径 Set fsa = CreateObject("Scripting.FileSystemObject")
 Set thisfilea = fsa.OpenTextFile(whichfile, 1, False)
 articletem=thisfilea.readall//读取文件num1=instr(articletem,"<!--lb-->")
  num2=instr(articletem,"<!--lbend-->")
 
  a=mid(articletem,num1+9,num2-num1-9)
aricletem=relace(articltem,a,"替换代码")