如下图，我想让搜索栏居中和“关于我们”对齐。用了好多办法，都不管用，我想是不是CSS设的太高了？我都调了也不管用。

用到标签{$GetSearch}，更改的文件Kesion.Label.SearchCls.asp和style.css.

Kesion.Label.SearchCls.asp相关代码：

Dim ShCls:Set ShCls=New RefreshSearchCls
Class RefreshSearchCls
  Private KS  
  Private Sub Class_Initialize()
    Set KS=New PublicCls
  End Sub
        Private Sub Class_Terminate()
   Set KS=Nothing
   Set ShCls=Nothing
  End Sub
  
  '替换网站的所有搜索
  Function Run(byVal tag)
   tag=Lcase(tag)
   if tag="getsearchbydate" then
     Run=GetSearchByDate()
   elseif tag="getsearch" then
     Run=GetSearch()
   else
    If not IsObject(Application(KS.SiteSN&"_ChannelConfig")) Then KS.LoadChannelConfig
    Dim ModelXML,Node
    Set ModelXML=Application(KS.SiteSN&"_ChannelConfig")
    For Each Node In ModelXML.DocumentElement.SelectNodes("channel")
     if tag=lcase("get" & Node.SelectSingleNode("@ks10").text & "search") then
       run="<script src=""" & KS.Setting(3) & KS.Setting(93) & "S_" & Node.SelectSingleNode("@ks10").text & ".js""></script>"
     end if
    Next
   end if
  End Function
  
  '取得高级日历搜索
  Function GetSearchByDate()
   GetSearchByDate="<iframe id=gToday:normal:agenda.js style=""BORDER-RIGHT: 0px ridge; BORDER-TOP: 0px ridge; BORDER-LEFT: 0px ridge; BORDER-BOTTOM: 0px ridge"" name=gToday:normal:agenda.js src=""" & KS.Setting(3) & "KS_Inc/iflateng.htm?../plus/search/?m=1&stype=100"" frameBorder=0 width=160 scrolling=no height=170></iframe>"
  End Function
  '取得总搜索
  Function GetSearch()
      GetSearch = "<form id=""SearchForm"" name=""SearchForm"" method=""Get"" action=""" & KS.Setting(3) &"plus/search/"">" & vbCrLf
      GetSearch = GetSearch & "<div class=""searchsd"">" & vbCrLf
      GetSearch = GetSearch & " <input name=""key"" type=""text"" class=""textbox"" value=""""this.select();""/><span>" & vbCrLf
      GetSearch = GetSearch & "<select style=""width:45px;"" name=""m"">" & vbCrLf
      GetSearch = GetSearch & "<option value=""0"">全部</option>" & vbCrLf
      If not IsObject(Application(KS.SiteSN&"_ChannelConfig")) Then KS.LoadChannelConfig
    Dim ModelXML,Node
    Set ModelXML=Application(KS.SiteSN&"_ChannelConfig")
    For Each Node In ModelXML.DocumentElement.SelectNodes("channel")
        if Node.SelectSingleNode("@ks21").text="1" and Node.SelectSingleNode("@ks0").text<>"6" and Node.SelectSingleNode("@ks0").text<>"9" and Node.SelectSingleNode("@ks0").text<>"10" Then
     GetSearch = GetSearch & "<option value="" & """>" & Node.SelectSingleNode("@ks3").text & "</option>" & vbCrLf
     End If
    Next

      GetSearch = GetSearch & "</select>" & vbCrLf
      GetSearch = GetSearch & "<input type=""image"" class=""inputButton"" name=""Submit1"" src=""" & KS.GetDomain & "images/btn.gif"" align=""absmiddle"" />" & vbCrLf
      GetSearch = GetSearch & "</span>" & vbCrLf
      GetSearch = GetSearch & "</div>" & vbCrLf
      GetSearch = GetSearch & "</form>" & vbCrLf
  End Function

End Class
%>

style.css相关代码：

.top_a{width:965px; margin:0px auto;}
.top_a .logo{width:306px; float:left;}
.top_a .search{width:230px;float:left;  no-repeat; margin-top:6px;text-align:right; height:29px;}
.top_a .search #SearchForm{ padding:0px; margin:0px;width:230px;height:29px;}
.top_a .search .textbox{ height:29px; line-height:29px;margin-top:3px;width:230px; float:left;padding-left:30px;background:none; border:none; padding-top:3px; font-size:14px; color:#999;}
.top_a .search select{ display:none;}
.top_a .search .inputButton{ float:left;margin-top:4px;width:20px; text-align:left; height:29px;}
.top_a .search span{text-align:left;}
.top_a .search span a{width:60px; white-space:nowrap;}
.top_a .search span a:hover{ color:red; text-decoration:none;}
.top_a .banner{width:300px;float:right;height:76px;}

这个我搞定了，新做了一个页面，再放搜索条就居中了，代码一样一样的，但不知道为什么？但咱只追求效果，不问WHY，于是就把做好的都复制到别的页里，都好了。呵呵。