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)
随机阅读
[疑问]
网站关闭了，怎么恢复？
(13-06-25)
[使用]
还是比较喜欢咱们kingcms，cms的轻骑士
(12-01-21)
[疑问]
各位 请问kingcms的数据库放哪？
(11-08-01)
[分享]
发现个免费空间，大家可以看看
(11-06-02)
[疑问]
kingcms5怎么采集
(10-12-12)
|
| zongxiao08 | 发表于：11-04-25 17:58 沙发 [回复] #Top# |
|---|---|
人气：145
积分：989
金币：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 >