6_4.asp

来自「ASP网站论文 另计算机毕业设计出售,全套 论文加程序答辩通过,历届」· ASP 代码 · 共 17 行

<%
Sub RsToGbook( rs )
szg = "<table border=4 bordercolor: #666666 width=""95%"">"
szg = szg & "<TR  bgcolor: #666666><TD><font color: #000000><b>姓 名:" & rs("姓名") & "</TD>"
szg= szg & "<TD>Email:<A HREF=""mailto:" & rs("Email") & """>"
szg= szg & 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: #FFFFFF><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: #666666><br>"
    Response.Write szg
End Sub
%>