ASP写的自动生成SELECT表单的函数

2016-01-29 18:50 3 1 收藏

ASP写的自动生成SELECT表单的函数,ASP写的自动生成SELECT表单的函数

【 tulaoshi.com - ASP 】

对于ASP高手当然没什么用了，但是对于刚入门的初学者和美工就有些用处了。

Function selectdo(a,d,b,c)
Response.write"<select name='"&a&"'<option"&d&"</option"
for i=b to c
    if i<10 then
      i="0"&i
    end if
Response.write"<option"&i&"</option"
next
Response.write"</select"
End Function

在此基础上还可以扩展出更完整的SELECT表单。

来源:http://www.tulaoshi.com/n/20160129/1507514.html

上一篇：无组件生成BMP验证码
下一篇： Windows中防范黑客入侵七招

看过《ASP写的自动生成SELECT表单的函数》的人还看了以下文章更多>>

ASP中巧用Split()函数生成SQL查询语句

标签： ASP

Split 程序代码 <%attribs="商场名^^快餐店名^^报停名" names=Split(attribs,"^^") i=0 for each name in names response.write names(i)&"<br" i=i+1 next% 程序拆分结果：商场名快餐店名报停名根据 Split 结果生成 SQL 语句 <%attribs="商场名...

模仿PHP写的ASP分页

标签： ASP

<% ' 分页程序 ' total_records 总记录数 ' everypage_records 每页显示条数 ' current_page 当前页数 ' url 要传递的url，这里可以含有要传递的变量，比如 "list.asp?" 或者"list.asp?keyword=key&" ' 程序调用比较简单，不过还是比PHP的麻烦，继续努力中 sub show_page(total_records,everypage_records,current_page,url) ...

收集asp的常用函数

标签： Web开发

代码如下： function HTMLEncode(fString) if not isnull(fString) then fString = replace(fString, "", "") fString = replace(fString, "", "") fString = Replace(fString, CHR(32), " ") fString = Replace(fString, CHR(9),...

asp的ubb函数（推荐）

标签： Web开发

代码如下： function unHtml(content) unHtml=content if content "" then unHtml=replace(unHtml,"&","&") unHtml=replace(unHtml,"","") unHtml=replace(unHtml,"","") unHtml=replace(unHtml,chr(34),""") unHtml=replace(unHtml,chr(13),"br") unHtml=replace(unHtml,chr(32)," ") 'unHtml=ubb(unHtml) end if end function ...

几个常用的ASP函数

标签： Web开发

========取得带端口的URL，推荐使用================ Function Get_ScriptNameUrl() If request.servervariables("SERVER_PORT")="80" Then Get_ScriptNameUrl="http://" & request.servervariables("server_name")&lcase(request.servervariables("script_name")) Else Get_Scrip...

查看更多精彩>>