rstogbk.asp

项目开发对初学者来说非常重要

<%
Sub RsToGbook( rs )
    Tab = "<TABLE BORDER=0 WIDTH=""100%"">"
    Tab = Tab & "<TR><TD>姓 名:" & rs("姓名") & "</TD>"
    Tab = Tab & "<TD>Email:<A HREF=""mailto:" & rs("Email") & """>"
    Tab = Tab & rs("Email") & "</TD>"
    Tab = Tab & "<TR><TD COLSPAN=2>主 题:" & rs("主题") & "</TD></TR>"
    memo=Replace(rs("留言"), Chr(13), "<BR>" )
    Tab = Tab & "<TR><TD COLSPAN=2 BGCOLOR=#00FFFF><PRE><FONT Size=+1>" 
    Tab = Tab & memo & "</FONT></PRE></TD></TR>"
    Tab = Tab & "<TR><TD COLSPAN=2>留言:" & rs("留言") & "</TD></TR>"
    Tab = Tab & "</TABLE><HR>"
    Response.Write Tab
End Sub
%>