subtab1.asp

来自「Active Server Pages 网页制作教程看之前请传到ASP空间。或者」· ASP 代码 · 共 25 行

<%
Name = "彭丽莎"
Sex = "女"
Blood = "AB"
Married = "已婚"
Tel = "0932054088"
Address = "北京市夕照寺街一号"
DisplayTableData
%>

<%
Sub DisplayTableData()
   Response.Write "<TABLE Border=1>"
   Response.Write "<TR><TD>姓名：" & Name & "</TD></TR>"
   Response.Write "<TR><TD>性别：" & Sex & "</TD></TR>"
   Response.Write "<TR><TD>血型：" & Blood & "</TD></TR>"
   Response.Write "<TR><TD>已婚：" & Married & "</TD></TR>"
   Response.Write "<TR><TD>电话：" & Tel & "</TD></TR>"
   Response.Write "<TR><TD>地址：" & Address & "</TD></TR>"
   Response.Write "</TABLE>"
End Sub
%>