我用的是2.2版,SysCls/KS_RefreshCls.asp文件里找到了,不过还是没找到具体改哪一个:
代码如下:
Function GetShortSearch()
Dim Domain
Domain = KSCMS.GetDomain
GetShortSearch = "<table width=""98%"" border=""0"" align=""center"">" & vbCrLf
GetShortSearch = GetShortSearch & "<form id=""SearchForm"" name=""SearchForm"" method=""Get"" action=""" & Domain & "Search.asp"" target=""_blank"">" & vbCrLf
GetShortSearch = GetShortSearch & " <tr>" & vbCrLf
GetShortSearch = GetShortSearch & " <td align=""center"">" & vbCrLf
GetShortSearch = GetShortSearch & " <input name=""KeyWord"" type=""text"" class=""textbox"" value=""关键字"" onfocus=""this.select();""/>" & vbCrLf
GetShortSearch = GetShortSearch & " <input type=""submit"" class=""inputButton"" name=""Submit1"" value=""搜 索"" /></td>" & vbCrLf
GetShortSearch = GetShortSearch & " </tr>" & vbCrLf
GetShortSearch = GetShortSearch & " </form>" & vbCrLf
GetShortSearch = GetShortSearch & "</table>" & vbCrLf
End Function