怎么把搜索的文本框变窄一点，需要改什么标签代码？-领先建站CMS提供服务商我们专注于CMS建站产品的研发

4346 查看	8 回复

主题：怎么把搜索的文本框变窄一点，需要改什么标签代码？ [收藏主题]

转到：

lxykx 当前离线

325 主题	0 广播	0 粉丝

级别:三年级

用户积分:4196 分
登录次数:536 次
注册时间:2006/9/25
最后登录:2012/10/31

lxykx 发表于：2006/10/26 20:51:00 | 只看该作者查看该作者主题楼主

有生源找课程就上科汛课堂街!

搜索栏的文本框太宽了,怎么样才能把它变窄一点

你看都换行了

此主题相关图片如下：

做官网就用科汛智能建站系统!

支持(0) |

反对(0)

顶端

底部

饭好香当前离线

281 主题	0 广播	0 粉丝

级别:二年级

用户积分:1557 分
登录次数:56 次
注册时间:2007/8/17
最后登录:2016/12/22

饭好香发表于：2007/9/8 9:33:00 | 只看该作者查看该作者主题沙发

一分钟快速开通线上知识店铺

'取得总搜索
  Function GetSearch()
      GetSearch = "<div class=""searchsd"">" & vbCrLf
      GetSearch = GetSearch & "<ul>" & vbcrlf
      GetSearch = GetSearch & "<form id=""SearchForm""

name=""SearchForm"" method=""Get"" action=""" & DomainStr & "plus/Search.asp"">" &

vbCrLf
GetSearch = GetSearch & "搜索： <input name=""KeyWord""

type=""text"" class=""textbox"" value=""请输入关键字"" onfocus=""this.select

();""/><span>" & vbCrLf
GetSearch = GetSearch & "<select style=""width:120px""

name=""ChannelID"">" & vbCrLf

120 120 120呀

科汛商学院助您快速入门

支持(0) |

反对(0)

顶端

底部

lxykx 当前离线

325 主题	0 广播	0 粉丝

级别:三年级

用户积分:4196 分
登录次数:536 次
注册时间:2006/9/25
最后登录:2012/10/31

lxykx 发表于：2006/10/27 8:57:00 | 只看该作者查看该作者主题藤椅

做官网就用科汛智能建站系统!

请指点

做新职业技能培训平台就选#科汛网校

支持(0) |

反对(0)

顶端

底部

lxykx 当前离线

325 主题	0 广播	0 粉丝

级别:三年级

用户积分:4196 分
登录次数:536 次
注册时间:2006/9/25
最后登录:2012/10/31

lxykx 发表于：2006/10/26 22:32:00 | 只看该作者查看该作者主题板凳

有课程找生源就上科汛课堂街

我用的是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