脖子变粗:懂ASP的请帮一下忙

来源:百度文库 编辑:高考问答 时间:2024/03/29 22:55:22
这是个函数大家看看哪出错了?可能是第七行吧?大家给看看怎么改?多谢了.
<%
Sub RsToGbook(rs)
szg="<table border=4 bordercolor=orange width=""100%"">"
szg=szg&"<TR bgcolor=orange><TD><font color=white><b>姓名:"&rs("姓名")&"</TD>"
szg=szg&"<TD>Email:<A HREF=""mail to:&rs("Email")""&"</TD>">"

szg=szg&"<TR><TD COLSPAN=2>主题:"&rs("主题")&"</TD></TR>"
memo=Replace(rs("留言"),chr(13),"<BR>")
szg=szg&"<TR><TD COLSPAN=2 bgcolor=beige><PRE><FONT Size=+1>"
szg=szg&memo&"</FONT></PRE></TD></TR>"
szg=szg&"<TR><TD COLSPAN=2>留言:"&rs("留言")&"</TD></TR>"
szg=szg&"</TABLE><br><HR color=orange><br>"
Response.Write szg
End Sub
%>

<%
Sub RsToGbook(rs)
szg="<table border=4 bordercolor=orange width=""100%"">"
szg=szg&"<TR bgcolor=orange><TD><font color=white><b>姓名:"&rs("姓名")&"</TD>"
szg=szg&"<TD>Email:<A HREF=""mail to:&rs("Email")""&"</TD>">" ''双引号有问题,没有TR闭合

szg=szg&"<TR><TD COLSPAN=2>主题:"&rs("主题")&"</TD></TR>"
memo=Replace(rs("留言"),chr(13),"<BR>")
szg=szg&"<TR><TD COLSPAN=2 bgcolor=beige><PRE><FONT Size=+1>"
szg=szg&memo&"</FONT></PRE></TD></TR>"
szg=szg&"<TR><TD COLSPAN=2>留言:"&rs("留言")&"</TD></TR>"
szg=szg&"</TABLE><br><HR color=orange><br>"
Response.Write szg
End Sub
%>

szg=szg&"<TR bgcolor=orange><TD><font color=white><b>姓名:"&rs("姓名")&"</TD>"
szg=szg&"<TD>Email:<A HREF=""mail to:&rs("Email")""&"</TD>">"
改为:
szg=szg&"<TR bgcolor=orange><TD><font color=white><b>姓名:"&rs("姓名")&"</font></TD>"
szg=szg&"<TD>Email:<a href='mail to:rs("Email")'>"&rs('Email')&"</a></TD></TR>"

第5行改为:

szg=szg&"<TD>Email:<A HREF=""mail to:&rs("Email")""></TD>"

应该是""出了问题
szg="<table border=4 bordercolor=orange width=""100%"">"
应改为
szg="<table border=4 bordercolor=orange width='100%'>"

rs("什么的")不用改