急急急ASP输出HTML代码

这段代码的作用是页面上显示一个表格，提示成功信息，并提供回到上一页链接(//后是注胡轮释)：

<%
sub WriteSuccessMsg(SuccessMsg) // 自定义函数，（）中是外部传递的参数
dim strSuccess // 声明变量
strSuccess=strSuccess & "" & vbcrlf
// strSuccess为字符串变量指做谨，以下赋值语句皆为字符串累加赋值操作，将这些html代码累加在字符串strSuccess中，这些html代码定义了一个表格

......

strSuccess=strSuccess &"<<返回上一页"& vbcrlf
// 上段代码中的“& SuccessMsg &”部分，作用是将该函数取得的参数内容累加唯基于strSuccess字符串中，即将其显示于表格之中。“<<返回上一页”定义了一个返回前一页的超链接。

......

response.write strSuccess
// 将字符串strSuccess输出，在客户端被浏览器解读为一个表格。
end sub
%>

<%
dim Msg // 声明变量
Msg="Response.Write输出成功,弹出定制窗口."
// 为变量赋值
Call WriteSuccessMsg(Msg)
// 将该变量作为参数传递给函数WriteSuccessMsg，并执行函数
%>

sub WriteSuccessMsg(SuccessMsg)
...
end sub
这个表示过程，和函数的意思配掘差不多，SuccessMsg表示过程形参

dim Msg '表示声明一敏首个变量桥卖数
Msg="Response.Write输出成功,弹出定制窗口." '表示为变量Msg赋值
Call WriteSuccessMsg(Msg) '表示调用过程WriteSuccessMsg

简单一点笑颤搭的：封装为过程碰拿

<%

sub
write_table()

%>

class=thin
style='FONT-SIZE:
12px;
BACKGROUND:
#000'洞坦
cellSpacing=1
cellPadding=0
width='90%'
align=center
border=0>
.........

...........'你的HTML代码

........



<%

end
sub

%>

需要输出时：

<%

write_table()

%>

response.write
"class=thin
style='FONT-SIZE:
12px;
BACKGROUND:
#000'
cellSpacing=1
cellPadding=0
width='90%'
align=center
border=0>"&_
""&_
""&_
"style='BACKGROUND:
#fff'
height=24>"&_
"align=right>姓名: