|
主题:[求助]{$GetSearch} 搜索如何去掉搜索类型? [收藏主题] | 转到: |
支持(0) | 反对(0) 顶端 底部 |
GetSearch = "<div class=""searchsd"">" & vbCrLf
GetSearch = GetSearch & "<form id=""SearchForm"" name=""SearchForm"" method=""post"" action=""{$GetSiteUrl}plus/Search.asp"">" & vbCrLf GetSearch = GetSearch & "文章搜索: <input name=""KeyWord"" type=""text"" class=""textbox"" value=""请输入关键字"" onfocus=""this.select();""/>" & vbCrLf dim rs:set rs=conn.execute("select channelid,itemname from ks_channel where channelstatus=1 and channelid<>9 and BasicType=1 order by channelid") if not rs.eof then dim k,sql:sql=rs.getrows(-1) rs.close:set rs=nothing GetSearch = GetSearch & "<input name=""ChannelID"" type=""hidden"" value="""& sql(0,k) &""">" end if GetSearch = GetSearch & "<input type=""submit"" class=""inputButton"" name=""Submit1"" value=""站内搜索"" />" & vbCrLf GetSearch = GetSearch & "</form>" & vbCrLf GetSearch = GetSearch & "</div>" & vbCrLf |
|
支持(0) | 反对(0) 顶端 底部 |
支持(0) | 反对(0) 顶端 底部 |
支持(0) | 反对(0) 顶端 底部 |
支持(0) | 反对(0) 顶端 底部 |
支持(0) | 反对(0) 顶端 底部 |
支持(0) | 反对(0) 顶端 底部 |
支持(0) | 反对(0) 顶端 底部 |
支持(0) | 反对(0) 顶端 底部 |
<上一主题 | 下一主题 > |