会vbscript的请进,一个字符串链结的问题,很简单的(100分)

  • 主题发起人 主题发起人 吴辽
  • 开始时间 开始时间

吴辽

Unregistered / Unconfirmed
GUEST, unregistred user!
现有一个combobox用来显示月份,有1-12月12个列表,在月份下面是一个5行7列的表格,
用来显示1-31日的日期,当用户点击某个格子比如1号的格子,假设combobox的日期是
5月份,就链结到20020501.htm 文件,我想做简单一点,在每个日期(1-31)都做一个链结,
链结时取一下当时系统时间的年,再取一下combobox里面的月,在加上日期比如说01,02等,
组合成一个20020501的字符串,我知道里面要用到vbscript我做不来,请哪位大哥帮忙一下,
留一下email地址,我发过去(只有一个页面),帮我看一下,我敢保证,会的人只要5-10分钟就能搞定。
希望版主原谅我在此贴有关vbscript的帖子,我是一个delphi迷,这个东西是我一个朋友要我作的,这里人气比较旺,所以贴到这儿来了
 
bbb-ccc@21cn.com
来吧。
 
谢谢kifo,
 
谢谢,bbb-ccc@21cn.com已发
 
写好已发给你了。
不过,index.htm表中的日期他做得不好。你想,如果是2月份只有28时,他表中的日期还有31天
怎么办?我看他JS的水平还行,得用JS配合下拉框做一个客户端动态的日期表就会好看些。
本来想做的,但太费时间。
 
谢谢kifo,请问那里的朋友,我是江苏无锡的,对了还有那个index页面能不能打开始就
显示当前的月份??
 
我在南京。
你的要求可以做到,不过,得把index.htm文件名改成index.asp,这样,也许你的很多连接都得改。
以下是修改过的代码:
<!--mstheme--><font face="宋体">
请选择月份
<%
If month(date())<10 then
mon = "0"&amp;month(date())
else
mon = month(date())
End If
%>
<select size="1" name="D1">
<option value="<%=mon%>" selected><%=mon%></option>
<option value="01">01</option>
<option value="02">02</option>
<option value="03">03</option>
<option value="04">04</option>
<option value="05">05</option>
<option value="06">06</option>
<option value="07">07</option>
<option value="08">08</option>
<option value="09">09</option>
<option value="10">10</option>
<option value="11">11</option>
<option value="12">12</option>
</select>


<!--mstheme-->
注意:<% … %>之间的语句是我写的,其它的语句都是你原来的。
 
老大,谢谢你,原来我以为只要vbscript就能搞定的,后来看了你的程序,我觉得要用ASP才
行,后来我想ASP 能做的,CGI 也应该能做,后来我用CGI做了一个,也能实现万年历了。
 
接受答案了.
 

Similar threads

回复
0
查看
1K
不得闲
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部