1Next >
fox1383164k | 发表于:10-09-02 09:57 [添加收藏] 楼主 [回复] #Top# |
---|---|
人气:377
积分:864
金币:3006
|
这是指定开发的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 '==================================================
Ta最近还发表过
[分享]
25个时尚杰出的登录表单设计
(23-03-10)
[错误]
kingcms5.0/5.1漏洞
(19-02-14)
[分享]
关于php版自定义模块搜索问题解决
(17-10-21)
[使用]
可以下拉的自动生成导航栏menu
(13-09-19)
[错误]
KingCMS 企业版(PHP) 6.0.970(Sp1)几个错误的解决方案
(13-06-20)
随机阅读
[帮助]
敬请期待:KingCMS地方门户团购将至
(12-09-14)
[建议]
几个疑问,因为体验不到kc门户版
(12-07-29)
[疑问]
kingcms创建文章列表时描述的255限制怎么去掉啊
(12-07-04)
[疑问]
网站是不是可以在很短的时间内提高排名啊
(11-12-21)
[疑问]
怎么进行网站搬家
(11-11-22)
|
zongxiao08 | 发表于:11-04-25 17:58 沙发 [回复] #Top# |
---|---|
人气:145
积分:1044
金币:3553
|
嗯 学写了
|
luke | 发表于:11-04-25 22:23 板凳 [回复] #Top# |
---|---|
人气:489
积分:1943
金币:8004
|
收藏下!
|
wenphie | 发表于:11-04-26 09:31 4楼 [回复] #Top# |
---|---|
人气:31
积分:156
金币:447
|
看起来不错
|
cevin | 发表于:11-11-13 08:56 5楼 [回复] #Top# |
---|---|
人气:86
积分:131
金币:1752
|
怎么使用?
|
hongminjiaos | 发表于:11-11-25 18:40 6楼 [回复] #Top# |
---|---|
人气:3
积分:50
金币:66
|
收藏 会有用的时候的
|
1Next >