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)
随机阅读
[模板]
用ASP3.0新作一个网站 ，大家评评提提意见
(13-03-23)
[疑问]
大家说说如果选择地方门户网站的话盈利模式是什么呢
(12-03-25)
[疑问]
Windows+IIS+PHP5能跑门户版么？
(11-05-11)
[其他]
今天貌似网站浏览速度很快
(11-05-02)
[其他]
介绍快盘给KC友们
(11-04-28)
|
| zongxiao08 | 发表于：11-04-25 17:58 沙发 [回复] #Top# |
|---|---|
人气：145
积分：994
金币：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 >