<p align="center">

align是对齐属性。它的值可以是left、center、right,分别表示靠左、中、右

asp，数据库，读取显示

      原句：
      <td align="center" nowrap="nowrap" bgcolor="#FFFFFF"><input type="text" name="address size="8" value="<%=rs("address")%>" /></td>

      如果这句全部删除，此列网页不显示

      不显示数据，但保留表格
      <td align="center" nowrap="nowrap" bgcolor="#FFFFFF"><input type="text" size="8" /></td>

      不显示数据，此列变灰色
      <td></td>

GoTo LastLine
 ................     ' 不会被执行
    
LastLine:   ' 接GoTo LastLine 完成

示例：

Sub GotoStatementDemo()
Dim Number, MyString
    Number = 1     ' 设置变量初始值。
    ' 判断 Number 的值以决定要完成那一个程序区段（以“程序标签”来表式）。
    If Number = 1 Then GoTo Line1 Else GoTo Line2
   
Line1:
    MyString = "Number equals 1"
    GoTo LastLine    ' 完成最后一行。
Line2:
    ' 下列的语句根本不会被完成。
    MyString = "Number equals 2"
LastLine:   ' 接GoTo LastLine 完成
     Debug.Print MyString    ' 将“"Number equals 1"”显示在“立即”窗口。
End Sub

asp，简易记事本，

目的：改变事态后，显示未处理

原：
Response.write"<script>alert('事件状态修改成功。');location.href='txt.asp'</script>"

修改为：
Response.write"<script>alert('事件状态修改成功。');location.href='txt.asp?list=false'</script>"

asp 将Access数据库某列的内容按顺序的显示在某张网页上

order by id desc 为降序
order by id asc 为升序   
id为数据库排列，可以任意（如data）

列：<降序>

在20日记中：
sql="select * from [day] order by id DESC"

在40简易记事本中：<原为：.........order by id">
sql="select * from jishi order by id desc"
elseif request("list")="true" then
sql="select * from jishi where ok=true order by id desc"
elseif request("list")="false" then
sql="select * from jishi where ok=false order by id desc"

Sub 单元格对齐技巧()
    Dim myRange As Range
    Set myRange = Range("A1")             '指定任意单元格Cells(ii, j) 替换变量
    With myRange
        .Value = "ExcelVBA实用技巧大全"
        .HorizontalAlignment = xlRight
        MsgBox "水平右对齐。"
        .HorizontalAlignment = xlLeft
        MsgBox "水平左对齐。"
        .HorizontalAlignment = xlCenter
        MsgBox "水平居中。"
        .HorizontalAlignment = xlDistributed
        MsgBox "水平分散对齐。"
        .VerticalAlignment = xlTop
        MsgBox "垂直靠上。"
        .VerticalAlignment = xlBottom
        MsgBox "垂直靠下。"
        .VerticalAlignment = xlCenter
        MsgBox "垂直居中。"
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlGeneral
        MsgBox "恢复默认。"
    End With
    Set myRange = Nothing
    End Sub

    With Selection
        ActiveSheet.UsedRange.HorizontalAlignment = xlRight  '对已用区域左对齐
    End With

vba，单元格标注成红色，（ii 和 j）为变量

单元格底色设置为红色(填充)

Cells(ii, j).Interior.Color = vbRed

VBA，设置字体颜色（Cells 和 Range 的区别）

Cells(ii, j).Font.Color = vbRed      '（ii 和 j）为变量

Range("A1").Font.Color = vbRed    'A1单元格