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)
随机阅读
[使用]
KCphp版本有漏洞爆发了
(23-04-05)
[分享]
承接仿站需要的联系我
(12-12-07)
[分享]
如何用asp程序打造定制化电商平台;
(12-11-21)
[疑问]
请问asp版怎么调用keywords一致的文章?
(12-07-13)
[其他]
建党90周年,了,kingcms能给点里么?
(11-06-27)
|
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 >