急急急ASP输出HTML代码
发布网友
发布时间：2022-04-29 19:32
共6个回答
热心网友
时间：2022-06-21 06:15
<%
sub WriteSuccessMsg(SuccessMsg) // 自定义函数，（）中是外部传递的参数
dim strSuccess // 声明变量
strSuccess=strSuccess & "<html><head><title>成功信息</title><meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbcrlf
// strSuccess为字符串变量，以下赋值语句皆为字符串累加赋值操作，将这些html代码累加在字符串strSuccess中，这些html代码定义了一个表格
......
strSuccess=strSuccess &"<tr align='center'bgcolor=lightblue><td><a href='javascript:hist ory.go(-1)'><<返回上一页</a></td></tr>"& vbcrlf
// 上段代码中的“& SuccessMsg &”部分，作用是将该函数取得的参数内容累加于strSuccess字符串中，即将其显示于表格之中。“<a href='javascript:hist ory.go(-1)'><<返回上一页</a>”定义了一个返回前一页的超链接。
......
response.write strSuccess
// 将字符串strSuccess输出，在客户端被浏览器解读为一个表格。
end sub
%>
<%
dim Msg // 声明变量
Msg="<font size=2>Response.Write输出成功,弹出定制窗口.</font>"
// 为变量赋值
Call WriteSuccessMsg(Msg)
// 将该变量作为参数传递给函数WriteSuccessMsg，并执行函数
%>
热心网友
时间：2022-06-21 06:15
...
end sub
这个表示过程，和函数的意思差不多，SuccessMsg表示过程形参
dim Msg '表示声明一个变量
Msg="<font size=2>Response.Write输出成功,弹出定制窗口.</font>" '表示为变量Msg赋值
Call WriteSuccessMsg(Msg) '表示调用过程WriteSuccessMsg
热心网友
时间：2022-06-21 06:16
<%
sub
write_table()
%>
<TABLE
class=thin
style='FONT-SIZE:
12px;
BACKGROUND:
#000'
cellSpacing=1
cellPadding=0
width='90%'
align=center
border=0>
.........
...........'你的HTML代码
........
</table>
<%
end
sub
%>
需要输出时：
<%
write_table()
%>
热心网友
时间：2022-06-21 06:16
"<TABLE
class=thin
style='FONT-SIZE:
12px;
BACKGROUND:
#000'
cellSpacing=1
cellPadding=0
width='90%'
align=center
border=0>"&_
"<TBODY>"&_
"<TR>"&_
"<TD
style='BACKGROUND:
#fff'
height=24>"&_
"<DIV
align=right>姓名:
</DIV></TD>"&_
"<TD
style='BACKGROUND:
#fff'> </TD>"&_
"<TD
style='BACKGROUND:
#fff'>"&_
"<DIV
align=right>性别:
</DIV></TD>"&_
"<TD
style='BACKGROUND:
#fff'> </TD>"&_
"<TD
style='BACKGROUND:
#fff'
width=128
rowSpan=5>"&_
"<P
align=center><STRONG>照 片</STRONG>
</P></TD></TR>"&_
"<TR>"&_
"<TD
style='BACKGROUND:
#fff'
width=79
bgColor=#999999
height=29>"&_
"<DIV
align=right>婚姻状况:</DIV></TD>"&_
"<TD
style='BACKGROUND:
#fff'
width=95> </TD>"&_
"<TD
style='BACKGROUND:
#fff'
width=77
height=29>"&_
"<DIV
align=right>出生年月:</DIV></TD>"&_
"<TD
style='BACKGROUND:
#fff'
width=128> </TD></TR>"&_
"<TR>"&_
"<TD
style='BACKGROUND:
#fff'
width=79
bgColor=#999999
height=27>"&_
"<DIV
align=right>学历:
</DIV></TD>"&_
"<TD
style='BACKGROUND:
#fff'
width=95
height=27> </TD>"&_
"<TD
style='BACKGROUND:
#fff'
width=77>"&_
"<DIV
align=right>户籍:
</DIV></TD>"&_
"<TD
style='BACKGROUND:
#fff'
width=128> </TD></TR>"&_
"<TR>"&_
"<TD
style='BACKGROUND:
#fff'
width=79>"&_
"<DIV
align=right>专业:
</DIV></TD>"&_
"<TD
style='BACKGROUND:
#fff'
width=95
height=26> </TD>"&_
"<TD
style='BACKGROUND:
#fff'
width=77>"&_
"<DIV
align=right>求职意向:
</DIV></TD>"&_
"<TD
style='BACKGROUND:
#fff'
width=128
height=26> </TD></TR>"&_
"<TR>"&_
"<TD
style='BACKGROUND:
#fff'
width=79
bgColor=#999999
height=26>"&_
"<DIV
align=right>毕业学校:
</DIV></TD>"&_
"<TD
style='BACKGROUND:
#fff'
colSpan=3> </TD></TR>"&_
"<TR>"&_
"<TD
style='BACKGROUND:
#fff'
width=79
height=29>"&_
"<DIV
align=right>计算机能力:
</DIV></TD>"&_
"<TD
style='BACKGROUND:
#fff'
colSpan=4> </TD></TR>"&_
"<TR>"&_
"<TD
style='BACKGROUND:
#fff'
width=79
bgColor=#999999
height=26>"&_
"<DIV
align=right>语言能力:
</DIV></TD>"&_
"<TD
style='BACKGROUND:
#fff'
colSpan=4> </TD></TR>"&_
"<TR>"&_
"<TD
style='BACKGROUND:
#fff'
width=79
bgColor=#999999
height=32>"&_
"<DIV
align=right>教育培训:
</DIV></TD>"&_
"<TD
style='BACKGROUND:
#fff'
colSpan=4> </TD></TR>"&_
"<TR>"&_
"<TD
style='BACKGROUND:
#fff'
colSpan=5
height=27>"&_
"<P
align=center><STRONG>技能/专长</STRONG></P></TD></TR>"&_
"<TR>"&_
"<TD
style='BACKGROUND:
#fff'
vAlign=top
colSpan=5
height=136>"&_
"<P
align=left><STRONG>相关技能:</STRONG></P></TD></TR>"&_
"<TR>"&_
"<TD
style='BACKGROUND:
#fff'
colSpan=5
height=29>"&_
"<P
align=center><STRONG>工作经验</STRONG></P></TD></TR>"&_
"<TR>"&_
"<TD
style='BACKGROUND:
#fff'
vAlign=top
colSpan=5
height=90>"&_
"<P
align=left><STRONG>工作经历描述:
</STRONG></P></TD></TR></TBODY></TABLE>"
热心网友
时间：2022-06-21 06:17
<%
sub
WriteSuccessMsg(SuccessMsg)
//
自定义函数，（）中是外部传递的参数
dim
strSuccess
//
声明变量
strSuccess=strSuccess
&
"<html><head><title>成功信息</title><meta
http-equiv='Content-Type'
content='text/html;
charset=gb2312'>"
&
vbcrlf
//
strSuccess为字符串变量，以下赋值语句皆为字符串累加赋值操作，将这些html代码累加在字符串strSuccess中，这些html代码定义了一个表格
......
strSuccess=strSuccess
&"<tr
align='center'bgcolor=lightblue><td><a
href='javascript:hist
ory.go(-1)'><<返回上一页</a></td></tr>"&
vbcrlf
//
上段代码中的“&
SuccessMsg
&”部分，作用是将该函数取得的参数内容累加于strSuccess字符串中，即将其显示于表格之中。“<a
href='javascript:hist
ory.go(-1)'><<返回上一页</a>”定义了一个返回前一页的超链接。
......
response.write
strSuccess
//
将字符串strSuccess输出，在客户端被浏览器解读为一个表格。
end
sub
%>
<%
dim
Msg
//
声明变量
Msg="<font
size=2>Response.Write输出成功,弹出定制窗口.</font>"
//
为变量赋值
Call
WriteSuccessMsg(Msg)
//
将该变量作为参数传递给函数WriteSuccessMsg，并执行函数
%>
热心网友
时间：2022-06-21 06:18
