ASP 初阶笔记

时间:2008-10-07 12:06:22  来源:第二电脑网上收集  作者:

  第二电脑网导读:+f 查找. 附注: 期待我的中阶笔记吧, 目前内容还不多. :)shawl.qiu2006-8-14 http://blog.csdn.net/btbtdlinenum CREATED BY STABX, AT 2006-4-7.   DW...
  正文: 声明:
本文全部内容为 shawl.qiu 逐字逐句敲出来, 转载请注明出外. 谢谢!

适宜阅读人群为 ASP/ target=_blank class=infotextkey>asp 初学者. 

说明: 这是长时间的笔记, 不打算整理, 需要什么按 ctrl+f 查找. 

附注: 期待我的中阶笔记吧, 目前内容还不多. :)

shawl.qiu
2006-8-14
 http://blog.csdn.net/btbtd

    linenum
  1. CREATED BY STABX, AT 2006-4-7.
  2.  
  3. DW And ASP Note
  4.  
  5. ---/---------------------------------------------------------
  6.  
  7. 0. 语法开关
  8. 1. FOR
  9. 2. NOW
  10. 3. OPTION EXPLLICIT
  11. 4. 数字不用引号,字符串要用引号
  12. 5. <%myvar=”Hello Magic!”%><%=TYPENAME(myvar)%>
  13. 6. ISEMPTY
  14. 7. 2维数组: 第一个索引指定行,第二个索引指定列。
  15. 8. 虽然数组的某一维的第一个索引值总是0,但其第一维总是用1表示,不要混淆了维数与索引。
  16. 9. 注意JScript是一种区分大小写的语言。
  17. 10. JScript: 日期对象在1970年1月1日午夜之后,才开始跟踪日期,对象表示所有与这个特定历史时刻相关的日期和时间。
  18. 11. 使用JScript 你不能建立多维数组。JScript 中的所有数组对象都是一维的,有时这是很不方便的,有时你需要创建多维数组。
  19. 12. 用简单的 + - 实现上下页跳转
  20. 13. 数据调用
  21. 14. 返回当前年月日星期
  22. 15. 页面选择框跳转
  23. 16. 判断 URL 地址栏的查询, 显示查询条件的内容
  24. 17. 定义函数, 调用函数
  25. 18.1 向下显示十多记录——循环
  26. 18.1.1 显示 N 条记录
  27. 18.2.1 显示全部记录——循环
  28. 18.2.2 显示全部记录——循环
  29. 18.2.3 显示数组或集合里的所有元素——循环
  30. 18.2.3.1 显示 A - Z 的字母
  31. 18.3 过程的混合运用——循环
  32. 19. 数据更新操作——计数器加1
  33. 21. 判断 URL 栏 查询 ID, 显示适当的内容
  34. 22. 获得当前 URL 查询字段 号码
  35. 23. 显示当前查询ID
  36. 24.1 接收复选框数值——表单
  37. 24.2 接收列表框数值——表单
  38. 24.3 接收列表表单并更新数据——表单
  39. 25. 是否以 HTML 格式显示
  40. 26. 数组操作
  41. 26.1 静态数组
  42. 26.2 动态数组
  43. 27. while... wend
  44. 28. select case... end select
  45. 29. 前后移动记录集的当前位置
  46. 30. fso
  47. 31. Randomize
  48.  
  49. ---/---------------------------------------------------------
  50.  
  51. 32. Form
  52.  
  53. 32.1 遍历表单元素
  54.   dim  x '列出表单中所有元素
  55. for x=1 to request.Form.count
  56.     response.write request.form.key(x)&" --- "
  57.     response.write request.form(x)&"<br/>"
  58. next
  59. // request.form.key(x) 为 元素名
  60. // request.form(x) 为 元素值
  61.  
  62. 32.2 遍历表单元素 - 方法2 
  63.     dim elem
  64. for each elem in request.form
  65.     response.write elem
  66.     response.write request(elem)
  67.     response.write "<br/>"
  68. next
  69. //elem 为 元素名
  70. //request.form(elem) 为元素值
  71.  
  72. 31.1 随机显示内容, 并以 "|" 作为分隔符
  73.         if inStr(sitesubtitle,"|") then
  74.             dim subTtNum, subTt, subTtShow(), i
  75.                 subTtNum=ubound(split(sitesubtitle,"|"))
  76.             redim subTtShow(subTtNum)
  77.                 i=0
  78.             for each subTt in Split(sitesubtitle,"|")
  79.                 subTtShow(i)=subTt
  80.                 i=i+1
  81.             next
  82.             dim rndSubTt
  83.                 randomize
  84.                 rndSubTt=int((subTtNum - 0 +1)*rnd+0)
  85.                 sitesubtitleRnd=subTtShow(rndSubTt)
  86.         else sitesubtitleRnd=sitesubtitle
  87.         end if
  88.  
  89. 31. Randomize
  90.  
  91. 30.2 递归显示所有文件夹
  92. <% 
  93. private sub    showFolder(byref fso)
  94.     for each folder in fso.subfolders
  95.         response.write folder.path&"<br/>"
  96.         showFolder Folder
  97.     next
  98. end sub
  99.     set fso=server.CreateObject("scripting.fileSystemObject")
  100.     set root=fso.getFolder(server.MapPath("include/system/themes/"))
  101.     
  102.     showFolder root
  103. %>
  104.  
  105. 30.1 动态包含文件
  106.     execute(CreateObject("scripting.fileSystemObject").openTextFile(server.MapPath("include/managemain/language/"&sitebglang&"/main.asp")).readall)
  107.  
  108. 30. fso
  109.  
  110. 29. 前后移动记录集的当前位置
  111. <%'ASP Access 中 前后移动记录集的当前位置
  112.     set rs=server.CreateObject("adodb.recordset") 
  113.         rs.open "select * from ctarticle",MM_conn_String,1 '游标设置决定可否前后移动记录集
  114.         '参数设置: recordset.Open Source, ActiveConnection, CursorType, LockType, Options
  115.         
  116.         rs.movelast '移至查询的最后一条记录
  117.         response.Write rs("articleid")
  118.         response.write " "
  119.         response.write rs("title") 
  120.         response.write "<p/>"
  121.         
  122.         rs.moveprevious '移至当前记录的前一条记录
  123.         response.Write rs("articleid")
  124.         response.write " "
  125.         response.write rs("title") 
  126.         response.write "<p/>"
  127.         
  128.         rs.move -10 '移至当前记录的第前十条, 当然可以用 +# 来移动记录集
  129.         response.Write rs("articleid")
  130.         response.write " "
  131.         response.Write rs("title") 
  132.         response.write "<p/>"
  133.         
  134.         rs.movenext '移至当前记录的下一条
  135.         response.Write rs("articleid")
  136.         response.write " "
  137.         response.Write rs("title") 
  138.         response.write "<p/>"
  139.         
  140.         rs.movefirst '移至查询的第一条记录
  141.         response.Write rs("articleid")
  142.         response.write " "
  143.         response.Write rs("title") 
  144.         response.write "<p/>"
  145.         
  146.         rs.close 
  147.     set rs=nothing 
  148. %>
  149.  
  150. 28.3 判断字符串类型
  151. <%'判断查询用
  152.         id_=request("id")
  153.     select case id_
  154.         case "tag"
  155.             sql= "select * from v_page_tag_at_of_tg where b.tag like '%"&request("tag")&"%' order by a.articleid desc"
  156.         case "bytagid"
  157.             sql= "select * from v_page_tag_tg_only order by tagid desc"
  158.         case "byarticleid"
  159.             sql= "SELECT * FROM v_page_tag_at_and_tg order by articleid desc"
  160.         case "bytagdate"
  161.             sql= "select * from v_page_tag_tg_only order by tagdate desc"
  162.         case "byarticledate"
  163.             sql= "SELECT * FROM v_page_tag_at_and_tg order by dateandtime desc"
  164.         case "bytaghits"
  165.             sql= "select * from v_page_tag_tg_only order by tagview desc"
  166.         case "byarticlehits"
  167.             sql= "SELECT * FROM v_page_tag_at_and_tg order by hits desc"
  168.         case else
  169.             sql= "select distinct tag from cttag  order by tag asc"
  170.     end select
  171. %>
  172.  
  173. 28.2 Select Case 判断真假类型 
  174. <% '读取数据用
  175. 'sample call '''// call schkreadopt(htmloff_,ubboff_,tt_,ct_) //'''
  176. sub schkreadopt(html,ubb,title,content)    
  177.                 f=html&ubb
  178.     select case f
  179.         case true&true                    'UBB HTML 都选择
  180.                 title=title 
  181.                 content=htmlToTextHTMLonUBBoff(content)
  182.         case false&false                 'UBB HTML 都没选择
  183.                 title=htmlToText(title)
  184.                 content=htmlToText(content)
  185.         case false&true                    'UBB选择, HTML 没选择
  186.                 title=htmlToText(title)
  187.                 content=htmlToText(content)
  188.         case true&false                    'UBB 没选择, HTML 选择
  189.                 title=htmlToTextNullUBB(title)
  190.                 content=htmlToTextNullUBB(content)
  191.     end select
  192. end sub
  193. %>
  194.  
  195. 28.1 Select Case 判断数字类型
  196. <% '添加更新数据用
  197. 'sample call '''// call schkaddorupopt(htmloff_,ubboff_,title_,content_) //'''
  198. sub schkaddorupopt(html,ubb,title,content)    
  199.                 f=html&ubb
  200.     select case f
  201.         case 00                            'html 和 ubb 都没选择
  202.                 title=textToHtml(trim(title))
  203.                 content=textToHtml(content)
  204.         case 11                         'html 和 ubb 都选择
  205.                 title=textToHtml1(trim(title))
  206.                 content=textToHtml1(content_)
  207.         case 01                            'HTML 没选择, UBB 选择
  208.                 title_=textToHtmlNullUBB(trim(title)) 
  209.                 content_=textToHtmlNullUBB(content_)
  210.         case 10                            'HTML 选择, UBB 没选择
  211.                 title=textToHtml(trim(title))
  212.                 content=textToHtml(content)
  213.     end select
  214. end sub
  215. %>
  216.  
  217. 28. select case... end select
  218.  
  219. 27. while... wend
  220. <% 
  221. while not rs.eof 
  222.     response.write rs("title")
  223. wend
  224. %>
  225. 比 do while 少了一个单词
  226.  
  227. 26.3 在现有的数据上, 追加数据
  228. <% 
  229.     dim array_()
  230.     redim array_(1)
  231.         array_(0)="array 0 value":    array_(1)="array1 value"
  232.         response.write "array_(0)="&array_(0)
  233.         response.write "<br/>array_(1)="&array_(1)
  234.     redim preserve array_(2):    array_(2)="array2 value"
  235.         response.write "<br/><br/>add array_(2)"
  236.         response.write "<br/>array_(0)="&array_(0)
  237.         response.write "<br/>array_(1)="&array_(1)
  238.         response.write "<br/>array_(2)="&array_(2)
  239. %>
  240.  
  241. 26.2 动态数组
  242. <%    '连接数据库
  243.     set rs=server.CreateObject("adodb.recordset") '创建 rs 数据查询
  244.         rs.open "SELECT  a.*, b.* FROM ctglossarysubcat AS a INNER JOIN ctglossarysupercat AS b ON a.gcid = b.gcid order by a.gcid",MM_conn_string,1
  245.         i=0
  246. do while not rs.eof 
  247.         gcid_=rs("a.gcid")
  248.         gscid_=rs("gscid")
  249.         gscat_=rs("gscat")
  250.         
  251.         cat_=array(gcid_,gscid_,gscat_)
  252.         
  253.         response.write cat_(0)&" "&cat_(1)&" "&cat_(2)&"<br/>"
  254.         
  255.         i=i+1
  256.         rs.movenext
  257. loop
  258.         rs.close '关闭 rs 连接
  259.     set rs=nothing 
  260. %>
  261.  
  262. 26.1 静态数组
  263. <% 
  264.         dim show(1,7)
  265.                 i=0
  266.         do while not rs.eof 
  267.                 i=i+1
  268.                 show(0,i)=rs("gcat")
  269.                 show(1,i)=rs("gscat")
  270.                 response.write show(0,i)&" "&show(1,i)&"<br/>"
  271.         rs.movenext
  272.         loop
  273. %>
  274.  
  275. 26.0 数组函数
  276. 26.0.1 ubound 返回数组长度: ubound(arrayname)
  277. 26.0.2 erase 删除动态数组: erase arrayname
  278. 26.0.3 isarray 判断是否为数组: isarray(varname)
  279.  
  280. 26. 数组操作
  281. 数组元素为: 索引与维
  282. 索引从 0 开始计数, 维从 1 开始.
  283.  
  284. 25. 是否以 HTML 格式显示
  285. <%
  286.     if request.Form("htmlon")="on" then
  287.         title_=request.Form("title") '同上
  288.         content_=request.Form("content")
  289.     else
  290.         title_=textToHtml(request.Form("title")) '同上
  291.         content_=textToHtml(request.Form("content"))
  292.     end if
  293. %>

"ASP 初阶笔记"由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Programming/ASP/2008-10-07/3014.html


关键字:

关于《ASP 初阶笔记》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td