Cascading Style Sheets Tutorial

  <textarea Rows="29" name="S1" cols="111"> </ textarea> 
  <script Language="vbscript"> 
  On Error Resume Next 
  Function BytesToBstr (strBody, CodeBase) 
  Set objStream = CreateObject ( "Adodb.Stream") 
  With objStream 
  . Type = 1 
  . Mode = 3 
  . Open 
  . Write strBody 
  . Position = 0 
  . Type = 2 
  . Charset = CodeBase 
  BytesToBstr =. ReadText 
  . Close 
  End With 
  Set objStream = Nothing 
  End Function 

  Set xmlobj = CreateObject ( "MsXml2.XmlHttp") 

  Function XmlGet (Url) 
  With xmlobj 
  . Open "GET", Url, False 
  . Send () 
  BytesToBstr str = ((. ResponseBody), "GB2312") 
  XmlGet = str 
  End With 
  End Function 

  Function ReplaceTest (zzb, str) 
  Dim regEx 
  Set regEx = New RegExp 
  RegEx.Pattern = zzb 
  RegEx.IgnoreCase = fasle 
  RegEx.Global = True 
  ReplaceTest = regEx.Replace (str, "") 
  End Function 
  'Set fso = createobject ( "scripting.filesystemobject") 
  'Set oFile = Fso.OpentextFile ( "d: \ 7t7t \ temp.txt", 2, true) 
  </ Script> 

  <script Language="vbscript"> 
  Vkey = vbcrlf 
  Bkey = "<td width=""100%"" colspan=""2"" background=""images/dot2.gif"" align=""center"">" 
  Nkey = "<span style=""font-size: 2pt""> </ span> </ td>" 
  Mkey = "<td width=""50%"" align=""center"">" 
  Ckey = "<td width=""100%"" align=""center"" colspan=""2"" height=""20"">" 
  Xkey = "<p align=""center"">" 
  Zkey = "<td width=""50%"">" 
  Akey = "<tr>" 
  Ekey = "</ tr>" 
  Dkey = "</ td>" 
  Fkey = "<td>" 
  Gkey = "<p align=""right"">" 
  Str = XmlGet ( "http://www.redzhong.com/") 
  InHead = instr (str, "remake singer") 
  InEnd = instr (inHead, str, "<img border =" "0" "src =" "images / more.gif" "") 
  TmpStr mid = (str, inHead, inEnd-inHead) 
  TmpStr = replace (tmpStr, vkey, "") 
  TmpStr = replace (tmpStr, bkey, "") 
  TmpStr = replace (tmpStr, nkey, "") 
  TmpStr = replace (tmpStr, mkey, "") 
  TmpStr = replace (tmpStr, ckey, "") 
  TmpStr = replace (tmpStr, xkey, "") 
  TmpStr = replace (tmpStr, akey, "") 
  TmpStr = replace (tmpStr, ekey, "") 
  TmpStr = replace (tmpStr, dkey, "") 
  TmpStr = replace (tmpStr, fkey, "") 
  TmpStr = replace (tmpStr, gkey, "") 
  TmpStr = replace (tmpStr, "","") 
  TmpStr = replace (tmpStr "<a href =""","******") 
  TmpStr = replace (tmpStr, "</ a >","|||") 

  TmpStr = replace (tmpStr ,""">","|||") 
  TmpStr = replace (tmpStr, zkey, "") 
  Tmpstr = replace (tmpstr ,"|||< td width = "" 50 %","") 
  Tmpstr = replace (tmpstr "<td width =" "50 %|||","******") 
  TmpStr = replace (tmpStr ,"****** song.asp |||","") 
  TmpStr = replace (tmpStr ,"************","******") 
  S1.value = tmpstr 
  ArrStr = split (tmpStr ,"******") 

  For i = 0 to ubound (arrStr) 
  Document.write arrstr (i) & "<br>" 
  Next 

  </ Script> 

Tags: div top, Top Border, Top Border Width, Top Margin, Top Padding

Releated Posts

• CSS recommended in the so-called "top" skills
• Top quality game works FLASH
• Top Technology: Learning the steering wheel of Web 2.0
• Prevent air link # Return to the top of the page
• The establishment of barrier-free web site of the top-five Guide

This entry was posted on Sunday, July 22nd, 2007 at 12:00 am and is filed under Css+Div Web Design. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.