K9 通用版 博客版 主题版 地方门户版 企业版 |   企业(ASP) 分类 使用 分享 疑问 模板 建议 帮助 错误 其他
+新建主题 [Ajax]
填写帐号密码即可完成注册
+新建话题 最新回复排序 最新主题排序 精华帖子

关键词下拉菜单

1Next >

fox1383164k 发表于:10-09-02 09:57 [添加收藏] 楼主 [回复] #Top#
fox1383164k 人气:377 积分:864 金币:3006
KC元老 灌水狂人
这是指定开发的AJAX程序,用途妙妙,主要是要想到用在哪里。实现其实不难的。

'城市关键词下拉菜单
Sub City_Select()
Dim CityString,data,dataform,i
CityString = "长沙,株洲,湘潭,常德,岳阳,益阳,郴州,吉首,张家界,怀化,衡阳,永州,娄底,邵阳"
dataform=split(CityString,",")
'redim data(ubound(dataform),0)
Il "<select name='artkeywords id='artkeywords'>"
Il "<option value=''>选择地区</option>"
  for i=0 to ubound(dataform)
   'data(i,0)=form(dataform(i))
   Il "<option value='"& dataform(i) &"'>"& dataform(i) &"</option>"
  next
Il "</select>"
End Sub
'品牌关键词下拉菜单
Sub Brand_Select()
Dim BrandString,data,dataform,i
BrandString = "联想,HP"
dataform=split(BrandString,",")
'redim data(ubound(dataform),0)
Il " <select name='artkeywords id='artkeywords'>"
Il "<option value=''>选择品牌</option>"
  for i=0 to ubound(dataform)
   'data(i,0)=form(dataform(i))
   Il "<option value='"& dataform(i) &"'>"& dataform(i) &"</option>"
  next
Il "</select>"
End Sub
'**************************************************
'添加的允许全角逗号
Function aKeyWord(tString)
aKeyWord = Replace(tString,",",",")
End Function
'==================================================
zongxiao08 发表于:11-04-25 17:58 沙发 [回复] #Top#
zongxiao08 人气:145 积分:1044 金币:3553
嗯  学写了
luke 发表于:11-04-25 22:23 板凳 [回复] #Top#
luke 人气:489 积分:1943 金币:8004
最佳新人 灌水狂人
收藏下!
wenphie 发表于:11-04-26 09:31 4楼 [回复] #Top#
wenphie 人气:31 积分:156 金币:447
看起来不错
cevin 发表于:11-11-13 08:56 5楼 [回复] #Top#
cevin 人气:86 积分:131 金币:1752
怎么使用?
hongminjiaos 发表于:11-11-25 18:40 6楼 [回复] #Top#
hongminjiaos 人气:3 积分:50 金币:66
收藏  会有用的时候的

1Next >

发表回复

帐号 匿名发布 审核后可见 [加载完整在线编辑器]
内容
验证码
KingCMS 内容管理系统

关于我们 联系我们 广告报价 付款方式 站点导航

Copyright © 2004-2015 Focuznet All rights reserved.

广州唯众网络科技有限公司 粤ICP备08008106号